From 236eeaafae5d1e64d9c236c4e52424d6eb69dead Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 3 Jan 2013 13:01:58 +0000
Subject: [PATCH] Respect the showInternalValues parameter

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@2408 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/98_XmlList.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/FHEM/98_XmlList.pm b/FHEM/98_XmlList.pm
index 0174ab9b9..ad9d38fb6 100644
--- a/FHEM/98_XmlList.pm
+++ b/FHEM/98_XmlList.pm
@@ -71,9 +71,11 @@ CommandXmlList($$)
       my $a3 = XmlEscape(getAllAttr($d));
  
       $str .= "\t\t<$t name=\"$d\" state=\"$a1\" sets=\"$a2\" attrs=\"$a3\">\n";
+      my $si = AttrVal("global", "showInternalValues", 0);
  
       foreach my $c (sort keys %{$p}) {
         next if(ref($p->{$c}));
+        next if(!$si && $c =~ m/^\./);
         $str .= sprintf("\t\t\t<INT key=\"%s\" value=\"%s\"/>\n",
                         XmlEscape($c), XmlEscape($p->{$c}));
       }
@@ -81,6 +83,7 @@ CommandXmlList($$)
                                         $p->{IODev}{NAME}) if($p->{IODev});
  
       foreach my $c (sort keys %{$attr{$d}}) {
+        next if(!$si && $c =~ m/^\./);
         $str .= sprintf("\t\t\t<ATTR key=\"%s\" value=\"%s\"/>\n",
                         XmlEscape($c), XmlEscape($attr{$d}{$c}));
       }
@@ -88,6 +91,7 @@ CommandXmlList($$)
       my $r = $p->{READINGS};
       if($r) {
         foreach my $c (sort keys %{$r}) {
+          next if(!$si && $c =~ m/^\./);
           my $h = $r->{$c};
           next if(!defined($h->{VAL}) || !defined($h->{TIME}));
           $str .=