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

9
fhem/FHEM/59_PROPLANTA.pm
View File

@ -1,11 +1,11 @@
#################################################################################################### ####################################################################################################
# $Id: $ # $Id$
# #
# 59_PROPLANTA.pm # 59_PROPLANTA.pm
# #
# (c) 2014 Torsten Poitzsch < torsten . poitzsch at gmx . de > # (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 # inspired by 23_KOSTALPIKO.pm
# #
# Copyright notice # Copyright notice
@ -331,7 +331,7 @@ use vars qw($readingFnAttributes);
use vars qw(%defs); use vars qw(%defs);
my $MODUL = "PROPLANTA"; my $MODUL = "PROPLANTA";
my $modulVersion = '# $Id: $'; my $modulVersion = '# $Id$';
my %url_template_1 =( "de" => "http://www.proplanta.de/Wetter/LOKALERORT-Wetter.html" my %url_template_1 =( "de" => "http://www.proplanta.de/Wetter/LOKALERORT-Wetter.html"
, "at" => "http://www.proplanta.de/Agrarwetter-Oesterreich/LOKALERORT/" , "at" => "http://www.proplanta.de/Agrarwetter-Oesterreich/LOKALERORT/"
@ -574,7 +574,7 @@ sub PROPLANTA_Run($)
{ {
$ptext .= "|". join('|', @MyProplantaParser::texte); $ptext .= "|". join('|', @MyProplantaParser::texte);
} }
PROPLANTA_Log $hash, 4, "Parsed string: " . $ptext; PROPLANTA_Log $hash, 5, "Parsed string: " . $ptext;
} }
return $ptext; return $ptext;
} }
@ -614,6 +614,7 @@ sub PROPLANTA_Done($)
# Achtung! Um Mitternacht fehlen die aktuellen Werte # 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, "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" ); readingsBulkUpdate( $hash, "lastConnection", keys( %values )." values captured" );
PROPLANTA_Log $hash, 4, keys( %values )." values captured";
} }
else else
{ {