Mercurial > hg > maltfilter

comparison maltfilter @ 95:b1f9df8bb084 maltfilter-0.19.3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not resubmit entries to DroneBL that are still at "submitted" OR "enqueued" status in case of caught new hits.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 31 Aug 2009 04:08:05 +0300
parents 55670dabda5a
children 3dbd9d392986
comparison
equal deleted inserted replaced
94:02e3479a055c 95:b1f9df8bb084
11 use Net::IP; 11 use Net::IP;
12 use Net::DNS; 12 use Net::DNS;
13 use LWP::UserAgent; 13 use LWP::UserAgent;
14 use IO::Seekable; 14 use IO::Seekable;
15 15
16 my $progversion = "0.19.2"; 16 my $progversion = "0.19.3";
17 my $progbanner = 17 my $progbanner =
18 "Malicious Attack Livid Termination Filter daemon (maltfilter) v$progversion\n". 18 "Malicious Attack Livid Termination Filter daemon (maltfilter) v$progversion\n".
19 "Programmed by Matti 'ccr' Hamalainen <ccr\@tnsp.org>\n". 19 "Programmed by Matti 'ccr' Hamalainen <ccr\@tnsp.org>\n".
20 "(C) Copyright 2009 Tecnic Software productions (TNSP)\n"; 20 "(C) Copyright 2009 Tecnic Software productions (TNSP)\n";
21 21
636 my ($mip, $mdate, $mtype) = @_; 636 my ($mip, $mdate, $mtype) = @_;
637 637
638 return unless ($settings{"DRONEBL"} > 0); 638 return unless ($settings{"DRONEBL"} > 0);
639 return if check_hosts_array(\@noaction_ips, $mip); 639 return if check_hosts_array(\@noaction_ips, $mip);
640 640
641 if (defined($statlist{$mip}) && defined($statlist{$mip}{"dronebl"})) {
642 return if ($statlist{$mip}{"dronebl"} > 0);
643 }
644
641 if (!defined($dronebl{$mip})) { 645 if (!defined($dronebl{$mip})) {
642 mlog(2, "[DroneBL] Queueing $mip \@ $mdate (type $mtype)\n"); 646 mlog(2, "[DroneBL] Queueing $mip \@ $mdate (type $mtype)\n");
643 $dronebl{$mip}{"type"} = $mtype; 647 $dronebl{$mip}{"type"} = $mtype;
644 $dronebl{$mip}{"date"} = $mdate; 648 $dronebl{$mip}{"date"} = $mdate;
645 $dronebl{$mip}{"sent"} = 0; 649 $dronebl{$mip}{"sent"} = 0;