http://www.perlmonks.org?node_id=821622


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!

Replies are listed 'Best First'.
Re^4: getting SMTP failure codes
by Anonymous Monk on Feb 06, 2011 at 20:40 UTC
    How do i run this script on a root, i mean what command to use
[reply]
Re^4: getting SMTP failure codes
by Anonymous Monk on Feb 06, 2011 at 20:44 UTC
    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('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();

    [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom