perlquestion
e5z8652
<p>This is hopefully a simple one, where I am just missing a clue in the docs.</p>
<p>What I want is a simple script that tells me if an e-mail sent with Net::SMTP succeeds, or if it does not, why it does not.</p>
<p>In the example below I have a short script that sends mail, and tells me which addresses were successful. What I would like is to also list which ones failed -- hopefully with a failure code as well.</p>
<p>Here's the script:</p>
<code>
#test_mail.pl
use Net::SMTP;
$smtp = Net::SMTP->new(
Host => '192.168.55.173',
Debug => 1,
);
$smtp -> mail("root\@test-server.my.home");
@good = $smtp -> recipient('good_address@my.home','bad_address@my.home',{ SkipBad => 1, Notify => ['FAILURE']});
$smtp -> data();
$smtp -> datasend("TO: good_address@my.home\n");
$smtp -> datasend("TO: bad_address@my.home\n");
$smtp -> datasend("SUBJECT: Test e-mail from root\n");
$smtp -> datasend("\n");
$smtp -> datasend("A test message.\n");
$smtp -> dataend();
print "These addresses went: @good\n";
$smtp -> quit();
</code>
<p>When I run this the print statement does print out good_address@my.home as I expect. And I can see how the addresses succeed or fail with the debug output:</p>
<code>
Net::SMTP=GLOB(0x977cdc0)>>> MAIL FROM:<root@test-server.my.home>
Net::SMTP=GLOB(0x977cdc0)<<< 250 2.1.0 Sender OK
Net::SMTP=GLOB(0x977cdc0)>>> RCPT TO:<good_address@my.home> NOTIFY=FAILURE
Net::SMTP=GLOB(0x977cdc0)<<< 250 2.1.5 Recipient OK
Net::SMTP=GLOB(0x977cdc0)>>> RCPT TO:<bad_address@my.home> NOTIFY=FAILURE
Net::SMTP=GLOB(0x977cdc0)<<< 550 5.1.1 User unknown
</code>
<p>What I would like is to get bad_address and the 550 user unknown error into a form where I can print it. (This will eventually end up in a cgi script.)</p>
<p>It's got to be something simple that I am missing. Any clues?</p>