FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-18 05:56:03 +00:00
Code Issues Releases Wiki Activity

36_LaCrosseGateway.pm: fixed crazy logging when no connect is possible

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12214 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hcs-svn 2016-09-26 20:13:32 +00:00
parent 0e2fbaf10a
commit 97dc2bcec2
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fhem/FHEM/36_LaCrosseGateway.pm
View File

@ -216,11 +216,11 @@ sub LaCrosseGateway_DoInit($) {
}
#=======================================================================================
sub LaCrosseGateway_Ready($) {
my ($hash) = @_;
my $name = $hash->{NAME};
return LaCrosseGateway_Connect($hash) if($hash->{STATE} eq "disconnected");
LaCrosseGateway_Connect($hash, 1);
# This is relevant for windows/USB only
my $po = $hash->{USBDev};
@ -414,13 +414,14 @@ sub LaCrosseGateway_SimpleWrite(@) {
}
#=======================================================================================
sub LaCrosseGateway_Connect($) {
my ($hash) = @_;
sub LaCrosseGateway_Connect($;$) {
my ($hash, $mode) = @_;
my $name = $hash->{NAME};
$mode = 0 if!($mode);
my $enabled = AttrVal($name, "disable", "0") != "1";
if($enabled) {
my $ret = DevIo_OpenDev($hash, 0, "LaCrosseGateway_DoInit");
my $ret = DevIo_OpenDev($hash, $mode, "LaCrosseGateway_DoInit");
return $ret;
}
@ -431,11 +432,12 @@ sub LaCrosseGateway_Connect($) {
sub LaCrosseGateway_OnConnectTimer($) {
my ($hash) = @_;
my $name = $hash->{NAME};
RemoveInternalTimer($hash, "LaCrosseGateway_OnConnectTimer");
my $attrVal = AttrVal($name, "timeout", undef);
if(defined($attrVal)) {
my ($timeout, $interval) = split(',', $attrVal);
InternalTimer(gettimeofday() + $interval, "LaCrosseGateway_OnConnectTimer", $hash, 0);
my $LaCrosseGatewayTime = InternalVal($name, "${name}_TIME", "2000-01-01 00:00:00");
my ($date, $time, $year, $month, $day, $hour, $min, $sec, $timestamp);
($date, $time) = split( ' ', $LaCrosseGatewayTime);
@ -444,8 +446,10 @@ sub LaCrosseGateway_OnConnectTimer($) {
$month -= 01;
$timestamp = timelocal($sec, $min, $hour, $day, $month, $year);
InternalTimer(gettimeofday() + $interval, "LaCrosseGateway_OnConnectTimer", $hash, 0);
if (gettimeofday() - $timestamp > $timeout) {
return LaCrosseGateway_Connect($hash);
return LaCrosseGateway_Connect($hash, 1);
}
}
}