From 3e91149c63f7a10d6705666e2ed079061633c290 Mon Sep 17 00:00:00 2001
From: hcs-svn <hcs-svn@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 26 Oct 2014 21:17:18 +0000
Subject: [PATCH] 98_CustomReadings.pm: added CustomReadings_GetHTML (see
 commandref)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6814 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_CustomReadings.pm | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_CustomReadings.pm b/fhem/FHEM/98_CustomReadings.pm
index e66593a29..e95c3669d 100644
--- a/fhem/FHEM/98_CustomReadings.pm
+++ b/fhem/FHEM/98_CustomReadings.pm
@@ -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>