From 8ce06aa083418ff4807f0893276c4adb8004fde1 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 21 Jan 2009 20:34:24 +0000
Subject: dump less debugging crap about dnsbl checks

---
 modules/classes.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'modules')

diff --git a/modules/classes.pl b/modules/classes.pl
index bdde77f..b7f6323 100644
--- a/modules/classes.pl
+++ b/modules/classes.pl
@@ -82,15 +82,13 @@ sub dnsbl
     my $strip;
     if (@dnsbl) {
       $strip = sprintf("%s.%s.%s.%s", @dnsbl);
-      print "found host (rev $rev) in $chk->{content} - $strip\n";
+      print "found host (rev $rev) in $chk->{content} - $strip\n" unless ($strip eq '216.234.246.150');
     }
     if ((@dnsbl) && (defined($::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}))) {
       $::lastlookup=$::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content};
       print "chk->content: $chk->{content}\n";
       print "strip: $strip\n";
       print "result: " . $::dnsbl->{query}->{$chk->{content}}->{response}->{$strip}->{content} . "\n";
-      print "just part of that: ";
-      print Dumper( $::dnsbl->{query}->{$chk->{content}} );
       # lol really icky hax
       return 1;
     }
-- 
cgit v1.2.3