FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 05:16:45 +00:00
Code Issues Releases Wiki Activity

correct rain sensor heating

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3574 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2013-08-02 05:54:35 +00:00
parent 503f7fff96
commit c0bd57cdaa
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/10_CUL_HM.pm
View File

@ -425,7 +425,7 @@ sub CUL_HM_Attr(@) {#################################
,"HM-Sen-RD-O" =>{"00"=>"dry" ,"C8"=>"rain"} ,"HM-Sen-RD-O" =>{"00"=>"dry" ,"C8"=>"rain"}
} }
,mdCh=>{ "HM-Sen-RD-O01" =>{"00"=>"dry" ,"C8"=>"rain"} ,mdCh=>{ "HM-Sen-RD-O01" =>{"00"=>"dry" ,"C8"=>"rain"}
,"HM-Sen-RD-O02" =>{"00"=>"on" ,"C8"=>"off"} ,"HM-Sen-RD-O02" =>{"00"=>"off" ,"C8"=>"on"}
} }
,st =>{ "smokeDetector" =>{"01"=>"no alarm","C7"=>"tone off","C8"=>"Smoke Alarm"} ,st =>{ "smokeDetector" =>{"01"=>"no alarm","C7"=>"tone off","C8"=>"Smoke Alarm"}
,"threeStateSensor"=>{"00"=>"closed" ,"64"=>"tilted" ,"C8"=>"open"} ,"threeStateSensor"=>{"00"=>"closed" ,"64"=>"tilted" ,"C8"=>"open"}
@ -773,8 +773,8 @@ sub CUL_HM_Parse($$) {##############################
my $lvl = substr($p,4,2); my $lvl = substr($p,4,2);
my $err = hex(substr($p,6,2)); my $err = hex(substr($p,6,2));
if ($lvlStr{md}{$md}){$lvl = $lvlStr{md}{$md}{$lvl}} if ($lvlStr{md}{$md}){$lvl = $lvlStr{md}{$md}{$lvl}}
elsif ($lvlStr{st}{$st}) {$lvl = $lvlStr{st}{$st}{$lvl} } elsif ($lvlStr{st}{$st}){$lvl = $lvlStr{st}{$st}{$lvl} }
else {$lvl = hex($lvl)/2} else {$lvl = hex($lvl)/2}
push @event, "level:$lvl %" if($md eq "HM-Sen-Wa-Od"); push @event, "level:$lvl %" if($md eq "HM-Sen-Wa-Od");
push @event, "state:$lvl %"; push @event, "state:$lvl %";
@ -2218,9 +2218,6 @@ sub CUL_HM_Set($@) {
if($st eq "blindActuator") { # need to stop blind to protect relais if($st eq "blindActuator") { # need to stop blind to protect relais
CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'03'.$chn) CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'03'.$chn)
} }
elsif ($md eq "HM-Sen-RD-O"){# on<->off for this sensor...
$lvl = ($lvl eq "00")?"C8":"00";
}
CUL_HM_PushCmdStack($hash,"++$flag"."11$id$dst"."02$chn$lvl".'0000'); CUL_HM_PushCmdStack($hash,"++$flag"."11$id$dst"."02$chn$lvl".'0000');
$hash = $chnHash; # report to channel if defined $hash = $chnHash; # report to channel if defined
} }
@ -2238,8 +2235,7 @@ sub CUL_HM_Set($@) {
return "please enter the duration in seconds" return "please enter the duration in seconds"
if (!defined $duration || $duration !~ m/^[+-]?\d+(\.\d+)?$/); if (!defined $duration || $duration !~ m/^[+-]?\d+(\.\d+)?$/);
my $tval = CUL_HM_encodeTime16($duration);# onTime 0.0..85825945.6, 0=forever my $tval = CUL_HM_encodeTime16($duration);# onTime 0.0..85825945.6, 0=forever
my $lvl = ($md eq "HM-Sen-RD-O")?"00":"C8"; CUL_HM_PushCmdStack($hash,"++$flag"."11$id$dst"."02$chn"."C80000$tval");
CUL_HM_PushCmdStack($hash,"++$flag"."11$id$dst"."02$chn$lvl"."C80000$tval");
$hash = $chnHash; # report to channel if defined $hash = $chnHash; # report to channel if defined
} }
elsif($cmd eq "lock") { ##################################################### elsif($cmd eq "lock") { #####################################################