最近和几个朋友一起做用户态协议栈开源项目 NtyTcp ，纯业余爱好，个人情怀。刚刚开始做有好多的Bug，故搭建了一个Bugzilla，用来上传Bug的。

有几个开发朋友想在 bug.ntytcp.com提交bug，不能注册，因为不能发邮件。至于为什么不能发送邮件？因为阿里云把25端口封了，使用smtp不能发送。

使用465端口发送，发现发不出来，又找不到原因。硬着头皮比Bugzilla的源码看了一下。可恨的是自己并没有写过perl代码。

于是用了两天时间连学带看就把bugzilla的源码看了一遍。然后把bugzilla邮件发送的部分重写了一下。先把bugzilla邮件发送部分贴出来。

bugzilla/mailer.pm

sub MessageToMTA {
my ($msg, $send_now) = (@_);
my $method = Bugzilla->params->{'mail_delivery_method'};
return if $method eq 'None';if (Bugzilla->params->{'use_mailer_queue'}
&& ! $send_now
&& ! Bugzilla->dbh->bz_in_transaction()
) {
Bugzilla->job_queue->insert('send_mail', { msg => $msg });
return;
}my $dbh = Bugzilla->dbh;my $email = ref($msg) ? $msg : Bugzilla::MIME->new($msg);# If we're called from within a transaction, we don't want to send the
# email immediately, in case the transaction is rolled back. Instead we
# insert it into the mail_staging table, and bz_commit_transaction calls
# send_staged_mail() after the transaction is committed.
if (! $send_now && $dbh->bz_in_transaction()) {
# The e-mail string may contain tainted values.
my $string = $email->as_string;
trick_taint($string);my $sth = $dbh->prepare("INSERT INTO mail_staging (message) VALUES (?)");
$sth->bind_param(1, $string, $dbh->BLOB_TYPE);
$sth->execute;
return;
}my $from = $email->header('From');my $hostname;
my $transport;
if ($method eq "Sendmail") {
if (ON_WINDOWS) {
$transport = Bugzilla::Sender::Transport::Sendmail->new({ sendmail => SENDMAIL_EXE });
}
else {
$transport = Bugzilla::Sender::Transport::Sendmail->new();
}
}
else {
# Sendmail will automatically append our hostname to the From
# address, but other mailers won't.
my $urlbase = Bugzilla->params->{'urlbase'};
$urlbase =~ m|//([^:/]+)[:/]?|;
$hostname = $1 || 'localhost';
$from .= "\@$hostname" if $from !~ /@/;
$email->header_set('From', $from);
# Sendmail adds a Date: header also, but others may not.
if (!defined $email->header('Date')) {
$email->header_set('Date', time2str("%a, %d %b %Y %T %z", time()));
}
}if ($method eq "SMTP") {
my ($host, $port) = split(/:/, Bugzilla->params->{'smtpserver'}, 2);
$transport = Bugzilla->request_cache->{smtp} //=
Email::Sender::Transport::SMTP::Persistent->new({
host  => $host,
defined($port) ? (port => $port) : (),
sasl_username => Bugzilla->params->{'smtp_username'},
sasl_password => Bugzilla->params->{'smtp_password'},
helo => $hostname,
ssl => Bugzilla->params->{'smtp_ssl'},
debug => Bugzilla->params->{'smtp_debug'} });
}Bugzilla::Hook::process('mailer_before_send', { email => $email });return if $email->header('to') eq '';if ($method eq "Test") {
my $filename = bz_locations()->{'datadir'} . '/mailer.testfile';
open TESTFILE, '>>', $filename;
# From - <date> is required to be a valid mbox file.
print TESTFILE "\n\nFrom - " . $email->header('Date') . "\n" . $email->as_string;
close TESTFILE;
}
else {
# This is useful for Sendmail, so we put it out here.
local $ENV{PATH} = SENDMAIL_PATH;
eval { sendmail($email, { transport => $transport }) };
if ($@) {
ThrowCodeError('mail_send_error', { msg => $@->message, mail => $email });
}
}
}

使用的sendmail($email, {transport=> $transport}), 发送。由于系统的sendmail没有配置好，发送不出来。

自己写了一版单独用perl发送邮件的。

