1 <& /elements/header-minimal.html, 'Login' &>
2 <link href="<%$url_string%>elements/freeside.css" type="text/css" rel="stylesheet">
7 <FONT SIZE=5>Login</FONT>
11 <FONT SIZE="+1" COLOR="#ff0000"><% $error |h %></FONT>
15 %# <FORM METHOD="POST" ACTION="<%$url_string%>loginout/login">
16 % my $uri = $r->prev->uri;
17 % $uri .= '?'. $r->prev->args if length( $r->prev->args );
18 <FORM METHOD="POST" ACTION="/login">
19 <INPUT TYPE="hidden" NAME="destination" VALUE="<% $uri %>">
21 <TABLE CELLSPACING=0 CELLPADDING=4 CLASS="fsinnerbox">
23 <TD ALIGN="right">Username: </TD>
24 <TD><INPUT TYPE="text" NAME="credential_0" SIZE="13"></TD>
27 <TD ALIGN="right">Password: </TD>
28 <TD><INPUT TYPE="password" NAME="credential_1" SIZE="13"></TD>
33 <INPUT TYPE="submit" VALUE="Login">
43 'no_cookie' => '', #First login, don't display an error
44 'bad_cookie' => 'Bad Cookie', #timed out?
45 'bad_credentials' => 'Incorrect username / password',
46 #'logout' => 'You have been logged out.',
49 my $error = # $cgi->param('logout') ||
50 $r->prev->subprocess_env('AuthCookieReason');
52 $error = exists($error{$error}) ? $error{$error} : $error;
55 my $url_string = $r->uri;
57 #fake a freeside path for /login so we get our .css. shrug
58 $url_string =~ s/login$/freeside\/login/ unless $url_string =~ /freeside\//;
60 #even though this is kludgy and false laziness w/CGI.pm
61 $url_string =~ s{ / index\.html /? $ }
71 $url_string .= '/' unless $url_string =~ /\/$/;