Ultimate Member Manager

#!/usr/bin/perl ############################################ ## ## ## Developed by Kaviraj Kodai ## ## www.eDesignParadigm.com ## ## (scripts@edesignparadigm.com) ## ## ## ## Ultimate Member Manager ## ## version: 1.0 ## ## last modified: 10/December/2002 ## ## copyright (c) 2002 ## ## ## ## ## ## For additional information visit ## ## http://www.eDesignParadigm.com ## ## ## ################################################################ # COPYRIGHT (C) 2002 KAVIRAJ KODAI. ALL RIGHTS RESERVED # ################################################################ # Copyright Notice # # ---------------- # # This program is a commercial product and must NOT be copied, # # modified, distributed, or installed without a user license # # from http://www.eDesignParadigm.com. Any modification of the # # script without the written consent of Kaviraj Kodai is # # strictly prohibited. You may not remove any of these header # # notices. By using this code you agree to indemnify the author# # from any liability that might arise from it's use. # ################################################################ ################################################################ # DO NOT EDIT ANYTHING BELOW # ################################################################ require "config.cgi"; &configure; use CGI qw (:standard); use CGI::Carp qw(fatalsToBrowser); if (param(action) eq "add") {&add;} if (param(action) eq "doadd") {&doadd;} sub add{ $pass = param('pass'); if ($pass ne $accesspass) {&error("An unauthorized request was passed to the script.

Please contact $adminemail if you think there's an error.

Thank You!");} open (HEADERFILE, "$header"); @header= ; close(HEADERFILE); open (FOOTERFILE, "$footer"); @footer = ; close(FOOTERFILE); open (STYLEFILE, "$style"); @style= ; close(STYLEFILE); print "Content-type: text/html\n\n"; print < Ultimate Member Manager @style @header

Please fill out the form below to create your member account. All fields marked with * are required.

If you are having any problems, don't panic. Email us at $adminemail and we'll get back to you asap.

