PUT results from the CPAN

Apache2-AUS

view release on metacpan or search on metacpan

examples/CGI/htdocs/login.cgi view on Meta::CPAN


print $cgi->header('text/html'), <<"EOT";
<HTML>
 <HEAD>
  <TITLE>Login Test</TITLE>
 </HEAD>
 <BODY>
  <A HREF="login?logout=1&go=/test/apache2-aus-cgi/login.cgi">Log Out</A>
  <HR/>
  <FORM METHOD="POST" ACTION="login">
   <INPUT TYPE="HIDDEN" NAME="go" VALUE="/test/apache2-aus-cgi/env.cgi">
   <INPUT TYPE="HIDDEN" NAME="go_error" VALUE="/test/apache2-aus-cgi/login.cgi">
   User: <INPUT TYPE="TEXT" NAME="user" /><BR/>
   Pass: <INPUT TYPE="TEXT" NAME="password" /><BR/>
   <INPUT TYPE="SUBMIT" VALUE="Go" />
  </FORM>
  <HR/>
  <B>$message</B>
 </BODY>
</HTML>
EOT

( run in 0.303 second using v1.01-cache-2.11-cpan-64827b87656 )