#!/usr/local/bin/perl
require "../cgi-lib.pl";
MAIN:
{
print &PrintHeader;
print &HtmlTop("The Top 199");
print "<center><img src=../../bar.gif></center>";
print "<p><font size=+1><b>Thanks for your contribution.</b></font><br>";
print &ReadParse;
@memos=values(%in);
open(NEW, ">tmpo");
open(OLD, "archiv");
print NEW "<i>$memos[0]</i><br>\n";
print NEW "$memos[1]<br>\n";
print NEW "<img src=../../bar.gif><br>\n";
while (<OLD>){
   print NEW "$_";
}
close(OLD);
close(NEW);
system ("head -199 tmpo > archiv");
open(OLD, "archiv");
while (<OLD>){
   print "<br>$_";
}
close(OLD);
print "<p><img src=../../bar.gif><br>";
print "(FILE TRUNCATED AT 199 LINES)";
print "<center><a href=http://webshells.com/jdoug/forum.htm>
<img src=../../trap.gif border=0></a></center>"; 
print &HtmlBot;