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

VD von Jan-Hinrich

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@993 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-09-04 07:02:38 +00:00
parent daf54f52c6
commit 4303ca7a73
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
fhem/FHEM/10_CUL_HM.pm
View File

@ -73,7 +73,7 @@ my %culHmModel=(
"002F" => "HM-SEC-SC",
"0030" => "HM-SEC-RHS", # Tested
"0034" => "HM-PBI-4-FM",
"0035" => "HM-PB-4-WM",
"0035" => "HM-PB-4-WM", # Tested
"0036" => "HM-PB-2-WM",
"0037" => "HM-RC-19",
"0038" => "HM-RC-19-B",
@ -329,6 +329,22 @@ CUL_HM_Parse($$)
if($id eq $dst && $cmd ne "8002");
} elsif($model eq "HM-CC-VD") { ###################
# CMD:8202 SRC:13F251 DST:15B50D 010100002A
if($cmd eq "8202" && $p =~ m/^(..)(..)(..)(..)/) { # status ACK to controlling HM-CC-TC
my ( $vp, $d1) =
(hex($3), $4);
$vp = int($vp/2.56+0.5); # valve position in %, encoding wrong ###!!!!###
push @event, "actuator:$vp %";
if($d1 eq "10") { push @event, "actuator:movement_open";
} elsif($d1 eq "20") { push @event, "actuator:movement_close";
}
}
CUL_HM_SendCmd($shash, "++8002$id${src}00",1,0) # Send Ack
if($id eq $dst && $cmd ne "8002");
} elsif($st eq "KFM100" && $model eq "KFM-Sensor") { ###################
if($p =~ m/.14(.)0200(..)(..)(..)/) {
@ -350,7 +366,8 @@ CUL_HM_Parse($$)
my $cv = ($r2r[$idx+3]-$r2r[$idx+1])*$f + $r2r[$idx+1];
my $unit = AttrVal($name, "unit", "");
$unit = " $unit" if($unit);
push @event, "state:$cv$unit";
push @event, "state:$cv $unit";
push @event, "content:$cv $unit";
last;
}
}
@ -416,8 +433,7 @@ CUL_HM_Parse($$)
if($cmd =~ m/^..41/ && $p =~ m/^01(......)/) {
$state = $1;
push @event, "state:motion";
push @event, "motion:"; #added peterp
# A0D258410143DFABC82AD0601240E
push @event, "motion:"; #added peterp # A0D258410143DFABC82AD0601240E
}
if($cmd =~ m/^.610/) {
push @event, "cover:closed" if($p =~ m/^0601..00$/); # By peterp
@ -743,6 +759,8 @@ CUL_HM_Set($@)
"Tue"=>"5 9B", "Thu"=>"5 CB", "Wed"=>"6 01",
"Fri"=>"6 31");
my ($list,$addr) = split(" ", $day2off{$1});
$addr = hex($addr);
return "To few arguments" if(@a < 4);
return "To many arguments, max is 24 pairs" if(@a > 50);