Net :: SMTP зависает на определенном сервере

Question

У меня есть сценарий Perl для отправки электронной почты:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Email::Sender::Simple qw(sendmail); 
use Email::Sender::Transport::SMTP(); 
use Email::Simple(); 
use Email::Simple::Creator(); 

my $smtpserver = 'server.com'; 
my $smtpport = 2525; 
my $smtpuser = 'test@server.com'; 
my $smtppassword = 'secret'; 

my $transport = Email::Sender::Transport::SMTP->new({ 
    host => $smtpserver, 
    port => $smtpport, 
    sasl_username => $smtpuser, 
    sasl_password => $smtppassword, 
    debug => 1, 
}); 

my $email = Email::Simple->create(
    header => [ 
    To  => 'myself@gmail.com', 
    From => "User name <$smtpuser>", 
    Subject => 'Hello', 
    ], 
    body => "This is my message\n", 
); 

sendmail($email, { transport => $transport }); 

Он работает на одном сервере. Но по другому скрипт замораживается. Отладочные сообщения:

Net::SMTP>>> Net::SMTP(2.31) 
Net::SMTP>>> Net::Cmd(2.29) 
Net::SMTP>>>  Exporter(5.63) 
Net::SMTP>>> IO::Socket::INET(1.31) 
Net::SMTP>>>  IO::Socket(1.31) 
Net::SMTP>>>  IO::Handle(1.28) 

Что случилось? Как отлаживать?

Answer 1

Это происходит, если TCP-соединение с сервером было успешно установлено, но сервер не отправляет ожидаемое приветствие SMTP. Это может иметь несколько причин, например:

• Сервер не является сервером SMTP вообще. Если вы попытаетесь использовать Net :: SMTP для веб-сервера (например, HTTP), вы увидите аналогичный результат, потому что HTTP-сервер ожидает, что клиент сначала отправит данные, тогда как с SMTP сервер сначала отправит данные.
• Сервер имеет неявный TLS настроенный, то есть он ждет, чтобы клиент соединился с TLS, а не с простым SMTP. В этом случае сервер ждет, когда клиент начнет с квитирования TLS (т. Е. Отправьте ClientHello) перед отправкой чего-либо обратно.

Я бы предложил вам посмотреть конфигурацию сервера, чтобы увидеть, что на самом деле ожидается.