diff options
Diffstat (limited to 'checksetup.pl')
| -rwxr-xr-x | checksetup.pl | 19 |
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 |