Mercurial > hg > anonet-resdb
changeset 1131:16cef39f682d draft
Added a whoisd to make for easier querying of the resdb's info. Read the source.
| author | epoch <epoch@hacking.allowed.org> |
|---|---|
| date | Fri, 23 Aug 2013 03:24:54 +0000 |
| parents | 3bbc40562b66 |
| children | 2fd95bea3988 |
| files | contrib/whoisd/README contrib/whoisd/whoisd.pl db/usr/epoch/email db/usr/epoch/irc |
| diffstat | 4 files changed, 109 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/contrib/whoisd/README Fri Aug 23 03:24:54 2013 +0000 @@ -0,0 +1,8 @@ +RTFS + +todo: + ipv6 + more info in responses? + make it compatible with traceroute -A ? + +add any other features you'd like either in here or the source. You know perl, right?
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/contrib/whoisd/whoisd.pl Fri Aug 23 03:24:54 2013 +0000 @@ -0,0 +1,99 @@ +#!/usr/bin/perl +# coded by epoch. +# use inetd or tcpserver or something else. +# waste of time to do manual sockets for something like this. +# this isn't my baby. you can murder it if you want. + +use strict; + +my $RESDB = "/services/resdb/resdb"; + +my $QUERY=<stdin>; +$QUERY =~ s/\r\n//g; +my $out; +my $title; +my $value; +my @parts; +my $i; + +# ASNs +if($QUERY =~ m/^AS(.+?)$/) { + printf "%% AS section for %s\n", $QUERY; + my $AS=$1; + chdir("$RESDB/db/as"); + if(chdir($AS)) { + foreach(split(/\n/,`grep '' -r .`)) { + $out = $_; + $out =~ s/^\.\///g; + $out =~ m/^(.+?):(.+?)$/; + ($title, $value) = ($1, $2); + printf "%-20s %s\n", $title . ":", $value; + if($title eq "owner") { + $QUERY = $value; + } + } + } else { + printf "AS not found."; + } +} + +# IPv4 addresses +if($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]?)$/) { + printf "%% IP section for %s\n", $QUERY; + chdir("$RESDB/db/ip"); + foreach(split(/\./,$QUERY)) { + chdir(sprintf("%02x",$_)); + } + foreach(split(/\n/,`grep '' -r .`)) { + $out = $_; + $out =~ s/^\.\///g; + ($title, $value) = split(/:/,$out); + printf "%-20s %s\n", $title . ":", $value; + if($title eq "owner") { + $QUERY = $value; + } + } +} + + +# if we get here and there's still a . in the query it is probably a domain. +if($QUERY =~ m/\./) { + printf "%% domain section for %s\n", $QUERY; + @parts=split(/\./,$QUERY); + chdir("$RESDB/db/dom"); + for($i=scalar(@parts)-1;$i>=0;$i--) { + chdir($parts[$i]); + } + foreach(split(/\n/,`grep '' -r .`)) { + $out = $_; + $out =~ s/^\.\///g; + $out =~ m/^(.+?):(.+?)$/; + ($title, $value) = ($1, $2); + printf "%-20s %s\n", $title . ":", $value; + if($title eq "owner") { + $QUERY = $value; + } + } +} + +# default to assuming it is a name. +printf "%% user section for %s\n", $QUERY; + +chdir("$RESDB/db/usr"); +if(chdir($QUERY)) { + foreach(split(/\n/,`grep '' -r .`)) { + $out = $_; + $out =~ s/^\.\///g; + $out =~ m/^(.+?):(.+?)$/; + ($title, $value) = ($1, $2); + printf "%-20s %s\n", $title . ":", $value; + } +} else { + printf "%-20s missing db/usr file.\n", "warning" . ":"; +} +chdir("$RESDB/db/as"); +foreach(split(/\n/,`grep '^$QUERY\$' */owner | cut -d/ -f1`)) { + $out = $_; + $out =~ s/\n//g; + printf "%-20s %s\n", "ASN" . ":", $out; +}