From b1812f951b2aa635d2dd8fb264e32815878ced95 Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Wed, 30 Nov 2005 20:40:13 +0000 Subject: Bug 317489: Email preferences are not set for the new admin user - Patch by Frédéric Buclin r=mkanat a=justdave MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- checksetup.pl | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) (limited to 'checksetup.pl') diff --git a/checksetup.pl b/checksetup.pl index 8fe44d4cd..5d901b646 100755 --- 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 -- cgit v1.2.3-24-g4f1b