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

bugfix $$3

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2845 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2013-03-03 07:07:20 +00:00
parent 150fa00840
commit f101f5118b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/10_CUL_HM.pm
View File

@ -493,7 +493,6 @@ sub CUL_HM_Parse($$) {#############################
my $st = AttrVal($name, "subType", ""); my $st = AttrVal($name, "subType", "");
my $model = AttrVal($name, "model", ""); my $model = AttrVal($name, "model", "");
my $tn = TimeNow(); my $tn = TimeNow();
CUL_HM_storeRssi($name, CUL_HM_storeRssi($name,
"at_".((hex($msgFlag)&0x40)?"rpt_":"").$ioName,# repeater? "at_".((hex($msgFlag)&0x40)?"rpt_":"").$ioName,# repeater?
$myRSSI); $myRSSI);
@ -807,7 +806,7 @@ sub CUL_HM_Parse($$) {#############################
elsif($st eq "KFM100" && $model eq "KFM-Sensor") { ########################## elsif($st eq "KFM100" && $model eq "KFM-Sensor") { ##########################
if ($msgType eq "53"){ if ($msgType eq "53"){
if($p =~ m/.14(.)0200(..)(..)(..)/) { if($p =~ m/.14(.)0200(..)(..)(..)/) {
my ($seq, $k_v1, $k_v2, $k_v3) = (hex($1),$2,hex($$3),hex($4)); my ($seq, $k_v1, $k_v2, $k_v3) = (hex($1),$2,hex($3),hex($4));
my $v = 128-$k_v2; # FIXME: calibrate my $v = 128-$k_v2; # FIXME: calibrate
$v += 256 if(!($k_v3 & 1)); $v += 256 if(!($k_v3 & 1));
push @event, "rawValue:$v"; push @event, "rawValue:$v";
@ -1338,7 +1337,8 @@ sub CUL_HM_Parse($$) {#############################
push @event, "noReceiver:src:$src ($cmd) $p" if(!@event); push @event, "noReceiver:src:$src ($cmd) $p" if(!@event);
CUL_HM_UpdtReadBulk($shash,1,@event); #events to the channel CUL_HM_UpdtReadBulk($shash,1,@event); #events to the channel
$defs{$shash->{NAME}}{EVENTS}++; # count events for channel $defs{$shash->{NAME}}{EVENTS}++; # count events for channel
foreach (@entities){ push @entities,$shash->{NAME};
foreach (CUL_HM_noDup(@entities)){
DoTrigger($_, undef) if ($_ ne $name); DoTrigger($_, undef) if ($_ ne $name);
} }
return $name ;#general notification to the device return $name ;#general notification to the device