Net::SMTP Question

[David Simcik]

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]