FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

98_CustomReadings.pm: added CustomReadings_GetHTML (see commandref)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6814 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hcs-svn 2014-10-26 21:17:18 +00:00
parent 4e4f80193c
commit 9e5d5c14cd
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
fhem/FHEM/98_CustomReadings.pm
View File

@ -66,7 +66,7 @@ sub CustomReadings_read($)
readingsEndUpdate($hash, 1);
foreach my $r (keys %{$hash->{READINGS}}) {
if (not $r ~~ @used ) {
if (not $r ~~ @used) {
delete $hash->{READINGS}{$r};
}
}
@ -85,6 +85,25 @@ CustomReadings_Undef($$)
return undef;
}
sub CustomReadings_GetHTML ($)
{
my ($name) = @_;
my $hash = $main::defs{$name};
my $result = "";
$result .= "<table>";
foreach my $reading (keys %{$hash->{READINGS}}) {
$result .= "<tr>";
$result .= "<td>$reading:&nbsp;</td><td>" . ReadingsVal($name, $reading, "???") . "</td>";
$result .= "</tr>";
}
$result .= "</table>";
return $result;
}
1;
@ -106,6 +125,7 @@ CustomReadings_Undef($$)
<br><code>
define myReadings CustomReadings<br>
attr myReadings room 0-Test<br>
attr myReadings group Readings<br>
attr myReadings interval 2<br>
attr myReadings readingDefinitions hdd_temperature:qx(hddtemp /dev/sda 2>&1),<br>
ac_powersupply_voltage:qx(cat /sys/class/power_supply/ac/voltage_now 2>&1) / 1000000,<br>
@ -117,6 +137,13 @@ device_name:$hash->{NAME},<br>
bullshit: $hash->{bullshit},<br>
fhem_backup_folder_size:qx(du -ch /opt/fhem/backup | grep total | cut -d 't' -f1 2>&1)<br>
<br><br>
<b>Optionally, to display the readings:</b><br>
define myReadingsDisplay weblink htmlCode {CustomReadings_GetHTML('myReadings')}<br>
attr myReadingsDisplay group Readings<br>
attr myReadingsDisplay room 0-Test<br>
<br>
<u>Resulting readings:</u><br>
<table>