主页 / 问题 / 683710
Accepted
edem
Asked:2020-06-26 07:36:31 +0000 UTC2020-06-26 07:36:31 +0000 UTC

AnyEvent::SMTP 截断来自 Google 服务器的响应

  • 772
use strict;
use warnings;
use utf8;

use AnyEvent;
use AnyEvent::SMTP 'sendmail';
use Data::Dumper;

sendmail
   from => 'abc@abc',
   to   => 'foobar@gmail.com',
   data => "Subject: Email",
   cb   => sub {
       if (my $ok = shift) {
           warn "Successfully sent";
       }
       if (my $err = shift) {
           warn "Failed to send: $err";
       }
   }   
;

AnyEvent->condvar->recv;

分发：

Failed to send: 421-4.7.0 [x.x.x.x      15] Our system has detected that this message is at abc.pl line 20.

我知道服务器响应的第二行和后续行 (\n) 被该模块忽略，是否可以在不编辑主 AnyEvent::SMTP 模块的情况下解决这个问题？

email

1 个回答

  1. Best Answer

    该变量$AnyEvent::SMTP::Conn::QRNL包含一个正则表达式，用于定义从服务器读取消息的分隔符。默认值为qr<\015?\012>，表示仅读取第一行。你可以这样做：

    local $AnyEvent::SMTP::Conn::QRNL = qr<\015?\012$>;

    阅读整封邮件。

    • 1

相关问题