59 lines
1.1 KiB
Plaintext
59 lines
1.1 KiB
Plaintext
|
#!/bin/rc
|
||
|
|
spool=/mail/faxqueue
|
||
|
|
recipients=/mail/faxqueue/faxrecipients
|
||
|
|
|
||
|
|
# run mail as if we're on fs
|
||
|
|
rm /srv/fs
|
||
|
|
9fs fs
|
||
|
|
bind -c /n/fs/mail/faxqueue /mail/faxqueue
|
||
|
|
|
||
|
|
#
|
||
|
|
# Arguments should be
|
||
|
|
# time Y|N pages [ftsi]
|
||
|
|
#
|
||
|
|
switch($#*){
|
||
|
|
|
||
|
|
case 4
|
||
|
|
#
|
||
|
|
# Check for the NYT. It's 9 pages from 'Via Fax '.
|
||
|
|
#
|
||
|
|
nyt=false
|
||
|
|
if(~ $2 Y && {~ $4 'Via Fax '}){
|
||
|
|
switch(`{date|sed 's/ .*//'}){
|
||
|
|
case Mon Tue Wed Thu Fri
|
||
|
|
hour=`{date|sed 's/.* ([0-9][0-9]):.*/\1/'}
|
||
|
|
if(test $3 -gt 7 -a '(' $hour -lt 7 -o $hour -ge 21 ')')
|
||
|
|
nyt=true
|
||
|
|
case *
|
||
|
|
if(test $3 -gt 7)
|
||
|
|
nyt=true
|
||
|
|
}
|
||
|
|
}
|
||
|
|
switch($nyt){
|
||
|
|
|
||
|
|
case true
|
||
|
|
to=`{seq 0 1 $3}
|
||
|
|
for(i in `{seq 2 1 $3}){
|
||
|
|
switch($i){
|
||
|
|
|
||
|
|
case ?
|
||
|
|
ext=00$i
|
||
|
|
case ??
|
||
|
|
ext=0$i
|
||
|
|
case ???
|
||
|
|
ext=$i
|
||
|
|
}
|
||
|
|
cp $spool/$1.$ext /n/fs/lib/nyt/nyt.$to($i)
|
||
|
|
}
|
||
|
|
cp $spool/$1.1 /n/fs/lib/nyt/nyt.$3
|
||
|
|
rm -f $spool/$1.*
|
||
|
|
case *
|
||
|
|
{echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients}
|
||
|
|
}
|
||
|
|
case 3
|
||
|
|
{echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients}
|
||
|
|
case *
|
||
|
|
{echo $*; echo FAX: page -w $spool/$1.'*'} | mail jmk
|
||
|
|
}
|
||
|
|
exit 0
|