open (PASS, ">>$auth_pw_file") or &cgierr ("unable to open: $auth_pw_file.\nReason: $!");
if ($db_use_flock) {
flock(PASS, 2) or &cgierr("unable to get exclusive lock on $auth_pw_file.\nReason: $!");
}
my @salt_chars = ('A' .. 'Z', 0 .. 9, 'a' .. 'z', '.', '/');
my $salt = join '', @salt_chars[rand 64, rand 64];
my $encrypted = crypt($in{'pw'}, $salt);
my $permissions = join (":", @auth_signup_permissions);

print PASS "$in{'userid'}:$encrypted:$permissions\n";
close PASS;

&html_signup_success;

open(LAST, ">>$latest") | | die $!;
print LAST "Userid: $in{'userid'}\n";
print LAST "Pass: $in{'pw'}\n";
print LAST "Email: $in{'Mail'}\n\n";
close(LAST);

use NET::SMTP;
$smtp = Net::SMTP->new('your.SMTPSERVER.net'); # connect to an SMTP server
$smtp->mail( 'yourname\@yourdomain.net' ); # use the sender's address here
$smtp->to($in{'Mail'}); # recipient's address
$smtp->data(); # Start the mail

# Send the header.
$smtp->datasend("To: $in{'Mail'}\n");
$smtp->datasend("From: yourname\@yourdomain.net\n");
$smtp->datasend("BCC: yourname\@yourdomain.net\n");
$smtp->datasend("Subject: Your Access Information\n");
$smtp->datasend("\n");

# Send the body.
$smtp->datasend("Thank You for registering with us.\n");
$smtp->datasend("Please save this message!\n");
$smtp->datasend("This information is REQUIRED to add/modify/delete your account info!\n");
$smtp->datasend("Please let others know of this service!\n");
$smtp->datasend("Your ID, Password and E-Mail are:\n");
$smtp->datasend("Userid: $in{'userid'}\n");
$smtp->datasend("Pass: $in{'pw'}\n");
$smtp->datasend("E-Mail: $in{'Mail'}\n");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->datasend("\n");
$smtp->datasend("Thank you for your time and good luck.\n");
$smtp->datasend("Your Name Here\n");


$smtp->dataend(); # Finish sending the mail
$smtp->quit; # Close the SMTP connection
}

# Get the information to send to them later if it is forgotten.
$latest = $db_script_path . "/saveme.txt";