mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-01 00:19:00 +00:00
contrib/55_GDS.2015: updated
added forecast retrieval (by jensb) added weblink generator (by jensb) git-svn-id: https://svn.fhem.de/fhem/trunk@9408 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
parent
0b97c25be0
commit
b14ef567c7
@ -6,9 +6,10 @@
|
|||||||
# An FHEM Perl module to retrieve data from "Deutscher Wetterdienst"
|
# An FHEM Perl module to retrieve data from "Deutscher Wetterdienst"
|
||||||
#
|
#
|
||||||
# Copyright: betateilchen ®
|
# Copyright: betateilchen ®
|
||||||
# some patches provided by jensb@FHEM_Forum
|
#
|
||||||
# - forecasts as readings or text
|
# some patches provided by jensb
|
||||||
# - weather weblinks
|
# forecasts provided by jensb
|
||||||
|
# weblinks provided by jensb
|
||||||
#
|
#
|
||||||
# This file is part of fhem.
|
# This file is part of fhem.
|
||||||
#
|
#
|
||||||
@ -44,7 +45,7 @@ my ($bulaList, $cmapList, %rmapList, $fmapList, %bula2bulaShort, %bulaShort2dwd,
|
|||||||
|
|
||||||
####################################################################################################
|
####################################################################################################
|
||||||
#
|
#
|
||||||
# Main routines
|
# Main routines
|
||||||
#
|
#
|
||||||
####################################################################################################
|
####################################################################################################
|
||||||
|
|
||||||
@ -145,9 +146,9 @@ sub GDS_Set($@) {
|
|||||||
given($command) {
|
given($command) {
|
||||||
when("clear"){
|
when("clear"){
|
||||||
CommandDeleteReading(undef, "$name a_.*");
|
CommandDeleteReading(undef, "$name a_.*");
|
||||||
CommandDeleteReading(undef, "$name c_.*") if(defined($parameter) && $parameter eq "all");
|
CommandDeleteReading(undef, "$name c_.*") if(defined($parameter) && $parameter eq "all");
|
||||||
CommandDeleteReading(undef, "$name f_.*") if(defined($parameter) && $parameter eq "all");
|
CommandDeleteReading(undef, "$name fc.?_.*") if(defined($parameter) && $parameter eq "all");
|
||||||
CommandDeleteReading(undef, "$name g_.*") if(defined($parameter) && $parameter eq "all");
|
CommandDeleteReading(undef, "$name g_.*") if(defined($parameter) && $parameter eq "all");
|
||||||
}
|
}
|
||||||
|
|
||||||
when("help"){
|
when("help"){
|
||||||
@ -164,9 +165,9 @@ sub GDS_Set($@) {
|
|||||||
retrieveFile($hash,"alerts");
|
retrieveFile($hash,"alerts");
|
||||||
($aList, undef) = buildCAPList($hash);
|
($aList, undef) = buildCAPList($hash);
|
||||||
};
|
};
|
||||||
# eval {
|
eval {
|
||||||
# $fList = getListForecastStationsDropdown($hash);
|
$fList = getListForecastStationsDropdown($hash);
|
||||||
# };
|
};
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -187,11 +188,14 @@ sub GDS_Set($@) {
|
|||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
# when("forecasts"){
|
when("forecasts"){
|
||||||
# retrieveForecasts($hash, "f", @a);
|
retrieveForecasts($hash, "fc", @a);
|
||||||
# $attr{$name}{gdsSetForecast} = ReadingsVal($name,'f_stationName',undef);
|
my $station = ReadingsVal($name, 'fc_stationName', undef);
|
||||||
# break;
|
if (defined($station)) {
|
||||||
# }
|
$attr{$name}{gdsSetForecast} = $station;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
|
||||||
default { return $usage; };
|
default { return $usage; };
|
||||||
}
|
}
|
||||||
@ -291,6 +295,9 @@ sub GDS_Get($@) {
|
|||||||
} else {
|
} else {
|
||||||
$result = "Keine Warnmeldung für die gesuchte Region vorhanden.";
|
$result = "Keine Warnmeldung für die gesuchte Region vorhanden.";
|
||||||
}
|
}
|
||||||
|
my $_gdsAll = AttrVal($name,"gdsAll", 0);
|
||||||
|
my $_gdsDebug = AttrVal($name,"gdsDebug", 0);
|
||||||
|
readingsSingleUpdate($hash,'_lastAlertCheck','see timestamp ->',1) if($_gdsAll || $_gdsDebug);
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -312,9 +319,9 @@ sub GDS_Get($@) {
|
|||||||
retrieveFile($hash,"conditions");
|
retrieveFile($hash,"conditions");
|
||||||
};
|
};
|
||||||
initDropdownLists($hash);
|
initDropdownLists($hash);
|
||||||
# eval {
|
eval {
|
||||||
# $fList = getListForecastStationsDropdown($hash);
|
$fList = getListForecastStationsDropdown($hash);
|
||||||
# };
|
};
|
||||||
|
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
@ -402,21 +409,53 @@ sub GDS_GetUpdate($) {
|
|||||||
my ($hash) = @_;
|
my ($hash) = @_;
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
my (@a, $next);
|
my (@a, $next);
|
||||||
|
|
||||||
|
my $interval = $hash->{helper}{INTERVAL};
|
||||||
|
my $forcastsStationName = ReadingsVal($name, "fc_stationName", undef);
|
||||||
|
|
||||||
if(IsDisabled($name)) {
|
if(IsDisabled($name)) {
|
||||||
readingsSingleUpdate($hash, 'state', 'disabled', 0);
|
readingsSingleUpdate($hash, 'state', 'disabled', 0);
|
||||||
Log3 ($name, 2, "GDS $name is disabled, data update cancelled.");
|
Log3 ($name, 2, "GDS $name is disabled, data update cancelled.");
|
||||||
} else {
|
} else {
|
||||||
readingsSingleUpdate($hash, 'state', 'active', 0);
|
readingsSingleUpdate($hash, 'state', 'active', 0);
|
||||||
push @a, undef;
|
|
||||||
push @a, undef;
|
|
||||||
push @a, ReadingsVal($name, "c_stationName", "");
|
|
||||||
retrieveConditions($hash, "c", @a);
|
|
||||||
}
|
|
||||||
|
|
||||||
$next = gettimeofday()+$hash->{helper}{INTERVAL};
|
# schedule only one ftp fetch per update call to avoid blocking FHEM for extended periods
|
||||||
readingsSingleUpdate($hash, "c_nextUpdate", localtime($next), 1);
|
if (!defined($hash->{helper}{UPDATE_CYCLE}) || !defined($forcastsStationName)) {
|
||||||
InternalTimer($next, "GDS_GetUpdate", $hash, 1);
|
$hash->{helper}{UPDATE_CYCLE} = 0;
|
||||||
|
} else {
|
||||||
|
$hash->{helper}{UPDATE_CYCLE} = ++$hash->{helper}{UPDATE_CYCLE}%11;
|
||||||
|
}
|
||||||
|
|
||||||
|
# perform one ftp fetch
|
||||||
|
if ($hash->{helper}{UPDATE_CYCLE} == 0) {
|
||||||
|
push @a, undef;
|
||||||
|
push @a, undef;
|
||||||
|
push @a, ReadingsVal($name, "c_stationName", "");
|
||||||
|
retrieveConditions($hash, "c", @a);
|
||||||
|
} else {
|
||||||
|
push @a, undef;
|
||||||
|
push @a, undef;
|
||||||
|
push @a, $forcastsStationName;
|
||||||
|
push @a, $hash->{helper}{UPDATE_CYCLE};
|
||||||
|
retrieveForecasts($hash, "fc", @a);
|
||||||
|
}
|
||||||
|
|
||||||
|
# vary interval for staggered fetching and waiting
|
||||||
|
if (defined($forcastsStationName)) {
|
||||||
|
if ($hash->{helper}{UPDATE_CYCLE} < 10) {
|
||||||
|
$interval = 1; # use short interval to get next forecast
|
||||||
|
} else {
|
||||||
|
$interval -= 16; # cut back approximate staggered retrieval time from interval
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# schedule next update
|
||||||
|
$next = gettimeofday() + $interval;
|
||||||
|
if ($interval > 1) {
|
||||||
|
readingsSingleUpdate($hash, "c_nextUpdate", localtime($next), 1);
|
||||||
|
}
|
||||||
|
InternalTimer($next, "GDS_GetUpdate", $hash, 1);
|
||||||
|
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
@ -561,7 +600,7 @@ sub getListStationsText($){
|
|||||||
sub getListCapStations($$){
|
sub getListCapStations($$){
|
||||||
my ($hash, $command) = @_;
|
my ($hash, $command) = @_;
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
my (%capHash, $file, $csv, @columns, $err, $key, $cList);
|
my (%capHash, $file, $csv, @columns, $err, $key, $cList, $found);
|
||||||
|
|
||||||
$file = $tempDir.'capstations.csv';
|
$file = $tempDir.'capstations.csv';
|
||||||
$csv = Text::CSV->new( { binary => 1 } );
|
$csv = Text::CSV->new( { binary => 1 } );
|
||||||
@ -570,27 +609,37 @@ sub getListCapStations($$){
|
|||||||
# prüfen, ob CSV schon vorhanden,
|
# prüfen, ob CSV schon vorhanden,
|
||||||
# falls nicht: vom Server holen
|
# falls nicht: vom Server holen
|
||||||
if (!-e $tempDir."caplist.csv"){
|
if (!-e $tempDir."caplist.csv"){
|
||||||
retrieveFile($hash, $command);
|
(undef, $found) = retrieveFile($hash, $command);
|
||||||
}
|
if(!$found){
|
||||||
|
$cList = "Error: Unable to retrieve capstation list!";
|
||||||
# CSV öffnen und parsen
|
Log3($name, 2, "GDS $name: $cList");
|
||||||
open (CSV, "<", $file) or die $!;
|
|
||||||
while (<CSV>) {
|
|
||||||
next if ($. == 1);
|
|
||||||
if ($csv->parse($_)) {
|
|
||||||
@columns = $csv->fields();
|
|
||||||
$capHash{latin1ToUtf8($columns[4])} = $columns[0];
|
|
||||||
} else {
|
|
||||||
$err = $csv->error_input;
|
|
||||||
print "Failed to parse line: $err";
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
close CSV;
|
|
||||||
|
|
||||||
# Ausgabe sortieren und zusammenstellen
|
if (!defined($cList)) {
|
||||||
foreach $key (sort keys %capHash) {
|
# CSV öffnen und parsen
|
||||||
$cList .= $capHash{$key}."\t".$key."\n";
|
if (open (CSV, "<", $file)) {
|
||||||
|
while (<CSV>) {
|
||||||
|
next if ($. == 1);
|
||||||
|
if ($csv->parse($_)) {
|
||||||
|
@columns = $csv->fields();
|
||||||
|
$capHash{latin1ToUtf8($columns[4])} = $columns[0];
|
||||||
|
} else {
|
||||||
|
$err = $csv->error_input;
|
||||||
|
print "Failed to parse line: $err";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close CSV;
|
||||||
|
} else {
|
||||||
|
Log3($name, 4, "GDS $name: Error: unable to open capstations file: $!!");
|
||||||
|
}
|
||||||
|
|
||||||
|
# Ausgabe sortieren und zusammenstellen
|
||||||
|
foreach $key (sort keys %capHash) {
|
||||||
|
$cList .= $capHash{$key}."\t".$key."\n";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
return $cList;
|
return $cList;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -612,7 +661,7 @@ sub buildCAPList($){
|
|||||||
%capCityHash = ();
|
%capCityHash = ();
|
||||||
%capCellHash = ();
|
%capCellHash = ();
|
||||||
$alertsXml = undef;
|
$alertsXml = undef;
|
||||||
$aList = "please_use_rereadcfg_first";
|
$aList = "please_use_rereadcfg_first";
|
||||||
|
|
||||||
my $xml = new XML::Simple;
|
my $xml = new XML::Simple;
|
||||||
my $area = 0;
|
my $area = 0;
|
||||||
@ -622,11 +671,7 @@ sub buildCAPList($){
|
|||||||
my $destinationDirectory = $tempDir.$name."_alerts.dir";
|
my $destinationDirectory = $tempDir.$name."_alerts.dir";
|
||||||
|
|
||||||
# make XML array and analyze data
|
# make XML array and analyze data
|
||||||
my ($err,$cF,$countInfo) = mergeCapFile($hash);
|
my ($countInfo,$cF) = mergeCapFile($hash);
|
||||||
if (defined($err) && $err) {
|
|
||||||
Log3($name,1,"GDS: merge error: $err - aborting...");
|
|
||||||
return(undef,undef);
|
|
||||||
}
|
|
||||||
eval {
|
eval {
|
||||||
$alertsXml = $xml->XMLin($cF, KeyAttr => {}, ForceArray => [ 'info', 'eventCode', 'area', 'geocode' ]);
|
$alertsXml = $xml->XMLin($cF, KeyAttr => {}, ForceArray => [ 'info', 'eventCode', 'area', 'geocode' ]);
|
||||||
};
|
};
|
||||||
@ -1092,24 +1137,6 @@ sub _rgbd2h($) {
|
|||||||
return $output;
|
return $output;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub createIndexFile($){
|
|
||||||
my ($hash) = @_;
|
|
||||||
my $name = $hash->{NAME};
|
|
||||||
|
|
||||||
if($name){
|
|
||||||
my $text = "<html><head></head><body>".
|
|
||||||
"<a href=\"./".$name."/".$name."_conditionsmap.jpg\" target=\"blank\">Aktuelle Wetterkarte: Wetterlage</a><br/>".
|
|
||||||
"<a href=\"./".$name."/".$name."_forecastsmap.jpg\" target=\"blank\">Aktuelle Wetterkarte: Vorhersage</a><br/>".
|
|
||||||
"<a href=\"./".$name."/".$name."_warningsmap.jpg\" target=\"blank\">Aktuelle Wetterkarte: Warnungen</a><br/>".
|
|
||||||
"<a href=\"./".$name."/".$name."_radarmap.jpg\" target=\"blank\">Aktuelle Radarkarte</a><br/>".
|
|
||||||
"</body></html>";
|
|
||||||
open (DATEI, ">".$tempDir.$name.".html") or die $!;
|
|
||||||
print DATEI $text;
|
|
||||||
close (DATEI);
|
|
||||||
}
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub fillMappingTables($){
|
sub fillMappingTables($){
|
||||||
|
|
||||||
$tempDir = "/tmp/";
|
$tempDir = "/tmp/";
|
||||||
@ -1389,18 +1416,582 @@ sub mergeCapFile($) {
|
|||||||
}
|
}
|
||||||
push (@alertsArray,"</alert>");
|
push (@alertsArray,"</alert>");
|
||||||
|
|
||||||
# write the big XML file
|
# write the big XML file if needed
|
||||||
my $cF = $destinationDirectory."/gds_alerts";
|
if(AttrVal($name,"gdsDebug", 0)) {
|
||||||
unlink $cF if -e $cF;
|
my $cF = $destinationDirectory."/gds_alerts";
|
||||||
my $err = FileWrite({ FileName=>$cF,ForceType=>"file" },@alertsArray);
|
unlink $cF if -e $cF;
|
||||||
return ($err,$cF,$countInfo);
|
FileWrite({ FileName=>$cF,ForceType=>"file" },@alertsArray);
|
||||||
|
}
|
||||||
|
|
||||||
|
my $xmlContent = join('',@alertsArray);
|
||||||
|
return ($countInfo,$xmlContent);
|
||||||
|
}
|
||||||
|
|
||||||
|
####################################################################################################
|
||||||
|
#
|
||||||
|
# forecast retrieval
|
||||||
|
# provided by jensb
|
||||||
|
#
|
||||||
|
####################################################################################################
|
||||||
|
|
||||||
|
sub retrieveForecasts($$@){
|
||||||
|
#
|
||||||
|
# parameter: hash, prefix, region/station, forecast index (0 .. 10)
|
||||||
|
#
|
||||||
|
my ($hash, $prefix, @a) = @_;
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
my $user = $hash->{helper}{USER};
|
||||||
|
my $pass = $hash->{helper}{PASS};
|
||||||
|
|
||||||
|
# extract region and station name
|
||||||
|
if (!defined($a[2])) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
my $i = index($a[2], '/');
|
||||||
|
if ($i <= 0 ) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
my $area = utf8ToLatin1(substr($a[2], 0, $i));
|
||||||
|
my $station = utf8ToLatin1(substr($a[2], $i+1));
|
||||||
|
$station =~ s/_/ /g; # replace underscore in station name by space
|
||||||
|
my $searchLen = length($station);
|
||||||
|
|
||||||
|
my ($dataFile, $found, $line, %fread, $k, $v);
|
||||||
|
|
||||||
|
# define fetch scope (all forecasts or single forecast)
|
||||||
|
my $fc = 0;
|
||||||
|
my $fcStep = 1;
|
||||||
|
if (defined($a[3]) && $a[3] > 0) {
|
||||||
|
# single forecast
|
||||||
|
$fc = $a[3] - 1;
|
||||||
|
$fcStep = 10;
|
||||||
|
}
|
||||||
|
|
||||||
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
|
||||||
|
|
||||||
|
%fread = ();
|
||||||
|
|
||||||
|
# fetch up to 10 forecasts for today and the next 3 days
|
||||||
|
do {
|
||||||
|
my $day;
|
||||||
|
my $early;
|
||||||
|
if ($fc < 4) {
|
||||||
|
$day = 0;
|
||||||
|
$early = 0;
|
||||||
|
} else {
|
||||||
|
$day = int(($fc - 2)/2);
|
||||||
|
$early = $fc%2 == 0;
|
||||||
|
}
|
||||||
|
my $areaAndTime = $area;
|
||||||
|
if ($day == 1) {
|
||||||
|
$areaAndTime .= "_morgen";
|
||||||
|
} elsif ($day == 2) {
|
||||||
|
$areaAndTime .= "_uebermorgen";
|
||||||
|
} elsif ($day == 3) {
|
||||||
|
$areaAndTime .= "_Tag4";
|
||||||
|
}
|
||||||
|
my $timeLabel = undef;
|
||||||
|
my $tempLabel = '_tAvgAir';
|
||||||
|
my $copyDay = undef;
|
||||||
|
my $copyTimeLabel = undef;
|
||||||
|
if ($day == 0) {
|
||||||
|
if ($fc == 0) {
|
||||||
|
$areaAndTime .= "_frueh"; # .. 6 h
|
||||||
|
$timeLabel = '06';
|
||||||
|
$tempLabel ='_tMinAir';
|
||||||
|
$copyDay = 1;
|
||||||
|
$copyTimeLabel = '12';
|
||||||
|
} elsif ($fc == 1) {
|
||||||
|
$areaAndTime .= "_mittag"; # .. 12 h
|
||||||
|
$timeLabel = '12';
|
||||||
|
$tempLabel .= $timeLabel;
|
||||||
|
} elsif ($fc == 2) {
|
||||||
|
$areaAndTime .= "_spaet"; # .. 18 h
|
||||||
|
$timeLabel = '18';
|
||||||
|
$tempLabel ='_tMaxAir';
|
||||||
|
$copyDay = 1;
|
||||||
|
$copyTimeLabel = '24';
|
||||||
|
} elsif ($fc == 3) {
|
||||||
|
$areaAndTime .= "_nacht"; # .. 24 h
|
||||||
|
$timeLabel = '24';
|
||||||
|
$tempLabel .= $timeLabel;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
if ($early) {
|
||||||
|
$areaAndTime .= "_frueh"; # .. 12 h
|
||||||
|
$timeLabel = '12';
|
||||||
|
$tempLabel ='_tMinAir';
|
||||||
|
if ($day < 3) {
|
||||||
|
$copyDay = $day + 1;
|
||||||
|
$copyTimeLabel = '12';
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
$areaAndTime .= "_spaet"; # .. 24 h
|
||||||
|
$timeLabel .= '24';
|
||||||
|
$tempLabel ='_tMaxAir';
|
||||||
|
if ($day < 3) {
|
||||||
|
$copyDay = $day + 1;
|
||||||
|
$copyTimeLabel = '24';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# define forecast date (based on "now" + day)
|
||||||
|
my $fcEpoch = time() + $day*24*60*60;
|
||||||
|
if ($fc == 3) {
|
||||||
|
# night continues at next day
|
||||||
|
$fcEpoch += 24*60*60;
|
||||||
|
}
|
||||||
|
my ($fcSec,$fcMin,$fcHour,$fcMday,$fcMon,$fcYear,$fcWday,$fcYday,$fcIsdst) = localtime($fcEpoch);
|
||||||
|
my $fcWeekday = $weekdays[$fcWday];
|
||||||
|
my $fcDate = sprintf("%02d.%02d.%04d", $fcMday, 1+$fcMon, 1900+$fcYear);
|
||||||
|
my $fcDateFound = 0;
|
||||||
|
|
||||||
|
# FTP retrieve
|
||||||
|
my $noDataFound = 1;
|
||||||
|
Log3($name, 4, "GDS $name: Retrieving forecasts data for day $day: $areaAndTime");
|
||||||
|
($dataFile, $found) = retrieveFile($hash, "forecasts", $areaAndTime, undef);
|
||||||
|
if (open WXDATA, $tempDir.$name."_forecasts") {
|
||||||
|
while (!eof(WXDATA) && chomp($line = <WXDATA>)) {
|
||||||
|
if (index($line, $fcDate) > 0) {
|
||||||
|
# forecast date found
|
||||||
|
$fcDateFound = 1;
|
||||||
|
}
|
||||||
|
if (index(substr(lc($line),0,$searchLen), substr(lc($station),0,$searchLen)) != -1) {
|
||||||
|
# station found
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close WXDATA;
|
||||||
|
|
||||||
|
# parse file
|
||||||
|
if ($fcDateFound && length($line) > 0) {
|
||||||
|
if (index(substr(lc($line),0,$searchLen), substr(lc($station),0,$searchLen)) != -1) {
|
||||||
|
# station found but there is no header line and column width varies:
|
||||||
|
$line =~ s/---/ ---/g; # column distance may drop to zero between station name and invalid temp "---" -> prepend 3 spaces
|
||||||
|
$line =~ s/ /;/g; # now min. column distance is 3 spaces -> convert to semicolon
|
||||||
|
$line =~ s/;+/;/g; # replace multiple consecutive semicolons by one semicolon
|
||||||
|
my @b = split(';', $line); # split columns by semicolon
|
||||||
|
$b[0] =~ s/^\s+|\s+$//g; # trim station name
|
||||||
|
$b[1] =~ s/^\s+|\s+$//g; # trim temperature
|
||||||
|
$b[2] =~ s/^\s+|\s+$//g; # trim weather
|
||||||
|
if (scalar(@b) > 3) {
|
||||||
|
$b[3] =~ s/^\s+|\s+$//g; # trim wind gust
|
||||||
|
} else {
|
||||||
|
$b[3] = ' ';
|
||||||
|
}
|
||||||
|
$fread{$prefix."_stationName"} = $area.'/'.$b[0];
|
||||||
|
$fread{$prefix.$day.$tempLabel} = $b[1];
|
||||||
|
$fread{$prefix.$day."_weather".$timeLabel} = $b[2];
|
||||||
|
$fread{$prefix.$day."_windGust".$timeLabel} = $b[3];
|
||||||
|
if ($fc != 3) {
|
||||||
|
$fread{$prefix.$day."_weekday"} = $fcWeekday;
|
||||||
|
}
|
||||||
|
$noDataFound = 0;
|
||||||
|
} else {
|
||||||
|
# station not found, abort
|
||||||
|
$fread{$prefix."_stationName"} = "unknown: $station in $area";
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($noDataFound) {
|
||||||
|
# forecast period already passed or no data available
|
||||||
|
$fread{$prefix.$day.$tempLabel} = "---";
|
||||||
|
$fread{$prefix.$day."_weather".$timeLabel} = "---";
|
||||||
|
$fread{$prefix.$day."_windGust".$timeLabel} = "---";
|
||||||
|
if ($fc != 3) {
|
||||||
|
$fread{$prefix.$day."_weekday"} = $fcWeekday;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
# day change preset by rotation
|
||||||
|
my $ltime = ReadingsTimestamp($name, $prefix.$day."_weather".$timeLabel, undef);
|
||||||
|
my ($lsec,$lmin,$lhour,$lmday,$lmon,$lyear,$lwday,$lyday,$lisdst);
|
||||||
|
if (defined($ltime)) {
|
||||||
|
($lsec,$lmin,$lhour,$lmday,$lmon,$lyear,$lwday,$lyday,$lisdst) = localtime(time_str2num($ltime));
|
||||||
|
}
|
||||||
|
if (!defined($ltime) || $mday != $lmday) {
|
||||||
|
# day has changed, rotate old forecast forward by one day because new forecast is not immediately available
|
||||||
|
my $temp = $fread{$prefix.$day.$tempLabel};
|
||||||
|
if (defined($temp) && substr($temp, 0, 1) eq '-') {
|
||||||
|
if (defined($copyTimeLabel)) {
|
||||||
|
$fread{$prefix.$day.$tempLabel} = utf8ToLatin1(ReadingsVal($name, $prefix.$copyDay.$tempLabel, '---'));
|
||||||
|
} else {
|
||||||
|
# today noon/night and 3rd day is undefined
|
||||||
|
$fread{$prefix.$day.$tempLabel} = ' ';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
my $weather = $fread{$prefix.$day."_weather".$timeLabel};
|
||||||
|
if (defined($weather) && substr($weather, 0, 1) eq '-') {
|
||||||
|
if (defined($copyTimeLabel)) {
|
||||||
|
$fread{$prefix.$day."_weather".$timeLabel} = utf8ToLatin1(ReadingsVal($name, $prefix.$copyDay."_weather".$copyTimeLabel, '---'));
|
||||||
|
} else {
|
||||||
|
# today noon/night and 3rd day is undefined
|
||||||
|
$fread{$prefix.$day."_weather".$timeLabel} = ' ';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
my $windGust = $fread{$prefix.$day."_windGust".$timeLabel};
|
||||||
|
if (defined($windGust) && substr($windGust, 0, 1) eq '-') {
|
||||||
|
if (defined($copyTimeLabel)) {
|
||||||
|
$fread{$prefix.$day."_windGust".$timeLabel} = utf8ToLatin1(ReadingsVal($name, $prefix.$copyDay."_windGust".$copyTimeLabel, '---'));
|
||||||
|
} else {
|
||||||
|
# today noon/night and 3rd day is undefined
|
||||||
|
$fread{$prefix.$day."_windGust".$timeLabel} = ' ';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$fc += $fcStep;
|
||||||
|
} while ($fc < 10);
|
||||||
|
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
while (($k, $v) = each %fread) {
|
||||||
|
# skip update if no valid data is available
|
||||||
|
if (defined($v) && substr($v, 0, 1) ne '-') {
|
||||||
|
readingsBulkUpdate($hash, $k, latin1ToUtf8($v));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
readingsEndUpdate($hash, 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub getListForecastStationsDropdown($) {
|
||||||
|
my ($hash) = @_;
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
|
my @a;
|
||||||
|
my @regions = keys(%rmapList);
|
||||||
|
foreach (@regions) {
|
||||||
|
my $areaAndTime = $_.'_morgen_spaet';
|
||||||
|
my ($dataFile, $found) = retrieveFile($hash, "forecasts", $areaAndTime, undef);
|
||||||
|
if (open WXDATA, $tempDir.$name."_forecasts") {
|
||||||
|
my $lineCount = 0;
|
||||||
|
while (chomp(my $line = <WXDATA>)) {
|
||||||
|
# skip header lines
|
||||||
|
$lineCount++;
|
||||||
|
if ($lineCount > 2) {
|
||||||
|
if (length($line) == 0 || substr($line, 0, 3) eq ' ') {
|
||||||
|
# empty line, done
|
||||||
|
last;
|
||||||
|
} else {
|
||||||
|
# line with station name found
|
||||||
|
$line = latin1ToUtf8($line);
|
||||||
|
$line =~ s/---/ ---/g; # column distance may drop to zero between station name and invalid temp "---" -> prepend 3 spaces
|
||||||
|
$line =~ s/ /;/g; # now min. column distance is 3 spaces -> convert to semicolon
|
||||||
|
$line =~ s/;+/;/g; # replace multiple consecutive semicolons by one semicolon
|
||||||
|
my @b = split(';', $line); # split columns by semicolon
|
||||||
|
push @a, $_.'/'.$b[0]; # concat region name and station name (1st column)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
close WXDATA;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!@a) {
|
||||||
|
Log3($name, 4, "GDS $name: Error: unable to open forecast file!");
|
||||||
|
}
|
||||||
|
|
||||||
|
@a = sort(@a);
|
||||||
|
my $liste = join(",", @a);
|
||||||
|
$liste =~ s/\s+,/,/g; # replace multiple spaces followed by comma with comma
|
||||||
|
$liste =~ s/\s/_/g; # replace spaces in stationName with underscore for list in frontend
|
||||||
|
|
||||||
|
return $liste;
|
||||||
|
}
|
||||||
|
|
||||||
|
####################################################################################################
|
||||||
|
#
|
||||||
|
# create weblinks
|
||||||
|
# provided by jensb
|
||||||
|
#
|
||||||
|
####################################################################################################
|
||||||
|
|
||||||
|
# weather description to icon name mapping
|
||||||
|
my %GDSDayWeatherIconMap = (
|
||||||
|
'bedeckt' => 'overcast',
|
||||||
|
'bewölkt' => 'mostlycloudy',
|
||||||
|
'Dunst oder flacher Nebel' => 'haze',
|
||||||
|
'gefrierender Nebel' => 'icy',
|
||||||
|
'gering bewölkt' => 'partlycloudy',
|
||||||
|
'Gewitter' => 'thunderstorm',
|
||||||
|
'Glatteisbildung' => 'icy',
|
||||||
|
'Graupelschauer' => 'snow',
|
||||||
|
'Hagelschauer' => 'snow',
|
||||||
|
'heiter' => 'partlycloudy',
|
||||||
|
'in Wolken' => 'mostlycloudy',
|
||||||
|
'kein signifikantes Wetter' => 'na',
|
||||||
|
'kräftiger Graupelschauer' => 'heavysnow',
|
||||||
|
'kräftiger Hagelschauer' => 'heavysnow',
|
||||||
|
'kräftiger Regen' => 'heavyrain',
|
||||||
|
'kräftiger Regenschauer' => 'scatteredshowers',
|
||||||
|
'kräftiger Schneefall' => 'heavysnow',
|
||||||
|
'kräftiger Schneeregen' => 'rainsnow',
|
||||||
|
'kräftiger Schneeregenschauer' => 'rainsnow',
|
||||||
|
'kräftiger Schneeschauer' => 'heavysnow',
|
||||||
|
'leicht bewölkt' => 'partlycloudy',
|
||||||
|
'leichter Regen' => 'mist',
|
||||||
|
'leichter Schneefall' => 'snow',
|
||||||
|
'leichter Schneeregen' => 'rainsnow',
|
||||||
|
'Nebel' => 'fog',
|
||||||
|
'Regen' => 'rain',
|
||||||
|
'Regenschauer' => 'scatteredshowers',
|
||||||
|
'Sandsturm' => 'dust',
|
||||||
|
'Schneefall' => 'snow',
|
||||||
|
'Schneefegen' => 'snow',
|
||||||
|
'Schneeregen' => 'rainsnow',
|
||||||
|
'Schneeregenschauer' => 'rainsnow',
|
||||||
|
'Schneeschauer' => 'snow',
|
||||||
|
'schweres Gewitter' => 'thunderstorm',
|
||||||
|
'stark bewölkt' => 'mostlycloudy',
|
||||||
|
'starkes Gewitter' => 'thunderstorm',
|
||||||
|
'wolkenlos' => 'sunny',
|
||||||
|
'---' => 'mostlycloudy',
|
||||||
|
);
|
||||||
|
|
||||||
|
my %GDSNightWeatherIconMap = (
|
||||||
|
'bedeckt' => 'overcast',
|
||||||
|
'bewölkt' => 'mostlycloudy_night',
|
||||||
|
'Dunst oder flacher Nebel' => 'haze_night',
|
||||||
|
'gefrierender Nebel' => 'icy',
|
||||||
|
'gering bewölkt' => 'partlycloudy_night',
|
||||||
|
'Gewitter' => 'thunderstorm',
|
||||||
|
'Glatteisbildung' => 'icy',
|
||||||
|
'Graupelschauer' => 'snow',
|
||||||
|
'Hagelschauer' => 'snow',
|
||||||
|
'heiter' => 'partlycloudy_night',
|
||||||
|
'in Wolken' => 'mostlycloudy_night',
|
||||||
|
'kein signifikantes Wetter' => 'na',
|
||||||
|
'kräftiger Graupelschauer' => 'heavysnow',
|
||||||
|
'kräftiger Hagelschauer' => 'heavysnow',
|
||||||
|
'kräftiger Regen' => 'heavyrain',
|
||||||
|
'kräftiger Regenschauer' => 'scatteredshowers_night',
|
||||||
|
'kräftiger Schneefall' => 'heavysnow',
|
||||||
|
'kräftiger Schneeregen' => 'rainsnow',
|
||||||
|
'kräftiger Schneeregenschauer' => 'rainsnow',
|
||||||
|
'kräftiger Schneeschauer' => 'heavysnow',
|
||||||
|
'leicht bewölkt' => 'partlycloudy_night',
|
||||||
|
'leichter Regen' => 'mist',
|
||||||
|
'leichter Schneefall' => 'snow',
|
||||||
|
'leichter Schneeregen' => 'rainsnow',
|
||||||
|
'Nebel' => 'fog',
|
||||||
|
'Regen' => 'rain',
|
||||||
|
'Regenschauer' => 'scatteredshowers_night',
|
||||||
|
'Sandsturm' => 'dust',
|
||||||
|
'Schneefall' => 'snow',
|
||||||
|
'Schneefegen' => 'snow',
|
||||||
|
'Schneeregen' => 'rainsnow',
|
||||||
|
'Schneeregenschauer' => 'rainsnow',
|
||||||
|
'Schneeschauer' => 'snow',
|
||||||
|
'schweres Gewitter' => 'thunderstorm',
|
||||||
|
'stark bewölkt' => 'mostlycloudy_night',
|
||||||
|
'starkes Gewitter' => 'thunderstorm',
|
||||||
|
'wolkenlos' => 'sunny_night',
|
||||||
|
'---' => 'mostlycloudy_night',
|
||||||
|
);
|
||||||
|
|
||||||
|
# icon parameters
|
||||||
|
use constant ICONHIGHT => 120;
|
||||||
|
use constant ICONWIDTH => 175;
|
||||||
|
use constant ICONSCALE => 0.5;
|
||||||
|
|
||||||
|
sub GDSIsDay($$) {
|
||||||
|
# check if it is day at given time
|
||||||
|
#
|
||||||
|
# @param: time
|
||||||
|
# @param: altitude, see documentation of module SUNRISE_EL
|
||||||
|
my ($time, $altitude) = @_;
|
||||||
|
|
||||||
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
|
||||||
|
my $t = ($hour*60 + $min) + $sec;
|
||||||
|
|
||||||
|
my (undef, $srHour, $srMin, $srSec, undef) = GetTimeSpec(sunrise_abs_dat($time, $altitude));
|
||||||
|
my $sunrise = ($srHour*60 + $srMin) + $srSec;
|
||||||
|
|
||||||
|
my (undef, $ssHour, $ssMin, $ssSec, undef) = GetTimeSpec(sunset_abs_dat($time, $altitude));
|
||||||
|
my $sunset = ($ssHour*60 + $ssMin) + $ssSec;
|
||||||
|
|
||||||
|
return $t >= $sunrise && $t <= $sunset;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub GDSIconIMGTag($;$) {
|
||||||
|
# get FHEM weather icon
|
||||||
|
#
|
||||||
|
# @param: weather description
|
||||||
|
# @param: time of weather description or 1 for night, optional, defaults to daytime icons
|
||||||
|
my $width = int(ICONSCALE*ICONWIDTH);
|
||||||
|
my ($weather, $time) = @_;
|
||||||
|
my $icon;
|
||||||
|
if (!defined($time) || (defined($time) && $time > 1 && GDSIsDay($time, "REAL"))) {
|
||||||
|
$icon = $GDSDayWeatherIconMap{$weather};
|
||||||
|
} else {
|
||||||
|
$icon = $GDSNightWeatherIconMap{$weather};
|
||||||
|
}
|
||||||
|
if (defined($icon)) {
|
||||||
|
my $url= FW_IconURL("weather/$icon");
|
||||||
|
my $style= " width=$width";
|
||||||
|
return "<img src=\"$url\"$style alt=\"$icon\">";
|
||||||
|
} else {
|
||||||
|
return "";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub GDSAsHtmlV($;$) {
|
||||||
|
# create forecast in a vertical HTML table
|
||||||
|
#
|
||||||
|
# @param: device name
|
||||||
|
# @param: number of icons, optional, default 8
|
||||||
|
my ($d,$items) = @_;
|
||||||
|
$d = "<none>" if(!$d);
|
||||||
|
$items = $items? $items - 1 : 7;
|
||||||
|
return "$d is not a GDS instance<br>"
|
||||||
|
if(!$defs{$d} || $defs{$d}{TYPE} ne "GDS");
|
||||||
|
|
||||||
|
my $width = int(ICONSCALE*ICONWIDTH);
|
||||||
|
|
||||||
|
my $ret = sprintf('<table class="weather"><tr><th width=%d></th><th></th></tr>', $width);
|
||||||
|
$ret .= sprintf('<tr><td class="weatherIcon" width=%d>%s</td><td class="weatherValue"><span class="weatherDay">Aktuell: </span><span class="weatherCondition">%s</span><br><span class="weatherValue">%s°C</span><br><span class="weatherWind">Wind %s km/h %s</span></td></tr>',
|
||||||
|
$width,
|
||||||
|
GDSIconIMGTag(ReadingsVal($d, "c_weather", "?"), time_str2num(ReadingsTimestamp($d, "c_weather", TimeNow()))),
|
||||||
|
ReadingsVal($d, "c_weather", "?"),
|
||||||
|
ReadingsVal($d, "c_temperature", "?"),
|
||||||
|
ReadingsVal($d, "c_windSpeed", "?"), ReadingsVal($d, "c_windDir", "?"));
|
||||||
|
|
||||||
|
# get time of last forecast
|
||||||
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time_str2num(ReadingsTimestamp($d, "fc3_weather24", TimeNow())));
|
||||||
|
|
||||||
|
for(my $i=0; $i<$items; $i++) {
|
||||||
|
my $day = int(($i + 1)/2);
|
||||||
|
my $timeLabel = $i == 0? ($hour < 17? '18' : '24') : ($i - 1)%2 == 0? '12' : '24';
|
||||||
|
my $weekday = $i == 0? ($hour < 17? 'Spät' : 'Nachts') : ($i - 1)%2 == 0? ReadingsVal($d, "fc".$day."_weekday", "?").' früh' : ReadingsVal($d, "fc".$day."_weekday", "?").' spät';
|
||||||
|
|
||||||
|
if (($i - 1)%2 == 0) {
|
||||||
|
$ret .= sprintf('<tr><td class="weatherIcon" width=%d>%s</td><td class="weatherValue"><span class="weatherDay">%s: </span><span class="weatherCondition">%s</span><br><span class="weatherMin">min %s°C</span><br><span class="weatherWind">%s</span></span></td></tr>',
|
||||||
|
$width,
|
||||||
|
GDSIconIMGTag(ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?")),
|
||||||
|
$weekday,
|
||||||
|
ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?"),
|
||||||
|
ReadingsVal($d, "fc".$day."_tMinAir", "?"),
|
||||||
|
ReadingsVal($d, "fc".$day."_windGust".$timeLabel, ""));
|
||||||
|
} else {
|
||||||
|
if ($i == 0 && $hour >= 17) {
|
||||||
|
$ret .= sprintf('<tr><td class="weatherIcon" width=%d>%s</td><td class="weatherValue"><span class="weatherDay">%s: </span><span class="weatherCondition">%s</span><br><span class="weatherValue">%s°C</span><br><span class="weatherWind">%s</span></td></tr>',
|
||||||
|
$width,
|
||||||
|
GDSIconIMGTag(ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?"), 1),
|
||||||
|
$weekday,
|
||||||
|
ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?"),
|
||||||
|
ReadingsVal($d, "fc".$day."_tAvgAir".$timeLabel, "?"),
|
||||||
|
ReadingsVal($d, "fc".$day."_windGust".$timeLabel, ""));
|
||||||
|
} else {
|
||||||
|
$ret .= sprintf('<tr><td class="weatherIcon" width=%d>%s</td><td class="weatherValue"><span class="weatherDay">%s: </span><span class="weatherCondition">%s</span><br><span class="weatherMax">max %s°C</span><br><span class="weatherWind">%s</span></td></tr>',
|
||||||
|
$width,
|
||||||
|
GDSIconIMGTag(ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?")),
|
||||||
|
$weekday,
|
||||||
|
ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?"),
|
||||||
|
ReadingsVal($d, "fc".$day."_tMaxAir", "?"),
|
||||||
|
ReadingsVal($d, "fc".$day."_windGust".$timeLabel, ""));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$ret .= "</table>";
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub GDSAsHtmlH($;$) {
|
||||||
|
# create forecast in a horizontal HTML table
|
||||||
|
#
|
||||||
|
# @param: device name
|
||||||
|
# @param: number of icons, optional, default 8
|
||||||
|
my ($d, $items) = @_;
|
||||||
|
$d = "<none>" if(!$d);
|
||||||
|
$items = $items? $items - 1 : 7;
|
||||||
|
return "$d is not a GDS instance<br>"
|
||||||
|
if(!$defs{$d} || $defs{$d}{TYPE} ne "GDS");
|
||||||
|
|
||||||
|
my $width = 110;
|
||||||
|
|
||||||
|
my $ret = '<table class="weather">';
|
||||||
|
|
||||||
|
# get time of last forecast
|
||||||
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time_str2num(ReadingsTimestamp($d, "fc3_weather24", TimeNow())));
|
||||||
|
|
||||||
|
# weekday / time
|
||||||
|
$ret .= sprintf('<tr><td align="center" class="weatherDay">Aktuell</td>');
|
||||||
|
for(my $i=0; $i<$items; $i++) {
|
||||||
|
my $day = int(($i + 1)/2);
|
||||||
|
my $timeLabel = $i == 0? ($hour < 17? '18' : '24') : ($i - 1)%2 == 0? '12' : '24';
|
||||||
|
my $weekday = $i == 0? ($hour < 17? 'Spät' : 'Nachts') : ($i - 1)%2 == 0? ReadingsVal($d, "fc".$day."_weekday", "?").' früh' : ReadingsVal($d, "fc".$day."_weekday", "?").' spät';
|
||||||
|
$ret .= sprintf('<td align="center" class="weatherDay">%s</td>', $weekday);
|
||||||
|
}
|
||||||
|
$ret .= '</tr>';
|
||||||
|
|
||||||
|
# condition icon
|
||||||
|
$ret .= sprintf('<tr><td align="center" class="weatherIcon" width=%d>%s</td>', $width, GDSIconIMGTag(ReadingsVal($d, "c_weather", "?"), time_str2num(ReadingsTimestamp($d, "c_weather", TimeNow()))));
|
||||||
|
for(my $i=0; $i<$items; $i++) {
|
||||||
|
my $day = int(($i + 1)/2);
|
||||||
|
my $timeLabel = $i == 0? ($hour < 17? '18' : '24') : ($i - 1)%2 == 0? '12' : '24';
|
||||||
|
$ret .= sprintf('<td align="center" class="weatherIcon" width=%d>%s</td>', $width, GDSIconIMGTag(ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?"), $i==0 && $hour >= 17? 1 : undef));
|
||||||
|
}
|
||||||
|
$ret .= '</tr>';
|
||||||
|
|
||||||
|
# condition text
|
||||||
|
$ret .= sprintf('<tr><td align="center" class="weatherCondition">%s</td>', ReadingsVal($d, "c_weather", "?"));
|
||||||
|
for(my $i=0; $i<$items; $i++) {
|
||||||
|
my $day = int(($i + 1)/2);
|
||||||
|
my $timeLabel = $i == 0? ($hour < 17? '18' : '24') : ($i - 1)%2 == 0? '12' : '24';
|
||||||
|
$ret .= sprintf('<td align="center" class="weatherCondition">%s</td>', ReadingsVal($d, "fc".$day."_weather".$timeLabel, "?"));
|
||||||
|
}
|
||||||
|
$ret .= '</tr>';
|
||||||
|
|
||||||
|
# temperature / min temperature
|
||||||
|
$ret .= sprintf('<tr><td align="center" class="weatherValue">%s°C</td>', ReadingsVal($d, "c_temperature", "?"));
|
||||||
|
for(my $i=0; $i<$items; $i++) {
|
||||||
|
my $day = int(($i + 1)/2);
|
||||||
|
my $timeLabel = $i == 0? ($hour < 17? '18' : '24') : ($i - 1)%2 == 0? '12' : '24';
|
||||||
|
if (($i - 1)%2 == 0) {
|
||||||
|
$ret .= sprintf('<td align="center" class="weatherMin">min %s°C</td>', ReadingsVal($d, "fc".$day."_tMinAir", "?"));
|
||||||
|
} else {
|
||||||
|
if ($i == 0 && $hour >= 17) {
|
||||||
|
$ret .= sprintf('<td align="center" class="weatherValue">%s°C</td>', ReadingsVal($d, "fc".$day."_tAvgAir".$timeLabel, "?"));
|
||||||
|
} else {
|
||||||
|
$ret .= sprintf('<td align="center" class="weatherMax">max %s°C</td>', ReadingsVal($d, "fc".$day."_tMaxAir", "?"));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$ret .= '</tr>';
|
||||||
|
|
||||||
|
# wind
|
||||||
|
$ret .= sprintf('<tr><td align="center" class="weatherWind">%s km/h %s</td>', ReadingsVal($d, "c_windSpeed", "?"), ReadingsVal($d, "c_windDir", "?"));
|
||||||
|
for(my $i=0; $i<$items; $i++) {
|
||||||
|
my $day = int(($i + 1)/2);
|
||||||
|
my $timeLabel = $i == 0? ($hour < 17? '18' : '24') : ($i - 1)%2 == 0? '12' : '24';
|
||||||
|
$ret .= sprintf('<td align="center" class="weatherWind">%s</td>', ReadingsVal($d, "fc".$day."_windGust".$timeLabel, ""));
|
||||||
|
}
|
||||||
|
$ret .= "</tr></table>";
|
||||||
|
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub GDSAsHtmlD($;$) {
|
||||||
|
# create forecast in a horizontal or vertical HTML table depending on the display orientation
|
||||||
|
#
|
||||||
|
# @param: device name
|
||||||
|
# @param: number of icons, optional, default 8
|
||||||
|
my ($d,$i) = @_;
|
||||||
|
if($FW_ss) {
|
||||||
|
GDSAsHtmlV($d,$i);
|
||||||
|
} else {
|
||||||
|
GDSAsHtmlH($d,$i);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
||||||
####################################################################################################
|
####################################################################################################
|
||||||
#
|
#
|
||||||
# Documentation
|
# Documentation
|
||||||
#
|
#
|
||||||
####################################################################################################
|
####################################################################################################
|
||||||
#
|
#
|
||||||
@ -1476,10 +2067,15 @@ sub mergeCapFile($) {
|
|||||||
# 2015-10-08 changed added mergeCapFile()
|
# 2015-10-08 changed added mergeCapFile()
|
||||||
# code cleanup in buildCAPList()
|
# code cleanup in buildCAPList()
|
||||||
# use system call "unzip" instead of Archive::Zip
|
# use system call "unzip" instead of Archive::Zip
|
||||||
# added NotifyFn for rereadcfg after INITIALIZED|REREADCFG
|
# added NotifyFn for rereadcfg after INITIALIZED
|
||||||
# improved startup data retrieval
|
# improved startup data retrieval
|
||||||
# improved attribute handling
|
# improved attribute handling
|
||||||
#
|
#
|
||||||
|
# 2015-10-09 changed removed createIndexFile(), no longer needed since 2015-01-30
|
||||||
|
# added forecast retrieval
|
||||||
|
# added weblink generator
|
||||||
|
# done a lot of code cleanup
|
||||||
|
#
|
||||||
####################################################################################################
|
####################################################################################################
|
||||||
#
|
#
|
||||||
# Further informations
|
# Further informations
|
||||||
@ -1513,22 +2109,6 @@ sub mergeCapFile($) {
|
|||||||
# --- : Wert nicht vorhanden
|
# --- : Wert nicht vorhanden
|
||||||
#
|
#
|
||||||
####################################################################################################
|
####################################################################################################
|
||||||
#
|
|
||||||
# sub
|
|
||||||
# _calctz($@)
|
|
||||||
# {
|
|
||||||
# my ($nt,@lt) = @_;
|
|
||||||
|
|
||||||
# my $off = $lt[2]*3600+$lt[1]*60+$lt[0];
|
|
||||||
# $off = 12*3600-$off;
|
|
||||||
# $nt += $off; # This is noon, localtime
|
|
||||||
|
|
||||||
# my @gt = gmtime($nt);
|
|
||||||
|
|
||||||
# return (12-$gt[2]);
|
|
||||||
# }
|
|
||||||
#
|
|
||||||
####################################################################################################
|
|
||||||
|
|
||||||
=pod
|
=pod
|
||||||
=begin html
|
=begin html
|
||||||
@ -1552,11 +2132,20 @@ sub mergeCapFile($) {
|
|||||||
<b>Define</b>
|
<b>Define</b>
|
||||||
<ul>
|
<ul>
|
||||||
|
|
||||||
<br/>
|
<br>
|
||||||
<code>define <name> GDS <username> <password></code>
|
<code>define <name> GDS <username> <password></code><br>
|
||||||
<br/><br/>
|
<br>
|
||||||
This module provides connection to <a href="http://www.dwd.de/grundversorgung">GDS service</a> generated by <a href="http://www.dwd.de">DWD</a><br/>
|
This module provides connection to <a href="http://www.dwd.de/grundversorgung">GDS service</a> generated by <a href="http://www.dwd.de">DWD</a><br>
|
||||||
|
<br>
|
||||||
|
It also provides three additional functions <code>GDSAsHtmlV</code>, <code>GDSAsHtmlH</code> and <code>GDSAsHtmlD</code>.
|
||||||
|
The first function returns the HTML code for a vertically arranged weather forecast.
|
||||||
|
The second function returns the HTML code for a horizontally arranged weather forecast.
|
||||||
|
The third function dynamically picks the orientation depending on whether a smallscreen style is set (vertical layout) or not (horizontal layout).
|
||||||
|
The attributes gdsSetCond and gdsSetForecast must be configured for the functions to work.
|
||||||
|
Each of these functions accepts an additional parameter to limit the number of icons to display (1...8).
|
||||||
|
If the attribute gdsSetForecast is not configured this parameter should be set to 1.<br>
|
||||||
|
<br>
|
||||||
|
Example: <code>define MyForecastWeblink weblink htmlCode { GDSAsHtml("MyWeather") }</code> where "MyWeather" is the name of your GDS device.
|
||||||
</ul>
|
</ul>
|
||||||
<br/><br/>
|
<br/><br/>
|
||||||
|
|
||||||
@ -1569,7 +2158,7 @@ sub mergeCapFile($) {
|
|||||||
<br/><br/>
|
<br/><br/>
|
||||||
<ul>
|
<ul>
|
||||||
<li>alerts: Delete all a_* readings</li>
|
<li>alerts: Delete all a_* readings</li>
|
||||||
<li>all: Delete all a_*, c_* and g_* readings</li>
|
<li>all: Delete all a_*, c_*, g_* and fc_* readings</li>
|
||||||
</ul>
|
</ul>
|
||||||
<br/>
|
<br/>
|
||||||
|
|
||||||
@ -1578,6 +2167,11 @@ sub mergeCapFile($) {
|
|||||||
<ul>Retrieve current conditions at selected station. Data will be updated periodically.</ul>
|
<ul>Retrieve current conditions at selected station. Data will be updated periodically.</ul>
|
||||||
<br/>
|
<br/>
|
||||||
|
|
||||||
|
<code>set <name> forecasts <region>/<stationName></code>
|
||||||
|
<br/><br/>
|
||||||
|
<ul>Retrieve forecasts for today and the following 3 days for selected station. Data will be updated periodically.</ul>
|
||||||
|
<br/>
|
||||||
|
|
||||||
<code>set <name> help</code>
|
<code>set <name> help</code>
|
||||||
<br/><br/>
|
<br/><br/>
|
||||||
<ul>Show a help text with available commands</ul>
|
<ul>Show a help text with available commands</ul>
|
||||||
@ -1585,16 +2179,17 @@ sub mergeCapFile($) {
|
|||||||
|
|
||||||
<code>set <name> rereadcfg</code>
|
<code>set <name> rereadcfg</code>
|
||||||
<br/><br/>
|
<br/><br/>
|
||||||
<ul>Reread all required data from DWD Server manually: station list and CAP data</ul>
|
<ul>Reread all required data from DWD Server manually: station lists and CAP data</ul>
|
||||||
<br/>
|
<br/>
|
||||||
|
|
||||||
<code>set <name> update</code>
|
<code>set <name> update</code>
|
||||||
<br/><br/>
|
<br/><br/>
|
||||||
<ul>Update conditions readings at selected station and restart update-timer</ul>
|
<ul>Update conditions and forecasts readings at selected station and restart update-timer</ul>
|
||||||
<br/>
|
<br/>
|
||||||
|
|
||||||
<li>condition readings generated by SET use prefix "c_"</li>
|
<li>condition readings generated by SET use prefix "c_"</li>
|
||||||
<li>readings generated by SET will be updated automatically every 60 minutes</li>
|
<li>forecast readings generated by SET use prefix "fcd_" and a postfix of "hh" with d=relative day (0=today) and hh=last hour of forecast (exclusive)</li>
|
||||||
|
<li>readings generated by SET will be updated automatically every 20 minutes</li>
|
||||||
|
|
||||||
</ul>
|
</ul>
|
||||||
<br/><br/>
|
<br/><br/>
|
||||||
@ -1614,6 +2209,11 @@ sub mergeCapFile($) {
|
|||||||
<ul>Retrieve current conditions at selected station</ul>
|
<ul>Retrieve current conditions at selected station</ul>
|
||||||
<br/>
|
<br/>
|
||||||
|
|
||||||
|
<code>get <name> forecasts <region></code>
|
||||||
|
<br/><br/>
|
||||||
|
<ul>Retrieve forecasts for today and the following 3 days for selected region as text</ul>
|
||||||
|
<br/>
|
||||||
|
|
||||||
<code>get <name> conditionsmap <region></code>
|
<code>get <name> conditionsmap <region></code>
|
||||||
<br/><br/>
|
<br/><br/>
|
||||||
<ul>Retrieve map (imagefile) showing current conditions at selected station</ul>
|
<ul>Retrieve map (imagefile) showing current conditions at selected station</ul>
|
||||||
@ -1685,8 +2285,10 @@ sub mergeCapFile($) {
|
|||||||
<li><b>gdsAll</b> - defines filter for "all data" from alert message</li>
|
<li><b>gdsAll</b> - defines filter for "all data" from alert message</li>
|
||||||
<li><b>gdsDebug</b> - defines filter for debug informations</li>
|
<li><b>gdsDebug</b> - defines filter for debug informations</li>
|
||||||
<li><b>gdsSetCond</b> - defines conditions area to be used after system restart</li>
|
<li><b>gdsSetCond</b> - defines conditions area to be used after system restart</li>
|
||||||
|
<li><b>gdsSetForecast</b> - defines forecasts region/station to be used after system restart</li>
|
||||||
<li><b>gdsLong</b> - show long text fields "description" and "instruction" from alert message in readings</li>
|
<li><b>gdsLong</b> - show long text fields "description" and "instruction" from alert message in readings</li>
|
||||||
<li><b>gdsPolygon</b> - show polygon data from alert message in a reading</li>
|
<li><b>gdsPolygon</b> - show polygon data from alert message in a reading</li>
|
||||||
|
<li><b>gdsShowMapFilesMenu</b> - if set to 0, the "GDS Files" menu in the left navigation bar will not be shown</li>
|
||||||
<br/>
|
<br/>
|
||||||
<li><b>gdsPassiveFtp</b> - set to 1 to use passive FTP transfer</li>
|
<li><b>gdsPassiveFtp</b> - set to 1 to use passive FTP transfer</li>
|
||||||
<li><b>gdsFwName</b> - define firewall hostname in format <hostname>:<port></li>
|
<li><b>gdsFwName</b> - define firewall hostname in format <hostname>:<port></li>
|
||||||
@ -1703,7 +2305,23 @@ sub mergeCapFile($) {
|
|||||||
that will be increased for every valid alert message in selected area<br/></li>
|
that will be increased for every valid alert message in selected area<br/></li>
|
||||||
<li><b>a_count</b> - number of currently valid alert messages, can be used for own loop iterations on alert messages</li>
|
<li><b>a_count</b> - number of currently valid alert messages, can be used for own loop iterations on alert messages</li>
|
||||||
<li><b>a_valid</b> - returns 1 if at least one of decoded alert messages is valid</li>
|
<li><b>a_valid</b> - returns 1 if at least one of decoded alert messages is valid</li>
|
||||||
<li><b>c_<readingName></b> - weather data from SET weather conditions. Readings will be updated every 20 minutes</li>
|
<li><b>c_<readingName></b> - weather data from SET weather conditions. Readings will be updated every 20 minutes.</li>
|
||||||
|
<li><b>fc?_<readingName>??</b> - weather data from SET weather forecasts, prefix by relative day and postfixed by last hour. Readings will be updated every 20 minutes.<br>
|
||||||
|
<i><ul>
|
||||||
|
<li>0_weather06 and ?_weather12 (with ? greater 0) is the weather in the morning</li>
|
||||||
|
<li>0_weather12 is the weather at noon</li>
|
||||||
|
<li>0_weather18 and ?_weather24 (with ? greater 0) is the weather in the afternoon</li>
|
||||||
|
<li>0_weather24 is the weather at midnight</li>
|
||||||
|
<li>0_windGust06 and ?_windGust12 (with ? greater 0) is the wind in the morning</li>
|
||||||
|
<li>0_windGust12 is the wind at noon</li>
|
||||||
|
<li>0_windGust18 and ?_windGust24 (with ? greater 0) is the wind in the afternoon</li>
|
||||||
|
<li>0_windGust24 is the wind at midnight</li>
|
||||||
|
<li>?_tMinAir is minimum temperature in the morning</li>
|
||||||
|
<li>0_tAvgAir12 is the average temperature at noon</li>
|
||||||
|
<li>?_tMaxAir is the maximum temperature in the afternoon</li>
|
||||||
|
<li>0_tAvgAir24 is the average temperature at midnight</li>
|
||||||
|
</ul></i>
|
||||||
|
</li>
|
||||||
<li><b>g_<readingName></b> - weather data from GET weather conditions. Readings will NOT be updated automatically</li>
|
<li><b>g_<readingName></b> - weather data from GET weather conditions. Readings will NOT be updated automatically</li>
|
||||||
</ul>
|
</ul>
|
||||||
<br/><br/>
|
<br/><br/>
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user