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

Added cache

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-06-27 11:58:39 -04:00
parent af6ca9d374
commit 829bc7ef12
1 changed files with 22 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
find-short-domain.plx
View file

@ -21,26 +21,40 @@ use warnings;
use Net::WhoisNG;
if (@ARGV != 2) {
print STDERR "usage: $0 <TLD> <CACHE_FILE>\n";
}
my($TLD, $CACHE_FILE) = @ARGV;
my %cache;
open(CACHE, "<", $CACHE_FILE) or die "Unable to open $CACHE_FILE for reading: $!";
while (my $line = <CACHE>) {
chomp $line;
die "maleformed line, \"$line\" in $CACHE_FILE"
unless $line =~ /^\s*(\S+)\s*\:\s*((?:available|expires:\s*\S+))/;
$cache{$1} = $2;
}
foreach my $let1 ('a' .. 'z', '0' .. '9') {
foreach my $let2 ('a' .. 'z', '0' .. '9') {
foreach my $let2 ('a' .. 'z', '0' .. '9', '-') {
foreach my $let3 ('a' .. 'z', '0' .. '9') {
my $domain = "$let1$let2$let3" . ".us";
my $domain = "$let1$let2$let3" . "." . $TLD;
next if defined $cache{$domain};
my $w = new Net::WhoisNG($domain);
if(!$w->lookUp()){
print "$domain is not in use\n";
} else {
my $exp_date=$w->getExpirationDate();
if (not defined $exp_date) {
print "$domain is not in use\n";
print "$domain: available\n";
}
else {
print STDERR "taken domain, $domain, $exp_date...\n";
print "$domain: expires: $exp_date\n";
}
}
}
}
}