diff options
| author | fukachan <fukachan> | 2004-04-23 13:45:15 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-23 13:45:15 +0000 |
| commit | 379161f7575ea991075eceda9c40bc995b0336ef (patch) | |
| tree | aec4797ae181ad7796ff61411dc488a6f07a04f9 /fml | |
| parent | 2e170aeb0dd48c9671b17641960ec7dbcb881257 (diff) | |
| download | fml8-379161f7575ea991075eceda9c40bc995b0336ef.tar.gz fml8-379161f7575ea991075eceda9c40bc995b0336ef.tar.bz2 fml8-379161f7575ea991075eceda9c40bc995b0336ef.zip | |
bug fix: we need to touch etc/passwd-admin file firstly.
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Command/Auth.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fml/lib/FML/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm index daa4e795..1d5f92b2 100644 --- a/fml/lib/FML/Command/Auth.pm +++ b/fml/lib/FML/Command/Auth.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Auth.pm,v 1.34 2004/03/04 04:30:12 fukachan Exp $ +# $FML: Auth.pm,v 1.35 2004/04/23 04:10:30 fukachan Exp $ # package FML::Command::Auth; @@ -256,6 +256,7 @@ sub change_password my $obj = new IO::Adapter $map; if (defined $obj) { $obj->open(); + $obj->touch(); # delete if ($obj->find( $address )) { @@ -272,6 +273,7 @@ sub change_password } # add + $obj->error_clear(); $obj->add( $address, [ $cp, "UNIX_CRYPT" ] ) && $status++; if ($obj->error()) { $curproc->logerror("cannot add $address to=$map"); |