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 " 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($@) {
  • getDeviceState - Starts a Datarequest
  • getToken - Gets a new Session-ID
  • gardenaAccountPassword - Passwort which was used in the GardenaAPP
  • +
  • deleteAccountPassword - delete the password from store


  • @@ -906,6 +925,7 @@ sub GardenaSmartBridge_createHttpValueStrings($@) {
  • getDeviceState - Startet eine Abfrage der Daten.
  • getToken - Holt eine neue Session-ID
  • gardenaAccountPassword - Passwort, welches in der GardenaApp verwendet wurde
  • +
  • deleteAccountPassword - l&oml;scht das Passwort aus dem Passwortstore