Mercurial > hg > anonet-resdb
changeset 1251:084aeb361608 draft
Merge branch 'master' of git://git.cathugger.ano/resdb
author | epoch <epoch@hack.thebackupbox.net> |
---|---|
date | Sat, 28 Mar 2020 07:52:27 +0000 |
parents | f1d3deaa98d2 (diff) c1c77f37ca5f (current diff) |
children | ab42dc0b705b b7db046c8688 |
files | |
diffstat | 3 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/contrib/whoisd/whoisd.pl Sun Dec 08 12:15:34 2019 -0600 +++ b/contrib/whoisd/whoisd.pl Sat Mar 28 07:52:27 2020 +0000 @@ -5,7 +5,8 @@ use strict; #maybe chroot this whoisd? -my $RESDB = "/services/resdb/resdb"; +#my $RESDB = "/services/resdb/resdb"; +my $RESDB = "/var/db/resdb"; my $HACK=0; my $QUERY=<stdin>; @@ -103,7 +104,7 @@ } sub ASN_lookup { - if($QUERY =~ m/^AS(.+?)$/) { + if($QUERY =~ m/^AS(.+?)$/i) { printf "%% AS section for %s\n", $QUERY; my $AS=$1; chdir("$RESDB/db/as") || die "%% error"; @@ -256,7 +257,7 @@ #printf "%-20s %s\n", "notice:","$QUERY did not claim any domains yet"; } -if($QUERY =~ m/^AS(.+?)$/) { +if($QUERY =~ m/^AS(.+?)$/i) { $user=get_user_from_ASN($1); } elsif($QUERY =~ m/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$/) {