2. 程式人生 > >[轉載] 使用Bugzilla，你肯定會遇到的坑。

[轉載] 使用Bugzilla，你肯定會遇到的坑。

阿新 • • 發佈：2018-11-04

使用Bugzilla，你肯定會遇到的坑。

2018年06月01日 09:36:32 美少女程式猿

 

最近和幾個朋友一起做使用者態協議棧開源專案 NtyTcp ，純業餘愛好，個人情懷。剛剛開始做有好多的Bug，故搭建了一個Bugzilla，用來上傳Bug的。

有幾個開發朋友想在 bug.ntytcp.com提交bug，不能註冊，因為不能發郵件。至於為什麼不能傳送郵件？因為阿里雲把25埠封了，使用smtp不能傳送。

使用465埠傳送，發現發不出來，又找不到原因。硬著頭皮比Bugzilla的原始碼看了一下。可恨的是自己並沒有寫過perl程式碼。

 

於是用了兩天時間連學帶看就把bugzilla的原始碼看了一遍。然後把bugzilla郵件傳送的部分重寫了一下。先把bugzilla郵件傳送部分貼出來。

bugzilla/mailer.pm

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

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 ([email protected]) {

ThrowCodeError('mail_send_error', { msg => [email protected]>message, mail => $email });

}

}

}

 

使用的sendmail($email, {transport=> $transport}), 傳送。由於系統的sendmail沒有配置好，傳送不出來。

自己寫了一版單獨用perl傳送郵件的。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

#!/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 傳送差別很大。沒辦法整合。

 

於是又換了一種寫法。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

#!/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 的程式碼整合。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

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 ([email protected]) {

#            ThrowCodeError('mail_send_error', { msg => [email protected]>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();

    }

}

 

主要是將郵件傳送方式修改了。

1

2

3

4

5

        local $ENV{PATH} = SENDMAIL_PATH;

        eval { sendmail($email, { transport => $transport }) };

        if ([email protected]) {

            ThrowCodeError('mail_send_error', { msg => [email protected]>message, mail => $email });

        }

換成了

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

        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，不要隨便相信網上的程式碼。

相關推薦

[轉載] 使用Bugzilla，你肯定會遇到的坑。

使用Bugzilla，你肯定會遇到的坑。 2018年06月01日 09:36:32 美少女程式猿   最近和幾個朋友一起做使用者態協議棧開源專案 NtyTcp ，純業餘愛好，個人情懷。剛剛開始做有好多的Bug，故搭建了一個Bugzilla，用來上傳Bug的。

使用Bugzilla，你肯定會遇到的坑。

bugzilla smtp ssl mail perl 最近和幾個朋友一起做用戶態協議棧開源項目 NtyTcp ，純業余愛好，個人情懷。剛剛開始做有好多的Bug，故搭建了一個Bugzilla，用來上傳Bug的。有幾個開發朋友想在 bug.ntytcp.com提交bug，不能註冊，因為不能發

榮耀V9 play今日釋出，這個功能你肯定會喜歡！

　　今天網上就一直在說V9play呀，V9play是在榮耀V9的基礎上引出來的，別小看V9play這個名字，可以說是寓意十足啊，這款手機的主打是青春，名為青春加速度，而play為“玩”的意思，剛好符合年輕就要玩的風格！ 　　這款手機在售價上面，標配的售價好像是1

看完這篇部落格，我保證你肯定會做介面測試了。

最近給公司的新員工培訓web api介面測試，發現這一塊的內部需求還比較大，不僅僅是新員工，包括一些經常寫介面測試老員工，對介面也是似懂非懂的，所以我絕對有必要寫一篇部落格來普及下。 在我們公司內部，一般使用ruby或者python語言來做介面測試，這篇檔案主要是講解使用python語言來做介面測試。 如果要

HTML5—— 你肯定會用到的新知識

date name ogg new bridge summary progress port phone HTML5 簡介 語義化標簽 新增結構標簽 表單 多媒體 HTML5 簡介 XML是更加嚴格的語言 是HTML和XHTML的結合 語義化標簽 新增的語義化標簽

90後女孩的殺身之禍----悲劇釀成--放棄所有的虛構的故事後，你終會發現，現實才是最美好的。

pxn 說了 心態 經歷 也會 是你 女孩 tail cmp 只看樓主 收藏 回復 雲夢情閑 聞名一方 11 有一段新聞，令人唏噓，一個90後女孩，因為拒絕男同學求愛，被從19樓扔下去，當場殞命。男

當iPhone用上聯發科，你還會愛上它嗎？

iphone對於蘋果來說，現在正在經歷史上罕見的“冰火兩重天”境遇。一方面是iPhone 8系列的售價以讓人瞠目結舌的速度暴跌，另一方面則是史上售價最高的iPhone X遭遇瘋搶，銷量可謂風生水起。可見，消費者對於不同的iPhone產品已經明顯呈現兩極分化的態度。而就在明年，蘋果可能還會在iPhone上讓你大

又一年沒有中國隊的世界杯，你還會熬夜打call嗎？網友的回答亮了

