最近和几个朋友一起做用户态协议栈开源项目 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 - 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/perl use Net::SMTP::SSL; use MIME::Base64; use MIME::Lite; my $msg = MIME::Lite->new( From=>'[email protected]', To=>'[email protected]', Subject=>'First Email', Data=>'nihao', Type=>'text/html' ); $account="[email protected]"; $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('[email protected]')); # username $smtp->datasend(encode_base64('your password')); # password $smtp->mail('[email protected]'); $smtp->to('[email protected]'); $smtp->data(); $smtp->datasend($msg->as_string()); $smtp->datasend("Blah\r\n\r\n"); $smtp->dataend();
相信从代码风格来看，就是第一次写perl 。^_^ 。 ^_^
这版是可以发送邮件的。
但是跟bugzilla的mailer.pm 发送差别很大。没办法整合。
于是又换了一种写法。
#!/usr/bin/perl use 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 = '[email protected]'; my $smtppassword = 'your password'; my $smtpto = '[email protected]'; 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 - 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，不要随便相信网上的代码。