#!/bin/rc
spool=/mail/faxqueue
recipients=/mail/faxqueue/faxrecipients
faxowner=tor    #list of people to notify when unrecognizable fax comes in

#
# Arguments should be
#       time Y|N pages [ftsi]
#
switch($#*){

case 4
case 3
       {echo $*; echo FAX: page $spool/$1.'*'} | mail `{cat $recipients}
case 0
       {echo $*; echo FAX: no pages} | mail $faxowner
case *
       {echo $*; echo FAX: page $spool/$1.'*'} | mail $faxowner
}