From 0051426f7fd9ffa31ae281d99ff08e72fc8938e8 Mon Sep 17 00:00:00 2001 From: Philipp Wo Date: Sat, 23 Nov 2019 12:47:42 +0100 Subject: [PATCH] set update intervall per attr --- 98_TadoAPI.pm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/98_TadoAPI.pm b/98_TadoAPI.pm index dab0287..749b3bc 100644 --- a/98_TadoAPI.pm +++ b/98_TadoAPI.pm @@ -74,6 +74,7 @@ TadoAPI_Initialize($) $hash->{AttrList} = "homeID " . "mobileID " . + "updateIntervall " . $main::readingFnAttributes; } @@ -123,7 +124,7 @@ sub TadoAPI_Define($$) # start the status update timer RemoveInternalTimer($hash); - InternalTimer( gettimeofday() + 10, "TadoAPI_Update", $hash, 0 ); + InternalTimer( gettimeofday() + 15, "TadoAPI_Update", $hash, 0 ); if ( defined($homeID) && $homeID ne "" ) { $attr{$name}{homeID} = $homeID; @@ -511,15 +512,14 @@ sub TadoAPI_Update(@){ Log3 $name, 5, "TadoAPI $name" . ": " . "TadoAPI_Update called"; - # timer loop - # - my $nextTimer = "none"; - # if api online, try again in 5 minutes + my $intervall = 300; + $intervall = $attr{$name}{updateIntervall} if (defined($attr{$name}{updateIntervall}) && $attr{$name}{updateIntervall} =~ m/^-?\d+$/); + # if api online, try again in xx minutes if ( $apiStatus ) { - $nextTimer = gettimeofday() + 300; + $nextTimer = gettimeofday() + $intervall; } - + Log3 $name, 5, "TadoAPI $name" . ": " . "Next Timer = $nextTimer"; RemoveInternalTimer($hash); InternalTimer( $nextTimer, "TadoAPI_Update", $hash, 0 ); @@ -1383,9 +1383,9 @@ sub TadoAPI_readPassword($) Define