| line |
true |
false |
branch |
|
21
|
0 |
0 |
if ($service eq 'cleanup' and my($rejSubTyp, $rejReas, $rejRmdr) = $message =~ /.*?\b(reject|warning|hold|discard): (header|body) (.*)$/)
|
|
28
|
0 |
0 |
unless $self->message_detail
|
|
32
|
0 |
0 |
if ($self->{'reject_detail'} != 0)
|
|
36
|
0 |
0 |
if ($self->saftsumm_mode)
|
|
41
|
0 |
0 |
if (my($type, $reject_message) = $message =~ /^(reject|reject_warning|proxy-reject|hold|discard): (.*)$/)
|
|
68
|
0 |
0 |
if ($self->saftsumm_mode)
|
|
74
|
0 |
0 |
if $self->reject_detail == 0
|
|
81
|
0 |
0 |
unless (defined $rejTyp)
|
|
85
|
0 |
0 |
unless ($self->message_detail)
|
|
86
|
0 |
0 |
if ($rejTyp eq 'RCPT' or $rejTyp eq 'DATA' or $rejTyp eq 'CONNECT') { }
|
|
|
0 |
0 |
elsif ($rejTyp eq 'MAIL') { }
|
|
106
|
0 |
0 |
unless ($to) = $rejRmdr =~ /to=<([^>]+)>/ or ($to) = $rejRmdr =~ /\d{3} <([^>]+)>: User unknown / or ($to) = $rejRmdr =~ /to=<(.*?)(?:[, ]|$)/
|
|
110
|
0 |
0 |
if $self->{'ignore_case'}
|
|
113
|
0 |
0 |
unless ($from) = $rejRmdr =~ /from=<([^>]+)>/
|
|
115
|
0 |
0 |
if (defined $from)
|
|
118
|
0 |
0 |
if $self->ignore_case
|
|
122
|
0 |
0 |
if ($rejReas =~ /^Sender address rejected:/) { }
|
|
|
0 |
0 |
elsif ($rejReas =~ /^(Recipient address rejected:|User unknown( |$))/) { }
|
|
|
0 |
0 |
elsif ($rejReas =~ s/^.*?\d{3} (Improper use of SMTP command pipelining);.*$/$1/) { }
|
|
|
0 |
0 |
elsif ($rejReas =~ s/^.*?\d{3} (Message size exceeds fixed limit);.*$/$1/) { }
|
|
|
0 |
0 |
elsif ($rejReas =~ s/^.*?\d{3} (Server configuration (?:error|problem));.*$/(Local) $1/) { }
|
|
132
|
0 |
0 |
if ($rejAddFrom)
|
|
133
|
0 |
0 |
$from ? :
|
|
142
|
0 |
0 |
if $rejAddFrom
|
|
146
|
0 |
0 |
if $rejAddFrom
|
|
151
|
0 |
0 |
if $rejAddFrom
|