| line |
true |
false |
branch |
|
175
|
0 |
6 |
if (@_ % 2) { } |
|
182
|
0 |
6 |
unless $arg{'addr'} |
|
183
|
6 |
0 |
if (exists $arg{'timeout'}) { } |
|
184
|
0 |
6 |
if $arg{'debug'} == 1 |
|
187
|
0 |
0 |
if $arg{'debug'} == 1 |
|
190
|
0 |
6 |
if (exists $arg{'from'}) |
|
191
|
0 |
0 |
if $arg{'debug'} == 1 |
|
197
|
0 |
6 |
if (length $arg{'addr'} > 256) |
|
198
|
0 |
0 |
if $arg{'debug'} == 1 |
|
201
|
6 |
0 |
if ($arg{'addr'} =~ /^(([a-z0-9_\.\+\-\=\?\^\#\&]){1,64})\@((([a-z0-9\-]){1,251}\.){1,252}[a-z0-9]{2,6})$/i) { } |
|
206
|
0 |
6 |
if (length $domain > 255) |
|
207
|
0 |
0 |
if $arg{'debug'} == 1 |
|
211
|
0 |
0 |
if $arg{'debug'} == 1 |
|
214
|
5 |
1 |
if $arg{'method'} eq 'syntax' |
|
224
|
0 |
1 |
unless (@mxhosts) |
|
227
|
0 |
0 |
unless $dnsquery |
|
229
|
0 |
0 |
unless $rr->type eq 'A' |
|
232
|
0 |
0 |
unless @mxhosts |
|
234
|
0 |
1 |
if ($arg{'debug'} == 1) |
|
242
|
0 |
1 |
if ($@) |
|
243
|
0 |
0 |
if $arg{'debug'} == 1 |
|
247
|
0 |
1 |
unless @mxhosts |
|
258
|
1 |
0 |
if ($sock) |
|
259
|
0 |
1 |
if $arg{'debug'} == 1 |
|
261
|
0 |
1 |
if ($arg{'method'} eq 'compat') |
|
270
|
1 |
0 |
if (@banner) { } |
|
271
|
0 |
1 |
if ($arg{'debug'} == 1) |
|
276
|
0 |
1 |
unless ($banner[-1] =~ /^220\s/) |
|
280
|
0 |
0 |
if $arg{'debug'} == 1 |
|
284
|
0 |
0 |
if $arg{'debug'} == 1 |
|
292
|
1 |
0 |
if (@helo) { } |
|
293
|
0 |
1 |
if ($arg{'debug'} == 1) |
|
298
|
0 |
1 |
unless ($helo[-1] =~ /^250\s/) |
|
302
|
0 |
0 |
if $arg{'debug'} == 1 |
|
306
|
0 |
0 |
if $arg{'debug'} == 1 |
|
313
|
1 |
0 |
if (@mf) { } |
|
314
|
0 |
1 |
if ($arg{'debug'} == 1) |
|
319
|
0 |
1 |
unless ($mf[-1] =~ /^250\s/) |
|
323
|
0 |
0 |
if $arg{'debug'} == 1 |
|
327
|
0 |
0 |
if $arg{'debug'} == 1 |
|
336
|
1 |
0 |
if (@rt) { } |
|
337
|
0 |
1 |
if ($arg{'debug'} == 1) |
|
342
|
1 |
0 |
if ($rt[-1] =~ /^250\s/) { } |
|
|
0 |
0 |
elsif ($rt[-1] =~ /^4\d{2}/) { } |
|
|
0 |
0 |
elsif ($rt[-1] =~ /^5\d{2}/) { } |
|
353
|
0 |
0 |
if $arg{'debug'} == 1 |
|
358
|
0 |
0 |
if $arg{'debug'} == 1 |
|
363
|
0 |
0 |
unless $livesmtp |
|
364
|
0 |
0 |
if $misbehave and not $tmpfail |
|
365
|
0 |
0 |
if $tmpfail |
|
373
|
4 |
0 |
if (my($pending) = $select->can_read($timeout)) |
|
375
|
4 |
0 |
if (/^\d+\s/) { } |