Почему mutt терпит неудачу, когда я вызываю его из своего сценария CGI Perl?

Question

Я разработал базу данных с использованием Perl CGI с C++. У меня проблема при отправке результатов на почту. Я использовал следующий код:

print LOG "[",`date`,"] Sending mail to $email\n"; 
system (qq{mutt -s "MMM" -a $zip_file $email < $job_id}); 
if ($? == 0) { 
     print LOG "[",`date`,"] Sending mail to $email :: SUCCESS ::\n"; 
}else { 
     print LOG "[",`date`,"] Sending mail to $email :: FAILED ::\n"; 
} 

close LOG; 

Answer 1

Какая ошибка вы видите?

В частности, что находится в $!?

Это может быть, что процесс CGI не может выполнить Mutt - как о регистрации идентификатора пользователя скрипта и текущий путь:

print LOG getpwuid($<) . "\n"; 
print LOG $ENV{PATH} . "\n"; 

является расположение исполняемого Mutt в пути, и делает, что пользователь (вероятно, «Апач ') имеют разрешение на его выполнение?

Answer 2

Вы также можете посмотреть на использование модуля Net :: SMTP, который будет напрямую связываться с почтовым сервером, а не в зависимости от системных инструментов. Это более портативное решение и позволяет избежать проблем с правами доступа.

Answer 3

Просмотреть мои Troubleshooting Perl CGI scripts. Если это не решит вашу проблему, это, по крайней мере, поможет вам разработать свой вопрос, чтобы вы могли получить дополнительную помощь.

Вам также может понравиться brian's Guide to Solving Any Perl Problem.