1#!/bin/rc 2spool=/mail/faxqueue 3recipients=/mail/faxqueue/faxrecipients 4 5# run mail as if we're on fs 6rm /srv/fs 79fs fs 8bind -c /n/fs/mail/faxqueue /mail/faxqueue 9 10# 11# Arguments should be 12# time Y|N pages [ftsi] 13# 14switch($#*){ 15 16case 4 17 # 18 # Check for the NYT. It's 9 pages from 'Via Fax '. 19 # 20 nyt=false 21 if(~ $2 Y && {~ $4 'Via Fax '}){ 22 switch(`{date|sed 's/ .*//'}){ 23 case Mon Tue Wed Thu Fri 24 hour=`{date|sed 's/.* ([0-9][0-9]):.*/\1/'} 25 if(test $3 -gt 7 -a '(' $hour -lt 7 -o $hour -ge 21 ')') 26 nyt=true 27 case * 28 if(test $3 -gt 7) 29 nyt=true 30 } 31 } 32 switch($nyt){ 33 34 case true 35 to=`{seq 0 1 $3} 36 for(i in `{seq 2 1 $3}){ 37 switch($i){ 38 39 case ? 40 ext=00$i 41 case ?? 42 ext=0$i 43 case ??? 44 ext=$i 45 } 46 cp $spool/$1.$ext /n/fs/lib/nyt/nyt.$to($i) 47 } 48 cp $spool/$1.1 /n/fs/lib/nyt/nyt.$3 49 rm -f $spool/$1.* 50 case * 51 {echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients} 52 } 53case 3 54 {echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients} 55case * 56 {echo $*; echo FAX: page -w $spool/$1.'*'} | mail jmk 57} 58exit 0 59