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

00_THZ.pm: improvement in communication for slow interfaces v0.114

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7237 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
immiimmi 2014-12-16 19:58:34 +00:00
parent fe76f9e923
commit 07aca75943
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/00_THZ.pm
View File

@ -2,7 +2,7 @@
# 00_THZ
# $Id$
# by immi 12/2014
my $thzversion = "0.113";
my $thzversion = "0.114";
# 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 (($data =~ m/^01/) and ($data !~ m/1003$/m ) and ($count <= 15))
{ my $buf1 = DevIo_SimpleReadWithTimeout($hash, 0.04);
while (($data =~ m/^01/) and ($data !~ m/1003$/m ) and ($count <= 20))
{ my $buf1 = DevIo_SimpleReadWithTimeout($hash, 0.05);
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 15" , $data) if ($count == 16);
return ("WInterface max repeat limited to 20" , $data) if ($count == 21);
Log3 $hash->{NAME}, 5, "THZ_ReadAnswer: uc unpack: '$data'";
return (undef, $data);
}