| line |
true |
false |
branch |
|
198
|
2 |
0 |
if $clear or not $$dlu{'_TLD_DATA'} |
|
200
|
1 |
1 |
if ($file) |
|
201
|
0 |
1 |
unless (ref $file) |
|
202
|
0 |
0 |
unless open FILE, "<$file" |
|
208
|
2 |
411 |
if '' eq $_ or /^\s*#/ |
|
211
|
4 |
2051 |
unless defined $_ |
|
215
|
0 |
1 |
if $oldfile |
|
217
|
1 |
1 |
if (not keys %{$$dlu{'_TLD_DATA'};}) |
|
226
|
0 |
0 |
unless $file and $$dlu{'_TLD_DATA'} |
|
229
|
0 |
0 |
unless (ref $file) |
|
230
|
0 |
0 |
unless open FILE, ">$file" |
|
245
|
0 |
0 |
if $oldfile |
|
252
|
1 |
0 |
if (not $domain) { } |
|
261
|
0 |
0 |
if ($DOMAIN[3]) { } |
|
|
0 |
0 |
elsif ($DOMAIN[2]) { } |
|
265
|
0 |
0 |
if (length $REVERSED[0] == 2) { } |
|
278
|
0 |
0 |
if ($$self{'_TLD'} and $$self{'_NAME'}) { } |
|
295
|
0 |
0 |
unless ($$self{'TLDQUERYDB'}) |
|
299
|
0 |
0 |
if ($$self{'_TLDQUERYDB'}) { } |
|
310
|
0 |
0 |
if ($$self{'_WHOISOUTPUT'} =~ /$$self{'_TLDMATCHRESP'}/mig) { } |
|
|
0 |
0 |
elsif ($$self{'_WHOISOUTPUT'} =~ /^\*/mig) { } |
|
|
0 |
0 |
elsif ($$self{'_RESPONSE'} =~ /$!/g) { } |
|
317
|
0 |
0 |
if ($ATTEMPTS > $MAXTRIES) |
|
325
|
0 |
0 |
if ($$self{'_ISREGISTERED'} == 1 and length $$self{'_TLD'} == 3) |
|
328
|
0 |
0 |
if (/Registrar: /) |
|
331
|
0 |
0 |
if (/Whois Server\: /) |
|
334
|
0 |
0 |
if (/Referral URL: /) |
|
339
|
0 |
0 |
if ($INTERNICWHOIS) |
|
341
|
0 |
0 |
if (@RESULT) |
|
349
|
0 |
0 |
if $$self{'_TLDURL'} |
|
364
|
0 |
0 |
unless ($tippytoptld[1]) |
|
371
|
0 |
0 |
if ($tldlength > 6 or $tldlength < 2) |
|
376
|
0 |
0 |
if (length $tippytoptld[1] == 2 and $domlength > $MAX2TLD) { } |
|
|
0 |
0 |
elsif (length $tippytoptld[1] == 3 and $domlength > $MAX3TLD) { } |
|
384
|
0 |
0 |
if ($$self{'_NAME'} =~ /^\W/ or $$self{'_NAME'} =~ /\W$/) |
|
389
|
0 |
0 |
if ($strip_dashes =~ /\W/) |
|
399
|
0 |
0 |
unless keys %{$$self{'_TLD_DATA'};} |
|
402
|
0 |
0 |
if (exists $$self{'_TLD_DATA'}{$$self{'_TLD'}}) { } |
|
|
0 |
0 |
elsif (exists $$self{'_NATION'} and exists $$self{'_TLD_DATA'}{$$self{'_NATION'}}) { } |
|
410
|
0 |
0 |
if ($TLD) |
|
418
|
0 |
0 |
unless ($$self{'_TLDNAME'}) |
|
427
|
0 |
0 |
unless $$self{'_TLDQUERYDB'} |
|
429
|
0 |
0 |
if $whois =~ /\s/ |
|
431
|
0 |
0 |
unless socket SOCK, 2, 1, (getprotobyname 'tcp')[2] |
|
434
|
0 |
0 |
unless connect SOCK, $SIN |