From c4cc5dcaa5be9aa0157f6f90e5d40ad42a32cb65 Mon Sep 17 00:00:00 2001
From: markusbloch <>
Date: Sun, 18 Mar 2018 08:20:35 +0000
Subject: [PATCH] FB_CALLLIST: allow multiline mapping attributes (Forum:
 #85856)

git-svn-id: https://svn.fhem.de/fhem/trunk@16433 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED                | 1 +
 fhem/FHEM/72_FB_CALLLIST.pm | 8 ++++----
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index f799ef809..e16b6f42a 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  72_FB_CALLLIST: allow newlines in mapping attributes values
   - feature: 74_XiaomiBTLESens: add new set command resetBatteryTimestamp
   - bugfix:  93_DbRep: some perl warnings fixed
   - fhem.pl: restoreDir restructured (Forum #85801)
diff --git a/fhem/FHEM/72_FB_CALLLIST.pm b/fhem/FHEM/72_FB_CALLLIST.pm
index add189d8e..03a27d91d 100755
--- a/fhem/FHEM/72_FB_CALLLIST.pm
+++ b/fhem/FHEM/72_FB_CALLLIST.pm
@@ -115,7 +115,7 @@ sub FB_CALLLIST_Attr($@)
     {
         if($attrib eq "internal-number-filter")
         {
-            if( $value =~ m/^{.*}$/ )
+            if( $value =~ m/^{.*}$/s )
             {
                 my $table = eval $value;
 
@@ -143,7 +143,7 @@ sub FB_CALLLIST_Attr($@)
         }
         elsif($attrib eq "connection-mapping")
         {
-            if($value and $value =~ m/^{.*}$/ )
+            if($value and $value =~ m/^{.*}$/s )
             {
                 my $table = eval $value;
 
@@ -157,7 +157,7 @@ sub FB_CALLLIST_Attr($@)
         }
         elsif($attrib eq "icon-mapping")
         {
-            if($value and $value =~ m/^{.*}$/ )
+            if($value and $value =~ m/^{.*}$/s )
             {
                 my $table = eval $value;
 
@@ -171,7 +171,7 @@ sub FB_CALLLIST_Attr($@)
         }
         elsif($attrib eq "external-mapping")
         {
-            if($value and $value =~ m/^{.*}$/ )
+            if($value and $value =~ m/^{.*}$/s )
             {
                 my $table = eval $value;