summaryrefslogtreecommitdiffstats
path: root/modules/classes.pl
diff options
context:
space:
mode:
Diffstat (limited to 'modules/classes.pl')
-rw-r--r--modules/classes.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/modules/classes.pl b/modules/classes.pl
index 2d580b3..a8a1e64 100644
--- a/modules/classes.pl
+++ b/modules/classes.pl
@@ -5,6 +5,7 @@ use warnings;
use Text::LevenshteinXS qw(distance);
use Data::Dumper;
use Regexp::Wildcards;
+use Carp qw(cluck);
my %sf = ();
@@ -188,9 +189,10 @@ sub dnsbl
# return unless index($event->{host}, '/') == -1;
# hopefully getting rid of this won't cause shit to assplode
# but I'm getting rid of it so it can detect cgi:irc shit
- return 0;
+# return 0;
if (defined $rev) {
ASM::Util->dprint("Querying $rev$chk->{content}", "dnsbl");
+ #cluck "Calling gethostbyname in dnsbl";
my $iaddr = gethostbyname( "$rev$chk->{content}" );
my @dnsbl = unpack( 'C4', $iaddr ) if defined $iaddr;
my $strip;