|
修改Bugzilla\BugMail.pm里面的最后一个函数sub MessageToMTA ($;$)
修改前为:
sub MessageToMTA ($;$) {
my ($msg, $rcpt_to) = (@_);
my $sendmailparam = "";
unless (Param("sendmailnow")) {
$sendmailparam = "-ODeliveryMode=deferred";
}
if ($enableSendMail == 1) {
open(SENDMAIL, "|/usr/lib/sendmail $sendmailparam -t -i") ||
die "Can't open sendmail";
print SENDMAIL trim($msg) . "\n";
close SENDMAIL;
}
}
修改后为:
sub MessageToMTA ($;$) {
my ($msg, $rcpt_to) = (@_);
my $sendmailparam = "";
unless (Param("sendmailnow")) {
$sendmailparam = "-ODeliveryMode=deferred";
}
if ($enableSendMail == 1) {
#open(SENDMAIL, "|/usr/lib/sendmail $sendmailparam -t -i") ||
# die "Can't open sendmail";
#print SENDMAIL trim($msg) . "\n";
#close SENDMAIL;
use Net::SMTP;
my $smtp_server = '127.0.0.1';
my $smtp_user = 'admin@test.com';
my $smtp_pass = 'admin';
my $smtp = Net::SMTP->new($smtp_server) ||
die 'Cannot connect to server \'$smtp_server\'';
$smtp->auth($smtp_user,$smtp_pass);
$smtp->mail($smtp_user);
$smtp->to($rcpt_to);
$smtp->data();
$smtp->datasend($msg);
$smtp->dataend();
$smtp->quit;
}
}
我是在自己机器上建立的一个邮件服务器,所以stmp-server是127.0.0.1,like@like.com就是一个账号,like是密码。设置好以后就可以用了
,我的目的是在局域网内使用,所以用那个邮件服务器创建的账号,之后就可以使用了。 |
|