FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

Example program for own Readings-lists

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1347 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ulimaass 2012-03-15 13:26:27 +00:00
parent 82dc4a8eeb
commit c7d5af765c
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
fhem/contrib/95_FLOORPLAN/99_myFloorplanList.pm Normal file
View File

@ -0,0 +1,44 @@
package main;
use strict;
use warnings;
use POSIX;
sub
myFloorplanList_Initialize($$)
{
my ($hash) = @_;
}
###################################################################################
# Einbinden in fhem mit
# define w_WertListe1 weblink htmlCode {doWertListe1()}
# attr w_WertListe1 room Listen
#
sub
doWertListe1() {
my @wert;
my $div_class = "WertListe"; #format in css-file using #WertListe
# Change this list as needed
$wert[0] = "FHT Ist:" .','. ReadingsVal("ez_FHT","measured-temp","ezFHT measured-temp Fehler");
$wert[1] = "FHT Soll:" .','. ReadingsVal("ez_FHT","desired-temp","ezFHT desired-temp Fehler");
$wert[2] = "FHT Actuator:" .','. ReadingsVal("ez_FHT","actuator","ezFHT actuator Fehler");
$wert[3] = "Aussen:" .','. ReadingsVal("ez_Aussensensor","temperature","ez_Aussensensor temperature Fehler");
$wert[4] = "HomeStatus:" .','. Value("HomeStatus");
$wert[5] = "GoogleTemp:" .','. ReadingsVal("MunichWeather","temperature","MunichWeather temperature Error");
$wert[6] = "GoogleSky:" .','. ReadingsVal("MunichWeather","condition","MunichWeather condition Error");
$wert[7] = "GoogleIcon:" .','. "<img src=\"http://www.google.com".ReadingsVal("MunichWeather","icon","MunichWeather icon Error")."\">";
my $FritzTemp = `ctlmgr_ctl r power status/act_temperature` ;
$wert[8] = "FritzBoxTemp:" .','. $FritzTemp . "&deg";
# Change this list as needed
my $htmlcode = '<div class="'.$div_class."\"><table>\n";
foreach (@wert) {
my ($title, $value) = split (",",$_);
$htmlcode .= "<tr><td>$title</td><td>$value</td></tr>\n";
}
$htmlcode .= "</table></div>";
return $htmlcode;
}
1;