From af6ca9d37474c1da8519978dc4bacba6c34b5b0c Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Sun, 27 Jun 2010 11:46:50 -0400
Subject: [PATCH] Moved to searching three letter domains in .us

---
 find-short-domain.plx | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/find-short-domain.plx b/find-short-domain.plx
index d787d7b..d16dae3 100644
--- a/find-short-domain.plx
+++ b/find-short-domain.plx
@@ -23,11 +23,20 @@ use Net::WhoisNG;
 
 foreach my $let1 ('a' .. 'z', '0' .. '9') {
   foreach my $let2 ('a' .. 'z', '0' .. '9') {
-    my $domain = "$let1$let2" . ".us";
-    my $w = new Net::WhoisNG($domain);
-    print STDERR "trying domain, $domain...\n";
-    if(!$w->lookUp()){
-      print "$domain is not in use\n";
+    foreach my $let3 ('a' .. 'z', '0' .. '9') {
+      my $domain = "$let1$let2$let3" . ".us";
+      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";
+        }
+        else {
+          print STDERR "taken domain, $domain, $exp_date...\n";
+        }
+      }
     }
   }
 }