#!/usr/bin/env perl
require "common.pl";
print "Content-Type: text/html\r\n\r\n";
my %QUERY = ();
{
my @pairs = split(/&/, $ENV{"QUERY_STRING"});
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$QUERY{$name} = $value;
}
}
my $magic = $QUERY{'magic'};
my $magicsuffix = $magic ? "&magic=1" : "";
my $refresh_time = int($QUERY{'refresh'});
if ($refresh_time < 1) {
$refresh_time = 1;
}
$refresh_time = int($refresh_time);
my $next_refresh_time = $refresh_time + int(($refresh_time+1)/2);
if ($magic) { $next_refresh_time = $refresh_time; }
print qq|
$htmltitle
|;
require "prefix.pl";
print "Run History
\n";
#print "Will refresh in $refresh_time seconds. Refresh now.
\n";
print qq|
|;
print "Possible Results: " . join(", ", sort values %statustext) . ".
\n";
print "Done here? Check the to Scoreboard.
\n";
print "\n";
print "| Time | User | Problem | File | Result | | Time |
|---|
\n";
my $entries_string = `grep -H . submissions/*/time`;
my @entries = split(/\s+/, $entries_string);
my %times = ();
foreach (@entries) {
my ($id, $stamp) = split(/:/, $_, 2);
if ($id =~ m{/(.+?)\.(.+?)\.(.+?)/}) {
$times{$stamp . "." . $3} = $1 . "." . $2;
}
}
foreach (reverse sort keys %times) {
my ($t, $i) = split(/\./, $_, 2);
my ($u, $p) = split(/\./, $times{$_}, 2);
my $r = readfile("submissions/$u.$p.$i/status");
chomp($r);
if ($statustext{$r}) { $r = $statustext{$r}; }
my $f = readfile("submissions/$u.$p.$i/file");
if ($ENV{'REMOTE_ADDR'} eq "" || $magic) {
print "| $i |
\n";
}
my $s = "";
if (-e "submissions/$u.$p.$i/new") {
$s = "(Tentative)" unless $r =~ m{yellow};
}
my $d = sectospan(isotimediff($t, $contest_start));
print "| $t | $u | $p | $f | $r | $s | $d |
\n";
}
print "
\n";
print "\n\n";
exit 0;