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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
#!perl -wT
use strict;
use Test::More;
use lib 't';
use TestBounceParser;
# Loop through a bunch of "user unknown" reject messages from various
# providers / MTAs, as delivered by Sendmail, and make sure they give us
# what we want.
my @files_and_responses = (
"att-via-sendmail.unknown.msg" => {
"reason" =>
'550 [SUSPEND] Mailbox currently suspended - Please contact correspondent directly',
"smtp_code" => 550,
},
"comcast-via-sendmail.unknown.msg" => {
"reason" => '551 not our customer',
"smtp_code" => 551,
},
"cox-via-sendmail.unknown.msg" => {
"reason" => '550 <recipient@example.net> recipient rejected',
"smtp_code" => 550,
},
"generic-postfix-via-sendmail.unknown.msg" => {
"reason" =>
'550 5.1.1 <recipient@example.net>: Recipient address rejected: User unknown in local recipient table',
"smtp_code" => 550,
},
"gmail-via-sendmail.unknown.msg" => {
"reason" => '550 5.7.1 No such user c18si2365148hub',
"smtp_code" => 550,
},
"msn-via-sendmail.unknown.msg" => {
"reason" => '550 Requested action not taken: mailbox unavailable',
"smtp_code" => 550,
},
"yahoo-via-sendmail.unknown.msg" => {
"reason" =>
'554 delivery error: dd Sorry your message to recipient@example.net cannot be delivered. This account has been disabled or discontinued [#102]. - mta330.mail.mud.yahoo.com',
"smtp_code" => 554,
},
"hotmail-via-sendmail.unknown.msg" => {
"reason" => '550 Requested action not taken: mailbox unavailable',
"smtp_code" => 550,
},
"domino.unknown.msg" => {
# TODO = should return actual code / reason
"reason" => 'Your message
Subject: Test Bounce
was not delivered to:',
"smtp_code" => '',
},
"aol.unknown.msg" => {
"reason" => '550 MAILBOX NOT FOUND',
"smtp_code" => 550,
},
"qmail.unknown.msg" => {
# TODO = should return actual code / reason
"reason" => "Hi. This is the qmail-send program at mail1.coqui.net.
I'm afraid I wasn't able to deliver your message to the following addresses.
This is a permanent error; I've given up. Sorry it didn't work out.",
"smtp_code" => '',
},
"exchange.unknown.msg" => {
# TODO = should return actual code / reason
"reason" => '',
"smtp_code" => '',
},
"novell-with-rhs.msg" => {
# TODO = should (maybe) return actual reason
"reason" =>
'The message that you sent was undeliverable to the following:',
# Can't really get this since it DNE
"smtp_code" => '',
},
"yahoo-user-unknown.msg" => {
"reason" =>
'553 5.3.0 <recipient@example.net>... Address does not exist',
"smtp_code" => "553",
},
"me-user-unknown.msg" => {
"reason" =>
'550 5.1.6 recipient no longer on server: recipient@example.net',
"smtp_code" => "550",
},
"cam-unknown.msg" => {
"reason" =>
'550-<recipient@example.net> is not a known user on this system; 550 see http://www.example.net/cs/email/bounce.html',
"smtp_code" => '550',
},
"rcpt-dne.msg" => {
"reason" => '554 Rcpt <recipient@example.net> does not exist',
"smtp_code" => "554",
},
"mailbox-unknown.msg" => {
"reason" => "550 5.7.1 No mailbox found",
"smtp_code" => "550",
},
"deactivated-mailbox.msg" => {
"reason" => '551 <recipient@example.net> is a deactivated mailbox',
"smtp_code" => "551",
},
"user-unknown-dne.msg" => {
"reason" => "550 Recipient does not exist on this system",
"smtp_code" => "550"
},
"badrcptto.msg" => {
"reason" => "553 sorry, badrcptto(user mail-box not found) (#5.7.1)",
"smtp_code" => "553",
},
"nomailbox.msg" => {
"reason" => "550 ** No mail box available for this user **",
"smtp_code" => "550",
},
"doesnotexist.msg" => {
"reason" => '550 User [recipient@example.net] does not exist',
"smtp_code" => "550",
},
"doesnotexist2.msg" => {
"reason" => "550 Recipient does not exist",
"smtp_code" => "550",
},
"user-unknown-not-active.msg" => {
"reason" =>
'550-recipient@example.net is not an active address at this host (invalid FreeUK 550 username)',
"smtp_code" => "550",
},
"user-unknown-not.msg" => {
"reason" => '550 "recipient@example.net" is not a known user',
"smtp_code" => "550",
},
"user-unknown-polish.msg" => {
# reason is a little ugly
"reason" =>
'501 5.1.3 Odbiorca <recipient@example.net> nie istnieje / Recipient <recipient@example.net> does not exist',
"smtp_code" => "501",
},
"user-unknown-bad.msg" => {
"reason" =>
"550 BAD_RECIPIENT - see http://www.mail.sample.ac.uk/undelivered.php?r=BAD_RECIPIENT&e=YXBwMDlAYWJlci5hYy51aw==",
"smtp_code" => "550",
},
"long-smtp.msg" => {
"smtp_code" => "447",
std_reason => 'unknown',
},
);
while ( my ( $file, $expect ) = splice @files_and_responses, 0, 2 ) {
subtest "message $file" => sub {
check_report(
"t/corpus/$file",
is_bounce => 1,
std_reason => ( $expect->{std_reason} || 'user_unknown' ),
reason => $expect->{reason},
smtp_code => $expect->{smtp_code},
addresses => ['recipient@example.net']
);
};
}
done_testing;
|
