From 4821d0cc4fe97b7c97dc8b0e5a51a9f4d120637d Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 28 Aug 2016 09:21:29 +0000
Subject: [PATCH] 10_ZWave.pm: Fix useless usage message at init (Forum #40992)

git-svn-id: https://svn.fhem.de/fhem/trunk@12084 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_ZWave.pm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm
index 9c018a3a0..2fbc6669a 100755
--- a/fhem/FHEM/10_ZWave.pm
+++ b/fhem/FHEM/10_ZWave.pm
@@ -298,7 +298,7 @@ my %zwave_class = (
                                  '(hex($1)&0x80 ? ", dynamic":"").'.
                                  '(hex($1)&0x40 ? ", identical":", different")',
                "^..600a(.*)"=> 'ZWave_mcCapability($hash, $1)' },
-    init  => { ORDER=>49, CMD => '"set $NAME mcCreateAll"' } },
+    init  => { ORDER=>49, CMD => '"set $NAME -silent mcCreateAll"' } },
   ZIP_PORTAL               => { id => '61' },
   DOOR_LOCK                => { id => '62', # V2
     set   => { doorLockOperation   => 'ZWave_DoorLockOperationSet($hash, "%s")',
@@ -353,7 +353,7 @@ my %zwave_class = (
                           => 'ZWave_mfsParse($hash,$1,$2,$3,1)',
                "0[8a]7205(....)(.{4})(.{4})(.*)"
                           => 'ZWave_mfsParse($hash,$1,$2,$3,2)' },
-    init  => { ORDER=>49, CMD => '"get $NAME model"' } },
+    init  => { ORDER=>49, CMD => '"get $NAME -silent model"' } },
   POWERLEVEL               => { id => '73',
     set   => { powerlevel     => "01%02x%02x",
                powerlevelTest => "04%02x%02x%04x" },
@@ -411,7 +411,8 @@ my %zwave_class = (
                "..840a(......)(......)(......)(......)" =>
                         '"wakeupIntervalCapabilitiesReport:min ".hex($1).'.
                         '" max ".hex($2)." default ".hex($3)." step ".hex($4)'},
-    init  => { ORDER=>11, CMD => '"set $NAME wakeupInterval 86400 $CTRLID"' } },
+    init  => { ORDER=>11,
+                CMD => '"set $NAME -silent wakeupInterval 86400 $CTRLID"' } },
   ASSOCIATION              => { id => '85',
     set   => { associationAdd => "01%02x%02x*",
                associationDel => "04%02x%02x*" },
@@ -420,7 +421,8 @@ my %zwave_class = (
                associationAll       => 'ZWave_associationAllGet($hash,"")' },
     parse => { "..8503(..)(..)..(.*)" => 'ZWave_assocGroup($homeId,$1,$2,$3)',
                "..8506(..)"           => '"assocGroups:".hex($1)' },
-    init  => { ORDER=>10, CMD=> '"set $NAME associationAdd 1 $CTRLID"' } },
+    init  => { ORDER=>10,
+                CMD => '"set $NAME -silent associationAdd 1 $CTRLID"'} },
   VERSION                  => { id => '86',
     get   => { version      => "11",
                versionClass => 'ZWave_versionClassGet($hash, "%s")',
@@ -435,7 +437,7 @@ my %zwave_class = (
                  '%d.%02d App %d.%d HW %d FWCounter %d FW %d.%d",'.
                  'unpack("C*",pack("H*","$1")))',
                "048614(..)(..)"     => '"versionClass_".hex($1).":".hex($2)' },
-   init  => { ORDER=>12, CMD => '"get $NAME versionClassAll"' } },
+   init  => { ORDER=>1, CMD => '"get $NAME versionClassAll"' } },
   INDICATOR                => { id => '87',
     set   => { indicatorOff    => "0100",
                indicatorOn     => "01FF",
@@ -558,7 +560,7 @@ our %zwave_deviceSpecial;
    ZME_KFOB => {
      ZWAVEPLUS_INFO => {
       # Example only. ORDER must be >= 50
-      init => { ORDER=>50, CMD => '"get $NAME zwavePlusInfo"' } } }
+      init => { ORDER=>50, CMD => '"get $NAME -silent zwavePlusInfo"' } } }
 );
 
 my $zwave_cryptRijndael = 0;
@@ -770,6 +772,7 @@ ZWave_Cmd($$@)
   my ($type, $hash, @a) = @_;
   return "no $type argument specified" if(int(@a) < 2);
   my $name = shift(@a);
+  my $silent = shift(@a) if($a[0] eq "-silent");
   my $cmd  = shift(@a);
 
   # Collect the commands from the distinct classes
@@ -812,6 +815,8 @@ ZWave_Cmd($$@)
   }
 
   if(!$cmdList{$cmd}) {
+    return "" if($silent);
+
     my @list;
     my $mc = ReadingsVal($hash->{NAME}, "modelConfig", "");
     foreach my $lcmd (sort keys %cmdList) {