From 25a558423bc76ac627dc3ea38533b535f222f7ad Mon Sep 17 00:00:00 2001
From: Ralf Jung <post@ralfj.de>
Date: Sun, 6 Dec 2015 17:22:21 +0100
Subject: [PATCH] add mailman-check

---
 mailman-check | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 mailman-check

diff --git a/mailman-check b/mailman-check
new file mode 100755
index 0000000..bc512d7
--- /dev/null
+++ b/mailman-check
@@ -0,0 +1,15 @@
+#!/bin/bash
+set -e
+## Usage:
+##   ./mailman-check
+## Checks all the mailman lists for bad configuration, and prints further details if it finds one.
+
+cd /var/lib/mailman/lists
+for list in *; do
+    config_list  -i /dev/stdin "$list" <<EOF
+if not ((mlist.dmarc_moderation_action in (1, 2) and mlist.dmarc_quarantine_moderation_action == 1) or mlist.from_is_list in (1, 2)):
+    print "List",mlist.real_name,"by",(', '.join(mlist.owner)),"is not configured to deal with DMARC."
+if mlist.reply_goes_to_list != 0 and not mlist.first_strip_reply_to:
+    print "List",mlist.real_name,"by",(', '.join(mlist.owner)),"provides an inconsistent Reply-To treatment."
+EOF
+done
-- 
2.30.2