From bd6625e258cb8f551fa12ce1cc689f6163788235 Mon Sep 17 00:00:00 2001
From: epoch <epoch@hacking.allowed.org>
Date: Fri, 23 Aug 2013 18:43:12 +0000
Subject: fixed another bug in whoisd

---
 contrib/whoisd/whoisd.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/contrib/whoisd/whoisd.pl b/contrib/whoisd/whoisd.pl
index 06c2cdf..5b9aa54 100755
--- a/contrib/whoisd/whoisd.pl
+++ b/contrib/whoisd/whoisd.pl
@@ -41,8 +41,12 @@ if($QUERY =~ m/^AS(.+?)$/) {
 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",$_));
+ @parts=split(/\./,$QUERY);
+ for($i=0;$i<scalar(@parts)-1;$i++) {
+  if(!chdir(sprintf("%02x",$parts[$i]))) {
+   printf "%-20s %s\n", "error" . ":", "IP not found.";
+   exit;
+  }
  }
  foreach(split(/\n/,`grep '' -r .`)) {
   $out = $_;
-- 
cgit v1.2.3