blob: 27ec98281b9a315a536feda6c49b70b294ef4dd6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
<& /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 © Copyright 1996-2002 Jesse Vincent <jesse@bestpractical.com>. 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>
SetContentType('text/html');
</%INIT>
|
