| line |
l |
!l |
condition |
|
156
|
0 |
0 |
@seg && @seg < $max && 1 |
|
187
|
0 |
0 |
ref $source eq "HASH" and scalar grep({$_->[0][0] if ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] and ref $_->[0] eq "ARRAY" and @{$_->[0];};} values %{$source;} == scalar keys %{$source;}) |
|
251
|
0 |
2 |
$query{'abuse'} = $query{$qkey} and last |
|
311
|
0 |
0 |
close $sock and return "permission", "denied" |
|
364
|
0 |
0 |
close $sock and return "permission", "denied" |
|
436
|
0 |
0 |
close $sock and return "permission", "denied" |
|
500
|
0 |
0 |
close $sock and return "permission", "denied" |
|
505
|
0 |
0 |
close $sock and return () |
| line |
!l |
l&&!r |
l&&r |
condition |
|
116
|
1 |
1 |
20 |
$ip && $ip =~ /^([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)$/ && ($1 + 0 | $2 + 0 | $3 + 0 | $4 + 0) < 256 |
|
187
|
0 |
0 |
0 |
ref $_ and ref $_ eq "ARRAY" |
|
|
0 |
0 |
0 |
ref $_ and ref $_ eq "ARRAY" and @{$_;} |
|
|
0 |
0 |
0 |
ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] |
|
|
0 |
0 |
0 |
ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] and ref $_->[0] eq "ARRAY" |
|
|
0 |
0 |
0 |
ref $_ and ref $_ eq "ARRAY" and @{$_;} and ref $_->[0] and ref $_->[0] eq "ARRAY" and @{$_->[0];} |
|
236
|
0 |
0 |
17 |
$query_code && ref $query_code eq 'CODE' |
|
251
|
313 |
10 |
2 |
$qkey =~ /abuse/i and $query{$qkey} =~ /\@/ |
|
254
|
0 |
4 |
9 |
$query{'fullinfo'} and $query{'fullinfo'} =~ /(\S*abuse\S*\@\S+)/m |
|
263
|
0 |
3 |
0 |
defined $query{'cidr'} and $query{'cidr'} =~ /\,/ |
|
288
|
0 |
15 |
0 |
$query{'permission'} and $query{'permission'} eq "denied" |
|
326
|
0 |
4 |
0 |
defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ |
|
|
0 |
4 |
0 |
defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ |
|
|
0 |
4 |
0 |
defined $query{'netname'} and $query{'netname'} =~ /AFRINIC-NET-TRANSFERRED/ |
|
|
0 |
4 |
0 |
defined $query{'country'} and $query{'country'} =~ /world wide/ |
|
389
|
108 |
6 |
0 |
$lc_field eq "country" and defined $query{$lc_field} |
|
402
|
1 |
2 |
0 |
defined $query{'remarks'} and $query{'remarks'} =~ /address range is not administered by APNIC|This network in not allocated/ |
|
|
0 |
3 |
0 |
defined $query{'descr'} and $query{'descr'} =~ /not allocated to|by APNIC|placeholder reference/i |
|
465
|
0 |
2 |
1 |
$query{'orgid'} and $query{'orgid'} =~ /^\s*RIPE|LACNIC|APNIC|AFRINIC\s*$/ |
|
473
|
0 |
1 |
1 |
defined $query{'cidr'} and $query{'cidr'} =~ /\,/ |
|
511
|
103 |
2 |
4 |
$field eq "country" and $query{'country'} |
|
530
|
0 |
0 |
1 |
$query{'nserver'} and $query{'nserver'} =~ /\.(\w\w)$/ |
|
|
0 |
0 |
0 |
$query{'descr'} and $query{'descr'} =~ /\s(\w\w)$/ |
|
558
|
2 |
0 |
0 |
defined $query{'remarks'} and $query{'remarks'} =~ /country is really worldwide/ |
|
|
0 |
2 |
0 |
defined $query{'descr'} and $query{'descr'} =~ /Here for in-addr\.arpa authentication/ |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
68
|
0 |
9 |
0 |
ref $proto || $proto |
|
81
|
2 |
17 |
0 |
$port ||= $WHOIS_PORT |
|
82
|
2 |
17 |
0 |
$timeout ||= $WHOIS_TIMEOUT |
|
127
|
0 |
0 |
0 |
$ip =~ /^:[^:]/ or $ip =~ /[^:]:$/ |
|
151
|
0 |
0 |
0 |
length $seg == 0 or length $seg > 4 |
|
208
|
14 |
0 |
2 |
$param{'-whois'} || $param{'-mywhois'} |
|
254
|
0 |
1 |
3 |
$query{'email'} or $query{'e-mail'} |
|
|
1 |
0 |
3 |
$query{'email'} or $query{'e-mail'} or $query{'orgtechemail'} |
|
259
|
1 |
0 |
0 |
$query{'email'} || $query{'e-mail'} || $query{'orgtechemail'} |
|
282
|
17 |
26 |
20 |
$self->source_connect($source_name) || Carp::carp("Connection failed to $source_name." && (next)) |
|
312
|
44 |
36 |
83 |
/^(\%|\#)/ or not /\:/ |
|
326
|
0 |
0 |
4 |
defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ or defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ |
|
|
0 |
0 |
4 |
defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ or defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ or defined $query{'netname'} and $query{'netname'} =~ /AFRINIC-NET-TRANSFERRED/ |
|
|
0 |
0 |
4 |
defined $query{'remarks'} and $query{'remarks'} =~ /The country is really world wide/ or defined $query{'netname'} and $query{'netname'} =~ /IANA-BLK/ or defined $query{'netname'} and $query{'netname'} =~ /AFRINIC-NET-TRANSFERRED/ or defined $query{'country'} and $query{'country'} =~ /world wide/ |
|
|
0 |
4 |
0 |
$query{'inet6num'} || $query{'inetnum'} |
|
342
|
0 |
4 |
0 |
$query{'inet6num'} || $query{'inetnum'} |
|
402
|
0 |
0 |
3 |
defined $query{'remarks'} and $query{'remarks'} =~ /address range is not administered by APNIC|This network in not allocated/ or defined $query{'descr'} and $query{'descr'} =~ /not allocated to|by APNIC|placeholder reference/i |
|
|
0 |
3 |
0 |
$query{'inet6num'} || $query{'inetnum'} |
|
414
|
0 |
3 |
0 |
$query{'inet6num'} || $query{'inetnum'} |
|
438
|
72 |
43 |
140 |
/^\#/ or not /\:/ |
|
442
|
3 |
0 |
137 |
$field eq "OrgName" or $field eq "CustName" |
|
500
|
0 |
0 |
172 |
/^\%201/ or /^\% Query rate limit exceeded/ |
|
|
0 |
0 |
172 |
/^\%201/ or /^\% Query rate limit exceeded/ or /^\% Not assigned to LACNIC/ |
|
|
0 |
0 |
172 |
/^\%201/ or /^\% Query rate limit exceeded/ or /^\% Not assigned to LACNIC/ or /\% Permission denied/ |
|
507
|
40 |
23 |
109 |
/^\%/ or not /\:/ |
|
558
|
0 |
0 |
2 |
defined $query{'remarks'} and $query{'remarks'} =~ /country is really worldwide/ or defined $query{'descr'} and $query{'descr'} =~ /Here for in-addr\.arpa authentication/ |
|
560
|
0 |
2 |
0 |
$query{'inet6num'} or $query{'inetnum'} |
|
566
|
0 |
2 |
0 |
$query{'inet6num'} || $query{'inetnum'} |