From be1ece3beb054e2662b97f26e646babf47e9bc0e Mon Sep 17 00:00:00 2001
From: Vincent Le Gallic <legallic@crans.org>
Date: Tue, 11 Nov 2014 23:15:46 +0100
Subject: [PATCH] Script pour supprimer facilement du spam sur les MLs
 lists.crans.org

---
 mailman/discard_from_domain.sh | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 mailman/discard_from_domain.sh

diff --git a/mailman/discard_from_domain.sh b/mailman/discard_from_domain.sh
new file mode 100755
index 00000000..f3a612b2
--- /dev/null
+++ b/mailman/discard_from_domain.sh
@@ -0,0 +1,34 @@
+#!/bin/bash
+
+# Pour dropper les spams en provenance d'un domaine identifié
+# sur toutes les MLs
+
+if [ "$(hostname)" != "redisdead" ]
+then
+   echo "À exécuter sur redisdead."
+   exit 1
+fi
+
+if [ "$1" = "" ]
+then
+    echo -e "Usage : discard_from_domain.sh domain.tld\n"
+    echo "Droppe les mails en provenance de domain.tld sur toutes les MLs (demande confirmation)"
+    exit -1
+fi
+
+echo "Recherche…"
+
+targets=$(grep -lRi "$1" /var/lib/mailman/data/heldmsg*)
+
+echo "${targets}"
+
+echo -n "Exterminate ? [y/N] "
+read -r ans
+
+case ${ans} in
+    y|Y|o|O)
+    echo "${targets}" | xargs /var/lib/mailman/bin/discard
+;;
+    *)
+    echo "Aborting"
+esac