@footer html_ exit; } sub doadd{ $pass = param('pass'); if ($pass ne $accesspass) {&error("An unauthorized request was passed to the script.

Please contact $adminemail if you think there's an error.

Thank You!");} $name = param('name'); $name =~s/'/''/g; $email = param('email'); $email =~s/'/''/g; $acctid = param('acctid'); $acctid =~s/'/''/g; $password = param('password'); $password =~s/'/''/g; $howdid = param('howdid'); $howdid =~s/'/''/g; $ip = $ENV{'REMOTE_ADDR'}; my $tstamp = time(); my ($y, $m, $d, $ss, $mm, $hh) = (localtime($tstamp))[5,4,3,0,1,2]; $y += 1900; $y = sprintf("%02d", $y % 100); $m += 1; if (length($m) < 2) {$m = "0" . $m} if (length($d) < 2) {$d = "0" . $d} $date = "$m/$d/$y"; $time = time; if ($name eq ""){ &error("Please enter your name!"); } unless ($email =~ /.*\@.*\..*/) { error("The email is invalid!"); } if ($acctid eq ""){ &error("Account ID field is empty!"); } if ($acctid =~ /[^a-zA-Z_0-9]/) {&error("Only letters and numbers for account name!

No space or special characters please!");} if ($password eq ""){ &error("Password field is empty!"); } $accountlength = length($acctid); if ($accountlength > 15) { &error("Please limit your \"account name\" to under 15 characters."); } $passlength = length($password); if ($passlength > 15) { &error("Please limit your \"account password\" to under 15 characters."); } chomp($email); $cursor=$dbh->prepare("select email from memdata where email='$email'"); $cursor->execute; $email2 = $cursor->fetchrow_array; chomp($email2); if ($email2 eq $email) { &error("It looks like email address $email is already registered.

Please go back and enter a different email address.

"); } $cursor=$dbh->prepare("select acctid from memdata where acctid='$acctid'"); $cursor->execute; $account = $cursor->fetchrow_array; if ($account eq $acctid) { &error("It looks like account $acctid is already registered.

Please go back and select a new account name.

"); } $cursor->finish; $cursor=$dbh->prepare("select doubleoptin from settings where acctid='99'"); $cursor->execute; $doubleoptin = $cursor->fetchrow_array; if ($doubleoptin eq "Y") { &doubleoptin; } $cursor=$dbh->prepare("INSERT INTO memdata (acctid,password,name,email,howdid,date,time,ip) VALUES ('$acctid','$password','$name','$email','$howdid','$date','$time','$ip')"); $cursor->execute; if ($cursor->err != 0) { &error("Cannot connect to database to save parameters - error 1"); } $cursor->finish; $newpassword = crypt($password, yo); $newline = join ("\:",$acctid,$newpassword); $newline .= "\n"; open(DB, ">>$memfile") or print"unable to open htpasswd"; print DB $newline; close (DB); $cursor1=$dbh->prepare("select introduction,adminnotify,sitename,protecturl from settings where acctid='99'"); $cursor1->execute; ($introlet,$adminlet,$sitename,$protecturl) = $cursor1->fetchrow_array; $cursor1->finish; $dbh->disconnect; @welcomelet = $introlet; @adminnotify = $adminlet; foreach $welcomelet(@welcomelet) { $welcomelet =~ s/\[NAME\]/$name/gi; $welcomelet =~ s/\[EMAIL\]/$email/gi; $welcomelet =~ s/\[ACCOUNT\]/$acctid/gi; $welcomelet =~ s/\[PASSWORD\]/$password/gi; $welcomelet =~ s/\[DATE\]/$date/gi; $welcomelet =~ s/\[IP\]/$ip/gi; $welcomelet =~ s/\[PROTECTURL\]/$protecturl/gi; $welcomelet =~ s/\[SITENAME\]/$sitename/gi; $welcomelet =~ s/\[ADMINEMAIL\]/$adminemail/gi; } open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "To: $email\n"; print MAIL "From: $adminemail\n"; print MAIL "Subject: $name, Thank you for joining.\n\n"; foreach $welcomelet(@welcomelet) { print MAIL "$welcomelet"; } close(MAIL); foreach $adminnotify(@adminnotify) { $adminnotify =~ s/\[NAME\]/$name/gi; $adminnotify =~ s/\[EMAIL\]/$email/gi; $adminnotify =~ s/\[ACCOUNT\]/$acctid/gi; $adminnotify =~ s/\[PASSWORD\]/$password/gi; $adminnotify =~ s/\[DATE\]/$date/gi; $adminnotify =~ s/\[IP\]/$ip/gi; $adminnotify =~ s/\[HOWDID\]/$howdid/gi; } open (MAIL1, "|$mailprog -t") || die "Can't open $mailprog!\n"; print MAIL1 "To: $adminemail\n"; print MAIL1 "From: $adminemail\n"; print MAIL1 "Subject: New Member Joined.\n\n"; foreach $adminnotify(@adminnotify) { print MAIL1 "$adminnotify"; } close(MAIL1); open (HEADERFILE, "$header"); @header= ; close(HEADERFILE); open (FOOTERFILE, "$footer"); @footer = ; close(FOOTERFILE); open (STYLEFILE, "$style"); @style= ; close(STYLEFILE); print "Content-type: text/html\n\n"; print < $name, Your Account has been created! @style @header

Success! Account Created Successfully
Congratulations $name! You have been successfully registered.

Click here to Enter into the $sitename
Your username and password are:

username: $acctid
password: $password

(note: these are case sensitive. Copy and paste for best result)
Make Sure that you write your username and password and store it in a safe place.

Or Click here to Enter if you're having trouble with the above link.
If you have any questions, feel free to email us at $adminemail

@footer html_ exit; } sub doubleoptin{ $cursor=$dbh->prepare("select acctid from doubleopt where acctid='$acctid'"); $cursor->execute; $account = $cursor->fetchrow_array; if ($account eq $acctid) { &error("It looks like account $acctid is already queued.

Please go back and select a new account name.

"); } $cursor->finish; $cursor=$dbh->prepare("INSERT INTO doubleopt (acctid,password,name,email,howdid,date,time,ip) VALUES ('$acctid','$password','$name','$email','$howdid','$date','$time','$ip')"); $cursor->execute; if ($cursor->err != 0) { &error("Cannot connect to database to save parameters - error 1"); } $cursor->finish; $cursor=$dbh->prepare("select optinnotify,sitename from settings where acctid='99'"); $cursor->execute; ($optinlet,$sitename) = $cursor->fetchrow_array; $cursor->finish; $dbh->disconnect; @optinnotify = $optinlet; $confirmlink = "$cgilocation/confirm.cgi?id=$acctid"; foreach $optinnotify(@optinnotify) { $optinnotify =~ s/\[NAME\]/$name/gi; $optinnotify =~ s/\[EMAIL\]/$email/gi; $optinnotify =~ s/\[ACCOUNT\]/$acctid/gi; $optinnotify =~ s/\[WEBADDRESS\]/$webaddress/gi; $optinnotify =~ s/\[SITENAME\]/$sitename/gi; $optinnotify =~ s/\[ADMINEMAIL\]/$adminemail/gi; $optinnotify =~ s/\[CONFIRMLINK\]/$confirmlink/gi; } open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n"; print MAIL "To: $email\n"; print MAIL "From: $adminemail\n"; print MAIL "Subject: $name, Please confirm your membership.\n\n"; foreach $optinnotify(@optinnotify) { print MAIL "$optinnotify"; } close(MAIL); open (HEADERFILE, "$header"); @header= ; close(HEADERFILE); open (FOOTERFILE, "$footer"); @footer = ; close(FOOTERFILE); open (STYLEFILE, "$style"); @style= ; close(STYLEFILE); print "Content-type: text/html\n\n"; print < $name, Please confirm your registration! @style @header

Please confirm your registration!
Dear $name!

Your registration request has been successfully queued for verification.

An email has been sent to $email containing a verification url that you should click on so as to register your account with our system. Expect to receive that email within a few seconds or minutes. If it takes more than 15 minutes, please contact us at $adminemail and we'll do the needful for you.

This confirmation process is our way of verifying that you're not using someone else's email address to register with us.

Return to home page.

@footer html_ exit; } # end of script