Как по средствам perl отправить email?

Question

[strongmonkey]

Помогите разобраться. Есть функция send_mail(тут параметры)
на smtp сервере NTLM авторизация

сам код

#! /usr/bin/perl -w

sub send_mail {
    use Net::SMTP;
	
    my ($smtpserver, $to, $from, $msg, $subject, $apass) = @_;
    my $error;
    my $body;
    my $smtp;
    
    $body = "MIME-Version: 1.0\n"
        . "From: $from\n"
        . "To: $to \n"
        . "Subject: $subject\n\n" 
        . $msg . "\n"; 
 
	eval 
	{
		use Authen::SASL;
		use MIME::Base64;
    };
	
	if ($@)
	{
		$error = system("ppm install Authen::SASL");
		$error = system("ppm install MIME::Base64");
	};
	
    if (!ref($to))
    { 
        @$to = split(/[,;]\s*/, $to); 
    }
    if(!($smtp = Net::SMTP->new($smtpserver, Debug => 1)))
    {
        return "Could not connect to SMTP Server: $smtpserver \n";
    }
	if (length($apass) > 0)
	{
		if(!($smtp->auth(encode_base64('login'), encode_base64('pass'))))
		{
			return $smtp->message(); 
		}
	}
    if (!($smtp->mail($from)))
    {
        return "Bad From, check your Ac count Information " . $smtp->message();
    }
    if (!($smtp->recipient(@$to)))
    {	
        return "Bad EmailTo " . $smtp->message();
    }
    
    $smtp->data($body);
    $smtp->quit;
    
    return 0;
}

лог дебага

Process started >>>
Net::SMTP>>> Net::SMTP(2.34)
Net::SMTP>>> Net::Cmd(2.30)
Net::SMTP>>> Exporter(5.71)
Net::SMTP>>> IO::Socket::INET(1.35)
Net::SMTP>>> IO::Socket(1.38)
Net::SMTP>>> IO::Handle(1.35)
Net::SMTP=GLOB(0x34f62e8)<<< 220 srvexcas2.******.local Microsoft ESMTP MAIL Service ready at Wed, 23 Dec 2015 05:51:47 -0800
Net::SMTP=GLOB(0x34f62e8)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x34f62e8)<<< 250-srvexcas2.******.local Hello [172.20.14.75]
Net::SMTP=GLOB(0x34f62e8)<<< 250-SIZE 37748736
Net::SMTP=GLOB(0x34f62e8)<<< 250-PIPELINING
Net::SMTP=GLOB(0x34f62e8)<<< 250-DSN
Net::SMTP=GLOB(0x34f62e8)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x34f62e8)<<< 250-STARTTLS
Net::SMTP=GLOB(0x34f62e8)<<< 250-X-ANONYMOUSTLS
Net::SMTP=GLOB(0x34f62e8)<<< 250-AUTH NTLM
Net::SMTP=GLOB(0x34f62e8)<<< 250-X-EXPS GSSAPI NTLM
Net::SMTP=GLOB(0x34f62e8)<<< 250-8BITMIME
Net::SMTP=GLOB(0x34f62e8)<<< 250-BINARYMIME
Net::SMTP=GLOB(0x34f62e8)<<< 250-CHUNKING
Net::SMTP=GLOB(0x34f62e8)<<< 250 XRDST
Net::SMTP=GLOB(0x34f62e8)>>> AUTH NTLM
Net::SMTP=GLOB(0x34f62e8)<<< 334 NTLM supported
Net::SMTP=GLOB(0x34f62e8)>>>
Net::SMTP=GLOB(0x34f62e8)<<< 535 5.7.3 Authentication unsuccessful
<<< Process finished. (Exit code 1)
================ READY ================

Answer 1

[Rsa97]

Читайте доку по NTLM-авторизации. Ваш клиент не отправляет сообщение Type 1, соответственно дальше ничего и не происходит до таймаута.
Попробуйте через Net::SMTP_auth, возможно понадобится ещё Authen::NTLM

Answer 2

[Андрей]

логин / пароль неправильные

Comments

[strongmonkey]

правильный и логин и пароль! С этими учетными данными отправлял письма mssql сервера

Answer 3

[strongmonkey]

