Bug 183898 - checksetup.pl doesn't accepts admin passwords with dots; patch by jocuri...

diff --git a/checksetup.pl b/checksetup.pl
index 08583f82ea70c93075125c10bfc5fc33ed308e5f..27542d8e4f4d6c70a49559cb9dd56b810de65a73 100755 (executable)
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -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: ";