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