]>
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 | %# | |
403d7b0b | 33 | %# This software is Copyright (c) 1996-2013 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 | ||
98 | my $ValidCFs = $m->comp( | |
99 | '/Elements/ValidateCustomFields', | |
100 | CustomFields => $CFs, | |
101 | ARGSRef => \%ARGS | |
102 | ); | |
103 | ||
104 | ||
105 | if ( $ValidCFs && !$skip_create ) { | |
106 | my ($t, $msg) = CreateTicket( | |
107 | Queue => $ARGS{'Queue'}, | |
108 | Owner => $ARGS{'Owner'}, | |
109 | Status => $ARGS{'Status'}||'new', | |
110 | # yes! it's Requestors, not Requestor | |
111 | Requestors => $ARGS{'Requestors'}, | |
112 | From => $session{'CurrentUser'}->EmailAddress, | |
113 | Content => $ARGS{'Content'}, | |
114 | Subject => $ARGS{'Subject'}); | |
115 | push @results, $msg; | |
116 | ||
117 | if ( $t && $t->Id && RT->Config->Get('DisplayTicketAfterQuickCreate', $session{'CurrentUser'}) ) { | |
118 | MaybeRedirectForResults( | |
119 | Actions => \@results, | |
120 | Path => '/Ticket/Display.html', | |
121 | Arguments => { id => $t->Id }, | |
122 | ); | |
123 | } | |
124 | ||
125 | } | |
126 | elsif ( !$ValidCFs ) { | |
127 | push @results, "can't quickly create ticket in queue " . | |
128 | $QueueObj->Name . ' because some custom fields need to be set, please go to normal ticket creation page to do that.'; | |
129 | } | |
130 | MaybeRedirectForResults( | |
131 | Actions => \@results, | |
132 | Path => '/', | |
133 | ); | |
134 | } | |
135 | ||
136 | ||
137 | if ( $ARGS{'q'} ) { | |
138 | RT::Interface::Web::Redirect(RT->Config->Get('WebURL')."Search/Simple.html?q=".$m->interp->apply_escapes($ARGS{q}, 'u')); | |
139 | } | |
140 | ||
141 | </%init> | |
142 | ||
143 | %# --></body></html> |