- 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::SASL todo
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]
To: 'Sisyphus' [EMAIL PROTECTED];
perl-win32-users@listserv.ActiveState.com
Sent: Thursday, September 06, 2007 12:58 AM
Subject: RE: Error message not showing up from Net::SMTP
Rob,
You missed the entire context
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
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 MIME::Base64 and
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