";
use CGI;
$q=new CGI;
$playercode=$q->param('playercode');
$playernr = $q->param('playernr');
$alias =$q->param('alias');
$email =$q->param('email');
if (length($playercode) == 0 && length($playernr.$email.$alias) > 0 ) {
#
# This is if only playernr was entered as playerid
#
print"
IAAPA Membership Verification Page
";
if ($alias ne "") { ($qalias = $alias) =~ tr /a-z/A-Z/; $condit = "alias like '$qalias%'";}
if ($email ne "") { @pl2 = split("@",$email); ($qalias = @pl2[0]) =~ tr /a-z/A-Z/; $condit = "playerid like '$qalias%'";}
if ($playernr ne "") { $condit = "playernumber = $playernr";}
$query = "select playernumber, playercode, emailaddress, alias from players where $condit";
die "Try to create cursor on players stopped\n" unless ($cursor = $dbh->prepare($query));
$cursor->execute;
if (@row=$cursor->fetchrow) {
# if there is line found in players
if (@row[0] > 0 && @row[1] > 0 && length(@row[2]) != 0) {
#
# Here we have a player with playercode playerid and emailaddress
# And we send his playercode and playerid to him with sendmail
#
$dx=localtime(time());
@d2=split( " ", $dx);
$dagsx=@d2[0].", ".@d2[2]." ".@d2[1]." ".@d2[4]." ".@d2[3]." -0500";
open(SMAIL,"|/usr/sbin/sendmail @row[2]") or die "Could not start sendmail\n";
printf(SMAIL "From: engineering\@axisandallies.net\n");
printf(SMAIL "To: %s\n",@row[2]);
printf(SMAIL "Subject: Information on your IAAPA Membership\n",$gn);
printf(SMAIL "Date: %s\n",$dagsx);
printf(SMAIL "MIME-Version: 1.0\n");
printf(SMAIL "Content-Type: text/plain; charset=iso-8859-1\n");
printf(SMAIL "Content-Transfer-Encoding: 8bit\n\n");
printf(SMAIL "\n\n Player Number: %d \n Password: %d\n\nAlias: %s\n\n",@row[0],@row[1],@row[3]);
printf(SMAIL "Make sure you make note of this information for future reference\n");
printf(SMAIL "and also ensure your player information is correct on \n");
printf(SMAIL "site. Remember your association alias is used for\n");
printf(SMAIL "the user name when logging on to member only areas of the site\n");
close(SMAIL);
print("
Your query has been successful
Your player number, alias and password were found in the IAAPA database and have been sent to your email address @row[2] by email. Please check your incoming mail folder for your membership information. In this email you will receive a player number and a password, use them on this page to continue. Note that your alias is your user name for the member areas of the site, your player number is used for game challenges and your password is used in both cases
");
print("");
}
# end of have number code and email
else {
print"
IAAPA Membership Verification Page
";
print("
Unfortunately your ID was not found in the member database having playernumber and password. Please check your spelling or contact the IAAPA Help Desk
");}}
# /* if line found ends */
else {
print("
Unfortunately your ID was not found in the members base having playernumber and playercode
");}
}
# end of if only number entered as playerid
else {
if (length($playercode) == 0 || length($playernr) == 0) {
print"
IAAPA Membership Verification Page
";
print("
If you don't know your player number or password please enter either your alias or the start of your email address. In a couple minutes you will be emailed your player number and password if you have one in the IAAPA database
");
print("");}
else {
$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 from players
where playernumber = $playernr and playercode = $playercode";
$poolopt="