# HG changeset patch
# User epoch <epoch@hacking.allowed.org>
# Date 1377282168 0
# Node ID 2fd95bea39881facf014ec4245f8df6d9235a5cf
# Parent  16cef39f682d816000caec0d18c109095e6b82a9
updated whoid

diff -r 16cef39f682d -r 2fd95bea3988 contrib/whoisd/whoisd.pl
--- a/contrib/whoisd/whoisd.pl	Fri Aug 23 03:24:54 2013 +0000
+++ b/contrib/whoisd/whoisd.pl	Fri Aug 23 18:22:48 2013 +0000
@@ -97,3 +97,12 @@
  $out =~ s/\n//g;
  printf "%-20s %s\n", "ASN" . ":", $out;
 }
+
+foreach(split(/\n/,`grep -i -e "^$QUERY\$" "$RESDB/db/dom"/*/*/owner`)) {
+ $out = $_;
+ $out =~ s/.*\/db\/dom\/(.+?)\/(.+?)\/owner.*/\2\.\1/;
+ if ($out ne "") { #fix this comparison.
+  printf "%-20s %s\n", "domain" . ":", $out;
+ }
+}
+#printf "%-20s %s\n", "notice:","$QUERY did not claim any domains yet";