qpsmtpd/sme8/0020-new-plugin-check_badmailfrom_patterns.patch

From e2ee6f13e5d0e2f064143479193fbe4bbc8aeaf8 Mon Sep 17 00:00:00 2001
From: Johan Almqvist <johan@almqvist.net>
Date: Sun, 11 Jul 2010 17:28:58 -0700
Subject: new plugin check_badmailfrom_patterns

Signed-off-by: Robert <rspier@pobox.com>
---
 plugins/check_badmailfrom_patterns |   64 ++++++++++++++++++++++++++++++++++++
 1 files changed, 64 insertions(+), 0 deletions(-)
 create mode 100644 plugins/check_badmailfrom_patterns

diff --git a/plugins/check_badmailfrom_patterns b/plugins/check_badmailfrom_patterns
new file mode 100644
index 0000000..528e49d
--- /dev/null
+++ b/plugins/check_badmailfrom_patterns
@@ -0,0 +1,64 @@
+#!/usr/bin/perl
+
+=pod
+
+=head1 SYNOPSIS
+
+This plugin checks the badmailfrom_patterns config. This allows
+special patterns to be denied (e.g. FQDN-VERP, percent hack, bangs,
+double ats).
+
+=head1 CONFIG
+
+Configuration is placed in the following file:
+
+F<config/badmailfrom_patterns>
+
+Patterns are stored in the format pattern\sresponse, where pattern
+is a Perl pattern expression. Don't forget to anchor the pattern
+(front ^ and back $) if you want to restrict it from matching
+anywhere in the string.
+
+ ^streamsendbouncer@.*\.mailengine1\.com$    Your right-hand side VERP doesn't fool me
+ ^return.*@.*\.pidplate\.biz$                I don' want it regardless of subdomain
+ ^admin.*\.ppoonn400\.com$
+
+=head1 AUTHOR
+
+Johan Almqvist <johan-qpsmtpd@almqvist.net> based on L<check_badmailfrom>
+
+This software is free software and may be distributed under the same
+terms as qpsmtpd itself.
+
+=cut
+
+sub hook_mail {
+    my ($self, $transaction, $sender, %param) = @_;
+
+    my @badmailfrom = $self->qp->config("badmailfrom_patterns")
+      or return (DECLINED);
+
+    return (DECLINED) if ($sender->format eq "<>");
+
+    my $host = lc $sender->host;
+    my $from = lc($sender->user) . '@' . $host;
+
+    for (@badmailfrom) {
+        my ($pattern, $response) = split /\s+/, $_, 2;
+        next unless $from =~ /$pattern/;
+        $response = "Your envelope sender is in my badmailfrom_patterns list"
+          unless $response;
+        $transaction->notes('badmailfrom_patterns', $response);
+    }
+    return (DECLINED);
+}
+
+sub hook_rcpt {
+    my ($self, $transaction, $rcpt, %param) = @_;
+    my $note = $transaction->notes('badmailfrom_patterns');
+    if ($note) {
+        $self->log(LOGINFO, $note);
+        return (DENY, $note);
+    }
+    return (DECLINED);
+}
-- 
1.7.2.2

1	From e2ee6f13e5d0e2f064143479193fbe4bbc8aeaf8 Mon Sep 17 00:00:00 2001
2	From: Johan Almqvist <johan@almqvist.net>
3	Date: Sun, 11 Jul 2010 17:28:58 -0700
4	Subject: new plugin check_badmailfrom_patterns
5
6	Signed-off-by: Robert <rspier@pobox.com>
7	---
8	plugins/check_badmailfrom_patterns \| 64 ++++++++++++++++++++++++++++++++++++
9	1 files changed, 64 insertions(+), 0 deletions(-)
10	create mode 100644 plugins/check_badmailfrom_patterns
11
12	diff --git a/plugins/check_badmailfrom_patterns b/plugins/check_badmailfrom_patterns
13	new file mode 100644
14	index 0000000..528e49d
15	--- /dev/null
16	+++ b/plugins/check_badmailfrom_patterns
17	@@ -0,0 +1,64 @@
18	+#!/usr/bin/perl
19	+
20	+=pod
21	+
22	+=head1 SYNOPSIS
23	+
24	+This plugin checks the badmailfrom_patterns config. This allows
25	+special patterns to be denied (e.g. FQDN-VERP, percent hack, bangs,
26	+double ats).
27	+
28	+=head1 CONFIG
29	+
30	+Configuration is placed in the following file:
31	+
32	+F<config/badmailfrom_patterns>
33	+
34	+Patterns are stored in the format pattern\sresponse, where pattern
35	+is a Perl pattern expression. Don't forget to anchor the pattern
36	+(front ^ and back $) if you want to restrict it from matching
37	+anywhere in the string.
38	+
39	+ ^streamsendbouncer@.*\.mailengine1\.com$ Your right-hand side VERP doesn't fool me
40	+ ^return.@.\.pidplate\.biz$ I don' want it regardless of subdomain
41	+ ^admin.*\.ppoonn400\.com$
42	+
43	+=head1 AUTHOR
44	+
45	+Johan Almqvist <johan-qpsmtpd@almqvist.net> based on L<check_badmailfrom>
46	+
47	+This software is free software and may be distributed under the same
48	+terms as qpsmtpd itself.
49	+
50	+=cut
51	+
52	+sub hook_mail {
53	+ my ($self, $transaction, $sender, %param) = @_;
54	+
55	+ my @badmailfrom = $self->qp->config("badmailfrom_patterns")
56	+ or return (DECLINED);
57	+
58	+ return (DECLINED) if ($sender->format eq "<>");
59	+
60	+ my $host = lc $sender->host;
61	+ my $from = lc($sender->user) . '@' . $host;
62	+
63	+ for (@badmailfrom) {
64	+ my ($pattern, $response) = split /\s+/, $_, 2;
65	+ next unless $from =~ /$pattern/;
66	+ $response = "Your envelope sender is in my badmailfrom_patterns list"
67	+ unless $response;
68	+ $transaction->notes('badmailfrom_patterns', $response);
69	+ }
70	+ return (DECLINED);
71	+}
72	+
73	+sub hook_rcpt {
74	+ my ($self, $transaction, $rcpt, %param) = @_;
75	+ my $note = $transaction->notes('badmailfrom_patterns');
76	+ if ($note) {
77	+ $self->log(LOGINFO, $note);
78	+ return (DENY, $note);
79	+ }
80	+ return (DECLINED);
81	+}
82	--
83	1.7.2.2
84