in reply to Net::SMTP - Authentication Problem

Maybe try the Net::SMTP_auth module? 
#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP_auth;

my $smtp = Net::SMTP_auth->new('zentara.zentara.net');
$smtp->auth('LOGIN', 'z', 'ztest');

$smtp->mail('z@zentara.zentara.net');
$smtp->to('zentara@zentara.zentara.net');

$smtp->data();
$smtp->datasend("To: postmaster\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();

$smtp->quit;

[download]
I'm not really a human, but I play one on earth. Cogito ergo sum a bum

Replies are listed 'Best First'.
Re^2: Net::SMTP - Authentication Problem
by Anonymous Monk on Feb 12, 2008 at 01:08 UTC
    use Net::SMTP::TLS http://search.cpan.org/~awestholm/Net-SMTP-TLS-0.12/lib/Net/SMTP/TLS.pm

    It's the version made to properly support authentication. For whatever reason, Net::SMTP seems not to.
[reply]
Re^2: Net::SMTP - Authentication Problem
by vi_srikanth (Acolyte) on Aug 29, 2006 at 13:38 UTC

    I tried SMTP_auth as you have suggested. It also fails. I check this in the system in which Net::SMTP works, it works in that system precisely.

    Kindly let me know if you have any suggestions.

    Thanks

[reply]
      One of the things I can think of, is the auth_type is wrong. I showed a 'LOGIN' auth_type, but there is a choice of PLAIN, LOGIN, or CRAM-MD5.

      Also try turning on Debug and see if you can catch the error. 

      my $smtp = Net::SMTP_auth->new($Servername, Port=>$Port, Debug => 1 );

      [download]

      You also might want to capture the transaction with ethereal or tcpick

      Did you ever consider the other system dosn't support SMTP auth? Or the port it runs it on is different from the working system? Many systems run auth on port 587, but they can put it wherever they want.

      I'm not really a human, but I play one on earth. Cogito ergo sum a bum
[reply]
[d/l]

        Hi

        In the system in which SMTP is not working thru perl, I tried with PHP. It works precisely with PHP. Here is the PHP code: 

        <?php

require("class.phpmailer.php");

$mail = new PHPMailer();

$mail->IsSMTP();                                      // set mailer to
+ use SMTP
$mail->Host = "pop.myserver.com";  // specify main and backup server
$mail->SMTPAuth = true;     // turn on SMTP authentication
$mail->Username = "srikanth";  // SMTP username
$mail->Password = "mypass"; // SMTP password

$mail->From = "from@somedomain.com";
$mail->AddAddress("to@somedomain.com");                  // name is op
+tional

$mail->Subject = "Here is the subject";
$mail->Body    = "This is the HTML message body";
$mail->AltBody = "This is the body in plain text for non-HTML mail cli
+ents";

if(!$mail->Send()) {
   echo "Message could not be sent.";
}
else {
   echo "Message has been sent";
}

?>

        [download]

        And, here is the debug=>1 output by Perl: 

        Net::SMTP_auth>>> Net::SMTP_auth(0.08)
Net::SMTP_auth>>>   Net::SMTP(2.29)
Net::SMTP_auth>>>     Net::Cmd(2.26)
Net::SMTP_auth>>>       Exporter(5.58)
Net::SMTP_auth>>>     IO::Socket::INET(1.31)
Net::SMTP_auth>>>       IO::Socket(1.30)
Net::SMTP_auth>>>         IO::Handle(1.27)
Net::SMTP_auth=GLOB(0x81faaa8)<<< 220 ESMTP
Net::SMTP_auth=GLOB(0x81faaa8)>>> EHLO localhost.localdomain
Net::SMTP_auth=GLOB(0x81faaa8)<<< 250-pop.myserver.com
Net::SMTP_auth=GLOB(0x81faaa8)<<< 250-PIPELINING
Net::SMTP_auth=GLOB(0x81faaa8)<<< 250-SIZE 20480000
Net::SMTP_auth=GLOB(0x81faaa8)<<< 250-VRFY
Net::SMTP_auth=GLOB(0x81faaa8)<<< 250-ETRN
Net::SMTP_auth=GLOB(0x81faaa8)<<< 250-AUTH PLAIN LOGIN
Net::SMTP_auth=GLOB(0x81faaa8)<<< 250 8BITMIME
Unknown callback: 'authname'. (user|auth|language|pas

        [download]

        Also I have tried PLAIN & CRAM-MD5 apart from LOGIN

        Any suggestion?

        Thanks
        Srikanth

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom