d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Do not backup master.passwd if pwd_mkdb returned an error. This

Browse Source 
was to paranoid, pwd_mkdb(8) is carefully enough to not
corrupt master.passwd on failure.

Submitted by: joerg
This commit is contained in:
wosch 1996-09-14 23:22:23 +00:00
parent e394564f76
commit 3d9135fb86
1 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
usr.sbin/adduser/adduser.perl
View File

@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: adduser.perl,v 1.16 1996/08/28 17:54:14 adam Exp $
# $Id: adduser.perl,v 1.17 1996/09/11 08:36:54 jkh Exp $
# read variables
@ -538,19 +538,9 @@ sub new_users_pwdmkdb {
system("$pwd_mkdb $etc_passwd");
if ($?) {
local($crash) = "$etc_passwd.crash$$";
warn "$last\n";
warn "``$pwd_mkdb'' failed, try to restore ...\n";
open(R, "> $crash") || die "Sorry, give up\n";
$j = join("\n", @passwd_backup);
$j =~ s/\n//;
print R $j . "\n";
close R;
system("$pwd_mkdb $crash");
die "Sorry, give up\n" if $?;
die "Successfully restore $etc_passwd. Exit.\n";
warn "``$pwd_mkdb'' failed\n";
exit($? >> 8);
}
}