diplodocus.org Git - nmh/blob - uip/mhmail

   1 #! /bin/sh
   2 #
   3 # mhmail -- simple mail program
   4 #
   5 # This code is Copyright (c) 2012, by the authors of nmh.  See the
   6 # COPYRIGHT file in the root directory of the nmh distribution for
   7 # complete copyright information.
   8 #
   9 # Emulation of compiled mhmail(1), with these differences:
  10 # * Adds -send/-nosend, -headerfield, and -attach options.
  11 # * Adds optional -to switch for recipient addresses.
  12 # * Supports all post(8) (by default, without -profile) or send(1)
  13 #   (with -profile) options.
  14 # * Optionally (with -profile) obeys the users profile, including
  15 #   AliasFile and send entries.
  16 # * Instead of silently not sending an empty message, notifies user
  17 #   "mhmail: empty message not sent, use -body '' to force."
  18 # * The compiled mhmail dropped a trailing newline from the -body argument.
  19 # * Drops support for undocumented -queue option.
  20
  21 usage='Usage: mhmail [-t(o)] addrs ... [switches]
  22   switches are:
  23   -at(tach) file [-at(tach) file] ...
  24   -b(ody) text
  25   -c(c) addrs ...
  26   -f(rom) addr
  27   -hea(derfield) name:value [-hea(derfield) name:value] ...
  28   -su(bject) text
  29   -r(esent)
  30   -pr(ofile)
  31   -se(nd)
  32   -nose(nd)
  33   -v(ersion)
  34   -hel(p)
  35   and all post(8)/send(1) switches
  36   mhmail with no arguments is equivalent to inc'
  37
  38
  39 #### Find location of a program.  Bourne shell just puts the name in
  40 #### $0 if it's found from the PATH, so search that if necessary.
  41 finddir() {
  42   case $1 in
  43     */*) dirname "$1" ;;
  44     *  ) IFS=:
  45          for d in $PATH; do
  46            [ -f "${d:=.}/$1"  -a  -x "$d/$1" ]  &&  printf %s "$d"  &&  break
  47          done ;;
  48   esac
  49 }
  50
  51 bindir=`finddir $0`
  52 nmhbindir=`cd "$bindir" && pwd`
  53 case `printf 'OK\n' | tail -n 1 2>&1` in
  54   OK) tail='tail -n ' ;;
  55   *)  tail='tail -' ;;
  56 esac
  57
  58
  59 #### Checks for missing mandatory arguments.
  60 checkforargs() {
  61   if [ $attacharg -eq 1 ]; then
  62     printf 'mhmail: missing argument to -attach\n' >&2; exit 1
  63   elif [ $bodyarg -eq 1 ]; then
  64     printf 'mhmail: missing argument to -body\n' >&2; exit 1
  65   elif [ $ccarg -eq 1  -a  "$cclist"x = x ]; then
  66     printf 'mhmail: missing argument to -cc\n' >&2; exit 1
  67   elif [ $fromarg -eq 1 ]; then
  68     printf 'mhmail: missing argument to -from\n' >&2; exit 1
  69   elif [ $headerfieldarg -eq 1 ]; then
  70     printf 'mhmail: missing argument to -headerfield\n' >&2; exit 1
  71   elif [ $subjectarg -eq 1 ]; then
  72     printf 'mhmail: missing argument to -subject\n' >&2; exit 1
  73   elif [ $toarg -eq 1 ]; then
  74     printf 'mhmail: missing argument to -to\n' >&2; exit 1
  75   fi
  76 }
  77
  78 if [ $# -eq 0 ]; then
  79   #### Emulate mhmail for reading mail.
  80   exec "$nmhbindir"/inc
  81 fi
  82
  83 #### Go through all the switches so we can build the draft.
  84 tolist=                     ## To: addresses
  85 toarg=0                     ## whether currently handling -to
  86 attacharg=0                 ## whether currently handling -attach
  87 attachind=Attach            ## attachment indicator
  88 body=                       ## contents of the message body
  89 bodyarg=0                   ## whether currently handling -body
  90 cclist=                     ## Cc: addresses
  91 ccarg=0                     ## whether currently handling -cc
  92 from=                       ## From: contents
  93 fromarg=0                   ## whether currently handling -from
  94 headerfieldlist=            ## header fields to be added to draft
  95 headerfieldarg=0            ## whether currently handling -headerfield
  96 mhmailswitch=0              ## whether currently handling any mhmail switch
  97 subject=                    ## Subject: contents
  98 subjectarg=0                ## whether currently handling -subject
  99 resent=0                    ## whether resending
 100 postsendargs=               ## switches to pass on to post or send
 101 post_send_switch_arg=0      ## whether currently handling a post/send switch
 102 use_send=0                  ## use post (default) or send (-profile)
 103 sendsw=1                    ## to send (default) or not to send
 104 for arg in "$@"; do
 105   case $arg in
 106     #### Post and send won't accept -f -or -s because they'd be
 107     #### ambiguous, so no conflicts with them.  And they don't have
 108     #### -b, -c, -r, -t.  For the new switches that compiled mhmail
 109     #### didn't have:  let -p indicate mhmail -profile, not send
 110     #### -port.  -send masks the send(1) -send switch.  -attach
 111     #### masks the send(1) -attach switch.
 112     -at|-att|-atta|-attac|-attach)
 113        mhmailswitch=1
 114        attacharg=1
 115        use_send=1
 116        ;;
 117     -b|-bo|-bod|-body) mhmailswitch=1; bodyarg=1 ;;
 118     -c|-cc) mhmailswitch=1; ccarg=1 ;;
 119     -f|-fr|-fro|-from) mhmailswitch=1; fromarg=1 ;;
 120     -hea|-head|-heade|-header|-headerf|-headerfi|-headerfie|-headerfiel|\
 121 -headerfield) mhmailswitch=1; headerfieldarg=1 ;;
 122     -hel|-help) printf '%s\n' "$usage"; exit ;;
 123     -nose|-nosen|-nosend) mhmailswitch=1; sendsw=0 ;;
 124     -p|-pr|-pro|-prof|-profi|-profil|-profile) mhmailswitch=1; use_send=1 ;;
 125     -resend) printf 'mhmail: did you mean -resent instead of -resend?\n' >&2
 126        exit 1 ;;
 127     -r|-re|-res|-rese|-resen|-resent) mhmailswitch=1; resent=1 ;;
 128     -se|-sen|-send) mhmailswitch=1; sendsw=1 ;;
 129     -su|-sub|-subj|-subje|-subjec|-subject) mhmailswitch=1; subjectarg=1 ;;
 130     -t|-to) toarg=1; ccarg=0 ;;
 131     -v|-ve|-ver|-vers|-versi|-versio|-version)
 132        #### Cheat instead of using autoconf and make to fill in the version.
 133        "$nmhbindir"/mhpath -v | sed 's/mhpath/mhmail/'; exit ;;
 134     -*) if [ $mhmailswitch -eq 1 ]; then
 135           checkforargs
 136           mhmailswitch=0
 137         fi
 138         post_send_switch_arg=1
 139         postsendargs="${postsendargs:+$postsendargs }$arg" ;;
 140     *) mhmailswitch=0
 141        if [ $bodyarg -eq 1 ]; then
 142          body="$arg
 143 "
 144          bodyarg=0
 145          #### Allow -body "" by using just a newline for the body.
 146          [ "$body"x = x ]  &&  body='
 147 '
 148        elif [ $fromarg -eq 1 ]; then
 149          from="$arg"
 150          fromarg=0
 151        elif [ $subjectarg -eq 1 ]; then
 152          subject="$arg"
 153          subjectarg=0
 154        elif [ $attacharg -eq 1 ]; then
 155          headerfieldlist="${headerfieldlist:+$headerfieldlist}$attachind: $arg
 156 "
 157          attacharg=0
 158        elif [ $headerfieldarg -eq 1 ]; then
 159          #### It's not strictly necessary to have one space after
 160          #### the : that separates the header field name from the
 161          #### body, but do it to avoid surprising someone.
 162          #### Solaris sed wants the trailing newline in its input.
 163          add=`printf '%s\n' "$arg" | sed -e 's/:/: /' -e 's/:  /: /'`
 164          headerfieldlist="${headerfieldlist:+$headerfieldlist}$add
 165 "
 166          headerfieldarg=0
 167        elif [ $post_send_switch_arg -eq 1 ]; then
 168          postsendargs="${postsendargs:+$postsendargs }$arg"
 169        elif [ $ccarg -eq 1 ]; then
 170          #### ccarg can only be reset to 0 by -to.
 171          cclist="${cclist:+$cclist, }$arg"
 172        else
 173          #### An address.
 174          tolist="${tolist:+$tolist, }$arg"
 175          toarg=0
 176        fi ;;
 177   esac
 178 done
 179
 180 #### Check for at least one address and -from.
 181 if [ "$tolist"x = x ]; then
 182   printf 'Usage: mhmail [-t(o)] addrs ... [switches]\n' >&2; exit 1
 183 fi
 184 if [ "$from"x = x ]; then
 185   nmhlibdir=`$nmhbindir/mhparam libdir`/
 186   from=`${nmhlibdir}ap -format '%(localmbox)' 0`
 187 fi
 188
 189 #### Check for missing mandatory arguments.
 190 checkforargs
 191
 192 #### Build header.
 193 [ $resent -eq 0 ]  &&  prefix=  ||  prefix='Resent-'
 194 header="${prefix}To: $tolist
 195 "
 196 [ "$cclist"x = x ]  ||  header="$header${prefix}Cc: $cclist
 197 "
 198 [ "$subject"x = x ]  ||  header="$header${prefix}Subject: $subject
 199 "
 200 [ "$from"x = x ]  ||  header="$header${prefix}From: $from
 201 "
 202
 203 if [ "$headerfieldlist" ]; then
 204   header="$header$headerfieldlist"
 205 fi
 206
 207 #### Set up a file to supply as a draft to post/send.  And set a
 208 #### trap to remove it.  send moves the file to a backup, so it will
 209 #### remove that, too.
 210 umask 077
 211 tmpdir="${MHTMPDIR:-${TMPDIR:-${TMP:-`$nmhbindir/mhpath +`}}}"
 212 tmpfile="$tmpdir/mhmail$$"
 213 tmpfilebackup="'$tmpdir'/,mhmail$$ '$tmpdir'/#mhmail$$"
 214 tmpfileresent=
 215
 216 message_file=
 217 if [ $resent -eq 0 ]; then
 218   #### Add blank line after header if not resending.
 219   header="$header
 220 "
 221   message_file="$tmpfile"
 222 else
 223   if [ $use_send -eq 0 ]; then
 224     postsendargs="${postsendargs:+$postsendargs }-dist"
 225     message_file="$tmpfile"
 226   else
 227     #### When resending with send, tmpfile will just contain the
 228     #### Resent- header fields.  "$tmpfileresent" will contain
 229     #### the message that is being resent.
 230     tmpfileresent="$tmpdir/mhmail-resent$$"
 231     mhdist=1; export mhdist
 232     mhaltmsg=$tmpfileresent; export mhaltmsg
 233     message_file="$tmpfileresent"
 234     printf '' >"$message_file"  || exit 2
 235   fi
 236 fi
 237
 238 trap "rm -f '$tmpfile' $tmpfilebackup ${tmpfileresent:+'$tmpfileresent'}" 0
 239
 240 if [ "$body"x = x ]; then
 241   #### First put message header in the file.
 242   printf %s "$header" >"$tmpfile" || exit 2
 243
 244   tmpfile_size_before=`wc -c "$message_file"`
 245   #### Now grab the body from stdin.  cat >> handles blank lines
 246   #### better than body=`cat`.
 247   cat >>"$message_file" || exit 2
 248   tmpfile_size_after=`wc -c "$message_file"`
 249
 250   #### Don't allow an empty body (from stdin).  Use string
 251   #### comparison so we don't have to strip the filename, etc.
 252   if [ "$tmpfile_size_before" = "$tmpfile_size_after" ]; then
 253     printf 'mhmail: empty message not sent, use -body '"''"' to force.\n' >&2
 254     exit 1
 255   fi
 256
 257   #### Add trailing newline to body if it doesn't have one.
 258   if [ `${tail}1 "$message_file" | wc -l` -ne 1 ]; then
 259     printf '\n' >>"$message_file" || exit 2
 260   fi
 261 else
 262   #### Add trailing newline to body if it doesn't have one.
 263   [ `printf %s "$body" | ${tail}1 | wc -l` -ne 1 ]  &&  body="$body
 264 "
 265
 266   if [ "$tmpfileresent" ]; then
 267     #### Put just the new message header in the file.
 268     printf %s "$header" >"$tmpfile" || exit 2
 269     #### and the body in the file to resend.
 270     printf %s "$body" >"$tmpfileresent" || exit 2
 271   else
 272     #### Put message header and body in the file.
 273     printf %s "$header$body" >"$tmpfile" || exit 2
 274   fi
 275 fi
 276
 277 if [ $sendsw -eq 0 ]; then
 278   cat "$tmpfile"
 279 else
 280   if [ $use_send -eq 0 ]; then
 281     post_or_send=`$nmhbindir/mhparam postproc`
 282   else
 283     post_or_send="$nmhbindir/send"
 284   fi
 285
 286   if "$post_or_send" "$tmpfile" $postsendargs; then
 287     exit
 288   else
 289     status=$?
 290     mv -f "$tmpfile" dead.letter
 291     printf 'Letter saved in dead.letter\n' >&2
 292     exit $status
 293   fi
 294 fi