Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xray.sai.msu.ru/~ustiansk/misc/shariki/toplist.cgi
Дата изменения: Tue Sep 28 14:54:30 1999
Дата индексирования: Tue Oct 2 13:56:44 2012
Кодировка:
#!/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".<br> "\n

Shariki Top 100

\n".
"\n".
"".
"\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 "".
"\n" if $score>0;
$prscr=$score;
$color="";
}
close(FILE);
print "
# Score Name Date Time Host
$splace$score$name$date$time$hstn
\n

To start a new game press BACK button of your ".
"browser.

\n";