.mutt/sendmail-checks.d/ack-recipients

   1 #!/bin/sh
   2 #
   3 # ack-recipients – require double-checking of some recipients
   4 #
   5 # refuse to send a mail as long as recipients listed in ~/.mutt/ack-recipients
   6 # are not individually "signed-off" by adding their e-mail addresses to the
   7 # X-Acked header. This header is removed from the mail before it is sent.
   8 #
   9 # The file ~/.mutt/ack-recipients stores sha256sums of lower-cased e-mail
  10 # addresses (no newline) instead of the addresses themselves as a measure to
  11 # protect privacy. You can get new lines like this:
  12 #
  13 #   printf my.new@e-mail.addre.ss | tr [[:upper:]] [[:lower:]] \
  14 #     | sha256sum | sed -e 's, .*,,'
  15 #
  16 # E.g. my address (see below) will become
  17 #   84d5b33c9376f67274c2ec9ce0e03b6973fb8bc943ebd7abb470c903c47e00f4
  18 #
  19 # Copyright © 2010 martin f. krafft <madduck@madduck.net>
  20 # Released under the terms of the Artistic Licence 2.0
  21 #
  22 set -eu
  23
  24 CHECKLIST="$HOME/.mutt/ack-recipients"
  25 HEADER=X-Acked
  26 ACKED_RCPTS=$(formail -czx ${HEADER}: < $1 | tr -d ',')
  27 MAILFILE="$1"; shift
  28
  29 ret=0
  30 for r in $@; do
  31   ack=0
  32   # check if this recipient is in the list of acked recipients
  33   for a in $ACKED_RCPTS; do [ $a = $r ] && ack=1 && break; done
  34   rs=$(printf $r | tr [[:upper:]] [[:lower:]] | sha256sum)
  35   # now check if this unacked recipient needs to be acked
  36   if [ $ack -eq 0 ] && grep -q "^${rs%% *}$" "$CHECKLIST"; then
  37     echo >&2 "E: will not send mail until $r has been added to the $HEADER header"
  38     ret=1
  39   fi
  40 done
  41
  42 [ $ret -eq 0 ] || exit $ret
  43
  44 # now remove the X-Acked header from the mail
  45 TMPFILE=$(tempfile -p mutt-sendmail -s .msg)
  46 settrap () { trap "$@" 0 1 2 3 4 5 6 7 8 10 11 12 13 14 15; }
  47 cleanup () { rm -f "$TMPFILE"; settrap -; }
  48 settrap cleanup
  49 formail -I ${HEADER}: < "$MAILFILE" > "$TMPFILE"
  50 mv "$TMPFILE" "$MAILFILE"
  51 settrap -