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

PROPLANTA/OPENWEATHER: docu

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@6960 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch 2014-11-13 19:19:59 +00:00
parent f270433390
commit 3709c4dab8
2 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
FHEM/59_OPENWEATHER.pm
View File

@ -38,8 +38,8 @@ package MyOPENWEATHERParser;
use base qw(HTML::Parser); use base qw(HTML::Parser);
our %fcReadings = (); our %fcReadings = ();
my $curTag = ""; my $curTag = "";
my $day = -2; our $day = -2;
my $time = ""; our $time = "";
# here HTML::text/start/end are overridden # here HTML::text/start/end are overridden
%knownTags = ( tn => "tempMin" %knownTags = ( tn => "tempMin"

27
FHEM/59_PROPLANTA.pm
View File

@ -75,6 +75,7 @@ my $curReadingType = 0;
,["SD", "sun", 2] ,["SD", "sun", 2]
,["UV", "uv", 2] ,["UV", "uv", 2]
,["GS", "rad", 3] ,["GS", "rad", 3]
,["WETTER_ID", "weather", 7]
,["WETTER_ID_MORGENS", "weatherMorning", 7] ,["WETTER_ID_MORGENS", "weatherMorning", 7]
,["WETTER_ID_TAGSUEBER", "weatherDay", 7] ,["WETTER_ID_TAGSUEBER", "weatherDay", 7]
,["WETTER_ID_ABENDS", "weatherEvening", 7] ,["WETTER_ID_ABENDS", "weatherEvening", 7]
@ -456,7 +457,7 @@ sub PROPLANTA_HtmlAcquire($$)
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return unless (defined($hash->{NAME})); return unless (defined($hash->{NAME}));
PROPLANTA_Log $hash, 5, "Start capturing of $URL"; PROPLANTA_Log $hash, 4, "Start capturing of $URL";
my $err_log = ""; my $err_log = "";
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10 ); my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10 );
@ -472,7 +473,7 @@ sub PROPLANTA_HtmlAcquire($$)
return "Error|Error " . $response->status_line; return "Error|Error " . $response->status_line;
} }
PROPLANTA_Log $hash, 5, length($response->content)." characters captured"; PROPLANTA_Log $hash, 4, length($response->content)." characters captured";
return $response->content; return $response->content;
} }
@ -530,9 +531,6 @@ sub PROPLANTA_Run($)
{ {
$URL = $attrURL; $URL = $attrURL;
} }
# abbrechen, wenn wichtige parameter nicht definiert sind
# return "" if ( !defined($URL) );
# return "" if ( $URL eq "" );
# acquire the html-page # acquire the html-page
my $response = PROPLANTA_HtmlAcquire($hash,$URL); my $response = PROPLANTA_HtmlAcquire($hash,$URL);
@ -541,11 +539,10 @@ sub PROPLANTA_Run($)
{ {
$ptext .= "|".$response; $ptext .= "|".$response;
} }
elsif ($response ne "") else
{ {
PROPLANTA_Log $hash, 5, "Start HTML parsing"; PROPLANTA_Log $hash, 4, "Start HTML parsing of captured page";
# Can't locate object method "new" via package "
my $parser = MyProplantaParser->new; my $parser = MyProplantaParser->new;
$parser->report_tags(qw(tr td span b img)); $parser->report_tags(qw(tr td span b img));
@MyProplantaParser::texte = (); @MyProplantaParser::texte = ();
@ -562,9 +559,13 @@ sub PROPLANTA_Run($)
{ {
$response = PROPLANTA_HtmlAcquire($hash,$URL . $_); $response = PROPLANTA_HtmlAcquire($hash,$URL . $_);
$MyProplantaParser::startDay = $_; $MyProplantaParser::startDay = $_;
if ($response !~ /^Error\|/)
{
PROPLANTA_Log $hash, 4, "Start HTML parsing of captured page";
$parser->parse($response); $parser->parse($response);
} }
} }
}
PROPLANTA_Log $hash, 4, "Found terms: " . @MyProplantaParser::texte; PROPLANTA_Log $hash, 4, "Found terms: " . @MyProplantaParser::texte;
@ -575,10 +576,6 @@ sub PROPLANTA_Run($)
} }
PROPLANTA_Log $hash, 4, "Parsed string: " . $ptext; PROPLANTA_Log $hash, 4, "Parsed string: " . $ptext;
} }
else
{
PROPLANTA_Log $hash, 1, "Error. No response string.";
}
return $ptext; return $ptext;
} }
##################################### #####################################
@ -688,6 +685,8 @@ PROPLANTA_Html($)
<ul> <ul>
The module extracts weather data from <a href="http://www.proplanta.de">www.proplanta.de</a>. The module extracts weather data from <a href="http://www.proplanta.de">www.proplanta.de</a>.
<br> <br>
The website provides a forecast for 12 days, for the first 7 days in a 3-hours-interval.
<br>
It uses the perl moduls HTTP::Request, LWP::UserAgent and HTML::Parse. It uses the perl moduls HTTP::Request, LWP::UserAgent and HTML::Parse.
<br/><br/> <br/><br/>
<a name="PROPLANTAdefine"></a> <a name="PROPLANTAdefine"></a>
@ -779,8 +778,10 @@ PROPLANTA_Html($)
<div style="width:800px"> <div style="width:800px">
<ul> <ul>
<a name="PROPLANTAdefine"></a> <a name="PROPLANTAdefine"></a>
Das Modul extrahiert Wetterdaten von der website <a href="http://www.proplanta.de">www.proplanta.de</a>. Das Modul extrahiert Wetterdaten von der Website <a href="http://www.proplanta.de">www.proplanta.de</a>.
<br/> <br/>
Es stellt eine Vorhersage f&uuml;r 12 Tage, w&aauml;hrend der ersten 7 Tage im 3-Stunden-Intervall, zur Verf&uuml;gung.
<br>
Es nutzt die Perl-Module HTTP::Request, LWP::UserAgent und HTML::Parse. Es nutzt die Perl-Module HTTP::Request, LWP::UserAgent und HTML::Parse.
<br/><br/> <br/><br/>
<b>Define</b> <b>Define</b>