version 1.13, 2001/11/15 18:34:57
|
version 1.14, 2002/02/14 22:09:14
|
Line 120 if (@input!=3) {
|
Line 120 if (@input!=3) {
|
unlink('/tmp/lock_lcpasswd'); |
unlink('/tmp/lock_lcpasswd'); |
exit 3; |
exit 3; |
} |
} |
map {chomp} @input; |
foreach (@input) {chomp;} |
|
|
my ($username,$password1,$password2)=@input; |
my ($username,$password1,$password2)=@input; |
$username=~/^(\w+)$/; |
$username=~/^(\w+)$/; |
Line 131 if (($username ne $safeusername) or ($sa
|
Line 131 if (($username ne $safeusername) or ($sa
|
exit 9; |
exit 9; |
} |
} |
my $pbad=0; |
my $pbad=0; |
map {if (($_<32)&&($_>126)){$pbad=1;}} (split(//,$password1)); |
foreach (split(//,$password1)) {if (($_<32)&&($_>126)){$pbad=1;}} |
map {if (($_<32)&&($_>126)){$pbad=1;}} (split(//,$password2)); |
foreach (split(//,$password2)) {if (($_<32)&&($_>126)){$pbad=1;}} |
if ($pbad) { |
if ($pbad) { |
print "Error. A password entry had an invalid character.\n"; |
print "Error. A password entry had an invalid character.\n"; |
unlink('/tmp/lock_lcpasswd'); |
unlink('/tmp/lock_lcpasswd'); |