#!perl -wT
use strict;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;
print $q->header;
my $user = $q->param("user");

open (MATCHES, "matches.txt");
my @matches = <MATCHES>;
close (MATCHES);

open (DATA, "data.txt");
my @data = <DATA>;
close (DATA);

my %rankings;
foreach my $line (@data)
{
	my @entry = split /\*/, $line;
	$rankings{$entry[1]} = $entry[0];
}
my ($x, $wins, $losses, @winners, @losers, @descriptions, @dates);
$wins = $losses = 0;
if (exists($rankings{$user}))
{
	foreach my $match (@matches)
	{
		my @entry = split /\*/, $match;
		$wins++ if ($entry[0] eq $user);
		$losses++ if ($entry[1] eq $user);
		if ($entry[0] eq $user || $entry[1] eq $user && $x<10)
		{
			$winners[@winners] = $entry[0];
			$losers[@losers] = $entry[1];
			$descriptions[@descriptions] = $entry[2];
			$dates[@dates] = $entry[3];
			$x++;
		}
	}
}

print "<center><h1>$user</h1>\n";
print "<p><b>Wins:</b> $wins &nbsp;&nbsp; <b>Losses:</b> $losses</p><p>Last 10 Matches<br>";
print "<table border=\"1\">";
print "<tr><td>Date</td><td>Winner</td><td>Loser</td><td>Description</td></tr>";
for (my $i=0; $i<@winners; $i++)
{
	print "<tr><td>$dates[$i]</td><td>$winners[$i]</td><td>$losers[$i]</td><td>$descriptions[$i]</td></tr>\n";
}
print "</table>\n";
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