.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 ',' | tr '[[:upper:]]' '[[:lower:]]')
  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   rl=$(printf $r | tr '[[:upper:]]' '[[:lower:]]')
  34   for a in $ACKED_RCPTS; do [ $a = $rl ] && ack=1 && break; done
  35   rs=$(printf $rl | sha256sum)
  36   # now check if this unacked recipient needs to be acked
  37   if [ $ack -eq 0 ] && grep -q "^${rs%% *}$" "$CHECKLIST"; then
  38     echo >&2 "E: will not send mail until $r has been added to the $HEADER header"
  39     ret=1
  40   fi
  41 done
  42
  43 [ $ret -eq 0 ] || exit $ret
  44
  45 # now remove the X-Acked header from the mail
  46 TMPFILE=$(mktemp --tmpdir mutt-sendmail.XXXXXXXXXX.msg)
  47 settrap () { trap "$@" 0 1 2 3 4 5 6 7 8 10 11 12 13 14 15; }
  48 cleanup () { rm -f "$TMPFILE"; settrap -; }
  49 settrap cleanup
  50 formail -I ${HEADER}: < "$MAILFILE" > "$TMPFILE"
  51 mv "$TMPFILE" "$MAILFILE"
  52 settrap -