将电子邮件发送到Perl脚本，但总是返回错误消息

Question

我正在尝试弄清楚如何使此电子邮件管道在我正在执行的脚本中工作。 在CPanel中，我将其设置为转发至：

当前设置：| /home/user/public_html/cgi-bin/links/email-in.cgi

该脚本非常简单：

#!/usr/local/bin/perl

use strict;
use lib '/home/user/public_html/cgi-bin/links/admin';
use Links qw/$DB $IN $CFG/;
use CGI::Carp qw(fatalsToBrowser);
use Links;

Links::init('/home/user/public_html/cgi-bin/links/admin');

open (STDERR, ">>/home/user/public_html/cgi-bin/links/mail.log") || die $!;

my $message;
while (<STDIN>) {
    $message .= $_;
}

print STDERR qq|$message\n\n|;

close (STDERR);

print $IN->header;
print "FOO BAR";

然后将测试电子邮件发送到该地址，我可以在email.log中正确看到<STDIN>的值。 但是，大约一分钟后，我收到了该电子邮件的退回通知：

该消息是由邮件传递软件自动创建的。

您发送的邮件无法传递给一个或多个收件人。 这是一个永久性错误。 以下地址失败：

管道到foo@resa.site.org生成的| /home/user/public_html/cgi-bin/links/email-in.cgi

尝试交付期间生成了以下文本：

------通过foo@resa.site.org生成的| /home/user/public_html/cgi-bin/links/email-in.cgi管道------

内容类型：text / html; 字符集= iso-8859-1

FOO BAR操作：最终收件人失败：rfc822; | /home/user/public_html/cgi-bin/links/email-in.cgi状态：5.0.0

我对为什么要这样做感到有些困惑。 我需要返回特定的标头，还是类似的东西？ （告诉电子邮件程序已正确处理）

Answer 1

恩，我知道这会发生！ 从字面上看，我一经发布就在这里找到了答案：

https://confluence2.cpanel.net/display/ALD/Forwarders#Forwarders-PipetoaProgram

如果您的脚本产生了任何输出，甚至是空行，则系统将创建包含该输出的退回消息。