From 4d3fdab4c666eab64f77a94bae00d7a7b574a765 Mon Sep 17 00:00:00 2001 From: justme1968 Date: Sat, 26 Apr 2014 19:19:53 +0000 Subject: [PATCH] revert last checkin real fix for cmdline parsing git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5673 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/33_readingsProxy.pm | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/fhem/FHEM/33_readingsProxy.pm b/fhem/FHEM/33_readingsProxy.pm index cd215df79..8f18697f3 100644 --- a/fhem/FHEM/33_readingsProxy.pm +++ b/fhem/FHEM/33_readingsProxy.pm @@ -52,10 +52,19 @@ readingsProxy_updateDevices($) delete $hash->{READING}; my @params = split(" ", $hash->{DEF}); - if( defined($defs{$params[0]}) ) { - $list{$params[0]} = 1; - $hash->{DEVICE} = $params[0]; - $hash->{READING} = $params[1]; + while (@params) { + my $param = shift(@params); + + my @device = split(":", $param); + + if( defined($defs{$device[0]}) + && defined($defs{$device[0]}) ) { + $list{$device[0]} = 1; + $hash->{DEVICE} = $device[0]; + $hash->{READING} = $device[1]; + + $hash->{READING} = "state" if( !$hash->{READING} ); + } } $hash->{CONTENT} = \%list; @@ -69,7 +78,7 @@ sub readingsProxy_Define($$) my @args = split("[ \t]+", $def); - return "Usage: define readingsProxy +" if(@args < 3); + return "Usage: define readingsProxy :" if(@args != 3); my $name = shift(@args); my $type = shift(@args);