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

Add a more useful solution to the problem of password files with more than

Browse Source 
one user who differs only by case. The other perl tools assume (or enforce)
the all lowercase requirement, therefore making the search through
master.passwd case insensitive seemed a reasonable optimization, IMO.

I understand, although I do not sympathize with, the argument that someone
might want to do this on purpose, and might subsequently want to use the
wrong tool for the job. So, this fix should hopefully satisfy both camps.
This commit is contained in:
Doug Barton 2001-04-15 20:43:49 +00:00
parent f756964985
commit cf6490c9c7
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
usr.sbin/adduser/rmuser.perl
View File

@ -317,11 +317,22 @@ sub update_passwd_file {
print STDERR "\n${whoami}: Warning: couldn't set mode of $new_passwd_file to 0600 ($!)\n\tcontinuing, but please check mode of /etc/master.passwd!\n";
$skipped = 0;
while (<MASTER_PW>) {
if (not /^\Q$login_name:/o) {
print NEW_PW;
} else {
if (/^\Q$login_name:/o) {
print STDERR "Dropped entry for $login_name\n" if $debug;
$skipped = 1;
} else {
print NEW_PW;
# The other perl password tools assume all lowercase entries.
# Add a warning to help unsuspecting admins who might be
# using the wrong tool for the job, or might otherwise
# be unwittingly holding a loaded foot-shooting device.
if (/^\Q$login_name:/io) {
my $name = $_;
$name =~ s#\:.*\n##;
print STDERR "\n\n\tThere is also an entry for $name in your",
"password file.\n\tThis can cause problems in some ",
"situations.\n\n";
}
}
}
close(NEW_PW);