Re^3: getting SMTP failure codes

[e5z8652]

in reply to Re^2: getting SMTP failure codes
in thread getting SMTP failure codes

For some reason I was thinking that if I looped on them that it would take longer. But I timed it and the results are about the same (at least on my network & mail server). If recipient() is doing the same thing, then of course it wouldn't matter. (And I should have been able to figure that out from the debug output anyway!)

So populating an array with the addresses, and then running a foreach loop on the array of addresses would get me where I want to go.

Thanks for the clue!

[Anonymous Monk]

How do i run this script on a root, i mean what command to use

[Anonymous Monk]

How do i run this script on a root ?

#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('[e-mail]','[e-mail]
+',{ SkipBad => 1, Notify => ['FAILURE']});
$smtp -> data();
$smtp -> datasend("TO: [e-mail]\n");
$smtp -> datasend("TO: [e-mail]\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();

[Corion]

If you used strict or warnings, Perl would tell you what goes wrong.

[NodeReaper]

This node was taken out by the NodeReaper on Feb 07, 2011 at 13:10 UTC
Reason: [Corion]: Reap: (Formatted) Dupe of Re^4: getting SMTP failure codes, which has a reply

You may view the original node and the consideration vote tally.