|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T r
Length: 905 (0x389)
Types: TextFile
Names: »rcvtrip.sh«
└─⟦9ae75bfbd⟧ Bits:30007242 EUUGD3: Starter Kit
└─⟦3658e588a⟧ »EurOpenD3/mail/mh/mh-6.7.tar.Z«
└─⟦c75e36ecb⟧
└─⟦this⟧ »mh-6.7/miscellany/rcvtrip/rcvtrip.sh«
: run this script through /bin/sh
: usage: rcvtrip address
if [ "x$1" = x ]; then
echo "usage: rcvstrip address" 1>&2
exit ${RP_MECH}
fi
db=rcvtrip draftf=drafts field=advised form=tripcomps
: RP_MECH=200 RP_MOK=32 RP_OK=9
RP_MECH=1 RP_MOK=0 RP_OK=0
prf=/tmp/prf$$ ctx=/tmp/ctx$$ tmp=/tmp/rcvtrip$$
trap "rm -f $prf $ctx $tmp" 0 1 2 3 13 15
rm -f $prf
echo "MH-Sequences:" > $prf
cat ${MH-$HOME/.mh_profile} >> $prf
MH="$prf" ; export MH
rm -f $ctx
cp ${MHCONTEXT-`mhpath +`/context} $ctx
MHCONTEXT="$ctx" ; export MHCONTEXT
cat <&3 > $tmp
chmod 0600 $tmp
from=`ap -format "%<error%|%mbox%<host@%host%>%>" "$1"`
if pick --$field "$from" +$db first; then exit ${RP_MOK}; fi
cat <&3 > $tmp
chmod 0600 $tmp
if repl -cc all -whatnowproc send -file $tmp -form $form -draftfolder +$draftf;
then anno -component $field -text "$from" +$db first;
else exit ${RP_MECH};
fi
exit ${RP_MOK}