rt/html/index.html

   1 <& /Elements/Header, Title=>loc("RT at a glance"), Refresh => $session{'home_refresh_interval'} &>
   2 <!--
   3 % $m->out('--'.'>');
   4 % if (0) {
   5 %# -->
   6 <html><head>
   7 <meta http-equiv="refresh" content="30; url=http://bestpractical.com/rt/rt-broken-install.html">
   8 <title>Almost there!</title></head>
   9 <body>
  10
  11 <img src="http://www.bestpractical.com/images/unconfigured-rtlogo.jpg" />
  12 <br /><br />
  13 <h1>You're almost there!</h1>
  14 You haven't yet configured your webserver to run RT.
  15
  16 You appear to have installed RT's web interface correctly, but haven't yet configured your web
  17 server to "run" the RT server which powers the web interface.
  18
  19 The next step is to edit your webserver's configuration file to instruct it to use
  20 RT's <strong>mod_perl</strong>, <strong>FastCGI</strong> or <strong>SpeedyCGI</strong> handler.
  21
  22 If you need commercial support, please contact us at sales@bestpractical.com.
  23
  24
  25 <!--
  26 % }
  27
  28 %# BEGIN BPS TAGGED BLOCK {{{
  29 %#
  30 %# COPYRIGHT:
  31 %#
  32 %# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC
  33 %#                                          <jesse@bestpractical.com>
  34 %#
  35 %# (Except where explicitly superseded by other copyright notices)
  36 %#
  37 %#
  38 %# LICENSE:
  39 %#
  40 %# This work is made available to you under the terms of Version 2 of
  41 %# the GNU General Public License. A copy of that license should have
  42 %# been provided with this software, but in any event can be snarfed
  43 %# from www.gnu.org.
  44 %#
  45 %# This work is distributed in the hope that it will be useful, but
  46 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  47 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  48 %# General Public License for more details.
  49 %#
  50 %# You should have received a copy of the GNU General Public License
  51 %# along with this program; if not, write to the Free Software
  52 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  53 %# 02110-1301 or visit their web page on the internet at
  54 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
  55 %#
  56 %#
  57 %# CONTRIBUTION SUBMISSION POLICY:
  58 %#
  59 %# (The following paragraph is not intended to limit the rights granted
  60 %# to you to modify and distribute this software under the terms of
  61 %# the GNU General Public License and is only of importance to you if
  62 %# you choose to contribute your changes and enhancements to the
  63 %# community by submitting them to Best Practical Solutions, LLC.)
  64 %#
  65 %# By intentionally submitting any modifications, corrections or
  66 %# derivatives to this work, or any other work intended for use with
  67 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  68 %# you are the copyright holder for those contributions and you grant
  69 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  70 %# royalty-free, perpetual, license to use, copy, create derivative
  71 %# works based on those contributions, and sublicense and distribute
  72 %# those contributions and any derivatives thereof.
  73 %#
  74 %# END BPS TAGGED BLOCK }}}
  75 <& /Elements/Tabs,
  76     current_toptab => '',
  77     Title=>loc("RT at a glance"),
  78     actions => $actions,
  79     &>
  80 <& /Elements/ListActions, actions => \@results &>
  81 <& /Elements/MyRT &>
  82 <%init>
  83
  84 my @results;
  85
  86 if ($ARGS{'QuickCreate'} ) {
  87     my $ticket = RT::Ticket->new($session{'CurrentUser'});
  88     my ($tid, $trans, $tmsg) = $ticket->Create(Queue => $ARGS{'Queue'},
  89                     Owner => $ARGS{'Owner'},
  90                     Requestor => $session{'CurrentUser'}->UserObj->EmailAddress,
  91                     Subject => $ARGS{'Subject'});
  92
  93
  94     push (@results, $tmsg);
  95 }
  96
  97
  98 if ( $ARGS{'q'} ) {
  99     RT::Interface::Web::Redirect($RT::WebURL."Search/Simple.html?q=".$m->interp->apply_escapes($ARGS{q}));
 100 }
 101
 102 if ($ARGS{'HomeRefreshInterval'}) {
 103         $session{'home_refresh_interval'} = $ARGS{'HomeRefreshInterval'};
 104 }
 105
 106 my $actions;
 107 if ($session{'CurrentUser'}->HasRight(Right => 'ModifySelf', Object => $RT::System)) {
 108     $actions = {
 109         A => { title => loc('Edit'),
 110                path  => 'Prefs/MyRT.html',
 111              },
 112     };
 113 }
 114
 115 </%init>
 116
 117 %# --></body></html>