mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
CUL_HM:change IO clients support detection, ignore empty peerlist at vccu update
git-svn-id: https://svn.fhem.de/fhem/trunk@24961 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
parent
0fb0c4be39
commit
000893273f
@ -992,7 +992,11 @@ sub CUL_HM_Attr(@) {#################################
|
|||||||
$attrVal =~ s/ //g;
|
$attrVal =~ s/ //g;
|
||||||
my @newIO = CUL_HM_noDup(split(",",$attrVal));
|
my @newIO = CUL_HM_noDup(split(",",$attrVal));
|
||||||
foreach my $nIO (@newIO){
|
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
|
if($attr{$name}{$attrName}){# see who we lost
|
||||||
foreach my $oldIOs (split(",",$attr{$name}{$attrName})){
|
foreach my $oldIOs (split(",",$attr{$name}{$attrName})){
|
||||||
@ -10696,6 +10700,7 @@ sub CUL_HM_UpdtCentral($){
|
|||||||
grep{AttrVal($_,"peerIDs","") =~ m/$id/}
|
grep{AttrVal($_,"peerIDs","") =~ m/$id/}
|
||||||
keys %defs)){
|
keys %defs)){
|
||||||
# now for each ccu Channel, that ist peered with someone.
|
# 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;
|
my $btn = hex(substr($ccuBId,6,2)) + 0;
|
||||||
CommandDefine(undef,$name."_Btn$btn CUL_HM $ccuBId") if (!$modules{CUL_HM}{defptr}{$ccuBId});
|
CommandDefine(undef,$name."_Btn$btn CUL_HM $ccuBId") if (!$modules{CUL_HM}{defptr}{$ccuBId});
|
||||||
foreach my $pn (grep !/^$/,
|
foreach my $pn (grep !/^$/,
|
||||||
|
Loading…
Reference in New Issue
Block a user