Mercurial > hg > anonet-resdb

comparison contrib/whoisd/whoisd.pl @ 1243:b8624e57fd96 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
1242:499aae037a7d 1243:b8624e57fd96
3 # use inetd or tcpserver or ncat 3 # use inetd or tcpserver or ncat
4 4
5 use strict; 5 use strict;
6 6
7 #maybe chroot this whoisd? 7 #maybe chroot this whoisd?
8 my $RESDB = "/services/resdb/resdb"; 8 #my $RESDB = "/services/resdb/resdb";
9 my $RESDB = "/var/db/resdb";
9 10
10 my $HACK=0; 11 my $HACK=0;
11 my $QUERY=<stdin>; 12 my $QUERY=<stdin>;
12 $QUERY =~ s/\r\n//g; 13 $QUERY =~ s/\r\n//g;
13 $QUERY =~ s/\///g; 14 $QUERY =~ s/\///g;
101 close(FILE); 102 close(FILE);
102 return $user; 103 return $user;
103 } 104 }
104 105
105 sub ASN_lookup { 106 sub ASN_lookup {
106 if($QUERY =~ m/^AS(.+?)$/) { 107 if($QUERY =~ m/^AS(.+?)$/i) {
107 printf "%% AS section for %s\n", $QUERY; 108 printf "%% AS section for %s\n", $QUERY;
108 my $AS=$1; 109 my $AS=$1;
109 chdir("$RESDB/db/as") || die "%% error"; 110 chdir("$RESDB/db/as") || die "%% error";
110 if(chdir($AS) || die "%% error") { 111 if(chdir($AS) || die "%% error") {
111 foreach(split(/\n/,`grep '' -r .`)) { 112 foreach(split(/\n/,`grep '' -r .`)) {