change code for setRename function
This commit is contained in:
parent
6adb73a10a
commit
c2685a86bf
@ -81,7 +81,7 @@ sub setStorePassword {
|
|||||||
my $err;
|
my $err;
|
||||||
$err = setKeyValue( $index, $enc_pwd );
|
$err = setKeyValue( $index, $enc_pwd );
|
||||||
|
|
||||||
return(0)
|
return(undef,$err)
|
||||||
if ( defined($err) );
|
if ( defined($err) );
|
||||||
|
|
||||||
return(1);
|
return(1);
|
||||||
@ -94,7 +94,7 @@ sub setDeletePassword {
|
|||||||
my $err;
|
my $err;
|
||||||
$err = setKeyValue( $defs{$name}->{TYPE} . '_' . $name . '_passwd', undef );
|
$err = setKeyValue( $defs{$name}->{TYPE} . '_' . $name . '_passwd', undef );
|
||||||
|
|
||||||
return(0)
|
return(undef,$err)
|
||||||
if ( defined($err) );
|
if ( defined($err) );
|
||||||
|
|
||||||
return(1);
|
return(1);
|
||||||
@ -117,7 +117,7 @@ sub getReadPassword {
|
|||||||
Log3($name, 4,
|
Log3($name, 4,
|
||||||
qq{password Keystore handle for Device ($name) - unable to read password from file: $err});
|
qq{password Keystore handle for Device ($name) - unable to read password from file: $err});
|
||||||
|
|
||||||
return undef;
|
return (undef,$err);
|
||||||
}
|
}
|
||||||
|
|
||||||
if ( defined($password) ) {
|
if ( defined($password) ) {
|
||||||
@ -150,15 +150,19 @@ sub setRename {
|
|||||||
my $newname = shift;
|
my $newname = shift;
|
||||||
my $oldname = shift;
|
my $oldname = shift;
|
||||||
|
|
||||||
my $hash = $defs{$newname};
|
my ($resp,$err);
|
||||||
|
|
||||||
return(0)
|
|
||||||
if ( !defined(getReadPassword( $hash, $oldname ))
|
|
||||||
or !defined(setStorePassword( $hash, $newname, getReadPassword( $hash, $oldname ) ) )
|
|
||||||
)
|
|
||||||
|
|
||||||
return(0)
|
($resp,$err) = $self->setStorePassword($newname,$self->getReadPassword($oldname)); # set new password value
|
||||||
if ( defined(setKeyValue( $hash->{TYPE} . '_' . $oldname . '_passwd', undef )) ); # remove old password value
|
return(0,$err)
|
||||||
|
if ( !defined($resp)
|
||||||
|
and defined($err)
|
||||||
|
);
|
||||||
|
|
||||||
|
($resp,$err) = $self->setDeletePassword($oldname); # remove old password value
|
||||||
|
return(0,$err)
|
||||||
|
if ( !defined($resp)
|
||||||
|
and defined($err)
|
||||||
|
);
|
||||||
|
|
||||||
return(1);
|
return(1);
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user