From 3c109fb2ec9a1d0cb9c41458d4a4bafbec3ff3f2 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 22 Aug 2015 12:22:15 +0000
Subject: [PATCH] 10_ZWave.pm: fix mcCapability classes (Forum #39525)

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

diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm
index 8a8bcea0f..d060a4275 100755
--- a/fhem/FHEM/10_ZWave.pm
+++ b/fhem/FHEM/10_ZWave.pm
@@ -977,6 +977,7 @@ sub
 ZWave_mcCapability($$)
 {
   my ($hash, $caps) = @_;
+  #Caps:= channelId,genericDeviceClass,specificDeviceClass,Class1,Class2,...
 
   my $name = $hash->{NAME};
   my $iodev = $hash->{IODev};
@@ -988,6 +989,7 @@ ZWave_mcCapability($$)
   my $id = $hash->{id};
 
   my @classes;
+  shift(@l); shift(@l); # Skip generic and specific class
   for my $classId (@l) {
     push @classes, $zwave_id2class{lc($classId)} ? 
         $zwave_id2class{lc($classId)} : "UNKNOWN_".uc($classId);
@@ -996,10 +998,10 @@ ZWave_mcCapability($$)
 
   if(!$modules{ZWave}{defptr}{"$homeId $id$chid"}) {
     my $lid = hex("$id$chid");
-    my $lcaps = substr($caps, 2);
+    my $lcaps = substr($caps, 6);
     $id = hex($id);
     DoTrigger("global",
-              "UNDEFINED ZWave_$classes[0]_$id.$chid ZWave $homeId $lid $caps",
+              "UNDEFINED ZWave_$classes[0]_$id.$chid ZWave $homeId $lid $lcaps",
               1);
   }