#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<head>";
print "<title>International Axis and Allies Players Association Log Database</title>";
print "</head>";
print "<BODY background='/images/back_mosaic_light.gif'>";
print "<center><H1><i>";
print "<A HREF=/index.html><img src=/images/banner.gif ></A>";
print "<br>";
print "International Axis and Allies Players Association Log Database</i></H1>";
print "</center><PRE><b>";
$unzip = "/usr/bin/unzip -p";
use CGI;
$q=new  CGI;
$gameno=$q->param('gameno');
$loglib="/home/sites/site3/web/clubdb/logs/";
#$loglib="";
print "<br><br>";
$lindex=$loglib."logindex";
open (LOGINDEX, "<$lindex") or die "Could not open logindex $lindex\"\n";
$search="#".$gameno."#";
while (<LOGINDEX>) {
    chomp;
    if ( ?$search? ) {
       @zip= split("=",$_);
       $prog="$unzip $loglib$zip[0] $gameno"."LOG.TXT|";
       open(ZIP, $prog);
       while (<ZIP>)  {
           chomp;
           print "$_\n";
       }
      close(ZIP); 
}
}
#else {
#    print "Unfortunately there is no log for Game Number $gameno on the server\n";
#}
close(LOGINDEX);
exit(0)