From 07a257f765f7ad9c42a58dd9b1cf4422d95ef265 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 9 Nov 2016 20:16:55 +0000
Subject: [PATCH] 10_ZWave.pm: add Multiline Help parser (Forum #60456)

git-svn-id: https://svn.fhem.de/fhem/trunk@12536 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_ZWave.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm
index e0eb9015d..faeb01508 100755
--- a/fhem/FHEM/10_ZWave.pm
+++ b/fhem/FHEM/10_ZWave.pm
@@ -2400,6 +2400,7 @@ ZWave_configParseModel($;$)
     }
   }
 
+  my $partial="";
   while($gz->gzreadline($line)) {
     last if($line =~ m+^\s*</Product>+);
     if($line =~ m/^\s*<CommandClass.*id="([^"]*)"(.*)$/) {
@@ -2427,7 +2428,22 @@ ZWave_configParseModel($;$)
       $hash{$cmdName} = \%h;
     }
 
-    $hash{$cmdName}{Help} .= "$1<br>" if($line =~ m+^\s*<Help>(.*)</Help>$+);
+    if($line =~ m,<Help>, && $line !~ m,</Help>,) { # Multiline Help
+      $partial = $line;
+      next;
+    }
+    if($partial) {
+      if($line =~ m,</Help>,) {
+        $line = $partial.$line;
+        $line =~ s/[\r\n]//gs;
+        $partial = "";
+      } else {
+        $partial .= $line;
+        next;
+      }
+    }
+    $hash{$cmdName}{Help} .= "$1<br>" if($line =~ m+<Help>(.*)</Help>+s);
+
     if($line =~ m/^\s*<Item/) {
       my $label = $1 if($line =~ m/label="([^"]*)"/i);
       my $value = $1 if($line =~ m/value="([^"]*)"/i);