summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xchecksetup.pl19
1 files changed, 5 insertions, 14 deletions
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