From a933181110e3bc6e9c3a5d2c80eab1db005bb7d2 Mon Sep 17 00:00:00 2001 From: rudolfkoenig <> Date: Fri, 8 Jan 2016 09:21:57 +0000 Subject: [PATCH] 00_ZWDongle.pm: change addNode params to be "drowpdown" ready (Forum #46977) git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@10406 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- FHEM/00_ZWDongle.pm | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) diff --git a/FHEM/00_ZWDongle.pm b/FHEM/00_ZWDongle.pm index a40c6c57b..11ed2e769 100755 --- a/FHEM/00_ZWDongle.pm +++ b/FHEM/00_ZWDongle.pm @@ -22,7 +22,8 @@ sub ZWDongle_ProcessSendStack($); # https://bitbucket.org/bradsjm/aeonzstickdriver my %sets = ( "addNode" => { cmd => "4a%02x@", # ZW_ADD_NODE_TO_NETWORK' - param => {nwOn=>0xc1, on=>0x81, off=>0x05 } }, + param => { nwOn=>0xc1, on=>0x81, off=>0x05, + secNwOn=>0xc1, secOn=>0x81 } }, "removeNode" => { cmd => "4b%02x@", # ZW_REMOVE_NODE_FROM_NETWORK' param => {nwOn=>0xc1, on=>0x81, off=>0x05 } }, "createNode" => { cmd => "60%02x" }, # ZW_REQUEST_NODE_INFO' @@ -171,6 +172,14 @@ ZWDongle_Set($@) return "$type is unsupported by this controller"; } + if($type eq "addNode") { + if($a[0] && $a[0] =~ m/sec/i) { + $hash->{addSecure} = 1; + } else { + delete($hash->{addSecure}); + } + } + my $par = $sets{$type}{param}; if($par && !$par->{noArg}) { return "Unknown argument for $type, choose one of ".join(" ",keys %{$par}) @@ -186,13 +195,6 @@ ZWDongle_Set($@) $cmd =~ s/\@/$c/g; } - if($type eq "addNode") { - if(@a == 2 && $a[1] =~ m/^sec/i) { - $hash->{addSecure} = pop(@a); - } else { - delete($hash->{addSecure}); - } - } my @ca = split("%", $cmd, -1); my $nargs = int(@ca)-1; @@ -740,7 +742,7 @@ ZWDongle_Ready($) Set