summaryrefslogtreecommitdiff
path: root/rt/share/html/Install
diff options
context:
space:
mode:
Diffstat (limited to 'rt/share/html/Install')
-rw-r--r--rt/share/html/Install/Basics.html104
-rw-r--r--rt/share/html/Install/DatabaseDetails.html201
-rw-r--r--rt/share/html/Install/DatabaseType.html90
-rw-r--r--rt/share/html/Install/Elements/Errors63
-rw-r--r--rt/share/html/Install/Elements/Wrapper66
-rw-r--r--rt/share/html/Install/Finish.html95
-rw-r--r--rt/share/html/Install/Global.html121
-rw-r--r--rt/share/html/Install/Initialize.html142
-rw-r--r--rt/share/html/Install/Sendmail.html107
-rw-r--r--rt/share/html/Install/autohandler67
-rw-r--r--rt/share/html/Install/index.html142
11 files changed, 0 insertions, 1198 deletions
diff --git a/rt/share/html/Install/Basics.html b/rt/share/html/Install/Basics.html
deleted file mode 100644
index 7345c47..0000000
--- a/rt/share/html/Install/Basics.html
+++ /dev/null
@@ -1,104 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&| Elements/Wrapper, Title => loc('Step [_1] of [_2]', 3, 7) .': '. loc('Customize Basics') &>
-
-<& Elements/Errors, Errors => \@errors &>
-
-<p>
-<&|/l&>These configuration options cover some of the basics needed to get RT up and running. We need to know the name of your RT installation and the domain name where RT will live. You will also need to set a password for your default administrative user.</&>
-</p>
-
-<form method="post">
-<& /Widgets/BulkEdit, Types => \@Types,Meta => $RT::Installer->{Meta},
- CurrentValue => RT::Installer->CurrentValues(@Types) &>
-
-<input type="hidden" name="Run" value="1">
-<& /Elements/Submit,
- Label => loc('Next') .': '. loc('Customize Email Configuration'),
- Back => 1, BackLabel => loc('Back') .': '. loc('Check Database Credentials'),
-&>
-</form>
-</&>
-
-
-<%init>
-my @errors;
-
-my @Types = qw/rtname WebDomain WebPort Password/;
-
-if ( $Run ) {
-
- $m->comp('/Widgets/BulkProcess', Types => \@Types, Arguments => \%ARGS,
- Store => $RT::Installer->{InstallConfig},
- Meta => $RT::Installer->{Meta} );
-
- if ( $ARGS{WebPort} && $ARGS{WebPort} !~ /^\d+$/ ) {
- push @errors, loc("Invalid [_1]: it should be a number", 'WebPort');
- }
-
- unless ( $ARGS{Password} ) {
- push @errors, loc("You must enter an Administrative password");
- }
-
- if ( $Back ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/DatabaseDetails.html');
- }
-
- unless ( @errors ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Sendmail.html');
- }
-}
-
-</%init>
-
-<%args>
-$Run => undef
-$Back => undef
-</%args>
diff --git a/rt/share/html/Install/DatabaseDetails.html b/rt/share/html/Install/DatabaseDetails.html
deleted file mode 100644
index e690eab..0000000
--- a/rt/share/html/Install/DatabaseDetails.html
+++ /dev/null
@@ -1,201 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&| Elements/Wrapper, Title => loc('Step [_1] of [_2]', 2, 7 ) .': '. loc('Check Database Credentials') &>
-
-% if ( @errors ) {
-<& Elements/Errors, Errors => \@errors &>
-<p>
-<&|/l&>Tell us a little about how to find the database RT will be using</&>
-<p>
-<&|/l&>We need to know the name of the database RT will use and where to find it. We also need to know the username and password of the user RT should use. RT can create the database and user for you, which is why we ask for the username and password of a user with DBA privileges. During step 6 of the installation process we will use this information to create and initialize RT's database.</&>
-</p>
-<p>
-<&|/l&>When you click on 'Check Database Connectivity' there may be a small delay while RT tries to connect to your database</&>
-
-% } elsif ( @results ) {
-<& /Elements/ListActions, actions => \@results &>
-
-<p>
-<&|/l&>We are able to find your database and connect as the DBA. You can click on 'Customize Basics' to continue customizing RT.</&>
-
-% }
-
-<form method="post">
-<input type="hidden" name="Run" value="1">
-% if ( @results && !@errors ) {
-<& /Elements/Submit,
- Label => loc('Next') .': '. loc('Customize Basics'),
- Back => 1, BackLabel => loc('Back') .': '. loc('Select Database Type'),
- Name => 'Next',
-&>
-% } else {
-<& /Widgets/BulkEdit, Types => \@Types, Meta => $RT::Installer->{Meta},
- CurrentValue => { %{RT::Installer->CurrentValues(@Types)},
- DatabaseAdmin =>
- RT::Installer->CurrentValue( 'DatabaseAdmin' ) ||
- $RT::Installer->{InstallConfig}{DatabaseAdmin} ||
- ( $db_type eq 'mysql' ? 'root'
- : $db_type eq 'Pg' ? 'postgres'
- : '' ),
- }
- &>
-<& /Elements/Submit,
- Label => loc('Check Database Connectivity'),
- Back => 1, BackLabel => loc('Back') .': '. loc('Choose Database Engine'),
-&>
-% }
-
-</form>
-</&>
-
-<%init>
-my (@results, @errors);
-my $ConnectionSucceeded;
-
-my @Types = 'DatabaseName';
-
-my $db_type = $RT::Installer->{InstallConfig}{DatabaseType};
-
-unless ( $db_type eq 'SQLite' ) {
- push @Types, 'DatabaseHost', 'DatabasePort', 'DatabaseAdmin',
- 'DatabaseAdminPassword', 'DatabaseUser', 'DatabasePassword';
-}
-if ( $db_type eq 'Pg' ) {
- push @Types, 'DatabaseRequireSSL';
-}
-
-
-if ( $Run ) {
-
- if ( $Back ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/DatabaseType.html');
- }
-
- if ( $ARGS{Next} ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Basics.html');
- }
-
- $m->comp('/Widgets/BulkProcess', Types => \@Types, Arguments => \%ARGS,
- Store => $RT::Installer->{InstallConfig},
- Meta => $RT::Installer->{Meta}, KeepUndef => 1 );
-
-
- my ( $status, $msg ) = RT::Installer->SaveConfig;
- if ( $status ) {
- delete $INC{'RT_SiteConfig.pm'};
- RT->LoadConfig;
- RT::Handle->FinalizeDatabaseType();
- # dba connect systemdsn
- my $dbh = DBI->connect(
- RT::Handle->SystemDSN, $ARGS{DatabaseAdmin}, $ARGS{DatabaseAdminPassword}, { RaiseError => 0, PrintError => 0 },
- );
-
- if ( $dbh ) {
- push @results, loc('Connection succeeded');
- # dba connect dsn, which has table info
- $dbh = DBI->connect(
- RT::Handle->DSN, $ARGS{DatabaseAdmin}, $ARGS{DatabaseAdminPassword}, { RaiseError => 0, PrintError => 0 },
- );
-
- if ( $dbh ) {
- # check if table Users exists
- eval {
- my $dbh = DBI->connect(
- RT::Handle->DSN,
- $ARGS{DatabaseAdmin},
- $ARGS{DatabaseAdminPassword},
- { RaiseError => 1, PrintError => 0 },
- );
-
- my $sth = $dbh->prepare('select * from Users');
- };
-
- unless ( $@ ) {
-
- my $sth = $dbh->prepare('select id from Users where Name=?');
- $sth->execute('RT_System');
- if ( $sth->fetchrow_array ) {
- $RT::Installer->{DatabaseAction} = 'none';
- push @results, loc("[_1] appears to be fully initialized. We won't need to create any tables or insert metadata, but you can continue to customize RT by clicking 'Customize Basics' below", $RT::DatabaseName);
- }
- else {
- $RT::Installer->{DatabaseAction} = 'acl,coredata,insert';
- push @results, loc("[_1] already exists and has RT's tables in place, but does not contain RT's metadata. The 'Initialize Database' step later on can insert metadata into this existing database. If this is acceptable, click 'Customize Basics' below to continue customizing RT.", $RT::DatabaseName);
- }
- }
- else {
- $RT::Installer->{DatabaseAction} = 'schema,acl,coredata,insert';
- push @results, loc("[_1] already exists, but does not contain RT's tables or metadata. The 'Initialize Database' step later on can insert tables and metadata into this existing database. if this is acceptable, click 'Customize Basic' below to continue customizing RT.", $RT::DatabaseName );
- }
-
- }
- else {
- $RT::Installer->{DatabaseAction} =
- 'create,schema,acl,coredata,insert';
- }
- }
- else {
- $RT::Installer->{DatabaseAction} = 'error';
- push @errors, loc("Failed to connect to database: [_1]",
- $DBI::errstr );
- }
- }
- else {
- push @results, loc($msg);
- }
-
-}
-
-</%init>
-
-<%args>
-$Run => undef
-$Back => undef
-</%args>
diff --git a/rt/share/html/Install/DatabaseType.html b/rt/share/html/Install/DatabaseType.html
deleted file mode 100644
index c236dcb..0000000
--- a/rt/share/html/Install/DatabaseType.html
+++ /dev/null
@@ -1,90 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&|Elements/Wrapper, Title => loc('Step [_1] of [_2]', 1, 7 ) .': '. loc('Choose Database Engine') &>
-
-<div class="intro">
-<p>
-<&|/l&>RT works with a number of different databases. <b>MySQL</b>, <b>PostgreSQL</b>, <b>Oracle</b> and <b>SQLite</b> are all supported.</&>
-</p>
-<p>
-<&|/l&>You should choose the database you or your local database administrator is most comfortable with.</&>
-</p>
- <p><b>
-<&|/l&>SQLite is a database that doesn't need a server or any configuration whatsoever. RT's authors recommend it for testing, demoing and development, but it's not quite right for a high-volume production RT server.</&>
-</b></p>
-<p>
-<&|/l, '<a href="http://search.cpan.org" target="_new">CPAN</a>' &>If your preferred database isn't listed in the dropdown below, that means RT couldn't find a <i>database driver</i> for it installed locally. You may be able to remedy this by using [_1] to download and install DBD::MySQL, DBD::Oracle or DBD::Pg.</&>
-</p>
-</div>
-
-<form method="post">
-<& /Widgets/BulkEdit, Types => \@Types, Meta => $RT::Installer->{Meta},
- CurrentValue => RT::Installer->CurrentValues(@Types) &>
-
-<input type="hidden" name="Run" value="1">
-<& /Elements/Submit, Label => loc('Next') .': '. loc( 'Check Database Credentials') &>
-</form>
-</&>
-<%init>
-
-my @Types = 'DatabaseType';
-
-if ( $Run ) {
-
- $m->comp('/Widgets/BulkProcess', Types => \@Types, Arguments => \%ARGS, Meta
- => $RT::Installer->{Meta}, Store => $RT::Installer->{InstallConfig} );
-
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') . 'Install/DatabaseDetails.html');
-}
-
-
-</%init>
-
-<%args>
-$Run => undef
-</%args>
diff --git a/rt/share/html/Install/Elements/Errors b/rt/share/html/Install/Elements/Errors
deleted file mode 100644
index d377689..0000000
--- a/rt/share/html/Install/Elements/Errors
+++ /dev/null
@@ -1,63 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-% if (@Errors) {
-<&| "/Widgets/TitleBox", title => loc('Error'), hideable => 0, class => 'error' &>
-<ul>
-% for my $Error ( @Errors ) {
-<li>
-<% $Error %>
-</li>
-% }
-</ul>
-
-</&>
-% }
-
-<%args>
-@Errors
-</%args>
diff --git a/rt/share/html/Install/Elements/Wrapper b/rt/share/html/Install/Elements/Wrapper
deleted file mode 100644
index f3da5fa..0000000
--- a/rt/share/html/Install/Elements/Wrapper
+++ /dev/null
@@ -1,66 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&/Elements/Header, title => $Title &>
-<& /Elements/PageLayout,
- title => $Title,
- toptabs => { a => { title => loc('Install RT'),
- path => 'Install/'
- },
- b => { title => loc('Buy Support'),
- path => 'mailto:sales@bestpractical.com'}
- },
-
- show_menu => 1
-&>
-<a name="skipnav" id="skipnav" accesskey="8"></a>
-<% $m->content() |n%>
-<& /Elements/Footer &>
-% $m->abort;
-<%args>
-$Title => 'Install RT'
-</%args>
diff --git a/rt/share/html/Install/Finish.html b/rt/share/html/Install/Finish.html
deleted file mode 100644
index 2ce97c4..0000000
--- a/rt/share/html/Install/Finish.html
+++ /dev/null
@@ -1,95 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&| Elements/Wrapper, Title => loc('Step [_1] of [_2]', 7, 7) .': '. loc('Finish') &>
-
-<div class="intro">
-<p>
-<&|/l&>Click "Finish Installation" below to complete this wizard.</&>
-</p>
-
-<p>
-<&|/l&>You should be taken directly to a login page. You'll be able to log in with username of <tt>root</tt> and the password you set earlier.</&>
-</p>
-
-<p>
-<&|/l&>If you've change the Port that RT runs on, you'll need to restart the server in order to log in.</&>
-</p>
-
-<p>
-<&|/l, RT::Installer->ConfigFile &>The settings you've chosen are stored in [_1].</&>
-</p>
-</div>
-
-<form method="post">
-<input type="hidden" value="1" name="Run" />
-<& /Elements/Submit, Label => 'Finish Installation' &>
-</form>
-
-</&>
-<%init>
-if ( $Run ) {
- RT->InstallMode(0);
- RT->ConnectToDatabase();
- RT->InitSystemObjects();
- RT->InitClasses();
- RT->InitPlugins();
-
- system( 'chmod -w ' . RT::Installer->ConfigFile ) &&
- $RT::Logger->error(
- 'failed to make ' . RT::Installer->ConfigFile . ' readonly' );
- my $root = RT::User->new( $RT::SystemUser );
- $root->Load('root');
- $root->SetPassword( $RT::Installer->{InstallConfig}{Password} );
-
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL'));
-}
-</%init>
-
-<%args>
-$Run => undef
-</%args>
diff --git a/rt/share/html/Install/Global.html b/rt/share/html/Install/Global.html
deleted file mode 100644
index 649fd23..0000000
--- a/rt/share/html/Install/Global.html
+++ /dev/null
@@ -1,121 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&| Elements/Wrapper, Title => loc('Step [_1] of [_2]', 5, 7 ) .': '. loc('Customize Email Addresses') &>
-
-<& Elements/Errors, Errors => \@errors &>
-
-<p><&|/l&>Help us set up some useful defaults for RT.</&></p>
-
-<p><&|/l&>When RT sends an email it sets the From: and Reply-To: headers so users can add to the conversation by just hitting Reply in their mail client. It uses different addresses for Replies and Comments. These can be changed for each of your queues. These addresses will need to be configured to use the <tt>rt-mailgate</tt> program.</&></p>
-
-<p><&|/l&>By default, RT will use the timezone of your system. This lets you set a global default for the display of dates and times in RT. Your users can choose a different Timezone in their preferences.</&></p>
-<form method="post">
-<& /Widgets/BulkEdit, Types => \@Types,Meta => $RT::Installer->{Meta},
- CurrentValue => RT::Installer->CurrentValues(@Types)
-&>
-
-<input type="hidden" name="Run" value="1">
-<& /Elements/Submit,
- Label => $RT::Installer->{DatabaseAction} eq 'none' ?
- loc('Next') .': '. loc('Finish') : loc('Next') .': '. loc('Initialize Database'),
- Back => 1, BackLabel => loc('Back') .': '. loc('Customize Email Configuration'),
-&>
-</form>
-</&>
-<%init>
-my @errors;
-
-my @Types = qw/CommentAddress CorrespondAddress Timezone/;
-
-if ( $Run ) {
-
- $m->comp('/Widgets/BulkProcess', Types => \@Types, Arguments => \%ARGS,
- Store => $RT::Installer->{InstallConfig},
- Meta => $RT::Installer->{Meta}, KeepUndef => 1 );
-
- if ( $Back ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Sendmail.html');
- }
-
- for ( qw/CommentAddress CorrespondAddress/ ) {
- if ( $ARGS{$_} && $ARGS{$_} !~ /.+@.+/ ) {
- push @errors,
- loc("Invalid [_1]: '[_2]' doesn't look like an email address",
- $_, $ARGS{$_});
- }
- }
-
- unless ( @errors ) {
- my ( $status, $msg ) = RT::Installer->SaveConfig;
-
- if ( $status ) {
- delete $INC{'RT_SiteConfig.pm'};
- RT->LoadConfig;
-
- if ( $RT::Installer->{DatabaseAction} ne 'none' ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Initialize.html');
- }
- else {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Finish.html');
- }
- }
- else {
- push @errors, loc($msg);
- }
- }
-}
-
-</%init>
-
-<%args>
-$Run => undef
-$Back => undef
-</%args>
diff --git a/rt/share/html/Install/Initialize.html b/rt/share/html/Install/Initialize.html
deleted file mode 100644
index e1237c3..0000000
--- a/rt/share/html/Install/Initialize.html
+++ /dev/null
@@ -1,142 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&|Elements/Wrapper, Title => loc('Step [_1] of [_2]', 6, 7) .': '. loc('Initialize Database') &>
-
-<& Elements/Errors, Errors => \@errors &>
-
-% unless ( @errors ) {
-<div>
-<&|/l&>Click "Initialize Database" to create RT's database and insert initial metadata. This may take a few moments</&>
-</div>
-% }
-
-<form method="post">
-<input type="hidden" name="Run" value="1">
-<& /Elements/Submit,
- Label => loc('Initialize Database'),
- Back => 1, BackLabel => loc('Back') .': '. loc('Customize Email Addresses'),
-&>
-</form>
-</&>
-<%init>
-my @errors;
-if ( $Run ) {
- if ( $Back ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Global.html');
- }
-
- my @actions = split /,/, $RT::Installer->{DatabaseAction};
-
- my $sysdbh = DBI->connect(
- RT::Handle->SystemDSN,
- $RT::Installer->{InstallConfig}{DatabaseAdmin},
- $RT::Installer->{InstallConfig}{DatabaseAdminPassword},
- { RaiseError => 0, PrintError => 0 },
- );
- die $DBI::errstr unless $sysdbh;
-
- my ( $status, $msg ) = ( 1, '' );
-
- if ( $actions[0] eq 'create' ) {
- ($status, $msg) = RT::Handle->CreateDatabase( $sysdbh );
- unless ( $status ) {
- push @errors, loc('ERROR: [_1]', $msg );
- }
-
- shift @actions; # shift the 'create' action since its job is done.
- }
-
- if ( $status ) {
-
- my $dbh = DBI->connect(
- RT::Handle->DSN, $RT::Installer->{InstallConfig}{DatabaseAdmin},
- $RT::Installer->{InstallConfig}{DatabaseAdminPassword},
- { RaiseError => 0, PrintError => 0 },
- );
- die $DBI::errstr unless $dbh;
-
- foreach my $action ( @actions ) {
- ($status, $msg) = (1, '');
- if ( $action eq 'schema' ) {
- ($status, $msg) = RT::Handle->InsertSchema( $dbh );
- }
- elsif ( $action eq 'acl' ) {
- ($status, $msg) = RT::Handle->InsertACL( $dbh );
- }
- elsif ( $action eq 'coredata' ) {
- $RT::Handle = new RT::Handle;
- $RT::Handle->dbh( undef );
- RT::ConnectToDatabase();
- RT::InitLogging();
- ($status, $msg) = $RT::Handle->InsertInitialData;
- }
- elsif ( $action eq 'insert' ) {
- $RT::Handle = new RT::Handle;
- RT::Init();
- my $file = $RT::EtcPath . "/initialdata";
- ($status, $msg) = $RT::Handle->InsertData( $file );
- }
- unless ( $status ) {
- push @errors, loc('ERROR: [_1]', $msg);
- last;
- }
- }
- }
-
- unless ( @errors ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Finish.html');
- }
-}
-</%init>
-<%args>
-$Run => undef
-$Back => undef
-</%args>
-
diff --git a/rt/share/html/Install/Sendmail.html b/rt/share/html/Install/Sendmail.html
deleted file mode 100644
index ae5857c..0000000
--- a/rt/share/html/Install/Sendmail.html
+++ /dev/null
@@ -1,107 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&|Elements/Wrapper, Title => loc('Step [_1] of [_2]', 4, 7 ) .': '. loc('Customize Email Configuration') &>
-
-<& Elements/Errors, Errors => \@errors &>
-
-<p>
-<&|/l&>RT can communicate with your users about new tickets or new correspondence on tickets. Tell us where to find sendmail (or a sendmail compatible binary such as the one provided by postifx). RT also needs to know who to notify when someone sends invalid email. This must not be an address that feeds back into RT.</&>
-</p>
-
-<form method="post">
-<& /Widgets/BulkEdit, Types => \@Types,Meta => $RT::Installer->{Meta},
- CurrentValue => RT::Installer->CurrentValues(@Types)
-&>
-
-<input type="hidden" name="Run" value="1">
-<& /Elements/Submit,
- Label => loc('Next') .': '. loc('Customize Email Addresses'),
- Back => 1, BackLabel => loc('Back' ) .': '. loc('Customize Basics'),
-&>
-</form>
-</&>
-<%init>
-my @errors;
-
-my @Types = qw/SendmailPath OwnerEmail/;
-
-if ( $Run ) {
-
- $m->comp('/Widgets/BulkProcess', Types => \@Types, Arguments => \%ARGS,
- Store => $RT::Installer->{InstallConfig},
- Meta => $RT::Installer->{Meta}, KeepUndef => 1);
-
- if ( $Back ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Basics.html');
- }
-
-
- unless ( -e $ARGS{SendmailPath} ) {
- push @errors, loc( "[_1] doesn't exist.", $ARGS{SendmailPath} );
- }
-
- if ( ! $ARGS{OwnerEmail} || $ARGS{OwnerEmail} !~ /.+@.+/ ) {
- push @errors,
- loc("Invalid [_1]: '[_2]' doesn't look like an email address",
- 'Administrator Email', $ARGS{OwnerEmail} );
- }
-
-
- unless ( @errors ) {
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') .
-'Install/Global.html');
- }
-}
-
-</%init>
-
-<%args>
-$Run => undef
-$Back => undef
-</%args>
diff --git a/rt/share/html/Install/autohandler b/rt/share/html/Install/autohandler
deleted file mode 100644
index 0db00a5..0000000
--- a/rt/share/html/Install/autohandler
+++ /dev/null
@@ -1,67 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<%flags>
-inherit => undef
-</%flags>
-
-<%init>
-
-if (RT->InstallMode) {
- $r->content_type("text/html; charset=utf-8");
- require RT::Installer;
-
- $RT::Installer->{'CurrentUser'} = RT::CurrentUser->new();
- $RT::Installer->{Meta} = RT::Installer->Meta;
- $m->call_next;
-}
-else {
- # redirect to login page if not in install mode
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL'))
-}
-</%init>
-
diff --git a/rt/share/html/Install/index.html b/rt/share/html/Install/index.html
deleted file mode 100644
index afe9336..0000000
--- a/rt/share/html/Install/index.html
+++ /dev/null
@@ -1,142 +0,0 @@
-%# BEGIN BPS TAGGED BLOCK {{{
-%#
-%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
-%# <jesse@bestpractical.com>
-%#
-%# (Except where explicitly superseded by other copyright notices)
-%#
-%#
-%# LICENSE:
-%#
-%# This work is made available to you under the terms of Version 2 of
-%# the GNU General Public License. A copy of that license should have
-%# been provided with this software, but in any event can be snarfed
-%# from www.gnu.org.
-%#
-%# This work is distributed in the hope that it will be useful, but
-%# WITHOUT ANY WARRANTY; without even the implied warranty of
-%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-%# General Public License for more details.
-%#
-%# You should have received a copy of the GNU General Public License
-%# along with this program; if not, write to the Free Software
-%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
-%#
-%#
-%# CONTRIBUTION SUBMISSION POLICY:
-%#
-%# (The following paragraph is not intended to limit the rights granted
-%# to you to modify and distribute this software under the terms of
-%# the GNU General Public License and is only of importance to you if
-%# you choose to contribute your changes and enhancements to the
-%# community by submitting them to Best Practical Solutions, LLC.)
-%#
-%# By intentionally submitting any modifications, corrections or
-%# derivatives to this work, or any other work intended for use with
-%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
-%# you are the copyright holder for those contributions and you grant
-%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
-%# royalty-free, perpetual, license to use, copy, create derivative
-%# works based on those contributions, and sublicense and distribute
-%# those contributions and any derivatives thereof.
-%#
-%# END BPS TAGGED BLOCK }}}
-<&| Elements/Wrapper, Title => loc('Welcome to RT!') &>
-
-<& Elements/Errors, Errors => \@errors &>
-
-% return if $locked;
-
-<form method="post">
-
-<h1><% loc('Language') %></h1>
-
-<div class="select-lang">
-<&|/l&>Select another language</&>:
-<& /Elements/SelectLang,
- Name => 'Lang',
- Default => $lang_handle? $lang_handle->language_tag : undef,
-&>
-<input type="submit" class="button" name="ChangeLang" value="<% loc('Change') %>" />
-</div>
-
-<h1><% loc('What is RT?') %></h1>
-
-<div class="intro">
-<p>
-<&|/l&>RT is an enterprise-grade issue tracking system designed to let you intelligently and efficiently manage tasks, issues, requests, defects or anything else that looks like an "action item."</&>
-</p>
-<p>
-<&|/l&>RT is used by Fortune 100 companies, one-person businesses, government agencies, educational institutions, hospitals, nonprofits, NGOs, libraries, open source projects and all sorts of other organizations on all seven continents. (Yes, even Antarctica.)</&>
-</p>
-<h2><% loc('Getting started') %></h2>
-<p>
-<b>
-<&|/l&>You're seeing this screen because you started up an RT server without a working database. Most likely, this is the first time you're running RT. If you click <i>Let's go!</i> below, RT will guide you through setting up your RT server and database.</&>
-</b>
-</p>
-<p>
-<&|/l&>If you already have a working RT server and database, you should take this opportunity to make sure that your database server is running and that the RT server can connect to it. Once you've done that, stop and start the RT server.</p></&>
-</div>
-
-<& /Elements/Submit, Label => loc( "Let's go!"), Name => 'Run' &>
-</form>
-
-</&>
-<%init>
-my @errors;
-my $locked;
-
-my $file = File::Spec->catfile( $RT::EtcPath, 'RT_SiteConfig.pm' );
-
-if ( ! -e $file ) {
- # write a blank RT_SiteConfig.pm
- open my $fh, '>', $file or die $!;
- close $fh;
-}
-elsif ( ! -w $file ) {
- $locked = 1;
-}
-
-if ( $locked ) {
- push @errors, loc("Config file [_1] is locked", $file);
-}
-elsif ( $Run ) {
- $RT::Installer->{InstallConfig} ||= {};
- for my $field (
- qw/DatabaseType DatabaseName DatabaseHost DatabasePort
- DatabaseUser DatabaseRequireSSL rtname
- Organization Timezone CommentAddress CorrespondAddress
- SendmailPath WebDomain WebPort/
- ) {
- $RT::Installer->{InstallConfig}{$field} ||= RT->Config->Get($field);
- }
-
- for my $field ( qw/OwnerEmail Password DatabasePassword DatabaseAdminPassword/ ) {
- # stuff we don't want to keep null
- $RT::Installer->{InstallConfig}{$field} = '';
- }
-
- RT::Interface::Web::Redirect(RT->Config->Get('WebURL') . 'Install/DatabaseType.html');
-} elsif ( $ChangeLang && $Lang ) {
- # hackish, but works
- $session{'CurrentUser'} = new RT::CurrentUser;
- $session{'CurrentUser'}->LanguageHandle( $Lang );
-}
-my $lang_handle = do { local $@;
- eval {
- ($session{'CurrentUser'} || RT::CurrentUser->new($RT::SystemUser->Id))
- ->LanguageHandle
- }
-};
-</%init>
-
-<%args>
-$Run => 0
-$ChangeLang => undef
-$Lang => undef
-</%args>