| line |
true |
false |
branch |
|
249
|
0 |
0 |
if ++$w > $#w |
|
255
|
1 |
12 |
unless $$conf{'FILES'} |
|
256
|
3 |
9 |
ref $$conf{'FILES'} ? : |
|
260
|
5 |
10 |
unless -e $_ and open F, $_ |
|
262
|
2 |
82 |
unless $_ =~ /\S/ |
|
263
|
0 |
82 |
if $_ =~ /^\s*#/ |
|
264
|
0 |
82 |
unless $_ =~ /(\d{1,3}[\S]*)\s*/ |
|
282
|
3 |
9 |
if $DEBUG and $DEBUG == 1 |
|
285
|
9 |
0 |
if ($$conf{'IGNORE'}) |
|
304
|
0 |
35 |
unless exists $$conf{"$_"} and exists $$conf{"$_"}{'timeout'} |
|
306
|
9 |
26 |
if $$conf{"$_"}{'timeout'} < $uto |
|
312
|
5 |
4 |
if ($$conf{'in-addr.arpa'}) |
|
316
|
9 |
0 |
if ($$conf{'GENERIC'}) |
|
318
|
4 |
5 |
unless $needPTR |
|
320
|
0 |
9 |
unless $regexptr = $$conf{'GENERIC'}{'regexp'} and ref $regexptr eq 'ARRAY' and @$regexptr > 0 |
|
322
|
0 |
9 |
unless $iptr = $$conf{'GENERIC'}{'ignore'} and ref $iptr eq 'ARRAY' and @$iptr > 0 |
|
326
|
0 |
9 |
if $uto < $needPTR |
|
328
|
0 |
9 |
unless $uto |
|
333
|
1 |
8 |
if $DEBUG and $DEBUG == 2 |
|
335
|
1 |
7 |
if $DEBUG and $DEBUG == 3 |
|
368
|
70 |
269 |
if ($qsize > $Q and $ip = shift @ips) |
|
369
|
14 |
56 |
if matchNetAddr($ip, \@NAignor) |
|
373
|
56 |
0 |
if ($needPTR) |
|
389
|
5 |
163 |
if $dnsbls{"$bl"}{'TO'} > 5 |
|
407
|
70 |
255 |
if (@sndQ) { } |
|
413
|
181 |
144 |
if ($nfound > 0) { } |
|
420
|
261 |
41 |
if $DEBUG |
|
422
|
133 |
48 |
if (vec $rout, $fileno, 1) |
|
424
|
0 |
133 |
unless recv $Usock, $msg, PACKETSZ(), 0 |
|
425
|
0 |
133 |
unless length $msg > HFIXEDSZ() |
|
432
|
0 |
133 |
unless $tc == 0 and $qr == 1 and $opcode == QUERY() and $rcode == NOERROR() || $rcode == NXDOMAIN() || $rcode == SERVFAIL() and $qdcount == 1 and exists $queue{$id} |
|
440
|
0 |
133 |
unless $class == C_IN() |
|
446
|
84 |
49 |
unless $bl eq 'in-addr.arpa' |
|
448
|
84 |
49 |
if ($ancount and $rcode == &NOERROR) { } |
|
|
35 |
14 |
elsif ($t == T_A()) { } |
|
|
6 |
8 |
elsif ($needPTR and $t == T_PTR() and exists $$conf{'in-addr.arpa'}) { } |
|
450
|
0 |
84 |
unless lc $bl eq lc $' and $t == T_A() || $t == T_PTR() |
|
458
|
77 |
49 |
if ($t == T_A()) { } |
|
|
49 |
0 |
elsif ($needPTR and $t == T_PTR() and exists $dnsbls{'GENERIC'}) { } |
|
461
|
35 |
42 |
if (grep(($ip eq $_), keys %{$$conf{"$bl"}{'accept'};})) |
|
467
|
0 |
42 |
if (exists $$conf{"$bl"}{'acceptany'}) |
|
479
|
35 |
14 |
if (@generic) |
|
481
|
14 |
35 |
if $iptr and grep(($g =~ /$_/i), @$iptr) |
|
482
|
7 |
28 |
if $g and not grep(($g =~ /$_/i), @$regexptr) |
|
501
|
72 |
72 |
unless $now > $then |
|
505
|
35 |
169 |
if $now < $queue{$id}{'T'} |
|
507
|
11 |
158 |
if ($bl eq 'in-addr.arpa') { } |
|
508
|
3 |
8 |
if (exists $$conf{'in-addr.arpa'}) { } |
|
|
8 |
0 |
elsif (exists $dnsbls{'GENERIC'}) { } |
|
515
|
4 |
4 |
if (not $queue{$id}{'R'}) { } |
|
527
|
79 |
79 |
if (not $queue{$id}{'R'}) { } |
|
540
|
7 |
65 |
unless @ips or keys %queue |
|
541
|
51 |
14 |
unless $uage < $now |
|
545
|
12 |
0 |
if $ips{"$_"} > $now |
|
551
|
1 |
6 |
unless $DEBUG |
|
553
|
6 |
1 |
if ($DEBUG) { } |
|
554
|
2 |
4 |
if $DEBUG == 4 |
|
555
|
2 |
2 |
if $DEBUG == 5 |
|
556
|
0 |
2 |
if $DEBUG == 6 |
|
591
|
24 |
34 |
if (exists $$union{"$rip"}) { } |
|
592
|
0 |
24 |
if $expire > $$union{"$rip"} |
|
605
|
24 |
34 |
if (exists $$resp{"$ip"}) { } |
|
648
|
2 |
37 |
if ($bl eq 'TOTAL') { } |
|
|
2 |
35 |
elsif ($bl eq 'UNION') { } |
|
649
|
1 |
1 |
if ($nbsp) { } |
|
655
|
1 |
1 |
if ($nbsp) { } |
|
661
|
20 |
5 |
$nbsp ? : |
|
|
10 |
25 |
exists $$conf{"$bl"}{'comment'} && $$conf{"$bl"}{'comment'} ? : |
|
664
|
10 |
25 |
unless $nbsp |
|
665
|
5 |
20 |
exists $$conf{"$bl"}{'url'} && $$conf{"$bl"}{'url'} ? : |
|
673
|
0 |
1 |
unless keys %$dnsbls and $$dnsbls{'TOTAL'} |
|
714
|
0 |
1 |
unless keys %$dnsbls and $$dnsbls{'TOTAL'} |
|
721
|
3 |
9 |
$url ? : |
|
753
|
0 |
1 |
unless keys %$r |
|
758
|
0 |
11 |
unless $$r{"$a"}{'COMMENT'} cmp $$r{"$b"}{'COMMENT'} |
|
764
|
4 |
3 |
unless ($ck eq $$r{"$ip"}{'COMMENT'}) |
|
769
|
7 |
0 |
if length "$ip" < 12 |
|
772
|
7 |
15 |
if $_ eq 'COMMENT' |
|
775
|
0 |
15 |
if length $rc < 8 |
|
812
|
0 |
1 |
unless keys %$r |
|
819
|
0 |
11 |
unless $$r{"$a"}{'COMMENT'} cmp $$r{"$b"}{'COMMENT'} |
|
824
|
3 |
4 |
if ($ck eq $$r{"$ip"}{'COMMENT'}) { } |
|
839
|
7 |
15 |
if $_ eq 'COMMENT' |
|
843
|
2 |
13 |
$url ? : |