From f28df1db90267dbe7cee132d9b387b7f3274704a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 16 Mar 2014 16:16:32 +0000
Subject: [PATCH] fhem.pl: escapeLogLine patch from Boris

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

diff --git a/fhem.pl b/fhem.pl
index ed0cde44f..84a9bb494 100755
--- a/fhem.pl
+++ b/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;
 }