0

我有一些我没有编写的脚本......他们搜索 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 技能非常有限的人吗?

谢谢

4

1 回答 1

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 ...失败,它会因错误消息而死,并且不会发送或取消链接。

于 2011-04-08T18:26:06.660 回答