pwd
This commit is contained in:
@ -203,7 +203,9 @@ sub Set {
|
||||
my $cmd = shift @$aArg // return qq{"set $name" needs at least one argument};
|
||||
|
||||
if ( lc $cmd eq 'password' ) {
|
||||
|
||||
return qq{error set libero ip first}
|
||||
if ( AttrVal( $name, 'LiberoIP', 'none' ) eq 'none' );
|
||||
|
||||
my ($passResp,$passErr);
|
||||
($passResp,$passErr) = $hash->{helper}->{passObj}->setStorePassword($name,$aArg->[0]);
|
||||
|
||||
|
Reference in New Issue
Block a user