mirror of
https://github.com/fhem/fhem-mirror.git
synced 2024-06-17 05:40:11 +00:00
fdc648161f
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23449 2b470e98-0d58-463d-a4d8-8e2adae1ed80
1141 lines
40 KiB
Perl
1141 lines
40 KiB
Perl
####################################################################################################
|
||
# $Id$
|
||
#
|
||
# 59_PROPLANTA.pm
|
||
#
|
||
# (c) 2014 Torsten Poitzsch
|
||
# (c) 2014-2016 tupol http://forum.fhem.de/index.php?action=profile;u=5432
|
||
#
|
||
# Weather forecast values for 12 days are captured from www.proplanta.de
|
||
# inspired by 23_KOSTALPIKO.pm
|
||
#
|
||
# Copyright notice
|
||
#
|
||
# This script is free software; you can redistribute it and/or modify
|
||
# it under the terms of the GNU General Public License as published by
|
||
# the Free Software Foundation; either version 2 of the License, or
|
||
# (at your option) any later version.
|
||
#
|
||
# The GNU General Public License can be found at
|
||
# http://www.gnu.org/copyleft/gpl.html.
|
||
# A copy is found in the text file GPL.txt and important notices to the license
|
||
# from the author is found in LICENSE.txt distributed with these scripts.
|
||
#
|
||
# This script is distributed in the hope that it will be useful,
|
||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
# GNU General Public License for more details.
|
||
#
|
||
# This copyright notice MUST APPEAR in all copies of the script!
|
||
#
|
||
####################################################################################################
|
||
|
||
###############################################
|
||
# parser for the weather data
|
||
package MyProplantaParser;
|
||
use base qw(HTML::Parser);
|
||
use Time::HiRes qw(usleep);
|
||
|
||
our @texte = ();
|
||
my $lookupTag = "span|b";
|
||
my $curTag = "";
|
||
my $curReadingName = "";
|
||
my $curRowID = "";
|
||
my $curCol = 0;
|
||
our $startDay = 0;
|
||
my $curTextPos = 0;
|
||
my $curReadingType = 0;
|
||
|
||
# 1 = span|b Text, 2 = readingName, 3 = Tag-Type
|
||
# Tag-Types:
|
||
# 1 = Number Col 3
|
||
# 2 = Number Col 2-5
|
||
# 3 = Number Col 2|4|6|8
|
||
# 4 = Intensity-Text Col 2-5
|
||
# 5 = Time Col 2-5
|
||
# 6 = Time Col 3
|
||
# 7 = alternative text of image Col 2-5 (weather state)
|
||
# 8 = MinMaxNummer Col 3 (cloud base)
|
||
# 9 = Date Col 2-5 / bold
|
||
# 10 = alternative text of Col 3 (wind direction)
|
||
# 11 = alternative text of image Col 3 (current weather state)
|
||
# 12 = Text Col 3
|
||
my @knownNoneIDs = ( ["Temperatur", "temperature", 1]
|
||
,["relative Feuchte", "humidity", 1]
|
||
,["Sichtweite", "visibility", 1]
|
||
,["Wetterzustand", "weather", 11]
|
||
,["Windrichtung", "windDir", 10]
|
||
,["Windgeschwindigkeit", "wind", 1]
|
||
,["Luftdruck", "pressure", 1]
|
||
,["Taupunkt", "dewPoint", 1]
|
||
,["Uhrzeit", "obsTime", 6]
|
||
,["Höhe der", "cloudBase", 8]
|
||
,["Höhe der", "cloudBase", 8]
|
||
);
|
||
|
||
# 1 = Tag-ID, 2 = readingName, 3 = Tag-Type (see above)
|
||
my @knownIDs = (
|
||
["DATUM", "date", 9]
|
||
,["TMAX", "tempMax", 2]
|
||
,["TMIN", "tempMin", 2]
|
||
,["NW", "chOfRainDay", 2]
|
||
,["NW_Nacht", "chOfRainNight", 2]
|
||
,["BF", "frost", 4]
|
||
,["VERDUNST", "evapor", 4]
|
||
,["TAUBILDUNG", "dew", 4]
|
||
,["SD", "sun", 2]
|
||
,["UV", "uv", 2]
|
||
,["GS", "rad", 3]
|
||
,["WETTER_ID", "weather", 7]
|
||
,["WETTER_ID_MORGENS", "weatherMorning", 7]
|
||
,["WETTER_ID_TAGSUEBER", "weatherDay", 7]
|
||
,["WETTER_ID_ABENDS", "weatherEvening", 7]
|
||
,["WETTER_ID_NACHT", "weatherNight", 7]
|
||
,["WETTER_ID_0", "weather00", 7]
|
||
,["WETTER_ID_3", "weather03", 7]
|
||
,["WETTER_ID_6", "weather06", 7]
|
||
,["WETTER_ID_9", "weather09", 7]
|
||
,["WETTER_ID_12", "weather12", 7]
|
||
,["WETTER_ID_15", "weather15", 7]
|
||
,["WETTER_ID_18", "weather18", 7]
|
||
,["WETTER_ID_21", "weather21", 7]
|
||
,["T_0", "temp00", 2]
|
||
,["T_3", "temp03", 2]
|
||
,["T_6", "temp06", 2]
|
||
,["T_9", "temp09", 2]
|
||
,["T_12", "temp12", 2]
|
||
,["T_15", "temp15", 2]
|
||
,["T_18", "temp18", 2]
|
||
,["T_21", "temp21", 2]
|
||
,["NW_0", "chOfRain00", 2]
|
||
,["NW_3", "chOfRain03", 2]
|
||
,["NW_6", "chOfRain06", 2]
|
||
,["NW_9", "chOfRain09", 2]
|
||
,["NW_12", "chOfRain12", 2]
|
||
,["NW_15", "chOfRain15", 2]
|
||
,["NW_18", "chOfRain18", 2]
|
||
,["NW_21", "chOfRain21", 2]
|
||
,["NS_0", "rain00", 2]
|
||
,["NS_3", "rain03", 2]
|
||
,["NS_6", "rain06", 2]
|
||
,["NS_9", "rain09", 2]
|
||
,["NS_12", "rain12", 2]
|
||
,["NS_15", "rain15", 2]
|
||
,["NS_18", "rain18", 2]
|
||
,["NS_21", "rain21", 2]
|
||
,["NS_24H", "rain", 2]
|
||
,["BD_0", "cloud00", 2]
|
||
,["BD_3", "cloud03", 2]
|
||
,["BD_6", "cloud06", 2]
|
||
,["BD_9", "cloud09", 2]
|
||
,["BD_12", "cloud12", 2]
|
||
,["BD_15", "cloud15", 2]
|
||
,["BD_18", "cloud18", 2]
|
||
,["BD_21", "cloud21", 2]
|
||
,["SA", "sunRise", 5]
|
||
,["SU", "sunSet", 5]
|
||
,["MA", "moonRise", 5]
|
||
,["MU", "moonSet", 5]
|
||
,["WGRAD_0", "windDir00", 2]
|
||
,["WGRAD_3", "windDir03", 2]
|
||
,["WGRAD_6", "windDir06", 2]
|
||
,["WGRAD_9", "windDir09", 2]
|
||
,["WGRAD_12", "windDir12", 2]
|
||
,["WGRAD_15", "windDir15", 2]
|
||
,["WGRAD_18", "windDir18", 2]
|
||
,["WGRAD_21", "windDir21", 2]
|
||
,["WGESCHW_0", "wind00", 2]
|
||
,["WGESCHW_3", "wind03", 2]
|
||
,["WGESCHW_6", "wind06", 2]
|
||
,["WGESCHW_9", "wind09", 2]
|
||
,["WGESCHW_12", "wind12", 2]
|
||
,["WGESCHW_15", "wind15", 2]
|
||
,["WGESCHW_18", "wind18", 2]
|
||
,["WGESCHW_21", "wind21", 2]
|
||
,["BGESCHW_0", "gust00", 2]
|
||
,["BGESCHW_3", "gust03", 2]
|
||
,["BGESCHW_6", "gust06", 2]
|
||
,["BGESCHW_9", "gust09", 2]
|
||
,["BGESCHW_12", "gust12", 2]
|
||
,["BGESCHW_15", "gust15", 2]
|
||
,["BGESCHW_18", "gust18", 2]
|
||
,["BGESCHW_21", "gust21", 2]
|
||
);
|
||
|
||
my %intensity = ( "keine" => 0
|
||
,"nein" => 0
|
||
,"gering" => 1
|
||
,"leicht" => 1
|
||
,"ja" => 1
|
||
,"mäßig" => 2
|
||
,"mäßig" => 2
|
||
,"stark" => 3
|
||
);
|
||
|
||
my %winddir = ( "Nord" => 0
|
||
,"Nord-Nordost" => 23
|
||
,"Nordost" => 45
|
||
,"Ost-Nordost" => 68
|
||
,"Ost" => 90
|
||
,"Ost-Südost" => 113
|
||
,"Ost-Südost" => 113
|
||
,"Südost" => 135
|
||
,"Südost" => 135
|
||
,"Süd-Südost" => 158
|
||
,"Süd-Südost" => 158
|
||
,"Süd" => 180
|
||
,"Süd" => 180
|
||
,"Süd-Südwest" => 203
|
||
,"Süd-Südwest" => 203
|
||
,"Südwest" => 225
|
||
,"Südwest" => 225
|
||
,"West-Südwest" => 248
|
||
,"West-Südwest" => 248
|
||
,"West" => 270
|
||
,"West-Nordwest" => 303
|
||
,"Nordwest" => 325
|
||
,"Nord-Nordwest" => 348
|
||
);
|
||
|
||
##############################################
|
||
sub get_wday($)
|
||
{
|
||
my ($date) = @_;
|
||
my @wday_txt = qw(So Mo Di Mi Do Fr Sa);
|
||
my @th=localtime $date;
|
||
|
||
return $wday_txt [$th[6]];
|
||
}
|
||
|
||
##############################################
|
||
# here HTML::text/start/end are overridden
|
||
sub text
|
||
{
|
||
my ( $self, $text ) = @_;
|
||
my $found = 0;
|
||
my $readingName;
|
||
# Wait 1ms to reduce CPU load and hence blocking of FHEM by it (workaround until a better solution is available)
|
||
usleep (1000);
|
||
if ( $curTag =~ $lookupTag ) {
|
||
$curTextPos++;
|
||
|
||
$text =~ s/^\s+//; # trim string
|
||
$text =~ s/\s+$//;
|
||
$text =~ s/0/0/g; # replace 0
|
||
$text =~ s/1/1/g; # replace 1
|
||
$text =~ s/2/2/g; # replace 2
|
||
$text =~ s/3/3/g; # replace 3
|
||
$text =~ s/4/4/g; # replace 4
|
||
$text =~ s/5/5/g; # replace 5
|
||
$text =~ s/6/6/g; # replace 6
|
||
$text =~ s/7/7/g; # replace 7
|
||
$text =~ s/8/8/g; # replace 8
|
||
$text =~ s/9/9/g; # replace 9
|
||
|
||
# Tag-Type 0 = Check for readings without tag-ID (current readings)
|
||
if ($curReadingType == 0) {
|
||
if ($startDay == 0 && $curCol == 1 && $curTextPos == 1)
|
||
{
|
||
foreach my $r (@knownNoneIDs)
|
||
{
|
||
if ( $$r[0] eq $text )
|
||
{
|
||
$curReadingName = $$r[1];
|
||
$curReadingType = $$r[2];
|
||
last;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
# Tag-Type 1 = Number Col 3
|
||
elsif ($curReadingType == 1) {
|
||
if ( $curCol == 3 )
|
||
{
|
||
$readingName = $curReadingName;
|
||
if ( $text =~ m/([-,\+]?\d+[,\.]?\d*)/ )
|
||
{
|
||
$text = $1;
|
||
$text =~ tr/,/./; # komma durch punkt ersetzen
|
||
}
|
||
push( @texte, $readingName."|".$text );
|
||
$curReadingType = 0;
|
||
}
|
||
}
|
||
# Tag-Type 2 = Number Col 2-5
|
||
elsif ($curReadingType == 2) {
|
||
if ( 1 < $curCol && $curCol <= 5 )
|
||
{
|
||
$readingName = "fc".($startDay+$curCol-2)."_".$curReadingName;
|
||
if ( $text =~ m/([-+]?\d+[,.]?\d*)/ )
|
||
{
|
||
$text = $1;
|
||
$text =~ tr/,/./; # komma durch punkt ersetzen
|
||
}
|
||
push( @texte, $readingName."|".$text );
|
||
}
|
||
}
|
||
# Tag-Type 3 = Number Col 2|4|6|8
|
||
elsif ($curReadingType == 3) {
|
||
if ( 2 <= $curCol && $curCol <= 5 )
|
||
{
|
||
if ( $curTextPos % 2 == 1 )
|
||
{
|
||
$readingName = "fc".($startDay+$curCol-2)."_".$curReadingName;
|
||
$text =~ tr/,/./; # komma durch punkt ersetzen
|
||
push( @texte, $readingName."|".$text );
|
||
}
|
||
}
|
||
}
|
||
# Tag-Type 4 = Intensity-Text Col 2-5
|
||
elsif ($curReadingType == 4) {
|
||
if ( 2 <= $curCol && $curCol <= 5 )
|
||
{
|
||
$readingName = "fc".($startDay+$curCol-2)."_".$curReadingName;
|
||
$text = $intensity{$text} if defined $intensity{$text};
|
||
push( @texte, $readingName . "|" . $text );
|
||
}
|
||
}
|
||
# Tag-Type 5 = Time Col 2-5
|
||
elsif ($curReadingType == 5) {
|
||
if ( 2 <= $curCol && $curCol <= 5 )
|
||
{
|
||
$readingName = "fc".($startDay+$curCol-2)."_".$curReadingName;
|
||
if ( $text =~ m/([012-]?[-0-9][.:][-0-5][-0-9])/ )
|
||
{
|
||
$text = $1;
|
||
$text =~ tr/./:/; # Punkt durch Doppelpunkt ersetzen
|
||
}
|
||
push( @texte, $readingName."|".$text );
|
||
}
|
||
}
|
||
# Tag-Type 6 = Time Col 3
|
||
elsif ($curReadingType == 6) {
|
||
if ( $curCol == 3 )
|
||
{
|
||
$readingName = $curReadingName;
|
||
if ( $text =~ m/([012-]?[-0-9][.:][-0-5][-0-9])/ )
|
||
{
|
||
$text = $1;
|
||
$text =~ tr/./:/; # Punkt durch Doppelpunkt ersetzen
|
||
}
|
||
push( @texte, $readingName."|".$text );
|
||
}
|
||
}
|
||
# Tag-Type 8 = MinMaxNumber Col 3
|
||
elsif ($curReadingType == 8) {
|
||
if ( $curCol == 3 )
|
||
{
|
||
$readingName = $curReadingName;
|
||
if ( $text =~ m/(\d+)\s*-\s*(\d+)/ )
|
||
{
|
||
push( @texte, $readingName."Min|".$1 );
|
||
push( @texte, $readingName."Max|".$2 );
|
||
}
|
||
else
|
||
{
|
||
push( @texte, $readingName."Min|-" );
|
||
push( @texte, $readingName."Max|-" );
|
||
}
|
||
}
|
||
}
|
||
# Tag-Type 9 = Date Col 2-5
|
||
elsif ($curReadingType == 9 && $curTag eq "b") {
|
||
if ( 1 < $curCol && $curCol <= 5 ) {
|
||
$readingName = "fc".($startDay+$curCol-2)."_".$curReadingName;
|
||
push( @texte, $readingName."|".$text );
|
||
}
|
||
}
|
||
# Tag-Type 12 = Text Col 3
|
||
elsif ($curReadingType == 12) {
|
||
if ( $curCol == 3 )
|
||
{
|
||
$readingName = $curReadingName;
|
||
push( @texte, $readingName."|".$text );
|
||
$curReadingType = 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
##############################################
|
||
sub start
|
||
{
|
||
my ( $self, $tagname, $attr, $attrseq, $origtext ) = @_;
|
||
$curTag = $tagname;
|
||
if ( $tagname eq "tr" ) {
|
||
$curReadingType = 0;
|
||
$curCol = 0;
|
||
$curTextPos = 0;
|
||
if ( defined( $attr->{id} ) ) {
|
||
foreach my $r (@knownIDs) {
|
||
if ( $$r[0] eq $attr->{id} ) {
|
||
$curReadingName = $$r[1];
|
||
$curReadingType = $$r[2];
|
||
last;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
elsif ($tagname eq "td") {
|
||
$curCol++;
|
||
$curTextPos = 0;
|
||
}
|
||
#wetterstate and icon - process immediately
|
||
elsif ($tagname eq "img"
|
||
&& ( $curReadingType == 7 && 2 <= $curCol && $curCol <= 5
|
||
|| $curReadingType == 11 && $curCol == 3) ) {
|
||
# process alternative text
|
||
$readingName = $curReadingName;
|
||
$readingName = "fc" . ($startDay+$curCol-2) . "_" . $readingName if $curReadingType == 7;
|
||
$text = $attr->{alt};
|
||
$text =~ s/Wetterzustand: //;
|
||
# $text =~ s/ö/oe/;
|
||
# $text =~ s/ä/ae/;
|
||
# $text =~ s/ü/ue/;
|
||
# $text =~ s/ß/ss/;
|
||
push( @texte, $readingName . "|" . $text );
|
||
# Image URL
|
||
push( @texte, $readingName."Icon" . "|" . $attr->{src} );
|
||
}
|
||
#wind direction - process immediately
|
||
elsif ($tagname eq "img" && $curReadingType == 10 && $curCol == 3 ) {
|
||
# process alternative text
|
||
$readingName = $curReadingName;
|
||
$text = $attr->{alt};
|
||
$text =~ s/Windrichtung: //;
|
||
$text = $winddir{$text} if defined $winddir{$text};
|
||
# $text =~ s/ö/oe/;
|
||
# $text =~ s/ä/ae/;
|
||
# $text =~ s/ü/ue/;
|
||
# $text =~ s/ß/ss/;
|
||
push( @texte, $readingName . "|" . $text );
|
||
# Image URL
|
||
push( @texte, $readingName."Icon" . "|" . $attr->{src} );
|
||
}
|
||
}
|
||
|
||
##############################################
|
||
sub end
|
||
{
|
||
my ( $self, $tagname, $attr, $attrseq, $origtext ) = @_;
|
||
$curTag = "";
|
||
|
||
if ( $tagname eq "tr" ) {
|
||
$curReadingType = 0
|
||
};
|
||
}
|
||
|
||
|
||
##############################################
|
||
package main;
|
||
use strict;
|
||
use feature qw/say switch/;
|
||
use Encode qw/from_to/;
|
||
use warnings;
|
||
|
||
my $missingModul;
|
||
eval "use LWP::UserAgent;1" or $missingModul .= "LWP::UserAgent ";
|
||
eval "use HTTP::Request;1" or $missingModul .= "HTTP::Request ";
|
||
eval "use HTML::Parser;1" or $missingModul .= "HTML::Parser ";
|
||
eval "use MIME::Base64;1" or $missingModul .= "MIME::Base64 ";
|
||
|
||
require 'Blocking.pm';
|
||
require 'HttpUtils.pm';
|
||
use vars qw($readingFnAttributes);
|
||
|
||
use vars qw(%defs);
|
||
my $MODUL = "PROPLANTA";
|
||
|
||
# my %url_template_1 =( "de" => "http://www.proplanta.de/Wetter/LOKALERORT-Wetter.html"
|
||
# , "at" => "http://www.proplanta.de/Agrarwetter-Oesterreich/LOKALERORT/"
|
||
# , "ch" => "http://www.proplanta.de/Agrarwetter-Schweiz/LOKALERORT/"
|
||
# , "fr" => "http://www.proplanta.de/Agrarwetter-Frankreich/LOKALERORT.html"
|
||
# , "it" => "http://www.proplanta.de/Agrarwetter-Italien/LOKALERORT.html"
|
||
# );
|
||
|
||
my %url_template = ( "de" => "https://www.proplanta.de/Wetter/profi-wetter.php?SITEID=60&PLZ=LOKALERORT&STADT=LOKALERORT&WETTERaufrufen=stadt&Wtp=&SUCHE=Wetter&wT="
|
||
, "at" => "https://www.proplanta.de/Wetter-Oesterreich/profi-wetter-at.php?SITEID=70&PLZ=LOKALERORT&STADT=LOKALERORT&WETTERaufrufen=stadt&Wtp=&SUCHE=Wetter&wT="
|
||
, "ch" => "https://www.proplanta.de/Wetter-Schweiz/profi-wetter-ch.php?SITEID=80&PLZ=LOKALERORT&STADT=LOKALERORT&WETTERaufrufen=stadt&Wtp=&SUCHE=Wetter&wT="
|
||
, "fr" => "https://www.proplanta.de/Wetter-Frankreich/profi-wetter-fr.php?SITEID=50&PLZ=LOKALERORT&STADT=LOKALERORT&WETTERaufrufen=stadt&Wtp=&SUCHE=Wetter-Frankreich&wT="
|
||
, "it" => "https://www.proplanta.de/Wetter-Italien/profi-wetter-it.php?SITEID=40&PLZ=LOKALERORT&STADT=LOKALERORT&WETTERaufrufen=stadt&Wtp=&SUCHE=Wetter-Italien&wT="
|
||
);
|
||
|
||
|
||
########################################
|
||
sub PROPLANTA_Log($$$)
|
||
{
|
||
my ( $hash, $loglevel, $text ) = @_;
|
||
my $xline = ( caller(0) )[2];
|
||
|
||
my $xsubroutine = ( caller(1) )[3];
|
||
my $sub = ( split( ':', $xsubroutine ) )[2];
|
||
$sub =~ s/PROPLANTA_//;
|
||
|
||
my $instName = ( ref($hash) eq "HASH" ) ? $hash->{NAME} : $hash;
|
||
Log3 $instName, $loglevel, "$MODUL $instName: $sub.$xline " . $text;
|
||
}
|
||
###################################
|
||
sub PROPLANTA_Initialize($)
|
||
{
|
||
my ($hash) = @_;
|
||
$hash->{DefFn} = "PROPLANTA_Define";
|
||
$hash->{UndefFn} = "PROPLANTA_Undef";
|
||
$hash->{SetFn} = "PROPLANTA_Set";
|
||
$hash->{AttrList} = "INTERVAL URL disable:0,1 forecastDays:4,7,11,14 " . $readingFnAttributes;
|
||
}
|
||
###################################
|
||
sub PROPLANTA_Define($$)
|
||
{
|
||
my ( $hash, $def ) = @_;
|
||
my $name = $hash->{NAME};
|
||
my $lang = "";
|
||
my @a = split( "[ \t][ \t]*", $def );
|
||
|
||
return "Error: Perl moduls ".$missingModul."are missing on this system"
|
||
if $missingModul;
|
||
return "Wrong syntax: use define <name> PROPLANTA [City] [CountryCode]" if int(@a) > 4;
|
||
|
||
$lang = "de" if int(@a) == 3;
|
||
$lang = lc( $a[3] ) if int(@a) == 4;
|
||
|
||
if ( $lang ne "")
|
||
{ # {my $test="http://www.proplanta.de/Wetter/LOKALERORT-Wetter.html";; $test =~ s/LOKALERORT/München/g;; return $test;;}
|
||
return "Wrong country code '$lang': use " . join(" | ", keys( %url_template ) ) unless defined( $url_template{$lang} );
|
||
my $URL = $url_template{$lang};
|
||
my $ort_encode= $a[2];
|
||
# change Umlaute from UTF8 in Percent-encode
|
||
$ort_encode =~ s/<2F>|Ä/%C4/g;
|
||
$ort_encode =~ s/<2F>|Ö/%D6/g;
|
||
$ort_encode =~ s/<2F>|Ü/%DC/g;
|
||
$ort_encode =~ s/<2F>|ß/%DF/g;
|
||
$ort_encode =~ s/<2F>|ä/%E4/g;
|
||
$ort_encode =~ s/<2F>|ö/%F6/g;
|
||
$ort_encode =~ s/<2F>|ü/%FC/g;
|
||
|
||
$URL =~ s/LOKALERORT/$ort_encode/g;
|
||
$hash->{URL} = $URL;
|
||
# $URL = $url_template_2{$lang};
|
||
# $URL =~ s/LOKALERORT/$ort/g;
|
||
# $hash->{URL2} = $URL;
|
||
}
|
||
|
||
$hash->{STATE} = "Initializing";
|
||
$hash->{fhem}{LOCAL} = 0;
|
||
$hash->{INTERVAL} = 3600;
|
||
$hash->{fhem}{modulVersion} = '$Date$';
|
||
|
||
RemoveInternalTimer($hash);
|
||
|
||
#Get first data after 32 seconds
|
||
InternalTimer( gettimeofday() + 32, "PROPLANTA_Start", $hash, 0 );
|
||
|
||
return undef;
|
||
}
|
||
#####################################
|
||
sub PROPLANTA_Undef($$)
|
||
{
|
||
my ( $hash, $arg ) = @_;
|
||
|
||
RemoveInternalTimer( $hash );
|
||
|
||
BlockingKill( $hash->{helper}{RUNNING_PID} ) if ( defined( $hash->{helper}{RUNNING_PID} ) );
|
||
|
||
return undef;
|
||
}
|
||
#####################################
|
||
sub PROPLANTA_Set($@)
|
||
{
|
||
my ($hash, $name, $cmd, @val) = @_;
|
||
# my $reUINT = '^([\\+]?\\d+)$';
|
||
my $usage = "Unknown argument $cmd, choose one of update:noArg ";
|
||
|
||
return $usage unless defined $cmd;
|
||
|
||
if ( $cmd eq "?" ) {
|
||
return $usage;
|
||
}
|
||
elsif ( $cmd eq "update" ) {
|
||
Log3 $name, 3, "PROPLANTA: set $name $cmd ".join(" ", @val);
|
||
$hash->{fhem}{LOCAL} = 1;
|
||
PROPLANTA_Start($hash);
|
||
$hash->{fhem}{LOCAL} = 0;
|
||
}
|
||
else {
|
||
return $usage;
|
||
}
|
||
return;
|
||
}
|
||
|
||
#####################################
|
||
# acquires the html page
|
||
sub PROPLANTA_HtmlAcquire($$)
|
||
{
|
||
my ($hash, $URL) = @_;
|
||
my $name = $hash->{NAME};
|
||
return unless (defined($hash->{NAME}));
|
||
|
||
PROPLANTA_Log $hash, 4, "Start capturing of $URL";
|
||
|
||
#$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
|
||
|
||
my $err_log = "";
|
||
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http', 'https'], timeout => 10
|
||
, agent => "Mozilla/5.0 (compatible, MSIE 11, Windows NT 6.3; Trident/7.0; rv:11.0) like Gecko" );
|
||
my $request = HTTP::Request->new( GET => $URL );
|
||
my $response = $agent->request($request);
|
||
$err_log = "Can't get $URL -- " . $response->status_line
|
||
unless $response->is_success;
|
||
|
||
if ( $err_log ne "" )
|
||
{
|
||
readingsSingleUpdate($hash, "lastConnection", $response->status_line, 1);
|
||
PROPLANTA_Log $hash, 1, "Error: $err_log";
|
||
return "Error|Error " . $response->status_line;
|
||
}
|
||
|
||
PROPLANTA_Log $hash, 4, length($response->content)." characters captured";
|
||
|
||
my $returnString = $response->content;
|
||
from_to($returnString,"iso-8859-1","utf8", Encode::FB_QUIET);
|
||
|
||
return $returnString;
|
||
}
|
||
|
||
|
||
#####################################
|
||
sub PROPLANTA_Start($)
|
||
{
|
||
my ($hash) = @_;
|
||
my $name = $hash->{NAME};
|
||
|
||
return unless (defined($hash->{NAME}));
|
||
|
||
$hash->{INTERVAL} = AttrVal( $name, "INTERVAL", $hash->{INTERVAL} );
|
||
|
||
readingsSingleUpdate($hash, "state", "disabled", 1) if AttrVal($name, "disable", 0 ) == 1;
|
||
|
||
if($hash->{INTERVAL} > 0) {
|
||
# reset timer if interval is defined
|
||
RemoveInternalTimer( $hash );
|
||
InternalTimer(gettimeofday() + $hash->{INTERVAL}, "PROPLANTA_Start", $hash, 1 );
|
||
return undef if AttrVal($name, "disable", 0 ) == 1 && !$hash->{fhem}{LOCAL};
|
||
}
|
||
|
||
if ( AttrVal( $name, 'URL', '') eq '' && not defined( $hash->{URL} ) )
|
||
{
|
||
PROPLANTA_Log $hash, 3, "missing URL";
|
||
return;
|
||
}
|
||
|
||
# "Set update"-action will kill a running update child process
|
||
if (defined ($hash->{helper}{RUNNING_PID}) && $hash->{fhem}{LOCAL})
|
||
{
|
||
BlockingKill($hash->{helper}{RUNNING_PID});
|
||
delete( $hash->{helper}{RUNNING_PID} );
|
||
PROPLANTA_Log $hash, 4, "Killing old forked process";
|
||
}
|
||
|
||
unless (defined ($hash->{helper}{RUNNING_PID}))
|
||
{
|
||
$hash->{helper}{RUNNING_PID} =
|
||
BlockingCall(
|
||
"PROPLANTA_Run", # callback worker task
|
||
$name, # name of the device
|
||
"PROPLANTA_Done", # callback result method
|
||
120, # timeout seconds
|
||
"PROPLANTA_Aborted", # callback for abortion
|
||
$hash ); # parameter for abortion
|
||
PROPLANTA_Log $hash, 4, "Start forked process to capture html";
|
||
}
|
||
else
|
||
{
|
||
PROPLANTA_Log $hash, 1, "Could not start forked process, old process still running";
|
||
}
|
||
}
|
||
|
||
#####################################
|
||
sub PROPLANTA_Run($)
|
||
{
|
||
eval "setpriority( 0, 0, 10);"; #work-around for old perl
|
||
my ($name) = @_;
|
||
my $ptext=$name;
|
||
my $URL;
|
||
my $response;
|
||
return unless ( defined($name) );
|
||
|
||
my $hash = $defs{$name};
|
||
return unless (defined($hash->{NAME}));
|
||
my $readingStartTime = time();
|
||
|
||
my $fcDays = AttrVal( $name, 'forecastDays', 14 );
|
||
my $parser = MyProplantaParser->new;
|
||
|
||
# get date from Attribut URL only
|
||
my $attrURL = AttrVal( $name, 'URL', "" );
|
||
if ($attrURL ne "") {
|
||
|
||
$response = PROPLANTA_HtmlAcquire($hash,$attrURL);
|
||
|
||
if ($response =~ /^Error\|/) {
|
||
$ptext .= "|".$response;
|
||
}
|
||
else {
|
||
PROPLANTA_Log $hash, 4, "Start HTML parsing of captured page";
|
||
|
||
$parser->report_tags(qw(tr td span b img));
|
||
@MyProplantaParser::texte = ();
|
||
$MyProplantaParser::startDay = 0;
|
||
|
||
# parsing the complete html-page-response, needs some time
|
||
$parser->parse($response);
|
||
}
|
||
}
|
||
|
||
# Get data from location specified in define
|
||
else {
|
||
$URL = $hash->{URL};
|
||
my @URL_days = (0, 4, 7, 11);
|
||
|
||
foreach (@URL_days) {
|
||
last unless $_ < $fcDays;
|
||
$response = PROPLANTA_HtmlAcquire($hash,$URL . $_);
|
||
$MyProplantaParser::startDay = $_;
|
||
|
||
if ($response !~ /^Error\|/) {
|
||
PROPLANTA_Log $hash, 4, "Start HTML parsing of captured page";
|
||
$parser->parse($response);
|
||
}
|
||
}
|
||
|
||
PROPLANTA_Log $hash, 4, "Found terms: " . @MyProplantaParser::texte;
|
||
|
||
# pack the results in a single string
|
||
if (@MyProplantaParser::texte > 0) {
|
||
$ptext .= "|". join('|', @MyProplantaParser::texte);
|
||
}
|
||
PROPLANTA_Log $hash, 5, "Parsed string: " . $ptext;
|
||
}
|
||
$ptext .= "|durationFetchReadings|";
|
||
$ptext .= sprintf "%.2f", time() - $readingStartTime;
|
||
|
||
return $ptext;
|
||
}
|
||
|
||
#####################################
|
||
# asyncronous callback by blocking
|
||
sub PROPLANTA_Done($)
|
||
{
|
||
my ($string) = @_;
|
||
return unless ( defined($string) );
|
||
|
||
# all term are separated by "|" , the first is the name of the instance
|
||
my ( $name, %values ) = split( "\\|", $string );
|
||
my $hash = $defs{$name};
|
||
return unless ( defined($hash->{NAME}) );
|
||
|
||
PROPLANTA_Log $hash, 4, "Forked process successfully finished";
|
||
|
||
# delete the marker for RUNNING_PID process
|
||
delete( $hash->{helper}{RUNNING_PID} );
|
||
|
||
|
||
# Wetterdaten speichern
|
||
readingsBeginUpdate($hash);
|
||
|
||
if ( defined $values{Error} )
|
||
{
|
||
readingsBulkUpdate( $hash, "lastConnection", $values{Error} );
|
||
}
|
||
else
|
||
{
|
||
my $x = 0;
|
||
my $fcDays = AttrVal( $name, 'forecastDays', 14 );
|
||
while (my ($rName, $rValue) = each(%values) )
|
||
{
|
||
if ($fcDays < 14 && $rName =~ /^fc(\d+)_/)
|
||
{
|
||
next unless $1 < $fcDays;
|
||
}
|
||
readingsBulkUpdate( $hash, $rName, $rValue );
|
||
PROPLANTA_Log $hash, 5, "reading:$rName value:$rValue";
|
||
}
|
||
|
||
if (keys %values > 0)
|
||
{
|
||
my $newState;
|
||
if (defined $values{fc0_tempMin} && defined $values{fc0_tempMax})
|
||
{
|
||
$newState = "Tmin: " . $values{fc0_tempMin} . " Tmax: " . $values{fc0_tempMax};
|
||
# Achtung! Nach Mitternacht fehlen für 1 h die aktuellen Werte
|
||
$newState .= " T: " . $values{temperature} . " H: " . $values{humidity} . " W: " . $values{wind} . " P: " . $values{pressure}
|
||
if defined $values{temperature} && defined $values{humidity} && defined $values{wind} && defined $values{pressure};
|
||
}
|
||
else
|
||
{
|
||
$newState = "Error: Could not capture all data. Please check URL or city name.";
|
||
}
|
||
readingsBulkUpdate($hash, "state", $newState);
|
||
readingsBulkUpdate( $hash, "lastConnection", keys( %values )." values captured in ".$values{durationFetchReadings}." s" );
|
||
PROPLANTA_Log $hash, 4, keys( %values )." values captured";
|
||
}
|
||
else
|
||
{
|
||
readingsBulkUpdate( $hash, "lastConnection", "no data found" );
|
||
PROPLANTA_Log $hash, 1, "No data found. Check city name or URL.";
|
||
}
|
||
}
|
||
readingsEndUpdate( $hash, 1 );
|
||
}
|
||
|
||
#####################################
|
||
sub PROPLANTA_Aborted($)
|
||
{
|
||
my ($hash) = @_;
|
||
delete( $hash->{helper}{RUNNING_PID} );
|
||
PROPLANTA_Log $hash, 4, "Forked process timed out";
|
||
}
|
||
|
||
##### noch nicht fertig ###########
|
||
sub #####################################
|
||
PROPLANTA_Html(@)
|
||
{
|
||
my ($d,$days) = @_;
|
||
$d = "<none>" if(!$d);
|
||
$days = 3 unless defined $days;
|
||
return "$d is not a PROPLANTA instance<br>"
|
||
if(!$defs{$d} || $defs{$d}{TYPE} ne "PROPLANTA");
|
||
|
||
my $uselocal= 0; #AttrVal($d,"localicons",0);
|
||
my $isday;
|
||
if ( exists &isday) {
|
||
$isday = isday();
|
||
}
|
||
else {
|
||
$isday = 1; #($hour>6 && $hour<19);
|
||
}
|
||
|
||
my $ret = "<table border=0><thead align=center>";
|
||
$ret .= sprintf '<tr><th colspan=9 align=left>%s</th></tr>', $defs{$d}{DEF};
|
||
$ret .= '<tr><th>Tag</th><th>morgens</th><th>tagsueber</th><th>abends</th><th>nachts</th><th>min</th><th>max</th><th>Regen tags</th><th>Frost</th></tr></thead>';
|
||
$ret .= "<tbody align=center>";
|
||
# define MyForecast weblink htmlCode { PROPLANTA_Html("ProPlanta_Wetter") }
|
||
for(my $i=0; $i<$days; $i++) {
|
||
$ret .= sprintf('<tr><td>%s</td><td>%s<br><img src="%s"></td><td>%s<br><img src="%s"></td><td>%s<br><img src="%s"></td><td>%s<br><img src="%s"></td><td>%s°C</td><td>%s°C</td><td>%s %%</td><td>%s</td></tr>',
|
||
ReadingsVal($d, "fc".$i."_date", ""),
|
||
ReadingsVal($d, "fc".$i."_weatherMorning", ""), ReadingsVal($d, "fc".$i."_weatherMorningIcon", ""),
|
||
ReadingsVal($d, "fc".$i."_weatherDay", ""), ReadingsVal($d, "fc".$i."_weatherDayIcon", ""),
|
||
ReadingsVal($d, "fc".$i."_weatherEvening", ""), ReadingsVal($d, "fc".$i."_weatherEveningIcon", ""),
|
||
ReadingsVal($d, "fc".$i."_weatherNight", ""), ReadingsVal($d, "fc".$i."_weatherNightIcon", ""),
|
||
ReadingsVal($d, "fc".$i."_tempMin", ""), ReadingsVal($d, "fc".$i."_tempMax", ""),
|
||
ReadingsVal($d, "fc".$i."_chOfRainDay", ""),
|
||
ReadingsVal($d, "fc".$i."_frost", "") ? "ja" : "nein"
|
||
);
|
||
}
|
||
# for(my $i=0; $i<=4; $i++) {
|
||
# $ret .= sprintf('<tr><td>%s</td><td>%s: %s<br>min %s °C max %s °C<br>wind: %s km/h %s<br>precip: %s mm</td></tr>',
|
||
# WWOIconIMGTag(ReadingsVal($d, "fc${i}_weatherDayIcon", ""),$uselocal,$isday),
|
||
# ReadingsVal($d, "fc${i}_date", ""),
|
||
# ReadingsVal($d, "fc${i}_weatherDay", ""),
|
||
# ReadingsVal($d, "fc${i}_tempMinC", ""), ReadingsVal($d, "fc${i}_tempMaxC", ""),
|
||
# }
|
||
|
||
$ret .= "</tbody></table>";
|
||
|
||
return $ret;
|
||
}
|
||
|
||
sub #####################################
|
||
PROPLANTA_Html_Landscape(@)
|
||
{
|
||
my ($d,$days) = @_;
|
||
$d = "<none>" if(!$d);
|
||
$days = 3 unless defined $days;
|
||
return "$d is not a PROPLANTA instance<br>"
|
||
if(!$defs{$d} || $defs{$d}{TYPE} ne "PROPLANTA");
|
||
|
||
my $uselocal= 0; #AttrVal($d,"localicons",0);
|
||
my $isday;
|
||
if ( exists &isday) {
|
||
$isday = isday();
|
||
}
|
||
else {
|
||
$isday = 1; #($hour>6 && $hour<19);
|
||
}
|
||
|
||
my $ret = "<table border=0><thead align=center>";
|
||
$ret .= "<tbody align=center>";
|
||
$ret .= sprintf '<tr><th colspan=9 align=left>%s</th></tr>', $defs{$d}{DEF};
|
||
$ret .= '<tr><th>Tag</th>';
|
||
for(my $i=0; $i<$days; $i++) {
|
||
if ($i==0) {
|
||
$ret .= '<th>heute';
|
||
} elsif ($i==1) {
|
||
$ret .= '<th>morgen';
|
||
} else {
|
||
$ret .= '<th>'.substr(ReadingsVal($d, "fc".$i."_date", ""),0,5);
|
||
}
|
||
$ret .= ReadingsVal($d, "fc".$i."_frost", "") ? ' (Frost)</th>' : '</th>';
|
||
};
|
||
|
||
$ret .= '</tr><tr><td>Temp</td>';
|
||
for(my $i=0; $i<$days; $i++) {
|
||
$ret .= '<td>'.ReadingsVal($d, "fc".$i."_tempMin", "").'-'.ReadingsVal($d, "fc".$i."_tempMax", "").'℃ </td>';
|
||
};
|
||
$ret .= '</tr><tr><td>Regen</td>';
|
||
for(my $i=0; $i<$days; $i++) {
|
||
$ret .= '<td>'.ReadingsVal($d, "fc".$i."_chOfRainDay", "").'%</td>';
|
||
};
|
||
$ret .= '</tr><tr><td>Wetter</td>';
|
||
for(my $i=0; $i<$days; $i++) {
|
||
$ret .= '<td><img src="'.ReadingsVal($d, "fc".$i."_weatherMorningIcon", "").'">
|
||
<img src="'.ReadingsVal($d, "fc".$i."_weatherDayIcon", "").'">
|
||
<img src="'.ReadingsVal($d, "fc".$i."_weatherEveningIcon", "").'">|</td>';
|
||
};
|
||
$ret .= "</tr></tbody></table>";
|
||
|
||
return $ret;
|
||
}
|
||
|
||
#####################################
|
||
1;
|
||
|
||
=pod
|
||
=item device
|
||
=item summary extracts weather data from www.proplanta.de
|
||
=item summary_DE Extrahiert Wetterdaten von www.proplanta.de
|
||
|
||
=begin html
|
||
|
||
<a name="PROPLANTA"></a>
|
||
<h3>PROPLANTA</h3>
|
||
<div>
|
||
<ul>
|
||
The module extracts weather data from <a href="http://www.proplanta.de">www.proplanta.de</a>.
|
||
<br>
|
||
The website provides a forecast for 12 days, for the first 7 days in a 3-hours-interval.
|
||
<br>
|
||
This module causes a high CPU load. It is recommended to reduce the number of captured forecast days.
|
||
<br>
|
||
It uses the perl modules HTTP::Request, LWP::UserAgent and HTML::Parse.
|
||
<br/><br/>
|
||
<a name="PROPLANTAdefine"></a>
|
||
<b>Define</b>
|
||
<ul>
|
||
<br>
|
||
<code>define <name> PROPLANTA [City] [CountryCode]</code>
|
||
<br>
|
||
Example:
|
||
<br>
|
||
<code>define wetter PROPLANTA Bern ch</code>
|
||
<br>
|
||
<code>define wetter PROPLANTA Wittingen+(Niedersachsen)</code>
|
||
<br>
|
||
<li><code>[City]</code>
|
||
<br>
|
||
Optional. The city must be selectable on <a href="http://www.proplanta.de">www.proplanta.de</a>.
|
||
<br>
|
||
Please pay attention to the <b>Capital</b> letters in the city names.
|
||
Spaces within the name are replaced by a + (plus).
|
||
</li><br>
|
||
<li><code>[CountryCode]</code>
|
||
<br>
|
||
Optional. Possible values: de (default), at, ch, fr, it
|
||
</li><br>
|
||
The function <code>PROPLANTA_Html</code> and <code>PROPLANTA_Html_Landscape</code> creates a HTML code for a weather forecast for the given days (default is 3).
|
||
<br>
|
||
Example:
|
||
<br>
|
||
<code>define HTMLForecast weblink htmlCode { PROPLANTA_Html("ProPlanta_Wetter"[, days])}</code>
|
||
<br/><br/>
|
||
</ul>
|
||
<br>
|
||
|
||
<a name="PROPLANTAset"></a>
|
||
<b>Set</b>
|
||
<ul>
|
||
<br>
|
||
<li><code>set <name> update</code>
|
||
<br>
|
||
The weather data are immediately polled from the website.
|
||
</li><br>
|
||
</ul>
|
||
<br>
|
||
|
||
<a name="PROPLANTAattr"></a>
|
||
<b>Attributes</b>
|
||
<ul>
|
||
<br>
|
||
<li><code>forecastDays <4-14></code>
|
||
<br>
|
||
Number of days for which the forecast data shall be fetched. Default is 14 days (incl. today).
|
||
</li><br>
|
||
<li><code>INTERVAL <seconds></code>
|
||
<br>
|
||
Poll interval for weather data in seconds (default 3600 = 1 hour)
|
||
</li><br>
|
||
<li><code>URL <internet address></code>
|
||
<br>
|
||
URL to extract information from. Overwrites the values in the 'define' term.
|
||
</li><br>
|
||
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
||
</ul>
|
||
<br>
|
||
|
||
<a name="PROPLANTAreading"></a>
|
||
<b>Forecast readings</b>
|
||
<ul>
|
||
<br>
|
||
<li><b>fc</b><i>0|1|2|3|...|13</i><b>_...</b> - forecast values for <i>today|tommorrow|in 2|3|...|13 days</i></li>
|
||
<li><b>fc</b><i>0</i><b>_...<i>00|03|06|09|12|15|18|21</i></b> - forecast values for <i>today</i> at <i>00|03|06|09|12|15|18|21</i> o'clock</li>
|
||
<li><b>fc</b><i>0</i><b>_chOfRain</b><i>Day|Night</i> - chance of rain <i>today</i> by <i>day|night</i> in %</li>
|
||
<li><b>fc</b><i>0</i><b>_chOfRain</b><i>15</i> - chance of rain <i>today</i> at <i>15:00</i> in %</li>
|
||
<li><b>fc</b><i>0</i><b>_cloud</b><i>15</i> - cloud coverage <i>today</i> at <i>15:00</i> in %</li>
|
||
<li><b>fc</b><i>0</i><b>_dew</b> - dew formation <i>today</i> (0=none, 1=small, 2=medium, 3=strong)</li>
|
||
<li><b>fc</b><i>0</i><b>_evapor</b> - evaporation <i>today</i> (0=none, 1=small, 2=medium, 3=strong)</li>
|
||
<li><b>fc</b><i>0</i><b>_frost</b> - ground frost <i>today</i> (0=no, 1=yes)</li>
|
||
<li><b>fc</b><i>0</i><b>_gust</b><i>15</i> - maximal wind gusts <i>today</i> at <i>15</i>:00 o'clock in km/h</li>
|
||
<li><b>fc</b><i>0</i><b>_moon</b><i>Rise|Set</i> - moon <i>rise|set today</i></li>
|
||
<li><b>fc</b><i>0</i><b>_rad</b> - global radiation <i>today</i></li>
|
||
<li><b>fc</b><i>0</i><b>_rain</b><i>15</i> - amount of rainfall <i>today</i> at <i>15</i>:00 o'clock in mm</li>
|
||
<li><b>fc</b><i>0</i><b>_sun</b> - relative sun shine duration <i>today</i> in % (between sun rise and set)</li>
|
||
<li><b>fc</b><i>0</i><b>_temp</b><i>Min|Max</i> - <i>minimal|maximal</i> temperature <i>today</i> in °C</li>
|
||
<li><b>fc</b><i>0</i><b>_temp</b><i>15</i> - temperatur <i>today</i> at <i>15</i>:00 o'clock in °C</li>
|
||
<li><b>fc</b><i>0</i><b>_uv</b> - UV-Index <i>today</i></li>
|
||
<li><b>fc</b><i>0</i><b>_weather</b><i>Morning|Day|Evening|Night</i> - weather situation <i>today morning|during day|in the evening|during night</i></li>
|
||
<li><b>fc</b><i>0</i><b>_weather</b><i>Day</i><b>Icon</b> - icon of weather situation <i>today</i> by <i>day</i></li>
|
||
<li><b>fc</b><i>0</i><b>_wind</b><i>15</i> - wind speed <i>today</i> at <i>15</i>:00 Uhr in km/h</li>
|
||
<li><b>fc</b><i>0</i><b>_windDir</b><i>15</i> - wind direction <i>today</i> at <i>15</i>:00 Uhr in °</li>
|
||
<li>etc.</li>
|
||
</ul>
|
||
<br>
|
||
</ul>
|
||
</div>
|
||
|
||
=end html
|
||
|
||
=begin html_DE
|
||
|
||
<a name="PROPLANTA"></a>
|
||
<h3>PROPLANTA</h3>
|
||
<div>
|
||
<ul>
|
||
<a name="PROPLANTAdefine"></a>
|
||
Das Modul extrahiert Wetterdaten von der Website <a href="http://www.proplanta.de">www.proplanta.de</a>.
|
||
<br/>
|
||
Es stellt eine Vorhersage für 12 Tage zur Verfügung - während der ersten 7 Tage im 3-Stunden-Intervall.
|
||
<br>
|
||
Dieses Modul erzeugt eine hohe CPU-Last. Es wird deshalb empfohlen, die auszulesenden Vorhersagetage zu reduzieren.
|
||
<br>
|
||
<i>Es nutzt die Perl-Module HTTP::Request, LWP::UserAgent und HTML::Parse</i>.
|
||
<br>
|
||
Für detaillierte Anleitungen bitte die <a href="http://www.fhemwiki.de/wiki/PROPLANTA"><b>FHEM-Wiki</b></a> konsultieren und ergänzen.
|
||
<br/><br/>
|
||
<b>Define</b>
|
||
<ul>
|
||
<br>
|
||
<code>define <Name> PROPLANTA [Stadt] [Ländercode]</code>
|
||
<br>
|
||
Beispiel:
|
||
<br>
|
||
<code>define wetter PROPLANTA Bern ch</code>
|
||
<br>
|
||
<code>define wetter PROPLANTA Wittingen+(Niedersachsen)</code>
|
||
<br>
|
||
<li><code>[Stadt]</code>
|
||
<br>
|
||
Optional. Die Stadt muss auf <a href="http://www.proplanta.de">www.proplanta.de</a> auswählbar sein.
|
||
<br>
|
||
Wichtig!! Auf die <b>großen</b> Anfangsbuchstaben achten. Leerzeichen im Stadtnamen werden durch ein + (Plus) ersetzt.
|
||
</li><br>
|
||
<li><code>[Ländercode]</code>
|
||
<br>
|
||
Optional. Mögliche Werte: de (Standard), at, ch, fr, it
|
||
</li><br>
|
||
Über die Funktion <code>PROPLANTA_Html</code> und <code>PROPLANTA_Html_Landscape</code> wird ein HTML-Code für eine Vorhersage für die angegebenen Anzahl Tage (standardmäßig 3) erzeugt.
|
||
<br>
|
||
Beispiel:
|
||
<br>
|
||
<code>define Vorschau weblink htmlCode {PROPLANTA_Html("Wetter"[, Tage])}</code>
|
||
<br/><br/>
|
||
</ul>
|
||
<br>
|
||
|
||
<a name="PROPLANTAset"></a>
|
||
<b>Set</b>
|
||
<ul>
|
||
<br>
|
||
<li><code>set <name> update</code>
|
||
<br>
|
||
Startet sofort ein neues Auslesen der Wetterdaten.
|
||
</li><br>
|
||
</ul>
|
||
|
||
<a name="PROPLANTAattr"></a>
|
||
<b>Attribute</b>
|
||
<ul>
|
||
<br>
|
||
<li><code>forecastDays <4-14></code>
|
||
<br>
|
||
Anzahl Tage, für die die Vorhersage ausgelesen werden soll. Standard ist 14 Tage (inkl. heute).
|
||
</li><br>
|
||
<li><code>INTERVAL <Abfrageintervall></code>
|
||
<br>
|
||
Abfrageintervall in Sekunden (Standard 3600 = 1 Stunde)
|
||
</li><br>
|
||
<li><code>URL <Internetadresse></code>
|
||
<br>
|
||
Internetadresse, von der die Daten ausgelesen werden (überschreibt die Werte im 'define'-Term)
|
||
</li><br>
|
||
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
||
</ul>
|
||
<br><br>
|
||
|
||
|
||
<a name="PROPLANTAreading"></a>
|
||
<b>Vorhersagewerte</b>
|
||
<ul>
|
||
<br>
|
||
<li><b>fc</b><i>0|1|2|3...|13</i><b>_...</b> - Vorhersagewerte für <i>heute|morgen|übermorgen|in 3|...|13 Tagen</i></li>
|
||
<li><b>fc</b><i>0</i><b>_...<i>00|03|06|09|12|15|18|21</i></b> - Vorhersagewerte für <i>heute</i> um <i>00|03|06|09|12|15|18|21</i> Uhr</li>
|
||
<li><b>fc</b><i>0</i><b>_chOfRain</b><i>Day|Night</i> - <i>heutiges</i> Niederschlagsrisiko <i>tagsüber|nachts</i> in %</li>
|
||
<li><b>fc</b><i>1</i><b>_chOfRain</b><i>15</i> - <i>morgiges</i> Niederschlagsrisiko um <i>15</i>:00 Uhr in %</li>
|
||
<li><b>fc</b><i>2</i><b>_cloud</b><i>15</i> - Wolkenbedeckungsgrad <i>übermorgen</i> um <i>15</i>:00 Uhr in %</li>
|
||
<li><b>fc</b><i>0</i><b>_dew</b> - Taubildung <i>heute</i> (0=keine, 1=leicht, 2=mäßig, 3=stark)</li>
|
||
<li><b>fc</b><i>0</i><b>_evapor</b> - Verdunstung <i>heute</i> (0=keine, 1=gering, 2=mäßig, 3=stark)</li>
|
||
<li><b>fc</b><i>0</i><b>_frost</b> - Bodenfrost <i>heute</i> (0=nein, 1=ja)</li>
|
||
<li><b>fc</b><i>0</i><b>_gust</b><i>15</i> - maximale Windböen <i>heute</i> um <i>15</i>:00 Uhr in km/h</li>
|
||
<li><b>fc</b><i>1</i><b>_moon</b><i>Rise|Set</i> - Mond<i>auf|unter</i>gang <i>morgen</i></li>
|
||
<li><b>fc</b><i>0</i><b>_rad</b> - Globalstrahlung <i>heute</i></li>
|
||
<li><b>fc</b><i>0</i><b>_rain</b><i>15</i> - Niederschlagsmenge <i>heute</i> um <i>15</i>:00 Uhr in mm</li>
|
||
<li><b>fc</b><i>0</i><b>_sun</b> - relative Sonnenscheindauer <i>heute</i> in % (zwischen Sonnenauf- und -untergang)</li>
|
||
<li><b>fc</b><i>0</i><b>_temp</b><i>Min|Max</i> - <i>Minimal|Maximal</i>temperatur <i>heute</i> in °C</li>
|
||
<li><b>fc</b><i>1</i><b>_temp</b><i>15</i> - Temperatur <i>morgen</i> um <i>15</i>:00 Uhr in °C</li>
|
||
<li><b>fc</b><i>0</i><b>_uv</b> - UV-Index <i>heute</i></li>
|
||
<li><b>fc</b><i>0</i><b>_weather</b><i>Morning|Day|Evening|Night</i> - Wetterzustand <i>heute morgen|tagsüber|abends|nachts</i></li>
|
||
<li><b>fc</b><i>0</i><b>_weather</b><i>Day</i><b>Icon</b> - Icon Wetterzustand <i>heute tagsüber</i></li>
|
||
<li><b>fc</b><i>0</i><b>_wind</b><i>15</i> - Windgeschwindigkeit <i>heute</i> um <i>15</i>:00 Uhr in km/h</li>
|
||
<li><b>fc</b><i>0</i><b>_windDir</b><i>15</i> - Windrichtung <i>heute</i> um <i>15</i>:00 Uhr in ° (Grad)</li>
|
||
<li>etc.</li>
|
||
</ul>
|
||
<br>
|
||
<b>Aktuelle Werte</b>
|
||
<ul>
|
||
<br>
|
||
<li><b>cloudBase</b><i>Min|Max</i> - Höhe der <i>minimalen|maximalen</i> Wolkenuntergrenze in m</li>
|
||
<li><b>dewPoint</b> - Taupunkt in °C</li>
|
||
<li><b>humidity</b> - relative Feuchtigkeit in %</li>
|
||
<li><b>obs_time</b> - Uhrzeit der Wetterbeobachtung</li>
|
||
<li><b>pressure</b> - Luftdruck in hPa</li>
|
||
<li><b>temperature</b> - Temperature in °C</li>
|
||
<li><b>visibility</b> - Sichtweite in km</li>
|
||
<li><b>weather</b> - Wetterzustand</li>
|
||
<li><b>weatherIcon</b> - Icon Wetterzustand</li>
|
||
<li><b>wind</b> - Windgeschwindigkeit in km/h</li>
|
||
<li><b>windDir</b> - Windrichtung in ° (Grad)</li>
|
||
</ul>
|
||
<br><br>
|
||
</ul>
|
||
</div>
|
||
|
||
=end html_DE
|
||
=cut |