From 630b08188b92859404c17a4b2511f96c3aab46ca Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Sun, 15 Apr 2018 19:44:44 +0200 Subject: [PATCH] add error trigger for notify --- 73_GardenaSmartBridge.pm | 8 +++++--- 74_GardenaSmartDevice.pm | 4 ++-- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/73_GardenaSmartBridge.pm b/73_GardenaSmartBridge.pm index c43c548..33225be 100644 --- a/73_GardenaSmartBridge.pm +++ b/73_GardenaSmartBridge.pm @@ -68,7 +68,7 @@ eval "use JSON;1" or $missingModul .= "JSON "; eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL "; -my $version = "1.0.0"; +my $version = "1.0.1"; @@ -262,7 +262,8 @@ sub GardenaSmartBridge_Notify($$) { ) and $init_done ); - if( $devtype eq 'GardenaSmartBridge' and grep /^state:.connected.to.cloud$/,@{$events} ) { + if( $devtype eq 'GardenaSmartBridge' and (grep /^state:.connected.to.cloud$/,@{$events} + or grep /^lastRequestState:.request_error$/,@{$events}) ) { InternalTimer( gettimeofday()+$hash->{INTERVAL},"GardenaSmartBridge_getDevices", $hash); Log3 $name, 4, "GardenaSmartBridge ($name) - set internal timer function for recall GardenaSmartBridge_getDevices sub"; @@ -330,7 +331,8 @@ sub GardenaSmartBridge_Write($@) { } ); - Log3 $name, 4, "GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: $header, DATA: $payload, METHOD: $method"; + #Log3 $name, 4, "GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: $header, DATA: $payload, METHOD: $method"; + Log3 $name, 4, "GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: secret!, DATA: secret!, METHOD: $method"; } sub GardenaSmartBridge_ErrorHandling($$$) { diff --git a/74_GardenaSmartDevice.pm b/74_GardenaSmartDevice.pm index 5490a1a..b66016f 100644 --- a/74_GardenaSmartDevice.pm +++ b/74_GardenaSmartDevice.pm @@ -66,7 +66,7 @@ use Time::Local; eval "use JSON;1" or $missingModul .= "JSON "; -my $version = "1.0.0"; +my $version = "1.0.1"; @@ -100,7 +100,7 @@ sub GardenaSmartDevice_Initialize($) { $hash->{AttrFn} = "GardenaSmartDevice_Attr"; $hash->{AttrList} = "readingValueLanguage:de,en ". - "model ". + "model:watering_computer,sensor,mower ". "IODev ". $readingFnAttributes;