Bug 317489: Email preferences are not set for the new admin user - Patch by Frédéric...

diff --git a/checksetup.pl b/checksetup.pl
index 8fe44d4cd40ba872338ea90be2bf2908a078c1ba..5d901b646b57a28e691e109a913d3d3478a68235 100755 (executable)
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -1442,7 +1442,10 @@ require Bugzilla::User::Setting;
 import Bugzilla::User::Setting qw(add_setting);
 
 require Bugzilla::Util;
-import Bugzilla::Util qw(bz_crypt trim html_quote);
+import Bugzilla::Util qw(bz_crypt trim html_quote is_7bit_clean);
+
+require Bugzilla::User;
+import Bugzilla::User qw(insert_new_user);
 
 # globals.pl clears the PATH, but File::Find uses Cwd::cwd() instead of
 # Cwd::getcwd(), which we need to do because `pwd` isn't in the path - see
@@ -4407,10 +4410,6 @@ if ($sth->rows == 0) {
     }
 
     if ($admin_create) {
-
-        require Bugzilla::Util;
-        import Bugzilla::Util 'is_7bit_clean';
-
         while( $realname eq "" ) {
             print "Enter the real name of the administrator: ";
             $realname = $answer{'ADMIN_REALNAME'} 
@@ -4466,9 +4465,6 @@ if ($sth->rows == 0) {
             }
         }
 
-        # Crypt the administrator's password
-        my $cryptedpassword = bz_crypt($pass1);
-
         if ($^O !~ /MSWin32/i) {
             system("stty","echo"); # re-enable input echoing
         }
@@ -4478,12 +4474,7 @@ if ($sth->rows == 0) {
         $SIG{QUIT} = 'DEFAULT';
         $SIG{TERM} = 'DEFAULT';
 
-        $dbh->do(
-          q{INSERT INTO profiles (login_name, realname, cryptpassword, 
-                                  disabledtext, refreshed_when)
-            VALUES (?, ?, ?, ?, ?)},
-            undef, $login, $realname, $cryptedpassword, 
-            '', '1900-01-01 00:00:00');
+        insert_new_user($login, $realname, $pass1);
     }
 
     # Put the admin in each group if not already