Bug 183898 - checksetup.pl doesn't accepts admin passwords with dots; patch by jocuri@softhome.net (Vlad Dascalu); r/a=justdave

This commit is contained in:
preed%sigkill.com 2003-07-22 12:23:27 +00:00
Родитель ebe60fb675
Коммит 4ec754d744
1 изменённых файлов: 4 добавлений и 2 удалений

Просмотреть файл

@ -3878,16 +3878,18 @@ if ($sth->rows == 0) {
system("stty","-echo"); # disable input echoing
while( $pass1 ne $pass2 ) {
while( $pass1 eq "" || $pass1 !~ /^[a-zA-Z0-9-_]{3,16}$/ ) {
while( $pass1 eq "" || $pass1 !~ /^[[:print:]]{3,16}$/ ) {
print "Enter a password for the administrator account: ";
$pass1 = $answer{'ADMIN_PASSWORD'}
|| ($silent && die("cant preload ADMIN_PASSWORD"))
|| <STDIN>;
chomp $pass1;
if(! $pass1 ) {
print "\n\nIt's just plain stupid to not have a password. Try again!\n";
print "\n\nAn empty password is a security risk. Try again!\n";
} elsif ( $pass1 !~ /^.{3,16}$/ ) {
print "\n\nThe password must be 3-16 characters in length.\n";
} elsif ( $pass1 !~ /^[[:print:]]{3,16}$/ ) {
print "\n\nThe password contains non-printable characters.\n";
}
}
print "\nPlease retype the password to verify: ";