mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-03 16:56:54 +00:00
contrib/55_GDS.2015/99_gdsUtils.pm: added
contains html-generator to be used for weblinks git-svn-id: https://svn.fhem.de/fhem/trunk@9417 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
parent
5a4e736e2b
commit
524656f05b
300
fhem/contrib/55_GDS.2015/99_gdsUtils.pm
Normal file
300
fhem/contrib/55_GDS.2015/99_gdsUtils.pm
Normal file
@ -0,0 +1,300 @@
|
||||
# $Id$
|
||||
package main;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use POSIX;
|
||||
|
||||
sub
|
||||
gdsUtils_Initialize($$)
|
||||
{
|
||||
my ($hash) = @_;
|
||||
}
|
||||
|
||||
####################################################################################################
|
||||
#
|
||||
# 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;
|
||||
Loading…
x
Reference in New Issue
Block a user