diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2007-06-28 23:48:48 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2007-06-28 23:48:48 +0000 |
| commit | 6907da0a5da3d45a91c3ac4893e5b890200b27eb (patch) | |
| tree | 5a61df15a30b6d0aefa6c6e72e7eab2d8f03de1f /modules/classes.pl | |
| parent | 638d9eae9e63755e26f9843985597e6f1c7c5f8e (diff) | |
modularized stuff, fixed alert logic, simplified stuff, updated TODO
Diffstat (limited to 'modules/classes.pl')
| -rw-r--r-- | modules/classes.pl | 3 |
1 files changed, 1 insertions, 2 deletions
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; |