#!/bin/sh -e
# exim-queue-remover/editor/viewer -- easier poking in the exim queue
# Copyright       : http://www.fsf.org/copyleft/gpl.html
# Author          : Dan Jacobson -- http://jidanni.org/
# Created On      : Tue Jun 25 06:03:53 2002
# Last Modified On: Sun Mar  8 03:51:03 2009
# Update Count    : 89

#to install:
#cd ~root/bin
#ln exim-queue-remover exim-queue-editor exim-queue-viewer
#or symbolic link, etc. also link exim-queue-remover to one's personal $HOME

case "$*" in --help|-\?) exec cat<<EOF
In exim it is too hard for the user to remove a mail from the queue:
$ /usr/sbin/exim4 -Mrm 17MbRl-0000MZ-00 #you've got to be kidding.
Therefore I have wipped up this which will ask you which one to
edit/delete/view.  To use this program, you must be able to use exim's
mailq. You must be root or be a trusted user in the exim config
files. The latter can only remove messages, and they must be one's own.
Options: -m: more than one message.
Root can use env variable suffix=-H on command line
to access headers instead of bodies.
EOF
;;-m) multiple_messages=y;;"");;*) echo $0: $@: bad args, try --help 1>&2;
 exit 33;; esac
set -u
: ${multiple_messages=n} ${suffix=-D}

case $0 in
    *remover) m=REMOVE c='/usr/sbin/sendmail -Mrm ' suffix=;;
    *viewer)
	set -- /var/spool/exim*/input; test $# -eq 1||
	{ echo $0: too many exims: $@ 1>&2; exit 83;}
	m=view c=${PAGER:-pager}\ $1/;;
    *editor)
	set -- /var/spool/exim*/input; test $# -eq 1||
	{ echo $0: too many exims: $@ 1>&2; exit 88;}
	m=edit c=${EDITOR:-editor}\ $1/;;
         #-Meb: exim3 only, so not using
    *freezer)
	m=freeze c='/usr/sbin/sendmail -Mf ' suffix=;;
    *thawer)
	m=thaw c='/usr/sbin/sendmail -Mt ' suffix=;;
    *) echo $0: huh\? 1>&2; exit 66;;
esac
#should check for
set -- $(mailq|awk 'NF>=4 && $3~/^......-......-..$/{ #to see errors
     print $3;$0="#["++a"] "$0};{print>"/dev/tty"}')
test $# -eq 0 && { echo $0: no messages found 1>&2; exit 35;}
while read -p "$m which message #[]" message
do
  case "$message" in
      "")break;; #beats 'select'
      *[^0-9]*|0)echo $0: $message: invalid choice 1>&2; exit 37;;
  esac
  $c${!message}$suffix
  test $multiple_messages = y||break #mostly just one
done
case $m in thaw) echo $0: '(remember to runq if online)'; esac
# Problem: too easy to enter the minutes from mailq,
# thinking it is a choice number.