From 19aa221058512854b805994803e91214cd094b40 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 28 Jan 2009 16:27:16 +0000
Subject: CGI:IRC hashes are now checked against dnsbls

---
 modules/inspect.pl | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'modules/inspect.pl')

diff --git a/modules/inspect.pl b/modules/inspect.pl
index 203ed43..6e992ec 100644
--- a/modules/inspect.pl
+++ b/modules/inspect.pl
@@ -27,8 +27,15 @@ sub inspect {
   my $nick = lc $event->{nick};
   my $xresult;
   return if (defined($::eline{$nick}) || defined($::eline{lc $event->{user}}) || defined($::eline{lc $event->{host}}));
-  $iaddr = gethostbyname($event->{host});
-  $rev = join('.', reverse(unpack('C4', $iaddr))).'.' if (defined $iaddr);
+  if ( $event->{host} =~ /gateway\/web\/ajax\// ) {
+    if ( $event->{user} =~ /.=([0-9a-f][0-9a-f])([0-9a-f][0-9a-f])([0-9a-f][0-9a-f])([0-9a-f][0-9a-f])/ ) {
+      $rev = sprintf("%d.%d.%d.%d.", hex($4), hex($3), hex($2), hex($1));
+    }
+  }
+  else {
+    $iaddr = gethostbyname($event->{host});
+    $rev = join('.', reverse(unpack('C4', $iaddr))).'.' if (defined $iaddr);
+  }
 #  %monx = defined($::channels->{channel}->{master}->{event}) ? %{$::channels->{channel}->{master}->{event}} : ();
   ## NB: isn't there a better way to do this with grep, somehow?
   %aonx = %{$::channels->{channel}->{master}->{event}};
-- 
cgit v1.2.3