1#!/bin/rc 2# gone.fishing local!$user /mail/box/$user/mbox - vacation responder 3# as pipeto script 4 5# standard library. saves the message on standard input in $TMP.msg and 6# parses it into /mail/fs/mbox/1. 7. /mail/lib/pipeto.lib $* 8 9{cat $TMP.msg; echo} >>/mail/box/$USER/gone.mail 10 11message=/mail/box/$USER/gone.msg 12if (! test -e $message) 13 message=/mail/lib/gone.msg 14 15MAILTO=`{cat $D/replyto} 16grep '^'$"MAILTO'$' /mail/box/$USER/gone.addrs >/dev/null >[2=1] || { 17 echo $MAILTO >>/mail/box/$USER/gone.addrs 18 mail $MAILTO <$message 19} 20