# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1251680885 -10800
# Node ID b1f9df8bb0843e00d26c0fe79454f0ad2b83c4e7
# Parent  02e3479a055ce782f135818cc1059690077c2a28
Do not resubmit entries to DroneBL that are still at "submitted" OR
"enqueued" status in case of caught new hits.

diff -r 02e3479a055c -r b1f9df8bb084 README
--- a/README	Sun Aug 30 23:07:07 2009 +0300
+++ b/README	Mon Aug 31 04:08:05 2009 +0300
@@ -1,4 +1,4 @@
-Malicious Attack Livid Termination Filter daemon (maltfilter) v0.19.2
+Malicious Attack Livid Termination Filter daemon (maltfilter) v0.19.3
 =====================================================================
 Programmed by Matti 'ccr' Hämäläinen <ccr@tnsp.org>
 (C) Copyright 2009 Tecnic Software productions (TNSP)
diff -r 02e3479a055c -r b1f9df8bb084 maltfilter
--- a/maltfilter	Sun Aug 30 23:07:07 2009 +0300
+++ b/maltfilter	Mon Aug 31 04:08:05 2009 +0300
@@ -13,7 +13,7 @@
 use LWP::UserAgent;
 use IO::Seekable;
 
-my $progversion = "0.19.2";
+my $progversion = "0.19.3";
 my $progbanner =
 "Malicious Attack Livid Termination Filter daemon (maltfilter) v$progversion\n".
 "Programmed by Matti 'ccr' Hamalainen <ccr\@tnsp.org>\n".
@@ -638,6 +638,10 @@
   return unless ($settings{"DRONEBL"} > 0);
   return if check_hosts_array(\@noaction_ips, $mip);
 
+  if (defined($statlist{$mip}) && defined($statlist{$mip}{"dronebl"})) {
+    return if ($statlist{$mip}{"dronebl"} > 0);
+  }
+
   if (!defined($dronebl{$mip})) {
     mlog(2, "[DroneBL] Queueing $mip \@ $mdate (type $mtype)\n");
     $dronebl{$mip}{"type"} = $mtype;