Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

KFM100 changes from STefan

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@929 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-07-06 06:22:31 +00:00
parent 867fe7a1f9
commit e1c8fd4a43
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
FHEM/10_CUL_HM.pm
View File

@ -454,10 +454,8 @@ CUL_HM_Parse($$)
} elsif($st eq "winMatic") { ####################################
Log 1, "WM";
if($cmd eq "A410" && $p =~ m/^0601(..)(..)/) {
my ($lst, $flg) = ($1, $2);
Log 1, "WM1";
if($lst eq "C8" && $flg eq "00") { push @event, "contact:tilted";
} elsif($lst eq "FF" && $flg eq "00") { push @event, "contact:closed";
} elsif($lst eq "00" && $flg eq "10") { push @event, "contact:movement_tilted";
@ -471,7 +469,6 @@ Log 1, "WM1";
if($cmd eq "A010" && $p =~ m/^0287(..)89(..)8B(..)/) {
my ($air, undef, $course) = ($1, $2, $3);
Log 1, "WM2";
push @event, "airing:".
($air eq "FF" ? "inactiv" : CUL_HM_decodeTime8($air));
push @event, "course:".($course eq "FF" ? "tilt" : "close");
@ -499,10 +496,13 @@ Log 1, "WM2";
if($p =~ m/.14(.)0200(..)(..)(..)/) {
my ($k_cnt, $k_v1, $k_v2, $k_v3) = ($1,$2,$3,$4);
my $v = 128-hex($k_v2); # FIXME: calibrate
$v = 256+$v if($v < 0);
# $v = 256+$v if($v < 0);
$v += 256 if(!($k_v3 & 1));
push @event, "rawValue:$v";
my $seq = hex($k_cnt);
push @event, "Sequence:$seq";
my $r2r = AttrVal($name, "rawToReadable", undef);
if($r2r) {
my @r2r = split("[ :]", $r2r);