Merge remote-tracking branch 'origin/prune-mailq'

Author: quentinmit

server/fedora/config/etc/scripts/prune-mailq

@@ -9,9 +9,11 @@ usage="Usage:
     $0 list-to
     $0 show-rand [from regex|to regex]
     $0 email lockers...
-    $0 purge-from address...
     $0 purge-fullname fullnames...
-    $0 purge-to lockers..."
+    $0 purge-from lockers...
+    $0 purge-from-re regexes...
+    $0 purge-to lockers...
+    $0 purge-to-re regexes..."
 
 usage() {
     echo "$usage" >&2;
@@ -120,6 +122,18 @@ purge_from() {
     done
 }
 
+purge_from_re() {
+    if [[ $# -eq 0 ]]; then
+        echo "Please specify a regex to purge emails from" >&2
+        exit 1
+    fi
+    for re in "$@"; do
+        echo "$re"
+        mailq | tail -n +2 | grep -v '^ *(' | awk "BEGIN { RS = \"\" } (\$7 ~ \"$re\") { print \$1 }" | tr -d '*!' | postsuper -d -
+        echo
+    done
+}
+
 purge_to() {
     if [[ $# -eq 0 ]]; then
         echo "Please specify a locker to purge emails to" >&2
@@ -133,6 +147,18 @@ purge_to() {
     done
 }
 
+purge_to_re() {
+    if [[ $# -eq 0 ]]; then
+        echo "Please specify a regex to purge emails to" >&2
+        exit 1
+    fi
+    for re in "$@"; do
+        echo "$re"
+        mailq | tail -n +2 | grep -v '^ *(' | awk "BEGIN { RS = \"\" } (\$8 ~ \"$re\" && \$9 == \"\") { print \$1 }" | tr -d '*!' | postsuper -d -
+        echo
+    done
+}
+
 op=${1:-}
 
 # We want to go ahead and show the usage message if there are no args, so
@@ -145,9 +171,11 @@ case "$op" in
     list-to) list_to;;
     show-rand) show_rand "$@";;
     email) tmpl_email "$@";;
-    purge-from) purge_from "$@";;
     purge-fullname) purge_fullname "$@";;
+    purge-from) purge_from "$@";;
+    purge-from-re) purge_from_re "$@";;
     purge-to) purge_to "$@";;
+    purge-to-re) purge_to_re "$@";;
     *)
 	usage
         ;;