| line |
true |
false |
branch |
|
21
|
0 |
3 |
unless $cache_dir |
|
22
|
1 |
2 |
unless -d $cache_dir |
|
27
|
0 |
5 |
unless my $mtime = (stat $fn)[9] |
|
30
|
0 |
5 |
if $elapsed / 60 >= $cache_time |
|
34
|
2 |
1 |
if (-e "$cache_dir/$query.00") |
|
40
|
0 |
5 |
if (not $result->[$level]{'text'} and $Net::Whois::Raw::CHECK_FAIL) { } |
|
58
|
0 |
2 |
unless $cache_dir and $result |
|
59
|
0 |
2 |
unless -d $cache_dir |
|
65
|
0 |
5 |
unless exists $res->{'text'} |
|
67
|
0 |
5 |
if defined $res->{'text'} and not $res->{'text'} or not defined $res->{'text'} |
|
71
|
5 |
0 |
if (open my $cache_fh, ">", "$cache_dir/$query.$postfix") |
|
73
|
0 |
3 |
$res->{'server'} ? : |
|
|
2 |
3 |
$res->{'srv'} ? : |
|
76
|
5 |
0 |
$enc_text ? : |
|
96
|
0 |
2 |
if ($CHECK_EXCEED) |
|
99
|
0 |
0 |
if ($exceed and $whois =~ /$exceed/s) |
|
104
|
0 |
2 |
if $OMIT_MSG |
|
106
|
0 |
2 |
if ($CHECK_FAIL or $OMIT_MSG) |
|
110
|
0 |
0 |
$strip ? : |
|
115
|
0 |
0 |
if ($CHECK_FAIL and $notfound and /$notfound/) |
|
119
|
0 |
0 |
if ($OMIT_MSG) |
|
121
|
0 |
0 |
if /$re/ |
|
130
|
0 |
0 |
if ($OMIT_MSG) |
|
137
|
0 |
2 |
if (defined $Net::Whois::Raw::Data::postprocess{$server}) |
|
141
|
0 |
2 |
if (defined $Net::Whois::Raw::POSTPROCESS{$server}) |
|
145
|
0 |
2 |
if (defined $Net::Whois::Raw::Data::codepages{$server}) { } |
|
173
|
1 |
5 |
if (grep {$_ eq $tld;} @Net::Whois::Raw::Data::www_whois) |
|
177
|
0 |
5 |
if ($is_ns) |
|
188
|
0 |
6 |
if $is_ns |
|
190
|
2 |
4 |
if ($srv eq 'whois.crsnic.net' and domain_level($whoisquery) == 2) { } |
|
|
2 |
2 |
elsif ($Net::Whois::Raw::Data::query_prefix{$srv}) { } |
|
205
|
1 |
15 |
if (is_ipaddr($dom) or is_ip6addr($dom)) { } |
|
|
1 |
14 |
elsif (domain_level($dom) == 1) { } |
|
217
|
13 |
1 |
if (exists $Net::Whois::Raw::Data::servers{uc $tld_try}) |
|
223
|
1 |
13 |
unless $tld |
|
238
|
0 |
0 |
if ($tld eq 'ru' or $tld eq 'su') { } |
|
|
0 |
0 |
elsif ($tld eq 'ip') { } |
|
|
0 |
0 |
elsif ($tld eq 'ws') { } |
|
|
0 |
0 |
elsif ($tld eq 'kz') { } |
|
|
0 |
0 |
elsif ($tld eq 'vn') { } |
|
|
0 |
0 |
elsif ($tld eq 'ac') { } |
|
|
0 |
0 |
elsif ($tld eq 'bz') { } |
|
|
0 |
0 |
elsif ($tld eq 'tj') { } |
|
349
|
0 |
1 |
if ($tld eq 'ru' or $tld eq 'su') { } |
|
|
0 |
1 |
elsif ($tld eq 'ip') { } |
|
|
0 |
1 |
elsif ($tld eq 'ws') { } |
|
|
0 |
1 |
elsif ($tld eq 'kz') { } |
|
|
0 |
1 |
elsif ($tld eq 'vn') { } |
|
|
0 |
1 |
elsif ($tld eq 'ac') { } |
|
|
0 |
1 |
elsif ($tld eq 'bz') { } |
|
|
0 |
1 |
elsif ($tld eq 'tj' and $url =~ m[^http\://get\.tj]) { } |
|
|
0 |
1 |
elsif ($tld eq 'tj' and $url =~ m[\.nic\.tj/cgi/lookup]) { } |
|
|
1 |
0 |
elsif ($tld eq 'tj' and $url =~ m[\.nic\.tj/cgi/whois] or $url =~ /62\.122\.137\.16/) { } |
|
358
|
0 |
0 |
if $resp =~ /\x{414}\x{43e}\x{43c}\x{435}\x{43d}\x{43d}\x{43e}\x{435} \x{438}\x{43c}\x{44f} .*? \x{43d}\x{435} \x{437}\x{430}\x{440}\x{435}\x{433}\x{438}\x{441}\x{442}\x{440}\x{438}\x{440}\x{43e}\x{432}\x{430}\x{43d}\x{43e}/i |
|
360
|
0 |
0 |
if $resp =~ /Error:/i or not $resp =~ /\x{418}\x{43d}\x{444}\x{43e}\x{440}\x{43c}\x{430}\x{446}\x{438}\x{44f} \x{43e} \x{434}\x{43e}\x{43c}\x{435}\x{43d}\x{435} .+? \(\x{43f}\x{43e} \x{434}\x{430}\x{43d}\x{43d}\x{44b}\x{43c} WHOIS.RIPN.NET\):/ |
|
368
|
0 |
0 |
unless $resp =~ m[ (.+?) ]s |
|
382
|
0 |
0 |
if ($resp =~ /Whois information for .+?:(.+?)/s) { }
|
398
|
0 |
0 |
if ($resp =~ /Domain Name\.{10}/s and $resp =~ m[(.+?) ]s) { } |
|
409
|
0 |
0 |
if ($resp =~ /\(\s*?(Domain .+?:\s*registered)\s*?\)/i) { } |
|
430
|
0 |
0 |
if ($CHECK_EXCEED and $resp =~ /too many requests/is) { } |
|
|
0 |
0 |
elsif ($resp =~ m[(.+?)]is) { } |
|
452
|
0 |
0 |
if ($resp =~ m[
(.+)
]msx) { } |
|
459
|
0 |
0 |
if ($resp =~ /NOT\s+FOUND/ or $resp =~ /No\s+Domain/) |
|
473
|
0 |
0 |
if ($resp =~ m[\n(.+?)]s) { } |
|
478
|
0 |
0 |
if $resp =~ /Domain \S+ is free/s |
|
497
|
0 |
0 |
if ($resp =~ m[\n?(.+?)\n?]s) { } |
|
500
|
0 |
0 |
if $resp =~ /may be available/s |
|
515
|
1 |
0 |
if ($resp =~ m[ ) ]imsx) { } |
|
549
|
0 |
20 |
unless defined $ip |
|
570
|
0 |
7 |
if (uc $tld eq 'IP' or $tld eq 'NOTLD') { } |
|