From b632ca2b65a27bcfa7becb7c3399d676eff96d29 Mon Sep 17 00:00:00 2001 From: rudolfkoenig <> Date: Mon, 27 Dec 2010 19:19:07 +0000 Subject: [PATCH] Fix of the Fix of the Fix. Hopefully the last timed dimmer command fix git-svn-id: https://svn.fhem.de/fhem/trunk@784 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_FS20.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/fhem/FHEM/10_FS20.pm b/fhem/FHEM/10_FS20.pm index b078c42a7..74ddcb5c5 100755 --- a/fhem/FHEM/10_FS20.pm +++ b/fhem/FHEM/10_FS20.pm @@ -189,21 +189,21 @@ FS20_Set($@) my $val; if($na == 3) { # Timed command. - $c = sprintf("%02X", $c & 0x20); # Set the extension bit + $c = sprintf("%02X", (hex($c) | 0x20)); # Set the extension bit ######################## # Calculating the time. LOOP: for(my $i = 0; $i <= 12; $i++) { for(my $j = 0; $j <= 15; $j++) { - $val = (2**$i)*$j*0.25; - if($val >= $a[2]) { + $val = (2**$i)*$j*0.25; + if($val >= $a[2]) { if($val != $a[2]) { $ret = "FS20 Setting timeout to $val from $a[2]"; Log GetLogLevel($a[0],2), $ret; - } - $c .= sprintf("%x%x", $i, $j); - last LOOP; - } + } + $c .= sprintf("%x%x", $i, $j); + last LOOP; + } } } return "Specified timeout too large, max is 15360" if(length($c) == 2);