From 4f21d34edc2f68c251df2384fc92c6408130a0c3 Mon Sep 17 00:00:00 2001 From: justme-1968 Date: Fri, 6 Mar 2020 12:01:05 +0000 Subject: [PATCH] 30_HUEBridge.pm: allow spaces in updateschedule json git-svn-id: https://svn.fhem.de/fhem/trunk@21366 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/30_HUEBridge.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/fhem/FHEM/30_HUEBridge.pm b/fhem/FHEM/30_HUEBridge.pm index 898074a32..7061cc9da 100644 --- a/fhem/FHEM/30_HUEBridge.pm +++ b/fhem/FHEM/30_HUEBridge.pm @@ -799,7 +799,7 @@ HUEBridge_Set($@) } elsif($cmd eq 'createrule' || $cmd eq 'updaterule') { return "usage: createrule " if( $cmd eq 'createrule' && @args < 2 ); - return "usage: updaterule " if( $cmd eq 'updaterule' && @args != 2 ); + return "usage: updaterule " if( $cmd eq 'updaterule' && @args < 2 ); $args[@args-1] = ' { "name":"Wall Switch Rule", @@ -809,7 +809,7 @@ HUEBridge_Set($@) "actions":[ {"address":"/groups/0/action","method":"PUT", "body":{"scene":"S3"}} ]}' if( 0 || !$args[@args-1] ); - my $json = $args[@args-1]; + my $json = join( ' ', @args[1..@args-1]); my $obj = eval { JSON->new->utf8(0)->decode($json) }; if( $@ ) { Log3 $name, 2, "$name: json error: $@ in $json"; @@ -830,10 +830,10 @@ HUEBridge_Set($@) return undef; } elsif($cmd eq 'updateschedule') { - return "usage: updateschedule " if( @args != 2 ); + return "usage: $cmd " if( @args < 2 ); return "$arg is not a hue schedule number" if( $arg !~ m/^\d+$/ ); - my $json = $args[@args-1]; + my $json = join( ' ', @args[1..@args-1]); my $obj = eval { JSON->new->utf8(0)->decode($json) }; if( $@ ) { Log3 $name, 2, "$name: json error: $@ in $json";