#!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");
my $delete   = $q->param("delete");
my $deluser  = $q->param("deluser");
if ($username)
{	

	if ($username eq "admin" && $password eq "monksofperl")
	{

		if ($delete)
		{
			open (MATCHES, "matches.txt");
			my @matches = <MATCHES>;
			close (MATCHES);
			open (OUT, ">matches.txt");
			for (my $i=0; $i<@matches; $i++)
			{
				print OUT "$matches[$i]" if ($i != $delete);
			}
			close (OUT);
		}
		if ($deluser)
		{
			open (DATA, "data.txt");
			my @data = <DATA>;
			close (DATA);
			open (OUT, ">data.txt");
			for (my $i=0; $i<@data; $i++)
			{
				print OUT "$data[$i]" if ($i != $deluser);
			}
			close (OUT);
		}
		open (MATCHES, "matches.txt");
		my @matches = <MATCHES>;
		close (MATCHES);
		open (DATA, "data.txt");
		my @data = <DATA>;
		close (DATA);

		print "<h1>Matches</h1>\n";
		print "<table border=\"1\">";
		print "<tr><td>&nbsp;</td><td>Winner</td><td>Loser</td><td>Description</td><td>Date</td></tr>\n";
		for (my $i=0; $i<@matches; $i++)
		{
			my @entry = split /\*/, $matches[$i];
			print "<tr><td><a href=\"/cgi-bin/admin.pl?delete=$i&username=$username&password=$password\">Reap</a></td><td>$entry[0]</td><td>$entry[1]</td><td>$entry[2]</td><td>$entry[3]</td></tr>\n";
		}
		print "</table>\n";
		print "<p><b>Report a loss</b><br>\n";
		print "<form method=\"post\" action=\"/cgi-bin/loss.pl\">\n";
		print "<table border=\"0\">\n";
		print "<tr><td>Winner:</td><td><input type=\"text\" name=\"winner\"></td></tr>\n";
		print "<tr><td>Loser:</td><td><input type=\"text\" name=\"username\"></td></tr>\n";
		print "<tr><td>Description:</td><td><input type=\"text\" name=\"description\"></td></tr>\n";
		print "<tr><td>Loser's pw:</td><td><input type=\"text\" name=\"password\"></td></tr>\n";		
		print "</table>\n";
		print "<input type=\"submit\">";
		print "</form>";
		print "<h1>Users</h1>\n";
		print "<table border=\"1\">";
		print "<tr><td>&nbsp;</td><td>Rank</td><td>Username</td><td>Password</td></tr>\n";
		for (my $i=0; $i<@data; $i++)
		{
			my @entry = split /\*/, $data[$i];
			print "<tr><td><a href=\"/cgi-bin/admin.pl?deluser=$i&username=$username&password=$password\">Reap</a></td><td>$entry[0]</td><td>$entry[1]</td><td>$entry[2]</td></tr>\n";
		}
		print "</table>\n";
	}
	else
	{
		print "<h1><font color=\"red\">UNAUTHORIZED</font></h1>";
	}
}
else
{
	print "<form method=\"post\" action=\"/cgi-bin/admin.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