#!/usr/bin/perl

$PATH = "/home/httpd/netdragons.com-data/24_high";

require("cgi-lib.pl");

&ReadParse(*input);
  $file = $input{'file'};
  $name = $input{'name'};
  $score = $input{'s'};
  $key = $input{'key'};

print"Content-type: text/plain\n\n";

if ($key eq "ZZZZZZZZZZZZZZZZ") {

$replace = 0;

open(FILE, "$PATH/$file");
while(<FILE>) {
  chop;
  ($fName, $fScore) = split(/-/,$_,2);
  if ($score >= $fScore) {
    $line[$replace++] = "$name-$score";
    $score = 0;
  } 
  $line[$replace++] = $_;
}
close(FILE);

open(FILE, ">$PATH/$file");
for ($i = 0; $i < 5; $i++) {
  print (FILE "$line[$i]\n");
  print "$line[$i]\n";
}
close(FILE);

} else {

print "Unknown-100\n";
print "Unknown-100\n";
print "Unknown-100\n";
print "Unknown-100\n";
print "Unknown-100\n";

}