From 88d499cf7ec0cd828c7072c99a6378c81b4f4054 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 18 May 2017 12:57:35 +0000
Subject: [PATCH] 10_ZWave.pm: add suffix to config cmd with the same label
 (Forum #72092)

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

diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm
index f88d8b789..8947ad0a7 100755
--- a/fhem/FHEM/10_ZWave.pm
+++ b/fhem/FHEM/10_ZWave.pm
@@ -2507,7 +2507,7 @@ ZWave_configParseModel($;$)
     return 0;
   }
 
-  my ($ret, $line, $class, %hash, $cmdName, %classInfo, %group);
+  my ($ret, $line, $class, %hash, $cmdName, %classInfo, %group, $origName);
   while($gz->gzreadline($line)) {       # Search the "file" entry
     if($line =~ m/^\s*<Product.*sourceFile="$cfg"/) {
       $ret = 1;
@@ -2537,9 +2537,15 @@ ZWave_configParseModel($;$)
       $h{read_only}  = $1 if($line =~ m/read_only="([^"]*)"/i); # true,false
       $h{write_only} = $1 if($line =~ m/write_only="([^"]*)"/i); # true,false
       my ($cmd,$shortened) = ZWave_cleanString($h{label}, $h{index}, 0);
-      $cmdName = "config$cmd";
+      $origName = "config$cmd";
+      $cmdName = $origName;
+      my $index = 1;
+      while($hash{$cmdName}) {
+        $cmdName = $origName."_".(++$index);
+      }
       $h{Help} = "";
-      $h{Help} .= "Full text for $cmdName is: $h{label}<br>" if($shortened);
+      $h{Help} .= "Full text for $cmdName is: $h{label}<br>"
+        if($shortened || $origName ne $cmdName);
       $hash{$cmdName} = \%h;
     }