Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

00_ZWCUL.pm: more detailed flag-logging

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@10138 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-12-09 11:50:29 +00:00
parent 29d9cf2a98
commit af29de636f
1 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
FHEM/00_ZWCUL.pm
View File

@ -285,9 +285,28 @@ ZWCUL_Parse($$$$)
$rmsg = lc($rmsg) if($rmsg =~ m/^z/); $rmsg = lc($rmsg) if($rmsg =~ m/^z/);
if($rmsg =~ m/^z(........)(..)(..)(..)(..)(..)(.*)(..)$/) { if($rmsg =~ m/^z(........)(..)(..)(..)(..)(..)(.*)(..)$/) {
my $me = $hash->{NAME};
my ($H, $S, $F, $f, $L, $T, $P, $C) = ($1,$2,$3,$4,$5,$6,$7,$8); my ($H, $S, $F, $f, $L, $T, $P, $C) = ($1,$2,$3,$4,$5,$6,$7,$8);
Log3 $hash, 5, "$H S:$S F:$F f:$f L:$L T:$T P:$P C:$C"; if(AttrVal($me, "verbose", 1) > 4) {
return if(AttrVal($hash->{NAME}, "noDispatch", 0)); Log3 $hash, 5, "$H S:$S F:$F f:$f L:$L T:$T P:$P C:$C";
my $hF=hex($F);
Log3 $hash, 5, " F:".unpack("B*",chr($hF)).
(($hF&0xf)==1 ? " singleCast" :
($hF&0xf)==2 ? " multiCast" :
($hF&0xf)==3 ? " ack" : " unknownHeaderType").
(($hF&0x10)==0x10 ? " lowSpeed" : "").
(($hF&0x20)==0x20 ? " lowPower" : "").
(($hF&0x40)==0x40 ? " ackReq" : "").
(($hF&0x80)==0x80 ? " routed" : "");
my $hf=hex($f);
Log3 $hash, 5, " f:".unpack("B*",chr(($hf))).
" seqNum:".($hf&0xf).
(($hf&0x10)==0x10 ? " wakeUpBeam":"").
(($hf&0xe0) ? " unknownBits":"");
}
return if(AttrVal($me, "noDispatch", 0));
$hash->{homeId} = $H; $hash->{homeId} = $H;
@ -303,10 +322,9 @@ ZWCUL_Parse($$$$)
# Auto-Add classes # Auto-Add classes
my $pcl = $zwave_id2class{substr($P, 0, 2)}; my $pcl = $zwave_id2class{substr($P, 0, 2)};
if($th && $pcl) { if($th && $pcl) {
my $cl = AttrVal($th->{NAME},"classes",""); my $tname = $th->{NAME};
if($cl !~ m/\b$pcl\b/) { my $cl = AttrVal($tname, "classes", "");
$attr{$th->{NAME}}{classes} = "$cl $pcl"; $attr{$tname}{classes} = "$cl $pcl" if($cl !~ m/\b$pcl\b/);
}
} }
} else { } else {
@ -499,6 +517,10 @@ ZWCUL_Ready($)
<li><a name="#noDispatch">noDispatch</a><br> <li><a name="#noDispatch">noDispatch</a><br>
prohibit dispatching messages or creating ZWave devices. prohibit dispatching messages or creating ZWave devices.
</li> </li>
<li>verbose<br>
If the verbose attribute of this device (not global!) is set to 5 or
higher, then detailed logging of the RF message will be done.
</li>
</ul> </ul>
<br> <br>