#!/usr/local/bin/perl my $INCLUDE_HEADER=($ENV{'DOCUMENT_ROOT'}||"/home/httpd/html"); require "/home/sites/site3/lokad/header1.inc"; print ""; print "Submit gamefinish International Axis and Allies Players Association Database



Submit game results

"; use CGI; $q=new CGI; $gameno = $q->param('gameno'); $alias = $q->param('alias'); $playercode = $q->param('playercode'); $qParent = $gameno; $Qgt=""; $Qpt=""; if ($gameno eq '' || $playercode eq '' || $alias eq '' ) { print("
"); print(""); print(""); print(""); print("
Game number
Your aliasname at IAAPA
Password
");} else { $pquery = "select playernumber, emailaddress from players where alias = '$alias' and playercode = $playercode"; die "prepare\n" unless ($pcursor = $dbh->prepare($pquery)); $pcursor->execute; if (@plrow = $pcursor->fetchrow){ @gmx = split("@",@plrow[1]); $gm = $alias; $query="select winner, player1, player2, site, gm, bidwins, start, finish, victype, rank1, rank2,rated, captured, lastturn, bidlose, gametype, playtype, tournament, gameno, postmortem from games where gameno = $gameno and confirmed = 'N' and ( pl2nr = $plrow[0] or gm LIKE '$gm%' )"; #print "$query"; die "prepare\n" unless ($cursor = $dbh->prepare($query)); $cursor->execute; if (@row = $cursor->fetchrow){ @Qgame = @row; print "

Please fill in the details of the games below.



Game NO

$gameno

Winning side @Qgame[3]

Player1

 \"@Qgame[1]\"

Opponent

 @Qgame[2]

Winner

@Qgame[0]

Start date (yyyy-mm-dd)

 @Qgame[6]

End date (yyyy-mm-dd)

 @Qgame[7]

Capitals captured

 @Qgame[12]

End turn

 @Qgame[13]

Victory type

@Qgame[8]

Techs

"; print "

"; $tryit="select * from aatechinfo where tigameno ='$gameno'"; die "prepare\n" unless ($cursor = $dbh->prepare($tryit)); $cursor->execute; while(@row = $cursor->fetchrow){ printf("",@row[1],@row[2]); } close(MYSQL); print "
%s %s

IC builds
"; print ""; $tryit="select * from aaic where icgame =$gameno"; $newc="1"; die "prepare\n" unless ($cursor = $dbh->prepare($tryit)); $cursor->execute; while(@row = $cursor->fetchrow){ if ($newc eq "1") {print "
@row[1]"; $br=@row[1]; $newc="0";} if ($br eq @row[1]) { printf(" %s ",@row[2]);} else { printf("
%s %s ",@row[1],@row[2]);$br=@row[1];} } print "

Comments


"; #$lf = "$ENV{'DOCUMENT_ROOT'}/clubdb/comments/comments.".$gameno; #if( open(COMMENTFILE, $lf)){ print "

"; #while () { print @Qgame[19]; # } #close(COMMENTFILE); #} print "


\n"; } else { print("Sorry the database does not have your playernumber as either player or gamemaster of this game

Please report the results to the Minister of Stats"); print("

"); print(""); print(""); print(""); print("
Game number
Your aliasname at IAAPA
Password
"); print "

"; }} else { print("Your alias name and your playercode do not match

"); print("
"); print(""); print(""); print(""); print("
Game number
Your aliasname at IAAPA
Password
"); print "

"; } }