From e7819fbd0874f60ef12d328b10fbf6b6fd9ba7c9 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sun, 12 Sep 2021 06:46:07 +0000
Subject: [PATCH] CUL_HM:change IO clients support detection, ignore empty
 peerlist at vccu update

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

diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index a4c2f23b4..b1454ab14 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -992,7 +992,11 @@ sub CUL_HM_Attr(@) {#################################
       $attrVal =~ s/ //g; 
       my @newIO = CUL_HM_noDup(split(",",$attrVal));
       foreach my $nIO (@newIO){
-        return "$nIO does not support CUL_HM" if(InternalVal($nIO,"Clients","") !~ m /:CUL_HM:/);
+        return "$nIO does not support CUL_HM" if(InternalVal($nIO,"Clients",
+                                                             defined $modules{InternalVal($nIO,"TYPE","")}{Clients}
+                                                                   ? $modules{InternalVal($nIO,"TYPE","")}{Clients}
+                                                                   :"")
+                                                   !~ m /:CUL_HM:/);
       }
       if($attr{$name}{$attrName}){# see who we lost
         foreach my $oldIOs (split(",",$attr{$name}{$attrName})){
@@ -10696,6 +10700,7 @@ sub CUL_HM_UpdtCentral($){
                                    grep{AttrVal($_,"peerIDs","") =~ m/$id/} 
                                    keys %defs)){
     # now for each ccu Channel, that ist peered with someone. 
+    next if ($ccuBId !~ m/^[0-9A-F]{8}$/);
     my $btn = hex(substr($ccuBId,6,2)) + 0;
     CommandDefine(undef,$name."_Btn$btn CUL_HM $ccuBId") if (!$modules{CUL_HM}{defptr}{$ccuBId});
     foreach my $pn (grep !/^$/,