From 6a700869aec23e59bd51eecd43f5945c2d9a8d25 Mon Sep 17 00:00:00 2001
From: CoolTux <CoolTux@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 18 Apr 2018 08:09:04 +0000
Subject: [PATCH] 73_GardenaSmartBridge: add set command deleteAccountPassword

git-svn-id: https://svn.fhem.de/fhem/trunk@16634 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED                       |  1 +
 fhem/FHEM/73_GardenaSmartBridge.pm | 22 +++++++++++++++++++++-
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 4e1e7581f..f6d875418 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - feature: 73_GardenaSmartBridge: add set command deleteAccountPassword
   - change:  88_HMCCU: minor changes
   - feature: 93_DbRep: new function dbValue, DbReadingsVal (blocking) 
   - bugfix:  93_DbLog: 3.10.7, create addLog-event if reading was not found
diff --git a/fhem/FHEM/73_GardenaSmartBridge.pm b/fhem/FHEM/73_GardenaSmartBridge.pm
index 33225bea1..30eab548f 100644
--- a/fhem/FHEM/73_GardenaSmartBridge.pm
+++ b/fhem/FHEM/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.1";
+my $version = "1.0.2";
 
 
 
@@ -92,6 +92,7 @@ sub GardenaSmartBridge_createHttpValueStrings($@);
 sub GardenaSmartBridge_Notify($$);
 sub GardenaSmartBridge_StorePassword($$);
 sub GardenaSmartBridge_ReadPassword($);
+sub GardenaSmartBridge_DeletePassword($);
 
 
 
@@ -294,11 +295,17 @@ sub GardenaSmartBridge_Set($@) {
         
         my $passwd = join(' ',@args);
         GardenaSmartBridge_StorePassword($hash,$passwd);
+        
+    } elsif( lc $cmd eq 'deleteaccountpassword' ) {
+        return "usage: $cmd <password>" if( @args != 0 );
+
+        GardenaSmartBridge_DeletePassword($hash);
     
     } else {
     
         my $list    = "getDevicesState:noArg getToken:noArg" if( defined(GardenaSmartBridge_ReadPassword($hash)) );
         $list       .= " gardenaAccountPassword" if( not defined(GardenaSmartBridge_ReadPassword($hash)) );
+        $list       .= " deleteAccountPassword:noArg" if( defined(GardenaSmartBridge_ReadPassword($hash)) );
         return "Unknown argument $cmd, choose one of $list";
     }
     
@@ -782,6 +789,17 @@ sub GardenaSmartBridge_createHttpValueStrings($@) {
     return ($payload,$session_id,$header,$uri,$method,$deviceId,$abilities);
 }
 
+sub GardenaSmartBridge_DeletePassword($) {
+
+    my $hash    = shift;
+
+
+    #my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
+    setKeyValue($hash->{TYPE}."_".$hash->{NAME}."_passwd",undef);
+
+    return undef;
+}
+
 
 
 
@@ -845,6 +863,7 @@ sub GardenaSmartBridge_createHttpValueStrings($@) {
     <li>getDeviceState - Starts a Datarequest</li>
     <li>getToken - Gets a new Session-ID</li>
     <li>gardenaAccountPassword - Passwort which was used in the GardenaAPP</li>
+    <li>deleteAccountPassword - delete the password from store</li>
   </ul>
   <br><br>
   <a name="GardenaSmartBridgeattributes"></a>
@@ -906,6 +925,7 @@ sub GardenaSmartBridge_createHttpValueStrings($@) {
     <li>getDeviceState - Startet eine Abfrage der Daten.</li>
     <li>getToken - Holt eine neue Session-ID</li>
     <li>gardenaAccountPassword - Passwort, welches in der GardenaApp verwendet wurde</li>
+    <li>deleteAccountPassword - l&oml;scht das Passwort aus dem Passwortstore</li>
   </ul>
   <br><br>
   <a name="GardenaSmartBridgeattributes"></a>