diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2012-01-26 09:32:27 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2012-01-26 09:32:27 +0000 |
| commit | 13784acc824dab355f82e09ca7828f9bddacf880 (patch) | |
| tree | b421341cebdaf4000309bb577cb57fb28781e52e /modules/inspect.pl | |
| parent | d07473ba85ec8ab030162e68244575f2c87e0389 (diff) | |
more fat trimming
Diffstat (limited to 'modules/inspect.pl')
| -rw-r--r-- | modules/inspect.pl | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/modules/inspect.pl b/modules/inspect.pl index 72a5438..f77d727 100644 --- a/modules/inspect.pl +++ b/modules/inspect.pl @@ -17,13 +17,11 @@ sub new sub inspect { our ($self, $conn, $event) = @_; - my (%conx, %monx); my (%aonx, %dct, $rev, $chan, $id); %aonx=(); %dct=(); $chan=""; $id=""; - my (@dnsbl, @unpakt, @uniq, @cut); + my (@dnsbl, @uniq); my ($match, $txtz, $iaddr); my @override = []; - our $unmode=''; my $nick = lc $event->{nick}; my $xresult; return if (index($nick, ".") != -1); @@ -46,8 +44,7 @@ sub inspect { next unless ( grep { $event->{type} eq $_ } split(/[,:; ]+/, $aonx{$id}{type}) ); next if ($aonx{$id}{class} eq 'dnsbl') && ($event->{host} =~ /(fastwebnet\.it|fastres\.net)$/); #this is a bad hack $xresult = $::classes->check($aonx{$id}{class}, $aonx{$id}, $id, $event, $chan, $rev); # this is another bad hack done for dnsbl-related stuff - next if defined($xresult) == 0; - next if $xresult eq 0; + next unless (defined($xresult)) && ($xresult ne 0); ASM::Util->dprint(Dumper( $xresult )); $dct{$id} = $aonx{$id}; $dct{$id}{xresult} = $xresult; @@ -59,7 +56,6 @@ sub inspect { } } delete $dct{$_} foreach @override; - my $mylastreason = $::lastreason; my $evcontent = $event->{args}->[0]; my $evhost = $event->{host}; foreach $chan (@{$event->{to}}) { |