#!/usr/bin/perl
use strict;
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("Echoingwalls Music Forums");
print qq(<h3>Forum Login<br><hr></h3>\n);

print <<EndHTML;
<form ACTION="redirect.cgi" METHOD="POST" NAME="login">
<INPUT TYPE="hidden" NAME="action" VALUE="login">
<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>
</form>

<center>
<ol type="1">
<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>
</center>

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

&do_footer;