VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-07-21 23:40:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

Properly return password change error

Browse Source
This commit is contained in:
Jamie Cameron
2009-07-08 20:48:25 +00:00
parent 8a88a53aeb
commit e2a441d3ee
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
samba/samba-lib.pl
View File

@ -651,7 +651,7 @@ else {
return join(":", @u)."\n";
}
# set_password(user, password)
# set_password(user, password, [&output])
# Changes the password of a user in the encrypted password file
sub set_password
{
@ -659,10 +659,11 @@ local $qu = quotemeta($_[0]);
local $qp = quotemeta($_[1]);
if ($samba_version >= 2) {
local $passin = "$_[1]\n$_[1]\n";
local $ex = &execute_command("$config{'samba_password_program'} -c $config{'smb_conf'} -s $qu", \$passin, undef, undef);
local $ex = &execute_command("$config{'samba_password_program'} -c $config{'smb_conf'} -s $qu", \$passin, $_[1], $_[1]);
if ($ex) {
# Try without -c
$rv = &execute_command("$config{'samba_password_program'} -s $qu", \$passin, undef, undef);
${$_[1]} = '' if ($_[1]);
$rv = &execute_command("$config{'samba_password_program'} -s $qu", \$passin, $_[1], $_[1]);
}
unlink($temp);
return !$rv;
@ -670,7 +671,7 @@ if ($samba_version >= 2) {
else {
local $out;
&execute_command("$config{'samba_password_program'} $qu $qp",
undef, \$out, \$out);
undef, $_[1], $_[1]);
return $out =~ /changed/i;
}
}