Perl скрипт не отправляет почту и не отключает связь

Question

У меня есть несколько сценариев, которые я не написал ... они выполняют поиск в базе данных журнала Squid, а затем создают электронную таблицу и отправляют ее по электронной почте, а затем удаляют созданные им файлы .pid и .xls.

сценарии использовали NTLM для одной из его переменных (request_user) ... Я изменил его на введенное вручную текстовое поле.

Я не знаю perl, и сценарии не работают.

.Pid и .xls создаются, но ничего не отправляется по электронной почте, и файлы не удаляются (unlink)

Вот ссылки на запрос и генерируйте файлы

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 ... терпит неудачу, он умирает с сообщением об ошибке и ничего не отправляется и не связывается.