CGI:IRC hashes are now checked against dnsbls

1 files changed, 9 insertions, 2 deletions

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