#!/usr/local/bin/perl
my $INCLUDE_HEADER=($ENV{'DOCUMENT_ROOT'}||"/home/httpd/html");
require "/home/sites/site3/lokad/header1.inc";
print "International Axis and Allies Players Association Playerpool
";
use CGI;
$q=new CGI;
$parent=$q->param('parent');
print "
Join / leave the playerpool
";
print "Current RANK = $parent
";
print "Click on the rank of Members in the Playerpool you wish to see
";
if ($parent eq "All"){$qParent = "%";}
else {
if ($parent eq ""){$qParent ="%";}
else {$qParent = $parent;}}
print "Ranks ";
@ranks=('GEN****','GEN***','GEN**','GEN*','MAJ','COL','CPT','LT','MSGT','SGT','CPL','PVT','ROOKIE');
for ($i=0; $i < 14; $i++){
printf(" %s \n",@ranks[$i],@ranks[$i]);
}
print "
Note the players on the top are the one that have latest changed their player info and therefore the most likely to accept a challenge.
";
$query="select alias, emailaddress, rank, gamespl, gameswon, gamelost, playerpool, poolspeed, poolcomment
from players where rank like '$qParent' and playerpool = 'Y' and inactive <> 'Y' and pooldate is NOT NULL order by poolspeed, pooldate DESC, alias";
@speed[1] = "Cheeth";
@speed[3] = "Hound";
@speed[2] = "Wolf";
die "prepare\n" unless ($cursor = $dbh->prepare($query)); $cursor->execute;
print "
| Alias | Speed | Rank | Record | Challenge | Comment | ";
while(@row = $cursor->fetchrow){
$row[8]=~ s/NULL//g;
$record=$row[4]."-".$row[5];
# print("
");
printf(" %s | %s | %s | %s | Challenge | %s |
\n",
@row[1],@row[0], @speed[@row[7]], @row[2], $record,@row[0],$parent,$row[8]);
}
print "
";
print "
";
exit(0);