[usit-rt.git] / share / html / index.html

<!DOCTYPE html>
<!--
% $m->out('--'.'>');
% $m->comp('/Elements/Header', Title=>loc("RT at a glance"), Refresh => $session{'home_refresh_interval'}||RT->Config->Get('HomePageRefreshInterval', $session{'CurrentUser'}), SkipDoctype => 1 );
% if (0) {
%# -->
<html><head>
<meta http-equiv="refresh" content="30; url=http://bestpractical.com/rt/rt-broken-install.html">
<title>Almost there!</title></head>
<body>

<img src="http://www.bestpractical.com/images/unconfigured-rtlogo.jpg" />
<br /><br />
<h1>You're almost there!</h1>
You haven't yet configured your webserver to run RT.

You appear to have installed RT's web interface correctly, but haven't yet configured your web
server to "run" the RT server which powers the web interface.

The next step is to edit your webserver's configuration file to instruct it to use
RT's <strong>mod_perl</strong> or <strong>FastCGI</strong> handler.

If you need commercial support, please contact us at sales@bestpractical.com.


<!--
% }

%# BEGIN BPS TAGGED BLOCK {{{
%#
%# COPYRIGHT:
%#
%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
%#                                          <sales@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/Tabs &>
<& /Elements/ListActions, actions => \@results &>    
<& /Elements/MyRT &>
<%init>

if ( RT::Interface::Web->MobileClient()) {
    RT::Interface::Web::Redirect(RT->Config->Get('WebURL') ."m/");
    $m->abort();
}

my @results;
my $skip_create = 0;

$m->callback( ARGSRef => \%ARGS, results => \@results, CallbackName => 'Initial', 
              skip_create => \$skip_create );

if ( $ARGS{'QuickCreate'} ) {
    my $QueueObj = RT::Queue->new($session{'CurrentUser'});
    $QueueObj->Load($ARGS{Queue}) or Abort(loc("Queue could not be loaded."));
    
    my $CFs = $QueueObj->TicketCustomFields();
    
    my ($ValidCFs, @msg) = $m->comp(
        '/Elements/ValidateCustomFields',
        CustomFields        => $CFs,
        ARGSRef             => \%ARGS,
        ValidateUnsubmitted => 1,
    );


    if ( $ValidCFs && !$skip_create ) {
        my ($t, $msg) = CreateTicket( 
                        Queue => $ARGS{'Queue'},
                        Owner => $ARGS{'Owner'},
                        Status => $ARGS{'Status'},
                        # yes! it's Requestors, not Requestor
                        Requestors => $ARGS{'Requestors'},
                        From => $session{'CurrentUser'}->EmailAddress,
                        Content => $ARGS{'Content'},
                        Subject => $ARGS{'Subject'});
        push @results, $msg;

        if ( $t && $t->Id && RT->Config->Get('DisplayTicketAfterQuickCreate', $session{'CurrentUser'}) ) {
            MaybeRedirectForResults(
                Actions   => \@results,
                Path      => '/Ticket/Display.html',
                Arguments => { id => $t->Id },
            );
        }
    }
    elsif ( !$ValidCFs ) {
        push @results, loc("Can't quickly create ticket in queue [_1] because custom fields are required.  Please finish by using the normal ticket creation page.", $QueueObj->Name);
        push @results, @msg;

        MaybeRedirectForResults(
            Actions     => \@results,
            Path        => "/Ticket/Create.html",
            Arguments   => {
                (map { $_ => $ARGS{$_} } qw(Queue Owner Status Content Subject)),
                Requestors => $ARGS{Requestors},
                # From is set above when CFs are OK, but not here since we're
                # not calling CreateTicket() directly.  The proper place to set
                # a default for From, if desired in the future, is in
                # CreateTicket() itself, or at least /Ticket/Display.html
                # (which processes /Ticket/Create.html).  From is rarely used
                # overall.
            },
        );
    }
    MaybeRedirectForResults(
        Actions   => \@results,
        Path      => '/',
    );
}


if ( $ARGS{'q'} ) {
    RT::Interface::Web::Redirect(RT->Config->Get('WebURL')."Search/Simple.html?q=".$m->interp->apply_escapes($ARGS{q}, 'u'));
}

</%init>

%# --></body></html>
Commit	Line	Data
84fb5b46 MKG	1	<!DOCTYPE html>
	2	<!--
	3	% $m->out('--'.'>');
	4	% $m->comp('/Elements/Header', Title=>loc("RT at a glance"), Refresh => $session{'home_refresh_interval'}\|\|RT->Config->Get('HomePageRefreshInterval', $session{'CurrentUser'}), SkipDoctype => 1 );
	5	% if (0) {
	6	%# -->
	7	<html><head>
	8	<meta http-equiv="refresh" content="30; url=http://bestpractical.com/rt/rt-broken-install.html">
	9	<title>Almost there!</title></head>
	10	<body>
	11
	12	<img src="http://www.bestpractical.com/images/unconfigured-rtlogo.jpg" />
	13	<br /><br />
	14	<h1>You're almost there!</h1>
	15	You haven't yet configured your webserver to run RT.
	16
	17	You appear to have installed RT's web interface correctly, but haven't yet configured your web
	18	server to "run" the RT server which powers the web interface.
	19
	20	The next step is to edit your webserver's configuration file to instruct it to use
	21	RT's <strong>mod_perl</strong> or <strong>FastCGI</strong> handler.
	22
	23	If you need commercial support, please contact us at sales@bestpractical.com.
	24
	25
	26	<!--
	27	% }
	28
	29	%# BEGIN BPS TAGGED BLOCK {{{
	30	%#
	31	%# COPYRIGHT:
	32	%#
