FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 14:04:15 +00:00
Code Issues Releases Wiki Activity

Bits added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1250 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-02-11 15:02:13 +00:00
parent bdbb63382e
commit 5e6f6ade39
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/10_CUL_HM.pm
View File

@ -1621,6 +1621,8 @@ my %culHmBits = (
); );
my @culHmCmdBits = ( "", "WAKEMEUP", "BCAST", "WAKEUP", "BURST", "BIDI", "RPTED", "RPTEN");
sub sub
CUL_HM_DumpProtocol($$@) CUL_HM_DumpProtocol($$@)
{ {
@ -1634,6 +1636,12 @@ CUL_HM_DumpProtocol($$@)
my $p02 = substr($p,0,4); my $p02 = substr($p,0,4);
my $p11 = (length($p) > 2 ? substr($p,2,2) : ""); 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 = "0A$1" if($cmd =~ m/0B(..)/);
$cmd = "A4$1" if($cmd =~ m/84(..)/); $cmd = "A4$1" if($cmd =~ m/84(..)/);
$cmd = "8000" if(($cmd =~ m/A40./ || $cmd eq "0400") && $len eq "1A"); $cmd = "8000" if(($cmd =~ m/A40./ || $cmd eq "0400") && $len eq "1A");
@ -1659,7 +1667,7 @@ CUL_HM_DumpProtocol($$@)
} }
$txt = " ($txt)" if($txt); $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; Log $l4, $msg;
DoTrigger($iname, $msg) if($ev); DoTrigger($iname, $msg) if($ev);
} }