Rob,
You missed the entire context of the original post.
The sub auth is INSIDE Net::SMTP; the code to
try was attached below the signature.
The issue: Error message FROM Net::SMTP is not being
delivered to the user.
The code to try (need to use valid $smtp_host):
#!/use/bin/perl
BEGIN {(*STDERR = *STDOUT) || die;}
use diagnostics;
use warnings;
use strict;
$| = 1;
use Net::POP3;
use Net::SMTP;
my $smtp_host = 'smtp.host.com';
my $src_domain = 'the.org';
my $user_id = 'the_user_id';
my $password = 'the_password';
my %smtp_options = (
Host => $smtp_host,
Hello => $src_domain,
Debug => 4,
);
if(!($mail = Net::SMTP->new(%smtp_options)))
{
print "ERROR: Could not open $smtp_host\n$!\n";
return -1;
}
if(!$mail->auth($user_id, $password))
{
print "ERROR: Could not authenticate user $user_id\n$!\n";
$mail->quit();
return -1;
}
__END__
Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>> Net::Cmd(2.29)
Net::SMTP>>> Exporter(5.60)
Net::SMTP>>> IO::Socket::INET(1.31)
Net::SMTP>>> IO::Socket(1.30)
Net::SMTP>>> IO::Handle(1.27)
Net::SMTP=GLOB(0x1b0b964)<<< 220 smtp118.sbc.mail.re3.yahoo.com ESMTP
Net::SMTP=GLOB(0x1b0b964)>>> EHLO <the.org>
Net::SMTP=GLOB(0x1b0b964)<<< 250-<smtp.host.com>
Net::SMTP=GLOB(0x1b0b964)<<< 250-AUTH LOGIN PLAIN XYMCOOKIE
Net::SMTP=GLOB(0x1b0b964)<<< 250-PIPELINING
Net::SMTP=GLOB(0x1b0b964)<<< 250 8BITMIME
ERROR: Could not authenticate user <the_user>
No such file or directory
Net::SMTP=GLOB(0x1b0b964)>>> QUIT
Net::SMTP=GLOB(0x1b0b964)<<< 221 <smtp.host.com>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
