2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 13:26:02 +00:00

73_GardenaSmartBridge: fix delete password then rereadcfg

git-svn-id: https://svn.fhem.de/fhem/trunk@16659 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
LeonGaultier 2018-04-25 06:27:02 +00:00
parent 93f41b6d52
commit d662589de6
2 changed files with 15 additions and 6 deletions

View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # 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. # Do not insert empty lines here, update check depends on it.
- bugfix: 73_GardenaSmartBridge: fix delete password then rereadcfg
- bugfix: 93_DbRep: 7.17.2, doesn't writeToDB if device name contain "." - bugfix: 93_DbRep: 7.17.2, doesn't writeToDB if device name contain "."
- feature: 93_DbLog: addLog - not available reading can be added as new one - feature: 93_DbLog: addLog - not available reading can be added as new one
(forum:#86966) (forum:#86966)

View File

@ -68,7 +68,7 @@ eval "use JSON;1" or $missingModul .= "JSON ";
eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL "; eval "use IO::Socket::SSL;1" or $missingModul .= "IO::Socket::SSL ";
my $version = "1.0.2"; my $version = "1.0.3";
@ -80,6 +80,7 @@ sub GardenaSmartBridge_Initialize($);
sub GardenaSmartBridge_Set($@); sub GardenaSmartBridge_Set($@);
sub GardenaSmartBridge_Write($@); sub GardenaSmartBridge_Write($@);
sub GardenaSmartBridge_Undef($$); sub GardenaSmartBridge_Undef($$);
sub GardenaSmartBridge_Delete($$);
sub GardenaSmartBridge_ResponseProcessing($$); sub GardenaSmartBridge_ResponseProcessing($$);
sub GardenaSmartBridge_ErrorHandling($$$); sub GardenaSmartBridge_ErrorHandling($$$);
sub GardenaSmartBridge_encrypt($); sub GardenaSmartBridge_encrypt($);
@ -112,6 +113,7 @@ sub GardenaSmartBridge_Initialize($) {
$hash->{SetFn} = "GardenaSmartBridge_Set"; $hash->{SetFn} = "GardenaSmartBridge_Set";
$hash->{DefFn} = "GardenaSmartBridge_Define"; $hash->{DefFn} = "GardenaSmartBridge_Define";
$hash->{UndefFn} = "GardenaSmartBridge_Undef"; $hash->{UndefFn} = "GardenaSmartBridge_Undef";
$hash->{DeleteFn} = "GardenaSmartBridge_Delete";
$hash->{NotifyFn} = "GardenaSmartBridge_Notify"; $hash->{NotifyFn} = "GardenaSmartBridge_Notify";
$hash->{AttrFn} = "GardenaSmartBridge_Attr"; $hash->{AttrFn} = "GardenaSmartBridge_Attr";
@ -163,18 +165,24 @@ sub GardenaSmartBridge_Define($$) {
sub GardenaSmartBridge_Undef($$) { sub GardenaSmartBridge_Undef($$) {
my ( $hash, $arg ) = @_; my ( $hash, $name ) = @_;
my $index = $hash->{TYPE}."_".$hash->{NAME}."_passwd";
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
setKeyValue($index,undef);
delete $modules{GardenaSmartBridge}{defptr}{BRIDGE} if( defined($modules{GardenaSmartBridge}{defptr}{BRIDGE}) ); delete $modules{GardenaSmartBridge}{defptr}{BRIDGE} if( defined($modules{GardenaSmartBridge}{defptr}{BRIDGE}) );
return undef; return undef;
} }
sub GardenaSmartBridge_Delete($$) {
my ( $hash, $name ) = @_;
setKeyValue($hash->{TYPE}."_".$name."_passwd",undef);
return undef;
}
sub GardenaSmartBridge_Attr(@) { sub GardenaSmartBridge_Attr(@) {
my ( $cmd, $name, $attrName, $attrVal ) = @_; my ( $cmd, $name, $attrName, $attrVal ) = @_;