#!/usr/local/bin/perl # Send Password script (If user forgot his password) # Author: Manuel Kanahuati # Email: mkr@mexicovirtual.net # Web: http://www.mexicovirtual.net # Release: 2.0 # Revision: 0 # # my $INCLUDE_HEADER=($ENV{'DOCUMENT_ROOT'}||"/home/httpd/html"); require "/usr/local/apache/lokad/dbconnect.inc"; use CGI; $q=new CGI; $alias =$q->param('alias'); $email =$q->param('email'); $ok = 0; if ($q->param('action') eq "dosend") { $ok = &dosend; if ($ok == 1) { &displaymsg; } else { &showpassform; } } else { &showpassform; } exit(0); sub showpassform { print "Content-type: text/html\n\n"; print qq ~ IAAPA - Members Area (forgot password)
IAAPA
International Axis And Allies Players Association
Top Menu
 

Login   

Send Password by Email

Only active IAAPA members have access to the Members area. Click here for more information on how to join IAAPA or visit our web site.

    If you don't know your user name (alias) or password, you can enter your alias or your registered email address below.   In a couple minutes you will be emailed your alias and password if you have one in the IAAPA database.


Remember the information will be emailed to the address you registered with IAAPA.
If you changed email address, please contact help\@axisandallies.net.

$log_msg
Alias:
Email:

  






~; } sub dosend { my $result = 0; if (($alias ne "") && ($email ne "")) { ($qemail = $email) =~ tr /A-Z/a-z/; $condit = "alias = '$qalias' or emailaddress = '$qemail'"; } else { if ($alias ne "") { $condit = "alias = '$qalias'"; } elsif ($email ne "") { ($qemail = $email) =~ tr /A-Z/a-z/; $condit = "emailaddress = '$email'"; } else { $log_msg = "Please provide the required information !!!"; &showpassform; exit(0); } } $query = "select alias, playercode, emailaddress 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 ( ((@row[0] eq $qalias)||(@row[2] eq $qemail)) && length(@row[2]) != 0 ) { $result = 1; if ($email eq "") { $qemail = $row[2]; } $dx=localtime(time()); @d2=split( " ", $dx); $dagsx=@d2[0].", ".@d2[2]." ".@d2[1]." ".@d2[4]." ".@d2[3]." -0500"; open(SMAIL,"|/usr/sbin/sendmail -t @row[2]") or die "Could not start sendmail\n"; printf(SMAIL "From: help\@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\n"); printf(SMAIL "Here is the information you requested to access IAAPA Members Area.\n"); printf(SMAIL "\n\n User Name(Alias): %s \n Password: %s\n\n",@row[0],@row[1]); printf(SMAIL "Make sure you make note of this information for future reference.\n"); printf(SMAIL "\n\nBest Regards\n\n"); printf(SMAIL "IAAPA\n\n"); close(SMAIL); } else { $log_msg = "The information you provided is not valid, try again !!!"; } } else { $log_msg = "The information you provided is not valid, try again !!!"; } } sub displaymsg { print "Content-type: text/html\n\n"; print qq ~ IAAPA - Members Area (forgot password)
IAAPA
International Axis And Allies Players Association
Top Menu
 

Login   

Send Password by Email

Only active IAAPA members have access to the Members area. Click here for more information on how to join IAAPA or visit our web site.








Shortly your alias and password will be emailed to your registered email account.

Thank You.







~; }