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

@@ -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;
 }