Question

我编写程序在服务器上进行一些监控（电子邮件：cms1@melitaplc.com）然后发送电子邮件到我的笔记本电脑（daniel.saliba@melitaplc.com），该电脑连接到网络服务器（smtp.melita） .COM）。在我的电子邮件daniel ....我尝试添加smtp端口即sendEmail（“daniel.saliba \ @ melitaplc.com:25”，.....）但我得到了/export/home/cassi/dead.letter。 ..

P.S我无法安装任何CPAN模块，因此代码如下。

程序执行没有任何错误，但我没有收到电子邮件。

sendEmail("daniel.saliba\@melitaplc.com", "cms1\@melitaplc.com", "ALERT", "This is a  test" );

sub sendEmail
 {
    my ($to, $from, $subject, $message) = @_;
    my $sendmail = '/usr/lib/sendmail';
    open(MAIL, "|$sendmail -oi -t");
            print MAIL "From: $from\n";
            print MAIL "To: $to\n";
            print MAIL "Subject: $subject\n\n";
            print MAIL "$message\n";
    close(MAIL);
 }

Answer 1

如果您无权安装CPAN模块，那么您可能无法读取邮件日志...因此您可以尝试运行

/usr/lib/sendmail -oi -t -v

在命令行上输入

，将脚本发送给它的相同文本，并查看它的作用。 -v开关应该为您提供大量调试信息。

Perl发送电子邮件到没有模块的Web服务器

1 个答案: