Mercurial > hg > anonet-resdb
diff contrib/whoisd/whoisd.pl @ 1243:b8624e57fd96 draft
added case-insensitive matching to ASN queries.
author | epoch <epoch@hack.thebackupbox.net> |
---|---|
date | Sat, 21 Mar 2020 08:56:18 +0000 |
parents | 7fa47f376c41 |
children | f1d3deaa98d2 |
line wrap: on
line diff
--- a/contrib/whoisd/whoisd.pl Thu Sep 05 02:36:34 2019 +0000 +++ b/contrib/whoisd/whoisd.pl Sat Mar 21 08:56:18 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";