| line |
true |
false |
branch |
|
52
|
0 |
0 |
unless ($self->check_restrict('restrict.txt', $$self{'headers'}{'0.0'}{'received'}, [])) |
|
67
|
0 |
0 |
if ($$self{'config'}{'max_message_size'} and (-s $$self{'message'}) / 1024 > $$self{'config'}{'max_message_size'}) |
|
83
|
0 |
0 |
if (scalar keys %{$$self{'headers'};} > 1) |
|
87
|
0 |
0 |
if (my $error = &generate_code($listfile, $attachfile, $$self{'from'}, $code)) |
|
92
|
0 |
0 |
if ($@) |
|
96
|
0 |
0 |
if ($access eq 'deny') |
|
114
|
0 |
0 |
if $$self{'config'}{'stamp'} eq 'y' |
|
115
|
0 |
0 |
$$self{'headers'}{'0.0'}{'subject'}{'value'} =~ /^Re: /i ? : |
|
118
|
0 |
0 |
unless $$self{'stamp'} |
|
120
|
0 |
0 |
if ($bounce == 2) { } |
|
|
0 |
0 |
elsif ($bounce and $$self{'config'}{'accept_bounces'} eq 'n') { } |
|
|
0 |
0 |
elsif ($$self{'stamp'} and not $human) { } |
|
153
|
0 |
0 |
if $$self{'config'}{'archive'} eq 'y' |
|
164
|
0 |
0 |
if lc($$self{'headers'}{'0.0'}{'to'}) =~ /\b$list\b/ |
|
165
|
0 |
0 |
if exists $$self{'headers'}{'0.0'}{'cc'} and lc($$self{'headers'}{'0.0'}{'cc'}) =~ /\b$list\b/ |
|
166
|
0 |
0 |
if exists $$self{'headers'}{'0.0'}{'x-been-there'} and $$self{'headers'}{'0.0'}{'x-been-there'} eq $$self{'list'} |
|
180
|
0 |
0 |
if ($letter eq 'd') { } |
|
|
0 |
0 |
elsif ($letter eq 'w') { } |
|
|
0 |
0 |
elsif ($letter eq 'm') { } |
|
|
0 |
0 |
elsif ($letter eq 'y') { } |
|
181
|
0 |
0 |
if $days > $number |
|
183
|
0 |
0 |
if int $days / 7 > $number |
|
185
|
0 |
0 |
if int $days / 30 > $number |
|
187
|
0 |
0 |
if int $days / 365 > $number |
|
189
|
0 |
0 |
if ($newstamp) { } |
|
202
|
0 |
0 |
unless open MLIST, '<', $file |
|
204
|
0 |
0 |
if /^[\#\x0d\x0a]/ |
|
205
|
0 |
0 |
if (/\b$string\b/) |
|
223
|
0 |
0 |
unless open ATTACHMENT, '<', $attachfile |
|
225
|
0 |
0 |
if /^[\#\x0d\x0a]/ |
|
227
|
0 |
0 |
if ($addr eq 'subscribers') |
|
228
|
0 |
0 |
unless ($subscriber) |
|
230
|
0 |
0 |
unless $subscriber |
|
232
|
0 |
0 |
if ($subscriber > 0) { } |
|
240
|
0 |
0 |
$addr eq 'any' ? : |
|
241
|
0 |
0 |
$policy eq 'deny' ? : |
|
258
|
0 |
0 |
unless open FILE, '<', $outfile |
|
302
|
0 |
0 |
unless open BANNER, '<', $file |
|
304
|
0 |
0 |
$encoding eq 'quoted-printable' ? : |
|
316
|
0 |
0 |
$encoding eq '8bit' ? : |
|
|
0 |
0 |
$encoding eq '7bit' ? : |
|
|
0 |
0 |
$encoding eq 'quoted-printable' ? : |
|
|
0 |
0 |
length $encoding == 0 ? : |
|
329
|
0 |
0 |
if ($$self{'config'}{'header'} eq 'y') |
|
331
|
0 |
0 |
unless -e $headerfile and -s $headerfile |
|
333
|
0 |
0 |
if ($$self{'config'}{'footer'} eq 'y') |
|
335
|
0 |
0 |
unless -e $footerfile and -s $footerfile |
|
337
|
0 |
0 |
exists $$self{'headers'}{'0.0'}{'content-type'}{'boundary'} ? : |
|
338
|
0 |
0 |
$boundary ? : |
|
340
|
0 |
0 |
if ($headerfile or $footerfile) |
|
341
|
0 |
0 |
if (exists $$self{'headers'}{$tree}{'content-type'}{'value'} and $$self{'headers'}{$tree}{'content-type'}{'value'} eq 'text/plain') { } |
|
343
|
0 |
0 |
if (exists $$self{'headers'}{$tree}{'content-transfer-encoding'}{'value'}) |
|
345
|
0 |
0 |
unless &check_encoding($encoding) |
|
353
|
0 |
0 |
unless open INFILE, '<', $$self{'message'} |
|
354
|
0 |
0 |
unless open OUTFILE, '>', $outfile |
|
357
|
0 |
0 |
if ($headers) { } |
|
358
|
0 |
0 |
if ($topheaders) |
|
359
|
0 |
0 |
if &check_headers($_) |
|
360
|
0 |
0 |
if $prefix and index($_, $prefix, 0) == -1 |
|
361
|
0 |
0 |
if $received == 1 and not /^(X-)?Received: / || /^[ \t]+/ |
|
362
|
0 |
0 |
if ($received == 0) |
|
367
|
0 |
0 |
if /^[\n\r]$/o |
|
370
|
0 |
0 |
if s/\b$stamp\b//go |
|
371
|
0 |
0 |
if ($headerfile or $footerfile) |
|
372
|
0 |
0 |
if ($headerfile and $count == 1) |
|
376
|
0 |
0 |
if ($boundary and /^--$boundary/) |
|
380
|
0 |
0 |
if ($footerfile and $count == 2) |
|
388
|
0 |
0 |
if $footerfile |
|
403
|
0 |
0 |
unless -s $file |
|
406
|
0 |
0 |
unless $count |
|
409
|
0 |
0 |
unless open FILE, '<', $file |
|
411
|
0 |
0 |
if /^[\#\n\r]+/ |
|
413
|
0 |
0 |
if ($count) { } |
|
419
|
0 |
0 |
if ($$array[1] eq 'subscribers') { } |
|
425
|
0 |
0 |
if ($address eq 'any') |
|
426
|
0 |
0 |
if $$array[0] eq 'deny' and $$array[3] eq 'anywhere' |
|
429
|
0 |
0 |
if ($$self{'from'} =~ /$address$/) |
|
430
|
0 |
0 |
$$array[3] eq 'localnet' ? : |
|
|
0 |
0 |
$$array[3] eq 'anywhere' ? : |
|
433
|
0 |
0 |
if (defined $$array[4] and $$array[4]) |
|
434
|
0 |
0 |
$$array[4] =~ /^ +without +stamp/ ? : |
|
|
0 |
0 |
$$array[4] =~ /^ +without +stamp/ ? : |
|
|
0 |
0 |
$$array[0] eq 'allow' ? : |
|
438
|
0 |
0 |
if ($$array[2] eq 'bounce' or $$array[2] eq 'proceed') |
|
439
|
0 |
0 |
$$self{'config'}{'stamp'} eq 'y' ? : |
|
|
0 |
0 |
$$array[0] eq 'allow' ? : |
|
442
|
0 |
0 |
if $netok |