bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed a few bugs.

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-06-27 12:22:25 -04:00
parent 8d2c951936
commit 3e3002c988
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
find-short-domain.plx
View file

@ -23,6 +23,7 @@ use Net::WhoisNG;
if (@ARGV != 3) { if (@ARGV != 3) {
print STDERR "usage: $0 <TLD> <LEN> <CACHE_FILE>\n"; print STDERR "usage: $0 <TLD> <LEN> <CACHE_FILE>\n";
exit 1;
} }
my($TLD, $LENGTH, $CACHE_FILE) = @ARGV; my($TLD, $LENGTH, $CACHE_FILE) = @ARGV;
@ -39,10 +40,10 @@ while (my $line = <CACHE>) {
close CACHE; close CACHE;
sub CheckDomain ($$$) { sub CheckDomain ($$$) {
my($let1, $let2, $let3) = @ARGV; my($let1, $let2, $let3) = @_;
my $domain = "$let1$let2$let3" . "." . $TLD; my $domain = "$let1$let2$let3" . "." . $TLD;
next if defined $cache{$domain}; return if defined $cache{$domain};
my $w = new Net::WhoisNG($domain); my $w = new Net::WhoisNG($domain);
if(!$w->lookUp()){ if(!$w->lookUp()){