为什么从我的Perl CGI脚本中调用mutt失败？

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进程不能执行马特 - 怎么样登录脚本的用户名和当前路径：

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

是笨蛋的路径可执行文件的位置，并执行该用户（可能是“阿帕奇'）有权执行它？

Answer 2

你可能还想看看使用Net :: SMTP模块，它将直接与邮件服务器通信，而不是依赖于系统工具。这是一个更便携的解决方案，并避免了整个权限问题。

Answer 3

请参阅我的Troubleshooting Perl CGI scripts。如果这不能解决你的问题，它至少可以帮助你开发你的问题，这样你就可以获得更多的帮助。您可能还喜欢brian's Guide to Solving Any Perl Problem。