#!/usr/bin/perl
use CGI;
$query = new CGI;
$the_score=$query->param('score');
$the_name=$query->param('name');
print "Content-type: text/html\n\nShariki Top 100".
"\nShariki Top 100
\n".
"\n".
"| # | Score | Name | Date | Time | ".
" Host |
|---|
\n";
$place=$prscr=0;
$color="";
open(FILE, "sort -r -n ./top100 |") || die "File not found!";
while(){
$splace="-";
($score, $name, $date, $time, $hstn) = split('\t');
if($score!=$prscr){
$place++;
$splace=$place;
}
$color="bgcolor=#e8e8e8" if $score==$the_score && $name eq $the_name;
print "| $splace | $score | $name | $date | ".
"$time | $hstn |
\n" if $score>0;
$prscr=$score;
$color="";
}
close(FILE);
print "
\nTo start a new game press BACK button of your ".
"browser.
\n";