From cb5352ddcb2d1f5e3ae7175eb7e4416ab6f58a4a Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Thu, 23 Aug 2018 22:12:59 +0200
Subject: [PATCH] fix get humidity bug, add rename Fn

---
 73_GardenaSmartBridge.pm | 20 ++++++++++++++++----
 74_GardenaSmartDevice.pm |  4 ++--
 2 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/73_GardenaSmartBridge.pm b/73_GardenaSmartBridge.pm
index f2c9108..a6d7f03 100644
--- a/73_GardenaSmartBridge.pm
+++ b/73_GardenaSmartBridge.pm
@@ -70,7 +70,7 @@ eval "use JSON;1" or $missingModul .= "JSON ";
 eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL ";
 
 
-my $version = "1.2.0";
+my $version = "1.2.2";
 
 
 
@@ -85,8 +85,6 @@ sub GardenaSmartBridge_Undef($$);
 sub GardenaSmartBridge_Delete($$);
 sub GardenaSmartBridge_ResponseProcessing($$);
 sub GardenaSmartBridge_ErrorHandling($$$);
-#sub GardenaSmartBridge_encrypt($);
-#sub GardenaSmartBridge_decrypt($);
 sub GardenaSmartBridge_WriteReadings($$);
 sub GardenaSmartBridge_ParseJSON($$);
 sub GardenaSmartBridge_getDevices($);
@@ -96,6 +94,7 @@ sub GardenaSmartBridge_Notify($$);
 sub GardenaSmartBridge_StorePassword($$);
 sub GardenaSmartBridge_ReadPassword($);
 sub GardenaSmartBridge_DeletePassword($);
+sub GardenaSmartBridge_Rename(@);
 
 
 
@@ -116,6 +115,7 @@ sub GardenaSmartBridge_Initialize($) {
     $hash->{DefFn}      = "GardenaSmartBridge_Define";
     $hash->{UndefFn}    = "GardenaSmartBridge_Undef";
     $hash->{DeleteFn}   = "GardenaSmartBridge_Delete";
+    $hash->{RenameFn}   = "GardenaSmartBridge_Rename";
     $hash->{NotifyFn}   = "GardenaSmartBridge_Notify";
     
     $hash->{AttrFn}     = "GardenaSmartBridge_Attr";
@@ -420,7 +420,7 @@ sub GardenaSmartBridge_ErrorHandling($$$) {
         } elsif( $param->{code} == 204 and $dhash ne $hash and defined($dhash->{helper}{deviceAction}) ) {
             
             readingsBulkUpdate( $dhash, "state", "the command is processed", 1);
-            InternalTimer( gettimeofday()+3,"GardenaSmartBridge_getDevices", $hash, 1 );
+            InternalTimer( gettimeofday()+5,"GardenaSmartBridge_getDevices", $hash, 1 );
         
         } elsif( $param->{code} != 200 ) {
 
@@ -714,6 +714,18 @@ sub GardenaSmartBridge_ReadPassword($) {
     }
 }
 
+sub GardenaSmartBridge_Rename(@) {
+
+    my ($new,$old)  = @_;
+    my $hash        = $defs{$new};
+    
+
+    GardenaSmartBridge_StorePassword($hash,GardenaSmartBridge_ReadPassword($hash));
+    setKeyValue($hash->{TYPE}."_".$old."_passwd",undef);
+
+    return undef;
+}
+
 sub GardenaSmartBridge_ParseJSON($$) {
 
     my ($hash, $buffer) = @_;
diff --git a/74_GardenaSmartDevice.pm b/74_GardenaSmartDevice.pm
index 10db4e9..be2f1db 100644
--- a/74_GardenaSmartDevice.pm
+++ b/74_GardenaSmartDevice.pm
@@ -67,7 +67,7 @@ use Time::Local;
 eval "use JSON;1" or $missingModul .= "JSON ";
 
 
-my $version = "1.2.0";
+my $version = "1.2.2";
 
 
 
@@ -253,7 +253,7 @@ sub GardenaSmartDevice_Set($@) {
             $abilities  = 'light';
             
         } elsif( lc $sensname eq 'humidity' ) {
-            $payload    = '"name":"measure_humidity"';
+            $payload    = '"name":"measure_soil_humidity"';
             $abilities  = 'humidity';
         }