俄羅斯 .... 評論 一個 fff CA 圖片 通過 mage 作為足球界的第一盛宴，2018年俄羅斯世界杯將於明天點燃戰火，持續整整一個月。Giiso小智就想問，真球迷、假球迷、或是偽球迷，你們準備好要陷入這四年一度的狂歡了嗎？ 根據公開的信息，目前可以通過央視、優酷

Asp.Net Core中使用Swagger，你不得不踩的坑

action npr resolve com rate point creat 21點 use 　　很久不來寫blog了，換了新工作後很累，很忙。每天常態化加班到21點，偶爾還會到淩晨，加班很累，但這段時間，也確實學到了不少知識，今天這篇文章和大家分享一下：Asp.Net

學習和考取HCIE的普遍經典過程，你肯定是遇到了其中的某些問題？這裏有你要的答案

位置 補齊 於平 接下來 月份 成熟 瓶頸 轉變 簡單 畢業於2014年，畢業後來到一家企業做基礎運維，工作內容涉及的範圍比較廣，工作內容很雜，在這樣的環境中一晃就是兩年多（這就是傳說中的類似的網管）。2017年初認識很清楚的認識到了職業的瓶頸，說句話是這麽說的：有些人只能

wwwlyjustcom看完這篇，你就會Linux基本操作了，請耐看完199O8836661

command sts r文件 正常 內置命令 生態 regular ces 開頭 只有光頭才能變強這個學期開了Linux的課程了，授課的老師也是比較負責任的一位。總的來說也算是比較系統地學習了一下Linux了~本文章主要是總結Linux的基礎操作以及一些簡單的概念，對於開

Zookeeper，你可把我坑慘了!

1 說多了都是淚 前些日子，我們被自己部署的 Zookeeper 叢集 DDOS ***了，驚不驚喜，意不意外？肯定有很多朋友會問，怎麼會呢？ 一般來說確實不可能，但在一系列條件的配合下，可以把不可能變為可能（感覺好勵志有木有！），下面就讓我給大家一一道來。 2 交代下前提 在講故事前，有幾個前提

Java中執行緒池，你真的會用嗎

轉載自   Java中執行緒池，你真的會用嗎 在《深入原始碼分析Java執行緒池的實現原理》這篇文章中，我們介紹過了Java中執行緒池的常見用法以及基本原理。 在文中有這樣一段描述： 可以通過Executors靜態工廠構建執行緒池，但一般不建議這樣使用。 關於這個

多執行緒通訊的三大法器，你真的會用嗎？

wait, notify, notifyAll 是多執行緒之間通訊最重要的 3 個方法，今天，棧長給大家普及一下它們的知識要點及應用實戰。 定義 wait：讓持有該物件鎖的執行緒等待； notify: 喚醒任何一個持有該物件鎖的執行緒； notify: 喚醒所有持有該物件鎖的執行緒； 它們 3 個的

此Python破解反爬蟲例項，曾幫助過我成長，你也會對它表示感謝！

通過用JS在本地生成隨機字串的反爬蟲機制，在利用Python寫爬蟲的時候經常會遇到的一個問題。希望通過講解，能為大家提供一種思路。以後再碰到這種問題的時候知道該如何解決。（如果缺乏學習資料的同學，文末已經給你提供！） 破解有道翻譯反爬蟲機制 web端的有道翻譯，在之前是直接可以爬的。也就是說

[面試題]100層樓丟玻璃球，一旦超過某層就會破，你只有兩個球。

題目：  有一棟100層高的大樓，給你兩個完全相同的玻璃球。假設從某一層開始，丟下玻璃球會摔碎。那麼怎麼利用手中的兩個球，用什麼最優策略知道這個臨界的層是第幾層？？   思路：最簡單的，扔一個到51層 ，碎了，再試後面50層 ，沒碎再試前面50層，總共50次。時間複雜

學會如何閱讀程式碼，你真的會嗎？

這幾天一直在網上看關於檔案的上傳下載的功能，也有些思路了，但就是寫不清。   程式碼閱讀的必要性    閱讀別人的程式碼作為研發人員是一件經常要做的事情。一個是學習新的程式語言的時候通過閱讀別人的程式碼是個最佳的學習方法，另外是積累程式設計經驗。如果你有機 會閱

在Java中，你真的會日期轉換嗎

1. 什麼是SimpleDateFormat 在java doc對SimpleDateFormat的解釋如下: SimpleDateFormatis a concrete class for formatting and parsing dates in a locale

堅持，你終會成功

堅持，你終會成功 親愛的黑馬老師們,傳智老師們:     老師們好,我是視覺4期學員楊鈞清,首先,我找到工作了,得到訊息的一瞬間,首先要感謝黑馬,感謝傳智,感謝CSDN,感謝CCAV.我的薪資是6K福利五險一金+包吃住+管交通,總之在杭州令人滿意...公司性質比較牛B,估計我

《程式設計珠璣》程式碼之路7：這個演算法全世界程式設計師16年才寫對，你肯定想不到竟然是這個

這篇部落格要講的演算法，是個有故事的演算法，大家一定會喜歡的： 有這麼一個演算法： 1：業界巨佬經典鉅著《程式設計珠璣》的作者，在課堂上給出了思想，不限時間讓程式設計師們實現，所有的程式設計師在提交的時候都覺得自己寫的是對的，然而結果是即使是高階程式設計師，90%以上的人都寫錯了。 2：