Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

OPENWEATHER/PROPLANTA: svn.keyword

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6961 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch 2014-11-13 20:16:37 +00:00
parent 9253e4f831
commit c35773b3e4
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/59_OPENWEATHER.pm
View File

@ -1,5 +1,5 @@
###############################################################
# $Id: $
# $Id$
#
# 59_OPENWEATHER.pm
#
@ -121,7 +121,7 @@ use HTML::Parser;
# Modul Version for remote debugging
my $MODUL = "OPENWEATHER";
my $modulVersion = '# $Id: $';
my $modulVersion = '# $Id$';
sub OPENWEATHER_Log($$$);
sub OPENWEATHER_Start($);

9
fhem/FHEM/59_PROPLANTA.pm
View File

@ -1,11 +1,11 @@
####################################################################################################
# $Id: $
# $Id$
#
# 59_PROPLANTA.pm
#
# (c) 2014 Torsten Poitzsch < torsten . poitzsch at gmx . de >
#
# Weather forecast values for next 4 days are captured from http://www.proplanta.de/Wetter/<city>-Wetter.html
# Weather forecast values for 12 days are captured from www.proplanta.de
# inspired by 23_KOSTALPIKO.pm
#
# Copyright notice
@ -331,7 +331,7 @@ use vars qw($readingFnAttributes);
use vars qw(%defs);
my $MODUL = "PROPLANTA";
my $modulVersion = '# $Id: $';
my $modulVersion = '# $Id$';
my %url_template_1 =( "de" => "http://www.proplanta.de/Wetter/LOKALERORT-Wetter.html"
, "at" => "http://www.proplanta.de/Agrarwetter-Oesterreich/LOKALERORT/"
@ -574,7 +574,7 @@ sub PROPLANTA_Run($)
{
$ptext .= "|". join('|', @MyProplantaParser::texte);
}
PROPLANTA_Log $hash, 4, "Parsed string: " . $ptext;
PROPLANTA_Log $hash, 5, "Parsed string: " . $ptext;
}
return $ptext;
}
@ -614,6 +614,7 @@ sub PROPLANTA_Done($)
# Achtung! Um Mitternacht fehlen die aktuellen Werte
readingsBulkUpdate($hash, "state", "Tmin: " . $values{fc0_tempMin} . " Tmax: " . $values{fc0_tempMax} . " T: " . $values{temperature} . " H: " . $values{humidity} . " W: " . $values{wind} . " P: " . $values{pressure} );
readingsBulkUpdate( $hash, "lastConnection", keys( %values )." values captured" );
PROPLANTA_Log $hash, 4, keys( %values )." values captured";
}
else
{