From ddf951dcfac2f3c3b37d4930076b0c7e6cd770e6 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 16 Mar 2014 16:16:32 +0000
Subject: [PATCH] fhem.pl: escapeLogLine patch from Boris

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5237 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index ed0cde44f..84a9bb494 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -3739,15 +3739,21 @@ utf8ToLatin1($)
 sub escapeLogLine($) {
   my ($s)= @_;
   
+  # http://perldoc.perl.org/perlrebackslash.html
   my %escSequences = (
-      '\t' => "\\t",
+      '\a' => "\\a",
+      '\e' => "\\e",
+      '\f' => "\\f",
       '\n' => "\\n",
       '\r' => "\\r",
+      '\t' => "\\t",
       );
   
+  $s =~ s/\\/\\\\/g;
   foreach my $regex (keys %escSequences) {
     $s =~ s/$regex/$escSequences{$regex}/g;
   }
+  $s =~ s/([\000-\037])/sprintf("\\%03o", ord($1))/eg;
   return $s;
 }