rt/webrt/Elements/Login

   1 <& /Elements/Header, Title=>"Login" , &>
   2
   3 <DIV ALIGN=CENTER>
   4 % if ($Error) {
   5 <& /Elements/TitleBoxStart, title => 'Error' &>
   6 <% $Error %>
   7 <& /Elements/TitleBoxEnd &>
   8 % }
   9 <BR>
  10 <& /Elements/TitleBoxStart, width=> "40%", titleright => "RT $RT::VERSION for $RT::rtname", title => 'Login' ,
  11 contentbg=>"#cccccc" &>
  12
  13
  14 % unless ($RT::WebExternalAuth) {
  15 <FORM METHOD=POST >
  16 <TABLE BORDER=0 WIDTH=100%>
  17 <TR ALIGN=RIGHT>
  18 <TD ALIGN=RIGHT>Username:</TD><TD ALIGN=LEFT><input name=user value="<%$user%>"></TD></TR>
  19 <TR><TD ALIGN=RIGHT>Password:</TD><TD ALIGN=LEFT><input type=password name=pass></TD></TR>
  20 <TR><TD colspan=2 align=right>
  21 <input type=submit Value="Login">
  22 </TD></TR>
  23 </TABLE>
  24 <&/Elements/TitleBoxEnd&>
  25 % # From mason 1.0.1 forward, this doesn't work. in fact, it breaks things.
  26 % if (0) {
  27 % # The code below iterates through everything in the passed in arguments
  28 % # Preserving all the old parameters
  29 % # This would be easier, except mason is 'smart' and calls multiple values
  30 % # arrays rather than multiple hash keys
  31 % my $key; my $val;
  32 % foreach $key (keys %ARGS) {
  33 %  if (($key ne 'user') and ($key ne 'pass')) {
  34 %       if (ref($ARGS{$key}) =~ /ARRAY/) {
  35 %               foreach $val (@{$ARGS{$key}}) {
  36 <input type=hidden name="<%$key %>" value="<% $val %>">
  37 %               }
  38 %       }
  39 %       else {
  40 <input type="hidden" name="<% $key %>" value="<% $ARGS{$key} %>">
  41 %       }
  42 % }
  43 %}
  44 % }
  45 </FORM>
  46 % }
  47 </DIV>
  48
  49 <BR>
  50 <!-- TODO: not yet implemented
  51 If you've forgotten your username or password, RT can <A
  52 href="/NoAuth/Reminder.html">send you a reminder</a>.
  53 -->
  54 <BR>
  55 <HR>
  56 RT is &copy; Copyright 1996-2002 Jesse Vincent &lt;jesse@bestpractical.com&gt;.  It is
  57 distributed under <a href="http://www.gnu.org/copyleft/gpl.html">Version 2 of the GNU General Public License.</a>
  58
  59
  60 <%ARGS>
  61 $user => ""
  62 $pass => undef
  63 $goto => undef
  64 $Error => undef
  65 </%ARGS>
  66
  67 <%INIT>
  68 SetContentType('text/html');
  69 </%INIT>