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     ! 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.