#!perl -wT
use strict;

use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $q = new CGI;
print $q->header;
my $username = $q->param("username");
my $password = $q->param("password");

if ($username)
{
	open (DATA, "data.txt");
	my @data = <DATA>;
	close (DATA);
	open (OUT, ">>data.txt");
	print OUT scalar(@data)+1, "*$username*$password\n";
	close (OUT);

	print "<p>Thank you for signing up!<br>";
	print "Your username is $username, your password is $password.";
	print "</p>";

}
else
{
	print "<form method=\"post\" action=\"/cgi-bin/signup.pl\">\n";
	print "Username:<input type=\"text\" name=\"username\"><br>\n";
	print "Password:<input type=\"password\" name=\"password\"><br>\n";
	print "<input type=\"submit\">";
	print "</form>";
}
print << "END_OF_MENU";
<br>
<table border="0">
<tr>
<td><a href="/cgi-bin/signup.pl">Sign Up</a></td>
<td><a href="/cgi-bin/standings.pl">Standings</a></td>
<td><a href="/cgi-bin/loss.pl">Report Loss</a></td>
</tr>
</table>
END_OF_MENU