From 6907da0a5da3d45a91c3ac4893e5b890200b27eb Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Thu, 28 Jun 2007 23:48:48 +0000
Subject: modularized stuff, fixed alert logic, simplified stuff, updated TODO

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

(limited to 'modules/classes.pl')

diff --git a/modules/classes.pl b/modules/classes.pl
index c2a414f..8323a06 100644
--- a/modules/classes.pl
+++ b/modules/classes.pl
@@ -1,10 +1,9 @@
 use strict;
 use warnings;
-use Data::Dumper;
-#package Classes;
 
 sub Classes::dnsbl {
   our (%aonx, $id, %dct, $event, $chan, $rev);
+  return unless index($event->{host}, '/') == -1;
     if (defined $rev) {
       my $iaddr = hostip( "$rev$aonx{$id}{content}" );
       my @dnsbl = unpack( 'C4', $iaddr ) if defined $iaddr;
-- 
cgit v1.2.3