# HG changeset patch
# User epochqwert <epoch@hacking.allowed.org>
# Date 1532250776 0
# Node ID 7fa47f376c411ee23f1239638bc05ccfa035b55f
# Parent  4204875410e0e199649d67e67f3a659b06efe0ac
seeing if this change to the whoisd will make it show IP6 registrations based on username

diff -r 4204875410e0 -r 7fa47f376c41 contrib/whoisd/whoisd.pl
--- a/contrib/whoisd/whoisd.pl	Sat Jul 21 08:14:56 2018 +0000
+++ b/contrib/whoisd/whoisd.pl	Sun Jul 22 09:12:56 2018 +0000
@@ -89,7 +89,7 @@
 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 @@
   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/;