#!perl -wT
use strict;

use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n";
open (DATA, "data.txt");
my @data = <DATA>;
close (DATA);

my (@rank, @player, @player_password);

for (my $i=0; $i<@data; $i++)
{
	my @entry = split /\*/, $data[$i];
	$rank[@rank] = $entry[0];
	$player[@player] = $entry[1];
	chomp($entry[2]);
	$player_password[@player_password] = $entry[2];
}

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

my %wins;
my %losses;

foreach my $player (@player)
{
	$wins{$player} = 0;
	$losses{$player} = 0;
	foreach my $match (@matches)
	{
		my @entry = split /\*/, $match;
		if ($player eq $entry[0])
		{
			$wins{$player}++;
		}
		if ($player eq $entry[1])
		{
			$losses{$player}++;
		}
	}
	
}

print "<table border=\"1\">\n";
print "<tr><td>Rank</td><td>Player</td><td>Wins</td><td>Losses</td><td>Win Percentage</td></tr>\n";
for (my $i=0; $i < @rank; $i++)
{
	my $win_percentage = substr(($wins{$player[$i]}/($wins{$player[$i]}+$losses{$player[$i]})),0,6) unless (($wins{$player[$i]}+$losses{$player[$i]}) < 1);
	$win_percentage = 0 if (($wins{$player[$i]}+$losses{$player[$i]}) < 1);
	print "<tr><td>$rank[$i]</td><td><a href=\"/cgi-bin/users.pl?user=$player[$i]\">$player[$i]</a></td><td>$wins{$player[$i]}</td><td>$losses{$player[$i]}</td><td>$win_percentage</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