mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
a90112c71e
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@11562 2b470e98-0d58-463d-a4d8-8e2adae1ed80
1254 lines
42 KiB
Perl
1254 lines
42 KiB
Perl
####################################################################################################
|
|
#
|
|
# 77_UWZ.pm
|
|
#
|
|
# (c) 2015 Tobias D. Oestreicher
|
|
#
|
|
# Special thanks goes to comitters:
|
|
# - Marko Oldenburg (leongaultier at gmail dot com)
|
|
#
|
|
# Storm warnings from unwetterzentrale.de
|
|
# inspired by 59_PROPLANTA.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!
|
|
#
|
|
#
|
|
#
|
|
# $Id$
|
|
#
|
|
####################################################################################################
|
|
# also a thanks goes to hexenmeister
|
|
##############################################
|
|
|
|
|
|
|
|
package main;
|
|
use strict;
|
|
use feature qw/say switch/;
|
|
use warnings;
|
|
no if $] >= 5.017011, warnings => 'experimental::lexical_subs','experimental::smartmatch';
|
|
|
|
my $missingModul;
|
|
eval "use LWP::UserAgent;1" or $missingModul .= "LWP::UserAgent ";
|
|
eval "use LWP::Simple;1" or $missingModul .= "LWP::Simple ";
|
|
eval "use HTTP::Request;1" or $missingModul .= "HTTP::Request ";
|
|
eval "use HTML::Parser;1" or $missingModul .= "HTML::Parser ";
|
|
eval "use JSON;1" or $missingModul .= "JSON ";
|
|
eval "use Encode::Guess;1" or $missingModul .= "Encode::Guess ";
|
|
eval "use Text::Iconv;1" or $missingModul .= "Text::Iconv ";
|
|
|
|
require 'Blocking.pm';
|
|
require 'HttpUtils.pm';
|
|
use vars qw($readingFnAttributes);
|
|
|
|
use vars qw(%defs);
|
|
my $MODUL = "UWZ";
|
|
my $version = "1.0.1";
|
|
|
|
my $countrycode = "DE";
|
|
my $plz = "77777";
|
|
my $uwz_alert_url = "http://feed.alertspro.meteogroup.com/AlertsPro/AlertsProPollService.php?method=getWarning&language=de&areaID=UWZ" . $countrycode . $plz;
|
|
|
|
|
|
|
|
########################################
|
|
sub UWZ_Log($$$) {
|
|
|
|
my ( $hash, $loglevel, $text ) = @_;
|
|
my $xline = ( caller(0) )[2];
|
|
|
|
my $xsubroutine = ( caller(1) )[3];
|
|
my $sub = ( split( ':', $xsubroutine ) )[2];
|
|
$sub =~ s/UWZ_//;
|
|
|
|
my $instName = ( ref($hash) eq "HASH" ) ? $hash->{NAME} : $hash;
|
|
Log3 $instName, $loglevel, "$MODUL $instName: $sub.$xline " . $text;
|
|
}
|
|
|
|
########################################
|
|
sub UWZ_Map2Image($$) {
|
|
|
|
my $uwz_de_url = "http://www.unwetterzentrale.de/images/map/";
|
|
my $uwz_at_url = "http://unwetter.wetteralarm.at/images/map/";
|
|
my ( $hash, $smap ) = @_;
|
|
my $lmap;
|
|
|
|
$smap=lc($smap);
|
|
$lmap->{'europa'}=$uwz_de_url.'europe_index.png';
|
|
$lmap->{'deutschland'}=$uwz_de_url.'deutschland_index.png';
|
|
$lmap->{'deutschland-small'}=$uwz_de_url.'deutschland_preview.png';
|
|
$lmap->{'niedersachsen'}=$uwz_de_url.'niedersachsen_index.png';
|
|
$lmap->{'bremen'}=$uwz_de_url.'niedersachsen_index.png';
|
|
$lmap->{'bayern'}=$uwz_de_url.'bayern_index.png';
|
|
$lmap->{'schleswig-holstein'}=$uwz_de_url.'schleswig_index.png';
|
|
$lmap->{'hamburg'}=$uwz_de_url.'schleswig_index.png';
|
|
$lmap->{'mecklenburg-vorpommern'}=$uwz_de_url.'meckpom_index.png';
|
|
$lmap->{'sachsen'}=$uwz_de_url.'sachsen_index.png';
|
|
$lmap->{'sachsen-anhalt'}=$uwz_de_url.'sachsenanhalt_index.png';
|
|
$lmap->{'nordrhein-westfalen'}=$uwz_de_url.'nrw_index.png';
|
|
$lmap->{'thueringen'}=$uwz_de_url.'thueringen_index.png';
|
|
$lmap->{'rheinland-pfalz'}=$uwz_de_url.'rlp_index.png';
|
|
$lmap->{'saarland'}=$uwz_de_url.'rlp_index.png';
|
|
$lmap->{'baden-wuerttemberg'}=$uwz_de_url.'badenwuerttemberg_index.png';
|
|
$lmap->{'hessen'}=$uwz_de_url.'hessen_index.png';
|
|
$lmap->{'brandenburg'}=$uwz_de_url.'brandenburg_index.png';
|
|
$lmap->{'berlin'}=$uwz_de_url.'brandenburg_index.png';
|
|
$lmap->{'oesterreich'}=$uwz_at_url.'oesterreich_index.png';
|
|
$lmap->{'burgenland'}=$uwz_at_url.'burgenland_index.png';
|
|
$lmap->{'kaernten'}=$uwz_at_url.'kaernten_index.png';
|
|
$lmap->{'niederoesterreich'}=$uwz_at_url.'niederoesterreich_index.png';
|
|
$lmap->{'oberoesterreich'}=$uwz_at_url.'oberoesterreich_index.png';
|
|
$lmap->{'salzburg'}=$uwz_at_url.'salzburg_index.png';
|
|
$lmap->{'steiermark'}=$uwz_at_url.'steiermark_index.png';
|
|
$lmap->{'tirol'}=$uwz_at_url.'tirol_index.png';
|
|
$lmap->{'vorarlberg'}=$uwz_at_url.'vorarlberg_index.png';
|
|
$lmap->{'wien'}=$uwz_at_url.'wien_index.png';
|
|
$lmap->{'isobaren1'}="http://www.unwetterzentrale.de/images/icons/UWZ_ISO_00.jpg";
|
|
$lmap->{'isobaren2'}="http://www.wetteralarm.at/uploads/pics/UWZ_EURO_ISO_GER_00.jpg";
|
|
return $lmap->{$smap};
|
|
}
|
|
|
|
###################################
|
|
sub UWZ_Initialize($) {
|
|
|
|
my ($hash) = @_;
|
|
$hash->{DefFn} = "UWZ_Define";
|
|
$hash->{UndefFn} = "UWZ_Undef";
|
|
$hash->{SetFn} = "UWZ_Set";
|
|
$hash->{GetFn} = "UWZ_Get";
|
|
$hash->{AttrList} = "INTERVAL ".
|
|
"URL ".
|
|
"PLZ ".
|
|
"download:0,1 ".
|
|
"savepath ".
|
|
"maps ".
|
|
"humanreadable:0,1 ".
|
|
$readingFnAttributes;
|
|
|
|
foreach my $d(sort keys %{$modules{UWZ}{defptr}}) {
|
|
my $hash = $modules{UWZ}{defptr}{$d};
|
|
$hash->{VERSION} = $version;
|
|
}
|
|
}
|
|
|
|
###################################
|
|
sub UWZ_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> UWZ [CountryCode] [PLZ] [Interval] " if int(@a) > 6;
|
|
|
|
$hash->{STATE} = "Initializing";
|
|
$hash->{CountryCode} = $a[2];
|
|
$hash->{PLZ} = $a[3];
|
|
$hash->{URL} = "http://feed.alertspro.meteogroup.com/AlertsPro/AlertsProPollService.php?method=getWarning&language=de&areaID=UWZ" . $a[2] . $a[3];
|
|
$hash->{fhem}{LOCAL} = 0;
|
|
$hash->{INTERVAL} = $a[4];
|
|
$hash->{VERSION} = $version;
|
|
|
|
RemoveInternalTimer($hash);
|
|
|
|
#Get first data after 12 seconds
|
|
InternalTimer( gettimeofday() + 12, "UWZ_Start", $hash, 0 );
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub UWZ_Undef($$) {
|
|
|
|
my ( $hash, $arg ) = @_;
|
|
|
|
RemoveInternalTimer( $hash );
|
|
BlockingKill( $hash->{helper}{RUNNING_PID} ) if ( defined( $hash->{helper}{RUNNING_PID} ) );
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub UWZ_Set($@) {
|
|
|
|
my ( $hash, @a ) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $reUINT = '^([\\+]?\\d+)$';
|
|
my $usage = "Unknown argument $a[1], choose one of update:noArg ";
|
|
|
|
return $usage if ( @a < 2 );
|
|
|
|
my $cmd = lc( $a[1] );
|
|
|
|
given ($cmd)
|
|
{
|
|
when ("?")
|
|
{
|
|
return $usage;
|
|
}
|
|
|
|
when ("update")
|
|
{
|
|
UWZ_Log $hash, 4, "set command: " . $a[1];
|
|
$hash->{fhem}{LOCAL} = 1;
|
|
UWZ_Start($hash);
|
|
$hash->{fhem}{LOCAL} = 0;
|
|
}
|
|
|
|
default
|
|
{
|
|
return $usage;
|
|
}
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
#####################################
|
|
sub UWZ_Get($@) {
|
|
|
|
my ( $hash, @a ) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $usage = "Unknown argument $a[1], choose one of Sturm:noArg Schneefall:noArg Regen:noArg Extremfrost:noArg Waldbrand:noArg Gewitter:noArg Glaette:noArg Hitze:noArg Glatteisregen:noArg Bodenfrost:noArg Hagel:noArg ";
|
|
|
|
return $usage if ( @a < 2 );
|
|
|
|
if ($a[1] =~ /^Sturm/) { UWZ_GetCurrent($hash,2); }
|
|
elsif ($a[1] =~ /^Schneefall/) { UWZ_GetCurrent($hash,3); }
|
|
elsif ($a[1] =~ /^Regen/) { UWZ_GetCurrent($hash,4); }
|
|
elsif ($a[1] =~ /^Extremfrost/) { UWZ_GetCurrent($hash,5); }
|
|
elsif ($a[1] =~ /^Waldbrand/) { UWZ_GetCurrent($hash,6); }
|
|
elsif ($a[1] =~ /^Gewitter/) { UWZ_GetCurrent($hash,7); }
|
|
elsif ($a[1] =~ /^Glaette/) { UWZ_GetCurrent($hash,8); }
|
|
elsif ($a[1] =~ /^Hitze/) { UWZ_GetCurrent($hash,9); }
|
|
elsif ($a[1] =~ /^Glatteisregen/) { UWZ_GetCurrent($hash,10); }
|
|
elsif ($a[1] =~ /^Bodenfrost/) { UWZ_GetCurrent($hash,11); }
|
|
elsif ($a[1] =~ /^Hagel/) { UWZ_GetCurrentHail($hash); }
|
|
else { return $usage; }
|
|
}
|
|
|
|
#####################################
|
|
sub UWZ_GetCurrent($@) {
|
|
|
|
my ( $hash, @a ) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $out;
|
|
my $curTimestamp = time();
|
|
if ( ReadingsVal($name,"WarnCount", 0) eq 0 ) {
|
|
$out = "inactive";
|
|
} else {
|
|
for(my $i= 0;$i < ReadingsVal($name,"WarnCount", 0);$i++) {
|
|
if ( (ReadingsVal($name,"Warn_".$i."_Start","") le $curTimestamp) && (ReadingsVal($name,"Warn_".$i."_End","") ge $curTimestamp) && (ReadingsVal($name,"Warn_".$i."_Type","") eq $a[0]) ) {
|
|
$out= "active";
|
|
last;
|
|
} else {
|
|
$out = "inactive";
|
|
}
|
|
}
|
|
}
|
|
return $out;
|
|
}
|
|
|
|
#####################################
|
|
sub UWZ_GetCurrentHail($) {
|
|
|
|
my ( $hash ) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $out;
|
|
my $curTimestamp = time();
|
|
|
|
if ( ReadingsVal($name,"WarnCount", 0) eq 0 ) {
|
|
$out = "inactive";
|
|
} else {
|
|
for(my $i= 0;$i < ReadingsVal($name,"WarnCount", 0);$i++) {
|
|
if ( (ReadingsVal($name,"Warn_".$i."_Start","") le $curTimestamp) && (ReadingsVal($name,"Warn_".$i."_End","") ge $curTimestamp) && (ReadingsVal($name,"Warn_".$i."_Hail","") eq 1) ) {
|
|
$out= "active";
|
|
last;
|
|
} else {
|
|
$out= "inactive";
|
|
}
|
|
}
|
|
}
|
|
|
|
return $out;
|
|
}
|
|
|
|
#####################################
|
|
sub UWZ_JSONAcquire($$) {
|
|
|
|
my ($hash, $URL) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
return unless (defined($hash->{NAME}));
|
|
|
|
UWZ_Log $hash, 4, "Start capturing of $URL";
|
|
|
|
my $err_log = "";
|
|
my $agent = LWP::UserAgent->new( env_proxy => 1, keep_alive => 1, protocols_allowed => ['http'], timeout => 10 );
|
|
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);
|
|
UWZ_Log $hash, 1, "Error: $err_log";
|
|
return "Error|Error " . $response->status_line;
|
|
}
|
|
|
|
UWZ_Log $hash, 4, length($response->content)." characters captured";
|
|
return $response->content;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub UWZ_Start($) {
|
|
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
|
|
return unless (defined($hash->{NAME}));
|
|
|
|
$hash->{INTERVAL} = AttrVal( $name, "INTERVAL", $hash->{INTERVAL} );
|
|
if(!$hash->{fhem}{LOCAL} && $hash->{INTERVAL} > 0) { # set up timer if automatically call
|
|
|
|
RemoveInternalTimer( $hash );
|
|
InternalTimer(gettimeofday() + $hash->{INTERVAL}, "UWZ_Start", $hash, 1 );
|
|
return undef if( AttrVal($name, "disable", 0 ) == 1 );
|
|
}
|
|
|
|
if ( AttrVal( $name, 'URL', '') eq '' && not defined( $hash->{URL} ) ) {
|
|
|
|
UWZ_Log $hash, 3, "missing URL";
|
|
return;
|
|
}
|
|
|
|
$hash->{helper}{RUNNING_PID} =
|
|
BlockingCall(
|
|
"UWZ_Run", # callback worker task
|
|
$name, # name of the device
|
|
"UWZ_Done", # callback result method
|
|
120, # timeout seconds
|
|
"UWZ_Aborted", # callback for abortion
|
|
$hash ); # parameter for abortion
|
|
}
|
|
|
|
#####################################
|
|
sub UWZ_Aborted($) {
|
|
|
|
my ($hash) = @_;
|
|
delete( $hash->{helper}{RUNNING_PID} );
|
|
}
|
|
|
|
#####################################
|
|
# asyncronous callback by blocking
|
|
sub UWZ_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}) );
|
|
|
|
# delete the marker for RUNNING_PID process
|
|
delete( $hash->{helper}{RUNNING_PID} );
|
|
|
|
|
|
|
|
## alter Code sollte gelöscht werden
|
|
#
|
|
# fhem("deletereading ".$hash->{NAME}." .*");
|
|
#
|
|
# foreach my $skey (grep /^(Warn_?_|WarnCount)/ ,sort keys %{ $hash->{READINGS} }) {
|
|
# UWZ_Log $hash, 3, "Delete Reading:$skey";
|
|
# delete $hash->{READINGS}{$skey};
|
|
# }
|
|
|
|
|
|
|
|
UWZ_Log $hash, 4, "Delete old Readings";
|
|
CommandDeleteReading(undef, "$hash->{NAME} Warn_?_.*");
|
|
|
|
|
|
# UnWetterdaten speichern
|
|
readingsBeginUpdate($hash);
|
|
|
|
if ( defined $values{Error} ) {
|
|
|
|
readingsBulkUpdate( $hash, "lastConnection", $values{Error} );
|
|
|
|
} else {
|
|
|
|
while (my ($rName, $rValue) = each(%values) ) {
|
|
readingsBulkUpdate( $hash, $rName, $rValue );
|
|
UWZ_Log $hash, 5, "reading:$rName value:$rValue";
|
|
}
|
|
|
|
if (keys %values > 0) {
|
|
my $newState;
|
|
if (defined $values{WarnCount}) {
|
|
$newState = "Warnungen: " . $values{WarnCount};
|
|
|
|
} else {
|
|
$newState = "Error: Could not capture all data. Please check CountryCode and PLZ.";
|
|
}
|
|
|
|
readingsBulkUpdate($hash, "state", $newState);
|
|
readingsBulkUpdate( $hash, "lastConnection", keys( %values )." values captured in ".$values{durationFetchReadings}." s" );
|
|
UWZ_Log $hash, 4, keys( %values )." values captured";
|
|
|
|
} else {
|
|
|
|
readingsBulkUpdate( $hash, "lastConnection", "no data found" );
|
|
UWZ_Log $hash, 1, "No data found. Check city name or URL.";
|
|
|
|
}
|
|
}
|
|
|
|
readingsEndUpdate( $hash, 1 );
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub UWZ_Run($) {
|
|
|
|
my ($name) = @_;
|
|
my $ptext=$name;
|
|
my $UWZ_CC;
|
|
my $UWZ_INT;
|
|
my $UWZ_download;
|
|
my $UWZ_savepath;
|
|
my $UWZ_humanreadable;
|
|
|
|
return unless ( defined($name) );
|
|
|
|
my $hash = $defs{$name};
|
|
return unless (defined($hash->{NAME}));
|
|
|
|
my $readingStartTime = time();
|
|
my $attrCountryCode = AttrVal( $name, 'CountryCode', '' );
|
|
my $attrPLZ = AttrVal( $name, 'PLZ', "" );
|
|
my $attrINTERVAL = AttrVal( $name, 'INTERVAL','');
|
|
my $attrdownload = AttrVal( $name, 'download','');
|
|
my $attrsavepath = AttrVal( $name, 'savepath','');
|
|
my $maps2fetch = AttrVal( $name, 'maps','');
|
|
|
|
## begin redundant Reading switch
|
|
my $attrhumanreadable = AttrVal( $name, 'humanreadable','');
|
|
## end redundant Reading switch
|
|
|
|
# preset CountryCode
|
|
if ($attrCountryCode eq "") {
|
|
|
|
$UWZ_CC = "DE";
|
|
} else {
|
|
|
|
$UWZ_CC = $attrCountryCode;
|
|
}
|
|
|
|
# preset INTERVAL
|
|
if ($attrINTERVAL eq "") {
|
|
|
|
$UWZ_INT = 3600;
|
|
} else {
|
|
|
|
$UWZ_INT = $attrINTERVAL;
|
|
}
|
|
|
|
# preset download
|
|
if ($attrdownload eq "") {
|
|
|
|
$UWZ_download = 0;
|
|
} else {
|
|
|
|
$UWZ_download = $attrdownload;
|
|
}
|
|
|
|
# preset savepath
|
|
if ($attrsavepath eq "") {
|
|
|
|
$UWZ_savepath = "/tmp/";
|
|
} else {
|
|
|
|
$UWZ_savepath = $attrsavepath;
|
|
}
|
|
|
|
# preset humanreadable
|
|
if ($attrhumanreadable eq "") {
|
|
|
|
$UWZ_humanreadable = 0;
|
|
} else {
|
|
|
|
$UWZ_humanreadable = $attrhumanreadable;
|
|
}
|
|
|
|
if ( $UWZ_download == 1 ) {
|
|
if ( ! defined($maps2fetch) ) { $maps2fetch = "deutschland"; }
|
|
UWZ_Log $hash, 4, "Maps2Fetch : ".$maps2fetch;
|
|
my @maps = split(' ', $maps2fetch);
|
|
my $uwz_de_url = "http://www.unwetterzentrale.de/images/map/";
|
|
|
|
foreach my $smap (@maps) {
|
|
UWZ_Log $hash, 4, "Download map : ".$smap;
|
|
my $img = UWZ_Map2Image($hash,$smap);
|
|
|
|
if (!defined($img) ) { $img=$uwz_de_url.'deutschland_index.png'; }
|
|
my $code = getstore($img, $UWZ_savepath.$smap.".png");
|
|
|
|
if($code == 200) {
|
|
UWZ_Log $hash, 4, "Successfully downloaded map ".$smap;
|
|
|
|
} else {
|
|
|
|
UWZ_Log $hash, 3, "Failed to download map (".$img.")";
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
# acquire the json-response
|
|
my $response = UWZ_JSONAcquire($hash,$hash->{URL});
|
|
|
|
UWZ_Log $hash, 5, length($response)." characters captured";
|
|
my $converter = Text::Iconv->new("windows-1252","UTF-8");
|
|
my $uwz_warnings = JSON->new->ascii->decode($response);
|
|
my $enc = guess_encoding($uwz_warnings);
|
|
|
|
my $uwz_warncount = scalar(@{ $uwz_warnings->{'results'} });
|
|
UWZ_Log $hash, 4, "There are ".$uwz_warncount." warnings active";
|
|
|
|
my $message;
|
|
my $i=0;
|
|
|
|
my %typenames = ( "1" => "unknown", # <===== FIX HERE
|
|
"2" => "sturm",
|
|
"3" => "schnee",
|
|
"4" => "regen",
|
|
"5" => "temperatur",
|
|
"6" => "waldbrand",
|
|
"7" => "gewitter",
|
|
"8" => "strassenglaette",
|
|
"9" => "temperatur", # 9 = hitzewarnung
|
|
"10" => "glatteisregen",
|
|
"11" => "temperatur" ); # 11 = bodenfrost
|
|
|
|
my %severitycolor = ( "0" => "green",
|
|
"1" => "unknown", # <===== FIX HERE
|
|
"2" => "unknown", # <===== FIX HERE
|
|
"3" => "unknown", # <===== FIX HERE
|
|
"4" => "orange",
|
|
"5" => "unknown", # <===== FIX HERE
|
|
"6" => "unknown", # <===== FIX HERE
|
|
"7" => "orange",
|
|
"8" => "gelb",
|
|
"9" => "gelb", # <===== FIX HERE
|
|
"10" => "orange",
|
|
"11" => "rot",
|
|
"12" => "violet" );
|
|
|
|
foreach my $single_warning (@{ $uwz_warnings->{'results'} }) {
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Type: ".$single_warning->{'type'};
|
|
$message .= "Warn_".$i."_Type|".$single_warning->{'type'}."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_uwzLevel: ".$single_warning->{'payload'}{'uwzLevel'};
|
|
$message .= "Warn_".$i."_uwzLevel|".$single_warning->{'payload'}{'uwzLevel'}."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Severity: ".$single_warning->{'severity'};
|
|
$message .= "Warn_".$i."_Severity|".$single_warning->{'severity'}."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Start: ".$single_warning->{'dtgStart'};
|
|
$message .= "Warn_".$i."_Start|".$single_warning->{'dtgStart'}."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_End: ".$single_warning->{'dtgEnd'};
|
|
$message .= "Warn_".$i."_End|".$single_warning->{'dtgEnd'}."|";
|
|
|
|
## Begin of redundant Reading
|
|
if ( $UWZ_humanreadable eq 1 ) {
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Start_Date: ".strftime("%d.%m.%Y", localtime($single_warning->{'dtgStart'}));
|
|
$message .= "Warn_".$i."_Start_Date|".strftime("%d.%m.%Y", localtime($single_warning->{'dtgStart'}))."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Start_Time: ".strftime("%H:%M", localtime($single_warning->{'dtgStart'}));
|
|
$message .= "Warn_".$i."_Start_Time|".strftime("%H:%M", localtime($single_warning->{'dtgStart'}))."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_End_Date: ".strftime("%d.%m.%Y", localtime($single_warning->{'dtgEnd'}));
|
|
$message .= "Warn_".$i."_End_Date|".strftime("%d.%m.%Y", localtime($single_warning->{'dtgEnd'}))."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_End_Time: ".strftime("%H:%M", localtime($single_warning->{'dtgEnd'}));
|
|
$message .= "Warn_".$i."_End_Time|".strftime("%H:%M", localtime($single_warning->{'dtgEnd'}))."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Type_Str: ".ucfirst($typenames{ $single_warning->{'type'} });
|
|
$message .= "Warn_".$i."_Type_Str|".ucfirst($typenames{ $single_warning->{'type'} })."|";
|
|
}
|
|
## End of redundant Reading
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_levelName: ".$single_warning->{'payload'}{'levelName'};
|
|
$message .= "Warn_".$i."_levelName|".$single_warning->{'payload'}{'levelName'}."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_LongText: ".$enc->decode($single_warning->{'payload'}{'translationsLongText'}{'DE'});
|
|
$message .= "Warn_".$i."_LongText|".$converter->convert($single_warning->{'payload'}{'translationsLongText'}{'DE'})."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_ShortText: ".$enc->decode($single_warning->{'payload'}{'translationsShortText'}{'DE'});
|
|
$message .= "Warn_".$i."_ShortText|".$converter->convert($single_warning->{'payload'}{'translationsShortText'}{'DE'})."|";
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_IconURL: http://www.unwetterzentrale.de/images/icons/".$typenames{ $single_warning->{'type'} }."-".$single_warning->{'severity'}.".gif";
|
|
$message .= "Warn_".$i."_IconURL|http://www.unwetterzentrale.de/images/icons/".$typenames{ $single_warning->{'type'} }."-".$severitycolor{ $single_warning->{'severity'} }.".gif|";
|
|
|
|
|
|
## Hagel start
|
|
my $hagelcount = my @hagelmatch = $single_warning->{'payload'}{'translationsLongText'}{'DE'} =~ /Hagel/g;
|
|
if ( $hagelcount ne 0 ) {
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Hail: 1";
|
|
$message .= "Warn_".$i."_Hail|1|";
|
|
|
|
} else {
|
|
|
|
UWZ_Log $hash, 4, "Warn_".$i."_Hail: 0";
|
|
$message .= "Warn_".$i."_Hail|0|";
|
|
}
|
|
## Hagel end
|
|
|
|
$i++;
|
|
}
|
|
|
|
$message .= "durationFetchReadings|";
|
|
$message .= sprintf "%.2f", time() - $readingStartTime;
|
|
|
|
UWZ_Log $hash, 3, "Done fetching data";
|
|
UWZ_Log $hash, 4, "Will return : "."$name|$message|WarnCount|$uwz_warncount" ;
|
|
|
|
return "$name|$message|WarnCount|$uwz_warncount" ;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub UWZAsHtml($;$) {
|
|
|
|
my ($hash,$items) = @_;
|
|
my $ret = '';
|
|
|
|
if (ReadingsVal($hash, "WarnCount", "") != 0 ) {
|
|
|
|
$ret .= '<table><tr><td>';
|
|
$ret .= '<table class="block wide"><tr><th></th><th></th></tr>';
|
|
|
|
for ( my $i=0; $i<ReadingsVal($hash, "WarnCount", ""); $i++){
|
|
|
|
$ret .= '<tr><td class="uwzIcon" style="vertical-align:top;"><img src="'.ReadingsVal($hash, "Warn_".$i."_IconURL", "").'"></td>';
|
|
$ret .= '<td class="uwzValue"><b>'.ReadingsVal($hash, "Warn_".$i."_ShortText", "").'</b><br><br>';
|
|
$ret .= ReadingsVal($hash, "Warn_".$i."_LongText", "").'<br><br>';
|
|
|
|
$ret .= '<table width="100%"><tr><th></th><th></th></tr><tr><td><b>Start:</b></td><td>'.localtime(ReadingsVal($hash, "Warn_".$i."_Start", "")).'</td>';
|
|
|
|
$ret .= '<td><b>Ende:</b></td><td>'.localtime(ReadingsVal($hash, "Warn_".$i."_End", "")).'</td>';
|
|
$ret .= '</tr></table>';
|
|
$ret .= '</td></tr>';
|
|
}
|
|
|
|
$ret .= '</table>';
|
|
$ret .= '</td></tr>';
|
|
$ret .= '</table>';
|
|
|
|
} else {
|
|
|
|
$ret .= '<table><tr><td>';
|
|
$ret .= '<table class="block wide" width="600px"><tr><th></th><th></th></tr>';
|
|
$ret .= '<tr><td class="uwzIcon" style="vertical-align:top;">';
|
|
$ret .='<b>Keine Warnungen</b>';
|
|
$ret .= '</td></tr>';
|
|
$ret .= '</table>';
|
|
$ret .= '</td></tr>';
|
|
$ret .= '</table>';
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
#####################################
|
|
sub UWZAsHtmlLite($;$) {
|
|
|
|
my ($hash,$items) = @_;
|
|
my $ret = '';
|
|
|
|
if (ReadingsVal($hash, "WarnCount", "") != 0 ) {
|
|
|
|
$ret .= '<table><tr><td>';
|
|
$ret .= '<table class="block wide"><tr><th></th><th></th></tr>';
|
|
|
|
for ( my $i=0; $i<ReadingsVal($hash, "WarnCount", ""); $i++){
|
|
|
|
$ret .= '<tr><td class="uwzIcon" style="vertical-align:top;"><img src="'.ReadingsVal($hash, "Warn_".$i."_IconURL", "").'"></td>';
|
|
$ret .= '<td class="uwzValue"><b>'.ReadingsVal($hash, "Warn_".$i."_ShortText", "").'</b><br><br>';
|
|
$ret .= '<table width="100%"><tr><th></th><th></th></tr><tr><td><b>Start:</b></td><td>'.localtime(ReadingsVal($hash, "Warn_".$i."_Start", "")).'</td>';
|
|
|
|
$ret .= '<td><b>Ende:</b></td><td>'.localtime(ReadingsVal($hash, "Warn_".$i."_End", "")).'</td>';
|
|
$ret .= '</tr></table>';
|
|
$ret .= '</td></tr>';
|
|
|
|
}
|
|
|
|
$ret .= '</table>';
|
|
$ret .= '</td></tr>';
|
|
$ret .= '</table>';
|
|
|
|
} else {
|
|
|
|
$ret .= '<table><tr><td>';
|
|
$ret .= '<table class="block wide" width="600px"><tr><th></th><th></th></tr>';
|
|
$ret .= '<tr><td class="uwzIcon" style="vertical-align:top;">';
|
|
$ret .='<b>Keine Warnungen</b>';
|
|
$ret .= '</td></tr>';
|
|
$ret .= '</table>';
|
|
$ret .= '</td></tr>';
|
|
$ret .= '</table>';
|
|
}
|
|
|
|
return $ret;
|
|
}
|
|
|
|
#####################################
|
|
sub UWZAsHtmlFP($;$) {
|
|
|
|
my ($hash,$items) = @_;
|
|
my $tablewidth = ReadingsVal($hash, "WarnCount", "") * 80;
|
|
my $ret = '';
|
|
|
|
$ret .= '<table class="uwz-fp" style="width:'.$tablewidth.'px"><tr><th></th><th></th></tr>';
|
|
$ret .= "<tr>";
|
|
|
|
for ( my $i=0; $i<ReadingsVal($hash, "WarnCount", ""); $i++){
|
|
$ret .= '<td class="uwzIcon"><img width="80px" src="'.ReadingsVal($hash, "Warn_".$i."_IconURL", "").'"></td>';
|
|
}
|
|
|
|
$ret .= "</tr>";
|
|
$ret .= '</table>';
|
|
|
|
return $ret;
|
|
}
|
|
|
|
|
|
#####################################
|
|
sub UWZAsHtmlKarteLand($$) {
|
|
|
|
my ($hash,$land) = @_;
|
|
# my $uwz_de_url = "http://www.unwetterzentrale.de/images/map/";
|
|
# my $uwz_at_url = "http://unwetter.wetteralarm.at/images/map/";
|
|
my $url = UWZ_Map2Image($hash,$land);
|
|
my $ret = '<table><tr><td>';
|
|
|
|
$ret .= '<table class="block wide">';
|
|
$ret .= '<tr class="even"><td>';
|
|
|
|
if(defined($url)) {
|
|
$ret .= '<img src="'.$url.'">';
|
|
|
|
} else {
|
|
|
|
$ret .= 'unbekannte Landbezeichnung';
|
|
}
|
|
|
|
$ret .= '</td></tr></table></td></tr>';
|
|
$ret .= '</table>';
|
|
|
|
return $ret;
|
|
}
|
|
|
|
#####################################
|
|
1;
|
|
|
|
|
|
|
|
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="UWZ"></a>
|
|
<h3>UWZ</h3>
|
|
<ul>
|
|
<a name="UWZdefine"></a>
|
|
This modul extracts thunderstorm warnings from <a href="http://www.unwetterzentrale.de">www.unwetterzentrale.de</a>.
|
|
<br/>
|
|
Therefore the same interface is used as the Android App <a href="http://www.alertspro.com">Alerts Pro</a> does.
|
|
A maximum of 10 thunderstorm warnings will be served.
|
|
Additional the module provides a few functions to create HTML-Templates which can be used with weblink.
|
|
<br>
|
|
<i>The following Perl-Modules are used within this module: HTTP::Request, LWP::UserAgent, JSON, Encode::Guess, Text::Iconv und HTML::Parse</i>.
|
|
<br/><br/>
|
|
<b>Define</b>
|
|
<ul>
|
|
<br>
|
|
<code>define <Name> UWZ [CountryCode] [postalcode] [INTERVAL]</code>
|
|
<br><br><br>
|
|
Example:
|
|
<br>
|
|
<code>define Unwetterzentrale UWZ DE 86405 3600</code>
|
|
<br>
|
|
|
|
<li><code>[CountryCode]</code>
|
|
<br>
|
|
Possible values: DE, AT, CH,...<br/>
|
|
(for other countries than germany see <a href="http://forum.fhem.de/index.php/topic,33549.msg260076.html#msg260076">fhem-forum</a>)
|
|
</li><br>
|
|
<li><code>[postalcode]</code>
|
|
<br>
|
|
The postalcode for the city to get warnings for.
|
|
<br>
|
|
</li><br>
|
|
<li><code>[INTERVAL]</code>
|
|
<br>
|
|
Defines the refresh interval. The interval is defined in seconds, so an interval of 3600 means that every hour a refresh will be triggered onetimes.
|
|
<br>
|
|
</li><br>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="UWZget"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<br>
|
|
<li><code>get <name> Bodenfrost</code>
|
|
<br>
|
|
give info about current soil frost (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Extremfrost</code>
|
|
<br>
|
|
give info about current frost (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Gewitter</code>
|
|
<br>
|
|
give info about current thunderstorm (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Glaette</code>
|
|
<br>
|
|
give info about current glaze (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Glatteisregen</code>
|
|
<br>
|
|
give info about current freezing rain (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Hagel</code>
|
|
<br>
|
|
give info about current hail (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Hitze</code>
|
|
<br>
|
|
give info about current heat (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Regen</code>
|
|
<br>
|
|
give info about current rain (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Schneefall</code>
|
|
<br>
|
|
give info about current snow (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Sturm</code>
|
|
<br>
|
|
give info about current storm (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Waldbrand</code>
|
|
<br>
|
|
give info about current forest fire (active|inactive).
|
|
</li><br>
|
|
|
|
</ul>
|
|
|
|
<br>
|
|
|
|
<a name="UWZset"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<br>
|
|
<li><code>set <name> update</code>
|
|
<br>
|
|
Executes an imediate update of thunderstorm warnings.
|
|
</li><br>
|
|
</ul>
|
|
|
|
<br>
|
|
<a name="UWZattr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<br>
|
|
<li><code>download</code>
|
|
<br>
|
|
Download maps during update (0|1).
|
|
<br>
|
|
</li>
|
|
<li><code>savepath</code>
|
|
<br>
|
|
Define where to store the map png files (default: /tmp/).
|
|
<br>
|
|
</li>
|
|
<li><code>maps</code>
|
|
<br>
|
|
Define the maps to download space seperated. For possible values see <code>UWZAsHtmlKarteLand</code>.
|
|
<br>
|
|
</li>
|
|
<li><code>humanreadable</code>
|
|
<br>
|
|
Add additional Readings Warn_?_Start_Date, Warn_?_Start_Time, Warn_?_End_Date and Warn_?_End_Time containing the coresponding timetamp in a human readable manner. (0|1).
|
|
<br>
|
|
</li>
|
|
|
|
|
|
<br>
|
|
</ul>
|
|
|
|
<br>
|
|
|
|
<a name="UWZreading"></a>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<br>
|
|
<li><b>Warn_</b><i>0|1|2|3...|9</i><b>_...</b> - active warnings</li>
|
|
<li><b>WarnCount</b> - warnings count</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Start</b> - begin of warnperiod</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Start_Date</b> - start date of warnperiod</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Start_Time</b> - start time of warnperiod</li>
|
|
<li><b>Warn_</b><i>0</i><b>_End</b> - end of warnperiod</li>
|
|
<li><b>Warn_</b><i>0</i><b>_End_Date</b> - end date of warnperiod</li>
|
|
<li><b>Warn_</b><i>0</i><b>_End_Time</b> - end time of warnperiod</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Severity</b> - Severity of thunderstorm (0 no thunderstorm, 4, 7, 11, .. heavy thunderstorm)</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Hail</b> - warning contains hail</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Type</b> - kind of thunderstorm</li>
|
|
<ul>
|
|
<li><b>1</b> - unknown</li>
|
|
<li><b>2</b> - storm</li>
|
|
<li><b>3</b> - snow</li>
|
|
<li><b>4</b> - rain</li>
|
|
<li><b>5</b> - frost</li>
|
|
<li><b>6</b> - forest fire</li>
|
|
<li><b>7</b> - thunderstorm</li>
|
|
<li><b>8</b> - glaze</li>
|
|
<li><b>9</b> - heat</li>
|
|
<li><b>10</b> - freezing rain</li>
|
|
<li><b>11</b> - soil frost</li>
|
|
</ul>
|
|
<li><b>Warn_</b><i>0</i><b>_uwzLevel</b> - Severity of thunderstorm (like Severity)</li>
|
|
<li><b>Warn_</b><i>0</i><b>_levelName</b> - Level Warn Name</li>
|
|
<li><b>Warn_</b><i>0</i><b>_ShortText</b> - short warn text</li>
|
|
<li><b>Warn_</b><i>0</i><b>_LongText</b> - detailed warn text</li>
|
|
<li><b>Warn_</b><i>0</i><b>_IconURL</b> - cumulated URL to display warn-icons from <a href="http://www.unwetterzentrale.de">www.unwetterzentrale.de</a></li>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="UWZweblinks"></a>
|
|
<b>Weblinks</b>
|
|
<ul>
|
|
<br>
|
|
|
|
With the additional implemented functions <code>UWZAsHtml, UWZAsHtmlLite, UWZAsHtmlFP and UWZAsHtmlKarteLand</code> HTML-Code will be created to display warnings, using weblinks.
|
|
<br><br><br>
|
|
Example:
|
|
<br>
|
|
<li><code>define UnwetterDetailiert weblink htmlCode {UWZAsHtml("Unwetterzentrale")}</code></li>
|
|
<br>
|
|
<li><code>define UnwetterLite weblink htmlCode {UWZAsHtmlLite("Unwetterzentrale")}</code></li>
|
|
<br>
|
|
<li><code>define UnwetterFloorplan weblink htmlCode {UWZAsHtmlFP("Unwetterzentrale")}</code></li>
|
|
<br>
|
|
<li><code>define UnwetterKarteLand weblink htmlCode {UWZAsHtmlKarteLand("Unwetterzentrale","Bayern")}</code></li>
|
|
<ul>
|
|
<li>The second parameter should be one of:
|
|
<ul>
|
|
<li>deutschland</li>
|
|
<li>deutschland-small</li>
|
|
<li>bayern</li>
|
|
<li>bremen</li>
|
|
<li>baden-wuerttemberg</li>
|
|
<li>brandenburg</li>
|
|
<li>berlin</li>
|
|
<li>hessen</li>
|
|
<li>niedersachsen</li>
|
|
<li>rheinland-pfalz</li>
|
|
<li>saarland</li>
|
|
<li>sachsen</li>
|
|
<li>sachsen-anhalt</li>
|
|
<li>thueringen</li>
|
|
<li>nordrhein-westfale</li>
|
|
<li>mecklenburg-vorpommern</li>
|
|
<li>schleswig-holstein</li>
|
|
<li>hamburg</li>
|
|
<br/>
|
|
<li>oesterreich</li>
|
|
<li>burgenland</li>
|
|
<li>kaernten</li>
|
|
<li>niederoesterreich</li>
|
|
<li>oberoesterreich</li>
|
|
<li>salzburg</li>
|
|
<li>steiermark</li>
|
|
<li>tirol</li>
|
|
<li>vorarlberg</li>
|
|
<li>wien</li>
|
|
</ul>
|
|
</li>
|
|
</ul>
|
|
<br/><br/>
|
|
</ul>
|
|
<br>
|
|
|
|
|
|
</ul>
|
|
|
|
|
|
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="UWZ"></a>
|
|
<h3>UWZ</h3>
|
|
<ul>
|
|
<a name="UWZdefine"></a>
|
|
Das Modul extrahiert Unwetterwarnungen von <a href="http://www.unwetterzentrale.de">www.unwetterzentrale.de</a>.
|
|
<br/>
|
|
Hierfür wird die selbe Schnittstelle verwendet die auch die Android App <a href="http://www.alertspro.com">Alerts Pro</a> nutzt.
|
|
Es werden maximal 10 Standortbezogene Unwetterwarnungen zur Verfügung gestellt.
|
|
Weiterhin verfügt das Modul über HTML-Templates welche als weblink verwendet werden können.
|
|
<br>
|
|
<i>Es nutzt die Perl-Module HTTP::Request, LWP::UserAgent, JSON, Encode::Guess, Text::Iconv und HTML::Parse</i>.
|
|
<br/><br/>
|
|
<b>Define</b>
|
|
<ul>
|
|
<br>
|
|
<code>define <Name> UWZ [Ländercode] [Postleitzahl] [INTERVAL]</code>
|
|
<br><br><br>
|
|
Beispiel:
|
|
<br>
|
|
<code>define Unwetterzentrale UWZ DE 86405 3600</code>
|
|
<br>
|
|
|
|
<li><code>[Ländercode]</code>
|
|
<br>
|
|
Mögliche Werte: DE, AT, CH,...<br/>
|
|
(für ander Länder als Deutschland werfen Sie einen Blick in das <a href="http://forum.fhem.de/index.php/topic,33549.msg260076.html#msg260076">fhem-forum</a>.
|
|
</li><br>
|
|
<li><code>[Postleitzahl]</code>
|
|
<br>
|
|
Die Postleitzahl des Ortes für den Unwetterinformationen abgefragt werden sollen.
|
|
<br>
|
|
</li><br>
|
|
<li><code>[INTERVAL]</code>
|
|
<br>
|
|
Definiert das Interval zur aktualisierung der Unwetterwarnungen. Das Interval wird in Sekunden angegeben, somit aktualisiert das Modul bei einem Interval von 3600 jede Stunde 1 mal.
|
|
<br>
|
|
</li><br>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="UWZget"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<br>
|
|
<li><code>get <name> Bodenfrost</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Bodenfrostwarnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Extremfrost</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Extremfrostwarnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Gewitter</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Gewitter Warnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Glaette</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Glaettewarnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Glatteisregen</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Glatteisregen Warnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Hagel</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Hagel Warnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Hitze</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Hitze Warnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Regen</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Regen Warnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Schneefall</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Schneefall Warnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Sturm</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Sturm Warnung besteht (active|inactive).
|
|
</li><br>
|
|
<li><code>get <name> Waldbrand</code>
|
|
<br>
|
|
Gibt aus ob aktuell eine Waldbrand Warnung besteht (active|inactive).
|
|
</li><br>
|
|
|
|
|
|
</ul>
|
|
|
|
<br>
|
|
|
|
<a name="UWZset"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<br>
|
|
<li><code>set <name> update</code>
|
|
<br>
|
|
Startet sofort ein neues Auslesen der Unwetterinformationen.
|
|
</li><br>
|
|
</ul>
|
|
|
|
<br>
|
|
|
|
<a name="UWZattr"></a>
|
|
<b>Attribute</b>
|
|
<ul>
|
|
<br>
|
|
<li><code>download</code>
|
|
<br>
|
|
Download Unwetterkarten während des updates (0|1).
|
|
<br>
|
|
</li>
|
|
<li><code>savepath</code>
|
|
<br>
|
|
Pfad zum speichern der Karten (default: /tmp/).
|
|
<br>
|
|
</li>
|
|
<li><code>maps</code>
|
|
<br>
|
|
Leerzeichen separierte Liste der zu speichernden Karten. Für mögliche Karten siehe <code>UWZAsHtmlKarteLand</code>.
|
|
<br>
|
|
</li>
|
|
<li><code>humanreadable</code>
|
|
<br>
|
|
Anzeige weiterer Readings Warn_?_Start_Date, Warn_?_Start_Time, Warn_?_End_Date und Warn_?_End_Time. Diese Readings enthalten aus dem Timestamp kalkulierte Datums/Zeit Angaben. (0|1)
|
|
<br>
|
|
</li>
|
|
|
|
<br>
|
|
</ul>
|
|
|
|
<br>
|
|
|
|
<a name="UWZreading"></a>
|
|
<b>Readings</b>
|
|
<ul>
|
|
<br>
|
|
<li><b>Warn_</b><i>0|1|2|3...|9</i><b>_...</b> - aktive Warnmeldungen</li>
|
|
<li><b>WarnCount</b> - Anzahl der aktiven Warnmeldungen</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Start</b> - Begin der Warnung</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Start_Date</b> - Startdatum der Warnung</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Start_Time</b> - Startzeit der Warnung</li>
|
|
<li><b>Warn_</b><i>0</i><b>_End</b> - Warn Ende</li>
|
|
<li><b>Warn_</b><i>0</i><b>_End_Date</b> - Enddatum der Warnung</li>
|
|
<li><b>Warn_</b><i>0</i><b>_End_Time</b> - Endzeit der Warnung</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Severity</b> - Schwere des Unwetters (0 kein Unwetter, 12 massives Unwetter)</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Hail</b> - Hagelwarnung (1|0)</li>
|
|
<li><b>Warn_</b><i>0</i><b>_Type</b> - Art des Unwetters</li>
|
|
<ul>
|
|
<li><b>1</b> - unbekannt</li>
|
|
<li><b>2</b> - Sturm/Orkan</li>
|
|
<li><b>3</b> - Schneefall</li>
|
|
<li><b>4</b> - Regen</li>
|
|
<li><b>5</b> - Extremfrost</li>
|
|
<li><b>6</b> - Waldbrandgefahr</li>
|
|
<li><b>7</b> - Gewitter</li>
|
|
<li><b>8</b> - Glätte</li>
|
|
<li><b>9</b> - Hitze</li>
|
|
<li><b>10</b> - Glatteisregen</li>
|
|
<li><b>11</b> - Bodenfrost</li>
|
|
</ul>
|
|
<li><b>Warn_</b><i>0</i><b>_uwzLevel</b> - Schwere des Unwetters (wie Severity)</li>
|
|
<li><b>Warn_</b><i>0</i><b>_levelName</b> - Level Warn Name</li>
|
|
<li><b>Warn_</b><i>0</i><b>_ShortText</b> - Kurzbeschreibung der Warnung</li>
|
|
<li><b>Warn_</b><i>0</i><b>_LongText</b> - Ausführliche Unwetterbeschreibung</li>
|
|
<li><b>Warn_</b><i>0</i><b>_IconURL</b> - Kumulierte URL um Warnungs-Icon von <a href="http://www.unwetterzentrale.de">www.unwetterzentrale.de</a> anzuzeigen</li>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="UWZweblinks"></a>
|
|
<b>Weblinks</b>
|
|
<ul>
|
|
<br>
|
|
|
|
Über die Funktionen <code>UWZAsHtml, UWZAsHtmlLite, UWZAsHtmlFP und UWZAsHtmlKarteLand</code> wird HTML-Code zur Warnanzeige über weblinks erzeugt.
|
|
<br><br><br>
|
|
Beispiele:
|
|
<br>
|
|
<li><code>define UnwetterDetailiert weblink htmlCode {UWZAsHtml("Unwetterzentrale")}</code></li>
|
|
<br>
|
|
<li><code>define UnwetterLite weblink htmlCode {UWZAsHtmlLite("Unwetterzentrale")}</code></li>
|
|
<br>
|
|
<li><code>define UnwetterFloorplan weblink htmlCode {UWZAsHtmlFP("Unwetterzentrale")}</code></li>
|
|
<br>
|
|
<li><code>define UnwetterKarteLand weblink htmlCode {UWZAsHtmlKarteLand("Unwetterzentrale","Bayern")}</code></li>
|
|
<ul>
|
|
<li>The second parameter should be one of:
|
|
<ul>
|
|
<li>deutschland</li>
|
|
<li>deutschland-small</li>
|
|
<li>bayern</li>
|
|
<li>bremen</li>
|
|
<li>baden-wuerttemberg</li>
|
|
<li>brandenburg</li>
|
|
<li>berlin</li>
|
|
<li>hessen</li>
|
|
<li>niedersachsen</li>
|
|
<li>rheinland-pfalz</li>
|
|
<li>saarland</li>
|
|
<li>sachsen</li>
|
|
<li>sachsen-anhalt</li>
|
|
<li>thueringen</li>
|
|
<li>nordrhein-westfale</li>
|
|
<li>mecklenburg-vorpommern</li>
|
|
<li>schleswig-holstein</li>
|
|
<li>hamburg</li>
|
|
<br/>
|
|
<li>oesterreich</li>
|
|
<li>burgenland</li>
|
|
<li>kaernten</li>
|
|
<li>niederoesterreich</li>
|
|
<li>oberoesterreich</li>
|
|
<li>salzburg</li>
|
|
<li>steiermark</li>
|
|
<li>tirol</li>
|
|
<li>vorarlberg</li>
|
|
<li>wien</li>
|
|
</ul>
|
|
</li>
|
|
</ul>
|
|
|
|
|
|
<br/><br/>
|
|
</ul>
|
|
<br>
|
|
|
|
|
|
</ul>
|
|
|
|
=end html_DE
|
|
=cut |