httemplate/loginout/login.html

   1 <& /elements/header-minimal.html, 'Login' &>
   2 <link href="<%$url_string%>elements/freeside.css" type="text/css" rel="stylesheet">
   3
   4 <CENTER>
   5
   6   <BR>
   7   <FONT SIZE=5>Login</FONT>
   8   <BR><BR>
   9
  10 % if ( $error ) {
  11   <FONT SIZE="+1" COLOR="#ff0000"><% $error |h %></FONT>
  12   <BR><BR>
  13 % }
  14
  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 %>">
  20
  21     <TABLE CELLSPACING=0 CELLPADDING=4 BGCOLOR="#cccccc">
  22       <TR>
  23         <TD ALIGN="right">Username: </TD>
  24         <TD><INPUT TYPE="text" NAME="credential_0" SIZE="13"></TD>
  25       </TR>
  26       <TR>
  27         <TD ALIGN="right">Password: </TD>
  28         <TD><INPUT TYPE="password" NAME="credential_1" SIZE="13"></TD>
  29       </TR>
  30     </TABLE>
  31     <BR>
  32
  33     <INPUT TYPE="submit" VALUE="Login">
  34
  35   </FORM>
  36
  37 </CENTER>
  38
  39 </BODY></HTML>
  40 <%init>
  41
  42 my %error = (
  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.',
  47 );
  48
  49 my $error = # $cgi->param('logout') ||
  50             $r->prev->subprocess_env('AuthCookieReason');
  51
  52 $error = exists($error{$error}) ? $error{$error} : $error;
  53
  54
  55 my $url_string = $r->uri;
  56
  57 #fake a freeside path for /login so we get our .css.  shrug
  58 $url_string =~ s/login$/freeside\/login/ unless $url_string =~ /freeside\//;
  59
  60 #even though this is kludgy and false laziness w/CGI.pm
  61 $url_string =~ s{ / index\.html /? $ }
  62                 {/}x;
  63 $url_string =~
  64   s{
  65      /(login|loginout)
  66      ([\w\-\.\/]*)
  67      $
  68    }
  69    {}ix;
  70
  71 $url_string .= '/' unless $url_string =~ /\/$/;
  72
  73 </%init>