mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

VD von Jan-Hinrich

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

24
FHEM/10_CUL_HM.pm
View File

@@ -73,7 +73,7 @@ my %culHmModel=(
"002F" => "HM-SEC-SC", "002F" => "HM-SEC-SC",
"0030" => "HM-SEC-RHS", # Tested "0030" => "HM-SEC-RHS", # Tested
"0034" => "HM-PBI-4-FM", "0034" => "HM-PBI-4-FM",
"0035" => "HM-PB-4-WM", "0035" => "HM-PB-4-WM", # Tested
"0036" => "HM-PB-2-WM", "0036" => "HM-PB-2-WM",
"0037" => "HM-RC-19", "0037" => "HM-RC-19",
"0038" => "HM-RC-19-B", "0038" => "HM-RC-19-B",
@@ -329,6 +329,22 @@ CUL_HM_Parse($$)
if($id eq $dst && $cmd ne "8002"); 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") { ################### } elsif($st eq "KFM100" && $model eq "KFM-Sensor") { ###################
if($p =~ m/.14(.)0200(..)(..)(..)/) { if($p =~ m/.14(.)0200(..)(..)(..)/) {
@@ -351,6 +367,7 @@ CUL_HM_Parse($$)
my $unit = AttrVal($name, "unit", ""); my $unit = AttrVal($name, "unit", "");
$unit = " $unit" if($unit); $unit = " $unit" if($unit);
push @event, "state:$cv $unit"; push @event, "state:$cv $unit";
push @event, "content:$cv $unit";
last; last;
} }
} }
@@ -416,8 +433,7 @@ CUL_HM_Parse($$)
if($cmd =~ m/^..41/ && $p =~ m/^01(......)/) { if($cmd =~ m/^..41/ && $p =~ m/^01(......)/) {
$state = $1; $state = $1;
push @event, "state:motion"; push @event, "state:motion";
push @event, "motion:"; #added peterp push @event, "motion:"; #added peterp # A0D258410143DFABC82AD0601240E
# A0D258410143DFABC82AD0601240E
} }
if($cmd =~ m/^.610/) { if($cmd =~ m/^.610/) {
push @event, "cover:closed" if($p =~ m/^0601..00$/); # By peterp 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", "Tue"=>"5 9B", "Thu"=>"5 CB", "Wed"=>"6 01",
"Fri"=>"6 31"); "Fri"=>"6 31");
my ($list,$addr) = split(" ", $day2off{$1}); my ($list,$addr) = split(" ", $day2off{$1});
$addr = hex($addr);
return "To few arguments" if(@a < 4); return "To few arguments" if(@a < 4);
return "To many arguments, max is 24 pairs" if(@a > 50); return "To many arguments, max is 24 pairs" if(@a > 50);