Changing the user code to the following displays the desired error message:
print "ERROR: Could not authenticate user $user_id\n$!\n",
$mail->code,':',$mail->message,"\n";
Thanks to Friar menolly and Chancellor ikegami on PerlMonks.
--Suresh
__
Sisyphus wrote:
> - Original Message -
> From: "Suresh Govindachar" <[EMAIL PROTECTED]>
> .
> .
>
>> sub auth {
>> my (\$self, \$username, \$password) = [EMAIL PROTECTED];
>>
>> eval {
>> require MIME::Base64;
>> require Authen::SASL;
>> } or \$self->set_status(500, ["Need M
I see. My mistake in the quote -- the cut and paste I used resulted in the
extra '\'.
perl -MNet::SMTP -e "print $Net::SMTP::VERSION"
2.31
ppm query libnet
-T-TT--┐
│ name │ version │ abstract
- Original Message -
From: "Suresh Govindachar" <[EMAIL PROTECTED]>
To: "'Sisyphus'" <[EMAIL PROTECTED]>;
Sent: Thursday, September 06, 2007 12:58 AM
Subject: RE: Error message not showing up from Net::SMTP
>
> Rob,
>
> You miss
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):
- Original Message -
From: "Suresh Govindachar" <[EMAIL PROTECTED]>
.
.
> sub auth {
>my (\$self, \$username, \$password) = [EMAIL PROTECTED];
>
>eval {
> require MIME::Base64;
> require Authen::SASL;
>} or \$self->set_status(500, ["Need MIME::Base64 and Authen::SAS
Hello,
Net::SMTP's sub auth() begins as (perl\site\lib\Net\SMTP.pm):
sub auth {
my (\$self, \$username, \$password) = [EMAIL PROTECTED];
eval {
require MIME::Base64;
require Authen::SASL;
} or \$self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo
auth