#!/usr/bin/perluse Net::SMTP::SSL;
use MIME::Base64;
use MIME::Lite;my $msg = MIME::Lite->new(
From=>'from@host.com',
To=>'to@host.com',
Subject=>'First Email',
Data=>'nihao',
Type=>'text/html'
);$account="from@host.com";
$password="your password";
$smtp = Net::SMTP::SSL->new(
Host => 'smtp.host.com',
Port => 465,
Timeout => 120,
Debug=>1
); # connect to an SMTP server
die "Couldn't open connection: $!" if (!defined $smtp );
#$smtp->auth($account,$password);$smtp->datasend("AUTH LOGIN\r\n");
$smtp->datasend(encode_base64('from@host.com')); # username
$smtp->datasend(encode_base64('your password')); # password$smtp->mail('from@host.com');
$smtp->to('to@host.com');$smtp->data();$smtp->datasend($msg->as_string());$smtp->datasend("Blah\r\n\r\n");$smtp->dataend();

相信从代码风格来看，就是第一次写perl   。^_^  。 ^_^

这版是可以发送邮件的。

但是跟bugzilla的mailer.pm 发送差别很大。没办法整合。

于是又换了一种写法。

#!/usr/bin/perluse strict;
use warnings;use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP ();
use Email::Simple ();
use Email::Simple::Creator ();
use Email::Sender::Transport::SMTP::TLS;
use Email::Sender::Transport::SMTP::Persistent;
use Email::Sender::Transport::SMTPS;
use Net::SMTP::SSL;
use MIME::Base64;my $smtpserver   = 'smtp.host.com';
my $smtpport     = 465;
my $smtpuser     = 'from@from.com';
my $smtppassword = 'your password';
my $smtpto       = 'to@host.com';
my $hostname     = 'localhost.localdomain';my $transport = Email::Sender::Transport::SMTP::Persistent->new({host  => $smtpserver,defined($smtpport) ? (port => $smtpport) : (),sasl_username => $smtpuser,sasl_password => $smtpuser,helo => $hostname,ssl => 1,debug => 1 });my $email = Email::Simple->create(header => [To      => $smtpto,From    => $smtpuser,Subject => 'Hi!',],body => "This is my message\n",
);#try {
#eval {sendmail($email, { transport => $transport }) };
#}catch {
#die "Error sending email: $_";
my $smtp = Net::SMTP::SSL->new(Host  => $smtpserver,Port => $smtpport,Timeout => 120,Debug => 1);die "Couldn't open connection: $!" if (!defined $smtp );#$smtp->auth(Bugzilla->params->{'smtp_username'}, Bugzilla->params->{'smtp_password'});$smtp->datasend("AUTH LOGIN\n");$smtp->datasend(encode_base64($smtpuser));$smtp->datasend(encode_base64($smtppassword));$smtp->mail($smtpuser);$smtp->to($smtpto);$smtp->data();$smtp->datasend($email->as_string());$smtp->datasend("\r\n\r\n");$smtp->dataend();$smtp->quit();

这个代码的风格就像那么回事了，就写过perl代码的人了 。^_^。^_^

将mailer.pm 的代码整合。

