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";