Mercurial > hg > anonet-resdb

comparison contrib/whoisd/whoisd.pl @ 1132:2fd95bea3988 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated whoid
author epoch <epoch@hacking.allowed.org>
date Fri, 23 Aug 2013 18:22:48 +0000
parents 16cef39f682d
children 1a5d655cae9c
comparison
equal deleted inserted replaced
1131:16cef39f682d 1132:2fd95bea3988
95 foreach(split(/\n/,`grep '^$QUERY\$' */owner | cut -d/ -f1`)) { 95 foreach(split(/\n/,`grep '^$QUERY\$' */owner | cut -d/ -f1`)) {
96 $out = $_; 96 $out = $_;
97 $out =~ s/\n//g; 97 $out =~ s/\n//g;
98 printf "%-20s %s\n", "ASN" . ":", $out; 98 printf "%-20s %s\n", "ASN" . ":", $out;
99 } 99 }
100
101 foreach(split(/\n/,`grep -i -e "^$QUERY\$" "$RESDB/db/dom"/*/*/owner`)) {
102 $out = $_;
103 $out =~ s/.*\/db\/dom\/(.+?)\/(.+?)\/owner.*/\2\.\1/;
104 if ($out ne "") { #fix this comparison.
105 printf "%-20s %s\n", "domain" . ":", $out;
106 }
107 }
108 #printf "%-20s %s\n", "notice:","$QUERY did not claim any domains yet";