archie/release/B/scripts/mail_receiver

108 lines
2.2 KiB
Plaintext
Raw Normal View History

2024-05-27 20:18:02 +02:00
#!/bin/sh -u
#
# We handle the output, from the telnet and e-mail clients, that is to
# be mailed to the user.
#
if [ $# -ge 1 ] ; then
if [ "$1" = "-d" ] ; then
set -x
fi
fi
do_trap ()
{
echo "${prog}: caught trap!" 1>&2
failure
}
failure ()
{
echo "${prog}: cleaning up and exiting." 1>&2
rm -f $info $mhead $data $part.*
exit 1
}
# ----------------- Configure ----------------------
#
# The path must include:
#
# - your mailer ($mailcmd) (e.g. /usr/lib/sendmail)
# - any compression programs ($compress) (e.g. /usr/ucb/compress)
# - any encoding programs ($encode) (e.g. /usr/bin/uuencode)
# - sed
# - cat
# - split_file (comes with archie)
# - echo
# - wc
# - expr
# - grep
# - rm
PATH=/usr/bin:/usr/ucb:/usr/lib:bin
#PATH=/usr/bin:/usr/ucb:/usr/lib:/archie/src/3.0/telnet-client/archie-client/mail_back_end
tmp=/tmp
# Must use quotes
mailcmd="sendmail -t -farchie-errors"
# --------------- End Configure --------------------
info=$tmp/Info$$
mhead=$tmp/Head$$
data=$tmp/Data$$
part=$tmp/Part$$
prog=`basename $0`
umask 077
trap do_trap 1 2 3 15
if sed -e "/@Begin/,/@MailHeader/w $info" -e "/@MailHeader/,/@End/w $mhead" \
-e '/@Begin/,/@End/d' > $data ; then
:
else
echo "${prog}: failed to extract info and mail headers." 1>&2
failure
fi
if acmd=`sed -n 's/Command: //p' < $info` && \
compress=`sed -n 's/Compress: //p' < $info` && \
encode=`sed -n 's/Encode: //p' < $info` && \
ms_size=`sed -n 's/MaxSplitSize: //p' < $info` ; then
:
else
echo "${prog}: failed to extract variables from info header." 1>&2
failure
fi
if [ "$compress" = "none" ] ; then
compress=cat
fi
# uuencode _requires_ an argument; pain in the butt
#
case $encode in
none) encode=cat ;;
uuencode) encode="uuencode archie-output" ;;
*) encode=cat ;;
esac
if $compress < $data | $encode | split_file -s $ms_size -f $part ; then
:
else
echo "${prog}: compress, encode, split_file pipeline failed." 1>&2
failure
fi
nparts=`echo $part.* | wc -w | sed 's/[ ][ ]*//g'`
for f in $part.* ; do
pnum=`expr $f : '.*\.\(.*\)$'`
(grep -v '^@' $mhead ; \
echo "Subject: archie [$acmd] part $pnum of $nparts" ; \
echo "" ; cat $f) | $mailcmd
done
rm -f $info $mhead $data $part.*
exit 0