sub MessageToMTA {my ($msg, $send_now) = (@_);my $method = Bugzilla->params->{'mail_delivery_method'};return if $method eq 'None';if (Bugzilla->params->{'use_mailer_queue'}&& ! $send_now&& ! Bugzilla->dbh->bz_in_transaction()) {Bugzilla->job_queue->insert('send_mail', { msg => $msg });return;}my $dbh = Bugzilla->dbh;my $email = ref($msg) ? $msg : Bugzilla::MIME->new($msg);# If we're called from within a transaction, we don't want to send the# email immediately, in case the transaction is rolled back. Instead we# insert it into the mail_staging table, and bz_commit_transaction calls# send_staged_mail() after the transaction is committed.if (! $send_now && $dbh->bz_in_transaction()) {# The e-mail string may contain tainted values.my $string = $email->as_string;trick_taint($string);my $sth = $dbh->prepare("INSERT INTO mail_staging (message) VALUES (?)");$sth->bind_param(1, $string, $dbh->BLOB_TYPE);$sth->execute;return;}my $from = $email->header('From');my $hostname;my $transport;if ($method eq "Sendmail") {if (ON_WINDOWS) {$transport = Bugzilla::Sender::Transport::Sendmail->new({ sendmail => SENDMAIL_EXE });}else {$transport = Bugzilla::Sender::Transport::Sendmail->new();}}else {# Sendmail will automatically append our hostname to the From# address, but other mailers won't.my $urlbase = Bugzilla->params->{'urlbase'};$urlbase =~ m|//([^:/]+)[:/]?|;$hostname = $1 || 'localhost';$from .= "\@$hostname" if $from !~ /@/;$email->header_set('From', $from);# Sendmail adds a Date: header also, but others may not.if (!defined $email->header('Date')) {$email->header_set('Date', time2str("%a, %d %b %Y %T %z", time()));}}my ($host, $port) = split(/:/, Bugzilla->params->{'smtpserver'}, 2);if ($method eq "SMTP") {
#        my ($host, $port) = split(/:/, Bugzilla->params->{'smtpserver'}, 2);$transport = Bugzilla->request_cache->{smtp} //=Email::Sender::Transport::SMTP::Persistent->new({host  => $host,defined($port) ? (port => $port) : (),sasl_username => Bugzilla->params->{'smtp_username'},sasl_password => Bugzilla->params->{'smtp_password'},helo => $hostname,ssl => Bugzilla->params->{'smtp_ssl'},debug => Bugzilla->params->{'smtp_debug'} });}Bugzilla::Hook::process('mailer_before_send', { email => $email });return if $email->header('to') eq '';if ($method eq "Test") {my $filename = bz_locations()->{'datadir'} . '/mailer.testfile';open TESTFILE, '>>', $filename;# From - <date> is required to be a valid mbox file.print TESTFILE "\n\nFrom - " . $email->header('Date') . "\n" . $email->as_string;close TESTFILE;}else {# This is useful for Sendmail, so we put it out here.
#        local $ENV{PATH} = SENDMAIL_PATH;
#        eval { sendmail($email, { transport => $transport }) };
#        if ($@) {
#            ThrowCodeError('mail_send_error', { msg => $@->message, mail => $email });
#        }my $smtp = Net::SMTP::SSL->new(Host  => $host,Port => $port,Timeout => 120,Debug => 1);die "Couldn't open connection: $!" if (!defined $smtp );#$smtp->auth(Bugzilla->params->{'smtp_username'}, Bugzilla->params->{'smtp_password'});$smtp->datasend("AUTH LOGIN\n");$smtp->datasend(encode_base64(Bugzilla->params->{'smtp_username'}));$smtp->datasend(encode_base64(Bugzilla->params->{'smtp_password'}));$smtp->mail(Bugzilla->params->{'smtp_username'});$smtp->to($email->header('to'));$smtp->data();$smtp->datasend($email->as_string());$smtp->datasend("\r\n\r\n");$smtp->dataend();$smtp->quit();}
}

主要是将邮件发送方式修改了。

        local $ENV{PATH} = SENDMAIL_PATH;eval { sendmail($email, { transport => $transport }) };if ($@) {ThrowCodeError('mail_send_error', { msg => $@->message, mail => $email });}

换成了

        my $smtp = Net::SMTP::SSL->new(Host  => $host,Port => $port,Timeout => 120,Debug => 1);die "Couldn't open connection: $!" if (!defined $smtp );#$smtp->auth(Bugzilla->params->{'smtp_username'}, Bugzilla->params->{'smtp_password'});$smtp->datasend("AUTH LOGIN\n");$smtp->datasend(encode_base64(Bugzilla->params->{'smtp_username'}));$smtp->datasend(encode_base64(Bugzilla->params->{'smtp_password'}));$smtp->mail(Bugzilla->params->{'smtp_username'});$smtp->to($email->header('to'));$smtp->data();$smtp->datasend($email->as_string());$smtp->datasend("\r\n\r\n");$smtp->dataend();$smtp->quit();

bugzilla的代码还是写的很人性化的，没有写过perl代码的，一看都能知道个大概。向Bugzilla的作者致敬。

至于邮件发送的流程，大家可以参照rfc822，不要随便相信网上的代码。