<& /Elements/Header, Title=>"Login" , &>

<DIV ALIGN=CENTER>
% if ($Error) {
<& /Elements/TitleBoxStart, title => 'Error' &>
<% $Error %>
<& /Elements/TitleBoxEnd &>
% }
<BR>
<& /Elements/TitleBoxStart, width=> "40%", titleright => "RT $RT::VERSION for $RT::rtname", title => 'Login' ,
contentbg=>"#cccccc" &>


% unless ($RT::WebExternalAuth) {
<FORM METHOD=POST >
<TABLE BORDER=0 WIDTH=100%>
<TR ALIGN=RIGHT>
<TD ALIGN=RIGHT>Username:</TD><TD ALIGN=LEFT><input name=user value="<%$user%>"></TD></TR>
<TR><TD ALIGN=RIGHT>Password:</TD><TD ALIGN=LEFT><input type=password name=pass></TD></TR>
<TR><TD colspan=2 align=right>
<input type=submit Value="Login">
</TD></TR>
</TABLE>
<&/Elements/TitleBoxEnd&>
% # From mason 1.0.1 forward, this doesn't work. in fact, it breaks things.
% if (0) {
% # The code below iterates through everything in the passed in arguments
% # Preserving all the old parameters
% # This would be easier, except mason is 'smart' and calls multiple values
% # arrays rather than multiple hash keys
% my $key; my $val;
% foreach $key (keys %ARGS) {
%  if (($key ne 'user') and ($key ne 'pass')) {
% 	if (ref($ARGS{$key}) =~ /ARRAY/) {
% 		foreach $val (@{$ARGS{$key}}) {
<input type=hidden name="<%$key %>" value="<% $val %>">
% 		}
% 	}
%	else {
<input type="hidden" name="<% $key %>" value="<% $ARGS{$key} %>">
% 	}
% }
%}
% }
</FORM>
% }
</DIV>

<BR>
<!-- TODO: not yet implemented
If you've forgotten your username or password, RT can <A
href="/NoAuth/Reminder.html">send you a reminder</a>.
-->
<BR>
<HR>
RT is &copy; Copyright 1996-2002 Jesse Vincent &lt;jesse@bestpractical.com&gt;.  It is
distributed under <a href="http://www.gnu.org/copyleft/gpl.html">Version 2 of the GNU General Public License.</a>


<%ARGS>
$user => ""
$pass => undef
$goto => undef
$Error => undef
</%ARGS>

<%INIT>
</%INIT>
