#!/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 Registration<br><hr></h3>\n);

print <<EndHTML;
<form action="register.cgi" method="post">
<input type="hidden" name="signature" size="30" value="Create a signature.">
<input type="hidden" name="avatar" size="30" value="no_avatar.gif">
<input type="hidden" name="status" size="30" value="Active">
<table border="1" cellpadding="0" cellspacing="0" bgcolor="#C0C0C0">
<tr><td><font color="black"><b>Username: </b></font></td><td><input type="text" name="username" size="30"></td></tr>
<tr><td><font color="black"><b>Password: </b></font></td><td><input type="password" name="password" size="30"></td></tr>
<tr><td>&nbsp;</td><td><font color="black">Please re-enter your password.</font></td></tr>
<tr><td>&nbsp;</td><td><input type="password" name="password_verify" size="30"></td></tr>
<tr><td>&nbsp;</td><td>&nbsp;</td></tr>
<tr><td><font color="black"><b>First Name: </b></font></td><td><input type="text" name="first_name" size="30"></td></tr>
<tr><td><font color="black"><b>Last Name: </b></font></td><td><input type="text" name="last_name" size="30"></td></tr>
<tr><td><font color="black"><b>E-mail Address: </b></font></td><td><input type="text" name="email" size="30"></td></tr>
<tr><td>&nbsp;</td>
<td>
<input type="Submit" value="Register">
<input type="Reset" value="Reset">
<input type="button" value="Cancel" onclick="cancel()">
</td></tr>
</table>
</form>
EndHTML

&do_footer;