This is portion of a script called database.pl
use NET::SMTP;
$smtp = Net::SMTP->new('mail.blackrose.net'); # connect to an SMTP server
$smtp->mail( 'SirDaniel\@blackrose.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: SirDaniel\@blackrose.net\n");
$smtp->datasend("BCC: SirDaniel\@blackrose.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 free 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("Sir Daniel\n");
$smtp->dataend(); # Finish sending the mail
$smtp->quit; # Close the SMTP connection
When a user registers with us it takes his info and sends it to him (suppose to) so we can check the e-mail right away as well as send his user name and password to him so he does not forget it (hopefully).
I am on a Win NT Machine, SMTP.pm is in the same DIR as the database.pl script when I call it with , USE NET::SMTP, I receive a error that it
can not find NET/SMTP.pm
when I call it with, USE SMTP, it tells me it can not find SMTP.pm
------------------
Thanks in Advance
Daniel J.
http://www.blackrose.net webmaster@blackrose.net [This message has been edited by SirDaniel (edited January 20, 1999).]