line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Sisimai::Lhost; |
2
|
84
|
|
|
84
|
|
70327
|
use feature ':5.10'; |
|
84
|
|
|
|
|
163
|
|
|
84
|
|
|
|
|
5980
|
|
3
|
84
|
|
|
84
|
|
469
|
use strict; |
|
84
|
|
|
|
|
147
|
|
|
84
|
|
|
|
|
1442
|
|
4
|
84
|
|
|
84
|
|
352
|
use warnings; |
|
84
|
|
|
|
|
198
|
|
|
84
|
|
|
|
|
1964
|
|
5
|
84
|
|
|
84
|
|
1218
|
use Sisimai::RFC5322; |
|
84
|
|
|
|
|
164
|
|
|
84
|
|
|
|
|
27721
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
sub DELIVERYSTATUS { |
8
|
|
|
|
|
|
|
# Data structure for parsed bounce messages |
9
|
|
|
|
|
|
|
# @private |
10
|
|
|
|
|
|
|
# @return [Hash] Data structure for delivery status |
11
|
|
|
|
|
|
|
return { |
12
|
3702
|
|
|
3702
|
0
|
34097
|
'spec' => '', # Protocl specification |
13
|
|
|
|
|
|
|
'date' => '', # The value of Last-Attempt-Date header |
14
|
|
|
|
|
|
|
'rhost' => '', # The value of Remote-MTA header |
15
|
|
|
|
|
|
|
'lhost' => '', # The value of Received-From-MTA header |
16
|
|
|
|
|
|
|
'alias' => '', # The value of alias entry(RHS) |
17
|
|
|
|
|
|
|
'agent' => '', # MTA name |
18
|
|
|
|
|
|
|
'action' => '', # The value of Action header |
19
|
|
|
|
|
|
|
'status' => '', # The value of Status header |
20
|
|
|
|
|
|
|
'reason' => '', # Temporary reason of bounce |
21
|
|
|
|
|
|
|
'command' => '', # SMTP command in the message body |
22
|
|
|
|
|
|
|
'replycode', => '', # SMTP Reply Code |
23
|
|
|
|
|
|
|
'diagnosis' => '', # The value of Diagnostic-Code header |
24
|
|
|
|
|
|
|
'recipient' => '', # The value of Final-Recipient header |
25
|
|
|
|
|
|
|
'softbounce' => '', # Soft bounce or not |
26
|
|
|
|
|
|
|
'feedbacktype' => '', # Feedback Type |
27
|
|
|
|
|
|
|
}; |
28
|
|
|
|
|
|
|
} |
29
|
|
|
|
|
|
|
sub INDICATORS { |
30
|
|
|
|
|
|
|
# Flags for position variables |
31
|
|
|
|
|
|
|
# @private |
32
|
|
|
|
|
|
|
# @return [Hash] Position flag data |
33
|
|
|
|
|
|
|
# @since v4.13.0 |
34
|
|
|
|
|
|
|
return { |
35
|
245
|
|
|
245
|
0
|
1052
|
'deliverystatus' => (1 << 1), |
36
|
|
|
|
|
|
|
'message-rfc822' => (1 << 2), |
37
|
|
|
|
|
|
|
}; |
38
|
|
|
|
|
|
|
} |
39
|
1
|
|
|
1
|
0
|
1218
|
sub description { return '' } |
40
|
|
|
|
|
|
|
sub index { |
41
|
|
|
|
|
|
|
# Alphabetical sorted MTA module list |
42
|
|
|
|
|
|
|
# @return [Array] MTA list with order |
43
|
83
|
|
|
83
|
0
|
1276
|
return [qw| |
44
|
|
|
|
|
|
|
Activehunter Amavis AmazonSES AmazonWorkMail Aol ApacheJames Barracuda Bigfoot |
45
|
|
|
|
|
|
|
Biglobe Courier Domino EZweb EinsUndEins Exchange2003 Exchange2007 Exim FML |
46
|
|
|
|
|
|
|
Facebook GMX GSuite GoogleGroups Gmail IMailServer InterScanMSS KDDI MXLogic |
47
|
|
|
|
|
|
|
MailFoundry MailMarshalSMTP MailRu McAfee MessageLabs MessagingServer Notes |
48
|
|
|
|
|
|
|
Office365 OpenSMTPD Outlook Postfix PowerMTA ReceivingSES SendGrid Sendmail |
49
|
|
|
|
|
|
|
SurfControl V5sendmail Verizon X1 X2 X3 X4 X5 X6 Yahoo Yandex Zoho mFILTER |
50
|
|
|
|
|
|
|
qmail |
51
|
|
|
|
|
|
|
|]; |
52
|
|
|
|
|
|
|
} |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
sub path { |
55
|
|
|
|
|
|
|
# Returns Sisimai::Lhost::* module path table |
56
|
|
|
|
|
|
|
# @return [Hash] Module path table |
57
|
|
|
|
|
|
|
# @since v4.25.6 |
58
|
80
|
|
|
80
|
0
|
225
|
my $class = shift; |
59
|
80
|
|
|
|
|
353
|
my $index = __PACKAGE__->index; |
60
|
80
|
|
|
|
|
439
|
my $table = { |
61
|
|
|
|
|
|
|
'Sisimai::ARF' => 'Sisimai/ARF.pm', |
62
|
|
|
|
|
|
|
'Sisimai::RFC3464' => 'Sisimai/RFC3464.pm', |
63
|
|
|
|
|
|
|
'Sisimai::RFC3834' => 'Sisimai/RFC3834.pm', |
64
|
|
|
|
|
|
|
}; |
65
|
80
|
|
|
|
|
6378
|
$table->{ __PACKAGE__.'::'.$_ } = 'Sisimai/Lhost/'.$_.'.pm' for @$index; |
66
|
80
|
|
|
|
|
498
|
return $table; |
67
|
|
|
|
|
|
|
} |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
sub make { |
70
|
|
|
|
|
|
|
# Method of a parent class to parse a bounce message of each MTA |
71
|
|
|
|
|
|
|
# @param [Hash] mhead Message headers of a bounce email |
72
|
|
|
|
|
|
|
# @param [String] mbody Message body of a bounce email |
73
|
|
|
|
|
|
|
# @return [Hash] Bounce data list and message/rfc822 part |
74
|
|
|
|
|
|
|
# @return [Undef] failed to parse or the arguments are missing |
75
|
1
|
|
|
1
|
0
|
4
|
return undef; |
76
|
|
|
|
|
|
|
} |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
1; |
79
|
|
|
|
|
|
|
__END__ |