FHEM/mod-GardenaSmart
1
0
Fork 0
Code Issues 2 Pull Requests Releases 3 Wiki Activity

fix password delete then rereadcfg is running

Browse Source
This commit is contained in:
Marko Oldenburg 2018-04-25 08:24:52 +02:00
parent a7ba74543f
commit cafe8b005c
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
73_GardenaSmartBridge.pm
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 ) = @_;