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服务器。 如果您尝试对Web服务器（例如HTTP）使用Net :: SMTP，则会看到类似的结果，因为HTTP服务器希望客户端首先发送数据，而使用SMTP则服务器首先发送数据。
• 服务器已配置了隐式TLS，即服务器正在等待客户端使用TLS而不是纯SMTP连接。 在这种情况下，服务器正在等待客户端开始使用TLS握手（即，发送ClientHello），然后再发送回任何内容。

我建议您查看服务器的配置以查看实际期望的结果。