I've been experiencing a weird behavior lately with one of my messaging
scripts. I keep on seeing msg recipients getting BCC'd a copy of the msg, in
addition to their listing in the To: field. I have no idea why, but it seems
to have something to do with the "hard" ->recipient method call - but when I
remove it, my scripts break. I'm thinking this should be pretty trivial. If
anyone has any thoughts on a better form of error handling for this I'm all
ears.
My src:
sub sendmsg
{
#Connect to SMTP server and start session
$smtp = Net::SMTP->new('mydomain.com', Timeout=> 15, Debug=>0) or die(
"Could not find SMTP server!\n");
#Hard listing of sender(s)
$smtp->mail($FORM{'requestorsemail'}) or die( "Could not specify sender! "
.. $!), "\n";
#Hard listing of recipient(s)
$smtp->recipient($FORM{'recipient'}) or die ("Message could not be sent! ".
$!), "\n";
#Start data
$smtp->data();
#Soft listing of recipient(s)
$smtp->datasend("To: $FORM{'recipient'}\n");
#Soft listing of sender(s)
$smtp->datasend("From: $FORM{'requestorsemail'}($FORM{'requestor'})\n");
#Subject
$smtp->datasend($mysubject);
#Message Body
$smtp->datasend(@MAIL_CONTENT);
#Wrap up message body
$smtp->dataend();
#Quit SMTP server
$smtp->quit();
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
