#!/usr/bin/perl
use strict;
#use lib 'C:\Inetpub\wwwroot\Sites\asp\techdex\projects\forums\cgi-bin\forums\.';
use lib '.';
use MyBoard;

my($i);

# $cgi->param returns an array of the input field names.
foreach $i ($cgi->param()) {
    if ($cgi->param($i) =~ /^\s*$/) {
        &dienice("$i was blank - please fill out all of the fields.");
    }
}

my($user) = $cgi->param('username');

&do_header("$btitle");

my($workflow) = ($cgi->param('workflow'));

print qq(
<form action="redirect.cgi" method="post" name="login">
<Iinput type="hidden" NAME="action" VALUE="login">
Don't have a username? <a href="register_form.cgi">Register</a> or view as a <a href="redirect.cgi?function=guest">guest</a>.
<table border="1" bgcolor="#C0C0C0" cellpadding="0" cellspacing="0">
<tr><td><b>Username: </b></td>
<td><input type="text" name="username" size="25"></td></tr>
<tr><td><b>Password: </b></td>
<td><input type="password" name="password" size="25"></td></tr>
<tr><td>&nbsp;</td>
<td>
<input type="Submit" value="Login">
<input type="Reset" value="Reset">
</td></tr>
</table>
<span style="color:red"><b>&nbsp;$workflow</b></span>
</form>

<ol type="1">
<li>Usernames and passwords are CaSe sEnSiTiVe!</li>
<li>To create your <b>free</b> account, <a href="register_form.cgi">click here</a>.</li>
<li>To retrieve your username or password, <a href="recover.cgi">click here</a>.</li>
</ol>

<script language="JavaScript">
   document.login.username.focus()
</script>
);

&do_footer;