FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 22:26:04 +00:00
Code Issues Releases Wiki Activity

fhem.pl: parseParams patch #2 (!) from hexenmeister (Forum #85060)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16291 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-02-28 21:09:20 +00:00
parent eaf352d371
commit f8d0391294
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/fhem.pl
View File

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