Perl脚本不发送邮件而不是取消链接

Question

我有一些我没写的脚本......他们搜索Squid日志数据库，然后创建一个电子表格并通过电子邮件发送，然后删除它创建的.pid和.xls文件。

脚本使用NTLM作为其中一个变量（request_user）...我将其更改为手动输入的文本字段。

我不知道perl，脚本无效。

.pid和.xls正在创建，但没有通过电子邮件发送，文件也不会被删除（取消链接）

以下是请求和生成文件的链接

http://www.the-greenes.net/spreadsheet_request-test.txt

http://www.the-greenes.net/spreadsheet_gen.txt

任何人都可以帮助一个非常有限的perl技能的有限的人吗？

由于

Answer 1

在spreadsheet_gen脚本中，您可以使用此行来设置smtp服务器的地址：

my $mail_server=`10.0.1.98`;

使用反引号使其运行名为10.0.1.98的命令并将其输出分配给$mail_server变量。这很可能是错误的，尝试用常规撇号替换反引号来创建字符串：

my $mail_server = '10.0.1.98';

您可以在error.log中看到任何错误吗？如果$message->send ...失败，它将以错误消息消失，并且不会发送任何内容或取消链接。