Net::SMTP_auth последовал вашему совету использую Net::SMTP_auth. Лог изменился, вроде пароль серверу переда. Но ошибка та же.

Process started >>>
Net::SMTP_auth>>> Net::SMTP_auth(0.08)
Net::SMTP_auth>>> Net::SMTP(2.34)
Net::SMTP_auth>>> Net::Cmd(2.30)
Net::SMTP_auth>>> Exporter(5.71)
Net::SMTP_auth>>> IO::Socket::INET(1.35)
Net::SMTP_auth>>> IO::Socket(1.38)
Net::SMTP_auth>>> IO::Handle(1.35)
Net::SMTP_auth=GLOB(0x32a7210)<<< 220 srvexcas2.bops.local Microsoft ESMTP MAIL Service ready at Wed, 23 Dec 2015 22:04:43 -0800
Net::SMTP_auth=GLOB(0x32a7210)>>> EHLO localhost.localdomain
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-srvexcas2.bops.local Hello [172.20.14.75]
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-SIZE 37748736
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-PIPELINING
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-DSN
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-STARTTLS
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-X-ANONYMOUSTLS
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-AUTH NTLM
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-X-EXPS GSSAPI NTLM
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-8BITMIME
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-BINARYMIME
Net::SMTP_auth=GLOB(0x32a7210)<<< 250-CHUNKING
Net::SMTP_auth=GLOB(0x32a7210)<<< 250 XRDST
Net::SMTP_auth=GLOB(0x32a7210)>>> AUTH NTLM TlRMTVNTUAABAAAAB6IAAAMAAwAgAAAAAAAAAAMAAABkd2g=
Net::SMTP_auth=GLOB(0x32a7210)<<< 334 TlRMTVNTUAACAAAACAAIADgAAAAFgoECHJxYyefK5M8AAAAAAAAAAI4AjgBAAAAABgOAJQAAAA9CAE8AUABTAAIACABCAE8AUABTAAEAEgBTAFIAVgBFAFgAQwBBAFMAMgAEABQAYgBvAHAAcwAuAGwAbwBjAGEAbAADACgAcwByAHYAZQB4AGMAYQBzADIALgBiAG8AcABzAC4AbABvAGMAYQBsAAUAFABiAG8AcABzAC4AbABvAGMAYQBsAAcACACm7t37ED7RAQAAAAA=
Net::SMTP_auth=GLOB(0x32a7210)>>> TlRMTVNTUAADAAAAGAAYAEAAAAAYABgAWAAAAAgACABwAAAABgAGAHgAAAAGAAYAfgAAAAAAAABEAAAABYKBAnG9ceiZyEyU3wCV8NOAfE8TH+/clRupP7yUlEceMUku8CHdpBvP/hrs861nYznZ/UIATwBQAFMAZAB3AGgAZAB3AGgA
Net::SMTP_auth=GLOB(0x32a7210)<<< 535 5.7.3 Authentication unsuccessful
<<< Process finished. (Exit code 1)
================ READY ================

#! /usr/bin/perl -w

sub send_mail {
	use Net::SMTP_auth;
	use Authen::SASL;
	use Authen::NTLM;
	use MIME::Base64;
		
    my ($smtpserver, $to, $from, $msg, $subject, $apass) = @_;
    my $error;
    my $body;
    my $smtp;
    
    $body = "MIME-Version: 1.0\n"
        . "From: $from\n"
        . "To: $to \n"
        . "Subject: $subject\n\n" 
        . $msg . "\n"; 
 
	eval { };
	
    if (!ref($to))
    { 
        @$to = split(/[,;]\s*/, $to); 
    }
    if(!($smtp = Net::SMTP_auth->new($smtpserver, Debug => 1)))
    {
        return "Could not connect to SMTP Server: $smtpserver \n";
    }
	if (length($apass) > 0)
	{		
		if(!($smtp->auth('NTLM', '', '')))
		{
			return $smtp->message(); 
		}
	}
    if (!($smtp->mail($from)))
    {
        return "Bad From, check your Ac count Information " . $smtp->message();
    }
    if (!($smtp->recipient(@$to)))
    {	
        return "Bad EmailTo " . $smtp->message();
    }
    
    $smtp->data($body);
    $smtp->quit;
    
    return 0;
}