FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-23 20:52:13 +00:00
Code Issues Releases Wiki Activity

CUL_HM:update pct command. statusRequest will be repeated if not answered and enabled

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23853 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2021-02-28 17:20:19 +00:00
parent fe14a1d1d5
commit 9d4fe922ba
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/10_CUL_HM.pm
View File

@ -5036,6 +5036,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
foreach my $channel (@chnIdList){ foreach my $channel (@chnIdList){
my $chnNo = substr($channel,6,2); my $chnNo = substr($channel,6,2);
CUL_HM_PushCmdStack($hash,"++".$flag.'01'.$id.$dst.$chnNo.'0E'); CUL_HM_PushCmdStack($hash,"++".$flag.'01'.$id.$dst.$chnNo.'0E');
CUL_HM_stateUpdatDly($name,20);
} }
$state = ""; $state = "";
} }
@ -5406,7 +5407,7 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
$duration = $a[3]; $duration = $a[3];
$tval = CUL_HM_encodeTime16($duration);# onTime 0.05..85825945.6, 0=forever $tval = CUL_HM_encodeTime16($duration);# onTime 0.05..85825945.6, 0=forever
} }
$rval = CUL_HM_encodeTime16((@a > 4)?$a[4]:2.5);# rampTime 0.0..85825945.6, 0=immediate $rval = CUL_HM_encodeTime16($a[4]);# rampTime 0.0..85825945.6, 0=immediate
$hash->{helper}{stateUpdatDly} = ($duration>120)?$duration:120; $hash->{helper}{stateUpdatDly} = ($duration>120)?$duration:120;
} }
# store desiredLevel in and its Cmd in case we have to repeat # store desiredLevel in and its Cmd in case we have to repeat
@ -9024,7 +9025,7 @@ sub CUL_HM_decodeTime8($) {#####################
} }
sub CUL_HM_encodeTime16($) {#################### sub CUL_HM_encodeTime16($) {####################
my $v = shift; my $v = shift;
return "0000" if($v < 0.05 || $v !~ m/^[+-]?\d+(\.\d+)?$/); return "0000" if($v !~ m/^[+-]?\d+(\.\d+)?$/ || $v < 0.05);
my $ret = "FFFF"; my $ret = "FFFF";
my $mul = 10; my $mul = 10;