From: lpsolit%gmail.com <>
Date: Wed, 30 Nov 2005 20:53:31 +0000 (+0000)
Subject: Bug 317489: Email preferences are not set for the new admin user - Patch by Frédéric... 
X-Git-Tag: bugzilla-2.20.1~80
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a67bbd05f6b70a18481a4627c9ec38566c17fd3a;p=thirdparty%2Fbugzilla.git

Bug 317489: Email preferences are not set for the new admin user - Patch by Frédéric Buclin <LpSolit@gmail.com> r=mkanat a=justdave
---

diff --git a/checksetup.pl b/checksetup.pl
index d5fe6b4ee0..3fbad23482 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -1421,6 +1421,9 @@ import Bugzilla::User::Setting qw(add_setting);
 require Bugzilla::Util;
 import Bugzilla::Util qw(bz_crypt trim html_quote);
 
+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
 # http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-09/msg00115.html
@@ -4331,9 +4334,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
         }
@@ -4343,12 +4343,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