Return to rcvtrip.sh CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / mh / miscellany / rcvtrip

Annotation of 43BSD/contrib/mh/miscellany/rcvtrip/rcvtrip.sh, revision 1.1.1.1

1.1       root        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}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.