diff options
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/whoisd/whoisd.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/contrib/whoisd/whoisd.pl b/contrib/whoisd/whoisd.pl index 6e7eeb7..32f5275 100755 --- a/contrib/whoisd/whoisd.pl +++ b/contrib/whoisd/whoisd.pl @@ -89,7 +89,7 @@ sub get_user_from_domain { sub get_user_from_IPv6 { chdir("$RESDB/db/ip6") || die "%% error. no resdb/db/ip6\n"; $d=$_[0]; - print "$d"; + #print "$d"; $d =~ s/[^0-9a-f]//gi; $d =~ tr/a-z/A-Z/; foreach(split(//,$d)) { @@ -235,6 +235,12 @@ sub user_based_lookups { printf "%-20s %s\n", "cidr" . ":", $_; } + chdir("$RESDB/db/ip6") || die "%% error"; + foreach(split(/\n/,`grep '^$QUERY\$' -r * | cut -d/ -f1-16 | xargs printf '%s/cidr\n' | xargs cat | uniq`)) { + chomp $_; + printf "%-20s %s\n", "cidr" . ":", $_; + } + foreach(split(/\n/,`grep -i -e "^$QUERY\$" "$RESDB/db/dom"/*/*/owner`)) { $out = $_; $out =~ s/.*\/db\/dom\/(.+?)\/(.+?)\/owner.*/\2\.\1/; |