Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-06-17 05:40:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

00_HMUARTLGW.pm: improve timing compatibility with CUL (noansi)

Browse Source 
Patch from noansi, forum #122160


git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@25153 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mgernoth 2021-10-30 08:08:08 +00:00
parent 6ffe0b4717
commit 7d49ab9944
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
FHEM/00_HMUARTLGW.pm
View File

@ -1,5 +1,6 @@
##############################################
# $Id$
# noansi: modified for better timing compatibility with CUL
#
# HMUARTLGW provides support for the eQ-3 HomeMatic Wireless LAN Gateway
# (HM-LGW-O-TW-W-EU) and the eQ-3 HomeMatic UART module (HM-MOD-UART), which
@ -1447,17 +1448,24 @@ sub HMUARTLGW_Parse($$$$)
Log3($hash, 5, "HMUARTLGW ${name} Dispatch: ${dmsg}");
my $wait = 0;
if (!(hex($flags) & (1 << 5))) {
#!BIDI
$wait = 0.100;
} else {
$wait = 0.300;
}
$wait -= $hash->{Helper}{RoundTrip}{Delay} if (defined($hash->{Helper}{RoundTrip}{Delay}));
if ($modules{CUL_HM}{defptr}{$src}) {
my $flgh = hex($flags);
my $wait = 0.100;
$wait += 0.200 if ($flgh & (1 << 5) && # BIDI
$modules{CUL_HM}{defptr}{$src}->{IODev}->{TYPE} =~ m/^(?:TSCUL|HMUARTLGW)$/s);
$wait -= 0.044 if ($flgh & (1 << 6)); # received from Repeater
$modules{CUL_HM}{defptr}{$src}{helper}{io}{nextSend} = $recvtime + $wait
if ($modules{CUL_HM}{defptr}{$src} && $wait > 0);
$wait -= $hash->{Helper}{RoundTrip}{Delay}
if (defined($hash->{Helper}{RoundTrip}{Delay}));
if ($wait > 0) {
my $nextSend = $recvtime + $wait;
$modules{CUL_HM}{defptr}{$src}{helper}{io}{nextSend} = $nextSend
if (!defined($modules{CUL_HM}{defptr}{$src}{helper}{io}{nextSend}) ||
$nextSend < $modules{CUL_HM}{defptr}{$src}{helper}{io}{nextSend} ||
($recvtime - $modules{CUL_HM}{defptr}{$src}{helper}{io}{nextSend}) > 0.09); # not allready set by previous IO
}
}
Dispatch($hash, $dmsg, \%addvals);
}