|
|
有人懂吗？
sub SendMail
{
my ($self,$mail_to, $mail_from, $subject, $body) = @_; my $content_type = $c->{email_text} ? 'text/plain' : 'text/html';
open (OUTMAIL,"|".$c->{sendmail_path} ." -t") || return "Can't open Unix Sendmail:".$!;
print OUTMAIL <<EOM;
To: $mail_to
From: $mail_from
Subject: $subject
Content-Type: $content_type
$body
.
EOM
;
close OUTMAIL;
}
sendmail_path 是正确的。 |
|
发表于 2011-1-14 04:12:01