qpsmtpd/sme10/qpsmtpd-0.96-karma_strikes.patch

diff -Nur -x '*.orig' -x '*.rej' qpsmtpd-0.96/plugins/karma mezzanine_patched_qpsmtpd-0.96/plugins/karma
--- qpsmtpd-0.96/plugins/karma  2016-02-16 23:52:02.000000000 +0100
+++ mezzanine_patched_qpsmtpd-0.96/plugins/karma        2016-04-20 18:39:43.299979947 +0200
@@ -50,6 +50,16 @@
 penalize a "mostly good" sender. Raising it to 2 reduces that possibility to
 improbable.
 
+=head2 strikes <integer>
+
+How many strikes is needed to consider the mail nice or naughty. 
+Various plugins can adjust the karma (see USING KARMA IN OTHER PLUGINS).
+For example, with the default value of 3, if the karma of this message is 3
+or above, the mail is considered to be a nice one. If it's -3 or less, it's
+considered a naughty one. Between -2 and +2 it's neutral
+
+Default: 3
+
 =head2 penalty_days <days>
 
 The number of days a naughty sender is refused connections. Use a decimal
@@ -238,6 +248,7 @@
     $self->log(LOGERROR, "Bad arguments") if @_ % 2;
     $self->{_args} = {@_};
     $self->{_args}{negative}     ||= 1;
+    $self->{_args}{strikes}      ||= 3;
     $self->{_args}{penalty_days} ||= 1;
     $self->{_args}{reject_type}  ||= 'disconnect';
 
@@ -428,7 +439,7 @@
     my $history = ($nice || 0) - $naughty;
     my $log_mess = '';
 
-    if ($karma < -2) {    # they achieved at least 2 strikes
+    if ($karma <= $self->{_args}{strikes}) {    # Enough negative strikes ?
         $history--;
         my $negative_limit = 0 - $self->{_args}{negative};
         if ($history <= $negative_limit) {
@@ -445,7 +456,7 @@
             $log_mess = "negative";
         }
     }
-    elsif ($karma > 2) {
+    elsif ($karma >= $self->{_args}{strikes}) {
         $nice++;
         $log_mess = "positive";
     }
1	vip-ire	1.1	diff -Nur -x '.orig' -x '.rej' qpsmtpd-0.96/plugins/karma mezzanine_patched_qpsmtpd-0.96/plugins/karma
2			--- qpsmtpd-0.96/plugins/karma 2016-02-16 23:52:02.000000000 +0100
3			+++ mezzanine_patched_qpsmtpd-0.96/plugins/karma 2016-04-20 18:39:43.299979947 +0200
4			@@ -50,6 +50,16 @@
5			penalize a "mostly good" sender. Raising it to 2 reduces that possibility to
6			improbable.
7
8			+=head2 strikes <integer>
9			+
10			+How many strikes is needed to consider the mail nice or naughty.
11			+Various plugins can adjust the karma (see USING KARMA IN OTHER PLUGINS).
12			+For example, with the default value of 3, if the karma of this message is 3
13			+or above, the mail is considered to be a nice one. If it's -3 or less, it's
14			+considered a naughty one. Between -2 and +2 it's neutral
15			+
16			+Default: 3
17			+
18			=head2 penalty_days <days>
19
20			The number of days a naughty sender is refused connections. Use a decimal
21			@@ -238,6 +248,7 @@
22			$self->log(LOGERROR, "Bad arguments") if @_ % 2;
23			$self->{_args} = {@_};
24			$self->{_args}{negative} \|\|= 1;
25			+ $self->{_args}{strikes} \|\|= 3;
26			$self->{_args}{penalty_days} \|\|= 1;
27			$self->{_args}{reject_type} \|\|= 'disconnect';
28
29			@@ -428,7 +439,7 @@
30			my $history = ($nice \|\| 0) - $naughty;
31			my $log_mess = '';
32
33			- if ($karma < -2) { # they achieved at least 2 strikes
34	vip-ire	1.2	+ if ($karma <= $self->{_args}{strikes}) { # Enough negative strikes ?
35	vip-ire	1.1	$history--;
36			my $negative_limit = 0 - $self->{_args}{negative};
37			if ($history <= $negative_limit) {
38			@@ -445,7 +456,7 @@
39			$log_mess = "negative";
40			}
41			}
42			- elsif ($karma > 2) {
43			+ elsif ($karma >= $self->{_args}{strikes}) {
44			$nice++;
45			$log_mess = "positive";
46			}