From ba55c0675df20a89a452162216af4b6a8e06ce5c Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Tue, 25 Mar 2008 17:05:22 +0000
Subject: Added dnsbl analysis, better sql, better rules, fixed some commands

---
 modules/classes.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'modules/classes.pl')

diff --git a/modules/classes.pl b/modules/classes.pl
index 775eae6..f2372f2 100644
--- a/modules/classes.pl
+++ b/modules/classes.pl
@@ -79,7 +79,16 @@ sub dnsbl
   if (defined $rev) {
     my $iaddr = gethostbyname( "$rev$chk->{content}" );
     my @dnsbl = unpack( 'C4', $iaddr ) if defined $iaddr;
-    return 1 if (@dnsbl);
+    my $strip;
+    if (@dnsbl) {
+      $strip = sprintf("%s.%s.%s.%s", @dnsbl);
+      print "found host (rev $rev) in $chk->{content} - $strip\n";
+    }
+    if ((@dnsbl) && (defined($::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}))) {
+      $::lastlookup=$::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content};
+      # lol really icky hax
+      return 1;
+    }
   }
   return 0;
 }
-- 
cgit v1.2.3