| line |
true |
false |
branch |
|
25
|
0 |
8 |
unless $ip =~ /^([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})$/
|
|
51
|
1 |
3 |
unless $self->rbl_test_ns('conf', $conf, 'rbl', $zone)
|
|
54
|
1 |
2 |
unless $self->rbl_test_positive_ip('conf', $conf, 'rbl', $zone)
|
|
57
|
0 |
2 |
unless $self->rbl_test_negative_ip('conf', $conf, 'rbl', $zone)
|
|
77
|
0 |
6 |
if ($rbl =~ /rbl\.cluecentral\.net$/) { }
|
|
|
0 |
6 |
elsif ($rbl eq 'spews.blackhole.us') { }
|
|
|
1 |
5 |
elsif ($rbl eq 'list.dnswl.org') { }
|
|
|
2 |
3 |
elsif ($rbl eq 'bl.spamcop.net') { }
|
|
|
0 |
3 |
elsif ($rbl =~ /\.dnsbl\.sorbs\.net$/) { }
|
|
104
|
0 |
5 |
$rbl =~ /rfc-ignorant\.org$/ ? :
|
|
|
0 |
5 |
$rbl eq 'cn.rbl.cluecentral.net' ? :
|
|
|
0 |
5 |
$rbl eq 'cn-kr.blackholes.us' ? :
|
|
|
0 |
5 |
$rbl eq 'kr.rbl.cluecentral.net' ? :
|
|
|
0 |
5 |
$rbl eq 'korea.services.net' ? :
|
|
111
|
0 |
5 |
unless $test_ip
|
|
114
|
0 |
5 |
unless my $test = $self->is_ip_address('ip', $test_ip, 'rbl', $rbl, %args)
|
|
120
|
0 |
2 |
unless $rr =~ /127\.[0-1]\.[0-9]{1,3}/
|
|
141
|
0 |
3 |
$rbl eq 'us.rbl.cluecentral.net' ? :
|
|
|
0 |
3 |
$rbl eq 'cn.rbl.cluecentral.net' ? :
|
|
|
0 |
3 |
$rbl eq 'kr.rbl.cluecentral.net' ? :
|
|
|
0 |
3 |
$rbl eq 'korea.services.net' ? :
|
|
147
|
0 |
3 |
unless my $test = $self->is_ip_address('ip', $test_ip, 'rbl', $rbl, %args)
|
|
151
|
3 |
0 |
if scalar @rrs == 0
|
|
154
|
0 |
0 |
unless $rr =~ /127\.0\.0/
|
|
177
|
0 |
0 |
if $conf and $conf->{'rbl_enable_lookup_using'} and $conf->{'rbl_enable_lookup_using'} eq 'dig'
|
|
179
|
0 |
16 |
unless $self->util->has_module('Net::DNS')
|
|
195
|
8 |
8 |
unless my $query = $net_dns->query($record, $type)
|
|
200
|
35 |
3 |
if ($type eq 'NS') { }
|
|
|
3 |
0 |
elsif ($type eq 'A') { }
|
|
|
0 |
0 |
elsif ($type eq 'PTR') { }
|