diff --git a/fhem/FHEM/00_THZ.pm b/fhem/FHEM/00_THZ.pm index 18e4735c7..71953b741 100644 --- a/fhem/FHEM/00_THZ.pm +++ b/fhem/FHEM/00_THZ.pm @@ -1,8 +1,8 @@ ############################################## # 00_THZ # $Id$ -# by immi 11/2014 -my $thzversion = "0.112"; +# by immi 12/2014 +my $thzversion = "0.113"; # this code is based on the hard work of Robert; I just tried to port it # http://robert.penz.name/heat-pump-lwz/ # http://heatpumpmonitor.penz.name/heatpumpmonitorwiki/ @@ -710,8 +710,8 @@ sub THZ_ReadAnswer($) my $data = uc(unpack('H*', $buf)); my $count =1; - while ((length($data) > 4) and ($data !~ m/1003$/m ) and ($count <= 10)) - { my $buf1 = DevIo_SimpleReadWithTimeout($hash, 0.05); + while (($data =~ m/^01/) and ($data !~ m/1003$/m ) and ($count <= 15)) + { my $buf1 = DevIo_SimpleReadWithTimeout($hash, 0.04); Log3($hash->{NAME}, 5, "double read $count activated $data"); if(defined($buf1)) { @@ -721,7 +721,7 @@ sub THZ_ReadAnswer($) } $count ++; } - return ("WInterface max repeat limited to 10" , $data) if ($count == 11); + return ("WInterface max repeat limited to 15" , $data) if ($count == 16); Log3 $hash->{NAME}, 5, "THZ_ReadAnswer: uc unpack: '$data'"; return (undef, $data); } @@ -1419,15 +1419,6 @@ return ($FW_RETTYPE, $ret);
If the attributes interval_allFB and interval_history are not defined (or 0), their internal polling is disabled. - Clearly you can also define the polling interval outside the module with the "at" command. -
- -
@@ -1482,14 +1473,6 @@ return ($FW_RETTYPE, $ret);
Wenn die Attribute interval_allFB und interval_history nicht definiert sind (oder 0), ist das interne Polling deaktiviert. - Natürlich kann das Polling auch mit dem "at" Befehl ausserhalb des Moduls definiert werden. -
-