From 2f34bd7420c33f5b2931dbede3f14246949e503d Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 8 Sep 2007 11:15:40 +0000
Subject: [PATCH] xmllist fixes

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@89 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED | 1 +
 fhem/fhem.pl | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index f333df9cf..04a023234 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -342,3 +342,4 @@
 - ==DATE== (4.2)
   - feature: added archivedir/archivecmd to the the main logfile
   - feature: 99_Sunrise_EL.pm (does not need any Date modules)
+  - bugfix:  Seldom xmllist error resulting in corrupt xml (Martin/Peter, 4.9)
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 79d49c5ad..b8fbf7b44 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -134,7 +134,7 @@ my %intAt;			# Internal at timer hash.
 my $intAtCnt=0;
 my $reread_active = 0;
 my $AttrList = "room comment";
-my $cvsid = '$Id: fhem.pl,v 1.23 2007-08-06 18:17:28 rudolfkoenig Exp $';
+my $cvsid = '$Id: fhem.pl,v 1.24 2007-09-08 11:15:40 rudolfkoenig Exp $';
 
 $init_done = 0;
 
@@ -1064,7 +1064,7 @@ XmlEscape($)
   $a =~ s/"/&quot;/g;
   $a =~ s/</&lt;/g;
   $a =~ s/>/&gt;/g;
-  $a =~ s/°/&#b0;/g;
+  $a =~ s/([^ -~])/sprintf("#%02x;", ord($1))/ge;
   return $a;
 }