I am not entirely sure where to put the first chunk of code that you gave me.
Code:
my $mailer = new Mailer ( { smtp => '$smtpserver' } )
or die "Can't init mailer: $Mailer::error";
$mailer->send ( {
to => $rec{'Email'},
from => $admin_mail,
subject => "$subject",
msg => '
INSERT TEXT
$rec{'URL'}
';
} )
or die "Can't send mail: $Mailer::error";
I could only guess that is would replace the following code of db.pl
Code:
#### Following fifteen lines added for secure_password_lookup mod
open (MAIL, "$mailprog") | | &cgierr("Can't start mail program");
print MAIL "To: $in{'email'}\n";
print MAIL "From: $admin_email\n";
print MAIL "Subject: $html_title Account Created\n\n";
print MAIL "-" x 75 . "\n\n";
print MAIL "Your account at $html_title has been created.\n\n";
print MAIL "Your $html_title User ID is: $in{'userid'}\n";
print MAIL "Your $html_title password is: $in{'pw'}\n\n";
print MAIL "Please keep this email for future reference.\n\n";
print MAIL "To log on, go to\n\n";
print MAIL "$db_script_url?db=$db_setup\n";
print MAIL "and enter your User ID and password.\n\n";
print MAIL "Please contact $html_title support at: $admin_email\n";
print MAIL "if you have any questions.\n\n";
close (MAIL);
Can you be more specific... thanks again. I really do appreciate your help!
Greg
[This message has been edited by maps (edited October 27, 1999).]
[This message has been edited by maps (edited October 27, 1999).]