diplodocus.org Git - nmh/blob - docs/historical/mh-6.8.5/miscellany/rcvtrip/rcvtrip.sh

   1 : run this script through /bin/sh
   2 :       usage:  rcvtrip address
   3
   4 if [ "x$1" = x ]; then
   5     echo "usage: rcvstrip address" 1>&2
   6     exit ${RP_MECH}
   7 fi
   8
   9 db=rcvtrip draftf=drafts field=advised form=tripcomps
  10 : RP_MECH=200 RP_MOK=32 RP_OK=9
  11 RP_MECH=1 RP_MOK=0 RP_OK=0
  12
  13 prf=/tmp/prf$$ ctx=/tmp/ctx$$ tmp=/tmp/rcvtrip$$
  14 trap "rm -f $prf $ctx $tmp" 0 1 2 3 13 15
  15
  16 rm -f $prf
  17 echo "MH-Sequences:" > $prf
  18 cat ${MH-$HOME/.mh_profile} >> $prf
  19 MH="$prf" ; export MH
  20
  21 rm -f $ctx
  22 cp ${MHCONTEXT-`mhpath +`/context} $ctx
  23 MHCONTEXT="$ctx" ; export MHCONTEXT
  24
  25 cat <&3 > $tmp
  26 chmod 0600 $tmp
  27
  28 from=`ap -format "%<error%|%mbox%<host@%host%>%>" "$1"`
  29
  30 if pick --$field "$from" +$db first; then exit ${RP_MOK}; fi
  31
  32 cat <&3 > $tmp
  33 chmod 0600 $tmp
  34
  35 if repl -cc all -whatnowproc send -file $tmp -form $form -draftfolder +$draftf;
  36     then anno -component $field -text "$from" +$db first;
  37     else exit ${RP_MECH};
  38 fi
  39
  40 exit ${RP_MOK}