#!/usr/local/bin/perl
my $INCLUDE_HEADER=($ENV{'DOCUMENT_ROOT'}||"/home/httpd/html");
require "/home/sites/site3/lokad/header1.inc";
print "
Members of the A&A online Club
International Axis and Allies Players Association Database
";
use CGI;
$q=new CGI;
$alias=$ENV{'REMOTE_USER'};
$q1="select playercode, playernumber, alias, emailaddress from players where alias = ?";
$pcursor=$dbh->prepare($q1);
$pcursor->execute($alias);
$challenge=$q->param('challenge');
$addmetopool=$q->param('addmetopool');
sub Gametype {
($pt)=@_;
$pt=~ s/^#/PBEM with GM/g;
$pt=~ s/^C/CD rom -live/g;
$pt=~ s/^D/PBEM without GM/g;
$pt=~ s/^L/Live AOL HQ/g;
$pt=~ s/^F/Face to Face/g;
$pt=~ s/^I/Internet/g;
return(($pt));
}
sub delete_old_challenge {
$querydel="delete from chgames where chplnr = ? and chpl2 = ?";
$delcur=$dbh->prepare($querydel) || die "Could not prepare del query\n";
$delcur->execute($playernr,$challenge);
}
sub Add_to_pool {
$queryadd = "insert into gmNext values (999999,'$alias','$email')";
die "insert\n" unless ($acursor = $dbh->prepare($queryadd)); $acursor->execute;
}
sub challengeform {
$chq="select chpl2, chplaytype, chbid1, chdate from chgames where chplnr=?";
$chcur=$dbh->prepare($chq);
$chcur->execute($playernr);
$first=1;
while (($ochpl2, $oplt,$chbid,$chdate)=$chcur->fetchrow)
{
if ($first==1) { $first=0;
print "
Playtype
Opponent
date
Your bid
";}
($plt)=&Gametype($oplt);
print "
";
}
if (($playercode, $playernr, $alias, $email) = $pcursor->fetchrow){
if ($challenge ne '') { &delete_old_challenge; }
if ($addmetopool eq 'Y') { &Add_to_pool};
$query = "select playerid, firstnam, lastname, rank, points,
gamespl, Record, gameswon, gamelost, resetwon, reslost, gamesgm, Resetrec,
joined, comments, playernumber, playercode, emailaddress, playerpool, poolspeed,
city, state, Country, phone, oldemail, alias,
street, zipcode,birthday, poolcomment
from players
where playernumber = $playernr and playercode = $playercode";
$poolopt="