From f8d03912949edc85a2aad97e6bcf70b918dc231a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 28 Feb 2018 21:09:20 +0000
Subject: [PATCH] fhem.pl: parseParams patch #2 (!) from hexenmeister (Forum
 #85060)

git-svn-id: https://svn.fhem.de/fhem/trunk@16291 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index f42e4cc87..ba1c43709 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -128,7 +128,7 @@ sub getUniqueId();
 sub latin1ToUtf8($);
 sub myrename($$$);
 sub notifyRegexpChanged($$);
-sub parseParams($;$$);
+sub parseParams($;$$$);
 sub perlSyntaxCheck($%);
 sub readingsBeginUpdate($);
 sub readingsBulkUpdate($$$@);
@@ -5164,11 +5164,12 @@ perlSyntaxCheck($%)
 
 #####################################
 sub
-parseParams($;$$)
+parseParams($;$$$)
 {
-  my($cmd, $separator, $joiner) = @_;
+  my($cmd, $separator, $joiner, $keyvalueseparator) = @_;
   $separator = ' ' if(!$separator);
   $joiner = $separator if(!$joiner); # needed if separator is a regexp
+  $keyvalueseparator = '=' if(!$keyvalueseparator);
   my(@a, %h);
 
   my @params;
@@ -5181,7 +5182,7 @@ parseParams($;$$)
   while (@params) {
     my $param = shift(@params);
     next if($param eq "");
-    my ($key, $value) = split( '=', $param, 2 );
+    my ($key, $value) = split( $keyvalueseparator, $param, 2 );
 
     if( !defined( $value ) ) {
       $value = $key;