From 928b79f2b1e9a62ab88bc0f3ec0ec953d4cbf0f5 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 30 Aug 2018 13:00:08 +0000
Subject: [PATCH] 98_JsonList2.pm: \n and " have to be escaped differently
 (Forum #90145)

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

diff --git a/fhem/FHEM/98_JsonList2.pm b/fhem/FHEM/98_JsonList2.pm
index c8ec222b1..5add6538b 100644
--- a/fhem/FHEM/98_JsonList2.pm
+++ b/fhem/FHEM/98_JsonList2.pm
@@ -25,7 +25,9 @@ JsonList2_Escape($)
 {
   my $a = shift;
   return "null" if(!defined($a));
-  $a=~ s/([\x00-\x19\x22\x5c])/sprintf '\u%04x', ord($1)/ge; # Forum 57377
+  $a =~ s/([\x00-\x09\x0b-\x19\x5c])/sprintf '\u%04x', ord($1)/ge; # Forum 57377
+  $a =~ s/"/\\\\"/g; 
+  $a =~ s/\n/\\\\n/g; 
   my $b = "x$a";
   $a = "<BINARY>" if(!utf8::decode($b)); # Forum #55318
   return $a;