diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm index bddab7b44..a30933c7c 100755 --- a/FHEM/10_CUL_HM.pm +++ b/FHEM/10_CUL_HM.pm @@ -1621,6 +1621,8 @@ my %culHmBits = ( ); +my @culHmCmdBits = ( "", "WAKEMEUP", "BCAST", "WAKEUP", "BURST", "BIDI", "RPTED", "RPTEN"); + sub CUL_HM_DumpProtocol($$@) { @@ -1634,6 +1636,12 @@ CUL_HM_DumpProtocol($$@) my $p02 = substr($p,0,4); my $p11 = (length($p) > 2 ? substr($p,2,2) : ""); + my $cmdInt = hex($cmd)>>8; + my $cmdBits="TYPE=".(hex($cmd)&0xff); + for(my $i = 0; $i < @culHmCmdBits; $i++) { + $cmdBits .= ",$culHmCmdBits[$i]" if($cmdInt & (1<<$i)); + } + $cmd = "0A$1" if($cmd =~ m/0B(..)/); $cmd = "A4$1" if($cmd =~ m/84(..)/); $cmd = "8000" if(($cmd =~ m/A40./ || $cmd eq "0400") && $len eq "1A"); @@ -1659,7 +1667,7 @@ CUL_HM_DumpProtocol($$@) } $txt = " ($txt)" if($txt); } - my $msg = "$prefix L:$len N:$cnt CMD:$cmd SRC:$src DST:$dst $p$txt"; + my $msg = "$prefix L:$len N:$cnt CMD:$cmd ($cmdBits) SRC:$src DST:$dst $p$txt"; Log $l4, $msg; DoTrigger($iname, $msg) if($ev); }