3ffc5f4f	33	%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
84fb5b46 MKG	34	%# <sales@bestpractical.com>
	35	%#
	36	%# (Except where explicitly superseded by other copyright notices)
	37	%#
	38	%#
	39	%# LICENSE:
	40	%#
	41	%# This work is made available to you under the terms of Version 2 of
	42	%# the GNU General Public License. A copy of that license should have
	43	%# been provided with this software, but in any event can be snarfed
	44	%# from www.gnu.org.
	45	%#
	46	%# This work is distributed in the hope that it will be useful, but
	47	%# WITHOUT ANY WARRANTY; without even the implied warranty of
	48	%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	49	%# General Public License for more details.
	50	%#
	51	%# You should have received a copy of the GNU General Public License
	52	%# along with this program; if not, write to the Free Software
	53	%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
	54	%# 02110-1301 or visit their web page on the internet at
	55	%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
	56	%#
	57	%#
	58	%# CONTRIBUTION SUBMISSION POLICY:
	59	%#
	60	%# (The following paragraph is not intended to limit the rights granted
	61	%# to you to modify and distribute this software under the terms of
	62	%# the GNU General Public License and is only of importance to you if
	63	%# you choose to contribute your changes and enhancements to the
	64	%# community by submitting them to Best Practical Solutions, LLC.)
	65	%#
	66	%# By intentionally submitting any modifications, corrections or
	67	%# derivatives to this work, or any other work intended for use with
	68	%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
	69	%# you are the copyright holder for those contributions and you grant
	70	%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
	71	%# royalty-free, perpetual, license to use, copy, create derivative
	72	%# works based on those contributions, and sublicense and distribute
	73	%# those contributions and any derivatives thereof.
	74	%#
	75	%# END BPS TAGGED BLOCK }}}
	76	<& /Elements/Tabs &>
	77	<& /Elements/ListActions, actions => \@results &>
	78	<& /Elements/MyRT &>
	79	<%init>
	80
	81	if ( RT::Interface::Web->MobileClient()) {
	82	RT::Interface::Web::Redirect(RT->Config->Get('WebURL') ."m/");
	83	$m->abort();
	84	}
	85
	86	my @results;
	87	my $skip_create = 0;
	88
	89	$m->callback( ARGSRef => \%ARGS, results => \@results, CallbackName => 'Initial',
	90	skip_create => \$skip_create );
	91
	92	if ( $ARGS{'QuickCreate'} ) {
	93	my $QueueObj = RT::Queue->new($session{'CurrentUser'});
	94	$QueueObj->Load($ARGS{Queue}) or Abort(loc("Queue could not be loaded."));
	95
	96	my $CFs = $QueueObj->TicketCustomFields();
	97
3ffc5f4f	98	my ($ValidCFs, @msg) = $m->comp(
84fb5b46	99	'/Elements/ValidateCustomFields',
3ffc5f4f MKG	100	CustomFields => $CFs,
	101	ARGSRef => \%ARGS,
	102	ValidateUnsubmitted => 1,
84fb5b46 MKG	103	);
	104
	105
	106	if ( $ValidCFs && !$skip_create ) {
	107	my ($t, $msg) = CreateTicket(
	108	Queue => $ARGS{'Queue'},
	109	Owner => $ARGS{'Owner'},
3ffc5f4f	110	Status => $ARGS{'Status'},
84fb5b46 MKG	111	# yes! it's Requestors, not Requestor
	112	Requestors => $ARGS{'Requestors'},
	113	From => $session{'CurrentUser'}->EmailAddress,
	114	Content => $ARGS{'Content'},
	115	Subject => $ARGS{'Subject'});
	116	push @results, $msg;
	117
	118	if ( $t && $t->Id && RT->Config->Get('DisplayTicketAfterQuickCreate', $session{'CurrentUser'}) ) {
	119	MaybeRedirectForResults(
	120	Actions => \@results,
	121	Path => '/Ticket/Display.html',
	122	Arguments => { id => $t->Id },
	123	);
	124	}
84fb5b46 MKG	125	}
84fb5b46 MKG	126	elsif ( !$ValidCFs ) {
3ffc5f4f MKG	127	push @results, loc("Can't quickly create ticket in queue [_1] because custom fields are required. Please finish by using the normal ticket creation page.", $QueueObj->Name);
	128	push @results, @msg;
	129
	130	MaybeRedirectForResults(
	131	Actions => \@results,
	132	Path => "/Ticket/Create.html",
	133	Arguments => {
	134	(map { $_ => $ARGS{$_} } qw(Queue Owner Status Content Subject)),
	135	Requestors => $ARGS{Requestors},
	136	# From is set above when CFs are OK, but not here since we're
	137	# not calling CreateTicket() directly. The proper place to set
	138	# a default for From, if desired in the future, is in
	139	# CreateTicket() itself, or at least /Ticket/Display.html
	140	# (which processes /Ticket/Create.html). From is rarely used
	141	# overall.
	142	},
	143	);
84fb5b46 MKG	144	}
	145	MaybeRedirectForResults(
	146	Actions => \@results,
	147	Path => '/',
	148	);
	149	}
	150
	151
	152	if ( $ARGS{'q'} ) {
	153	RT::Interface::Web::Redirect(RT->Config->Get('WebURL')."Search/Simple.html?q=".$m->interp->apply_escapes($ARGS{q}, 'u'));
	154	}
	155
	156	</%init>
	157
	158	%# --></body></html>