1219b2ee8SDavid du Colombier#!/bin/rc 2219b2ee8SDavid du Colombierspool=/mail/faxqueue 3*80e12b41SDavid du Colombierrecipients=/mail/faxqueue/faxrecipients 4*80e12b41SDavid du Colombier 5*80e12b41SDavid du Colombier# run mail as if we're on fs 6*80e12b41SDavid du Colombierrm /srv/fs 7*80e12b41SDavid du Colombier9fs fs 8*80e12b41SDavid du Colombierbind -c /n/fs/mail/faxqueue /mail/faxqueue 9219b2ee8SDavid du Colombier 10219b2ee8SDavid du Colombier# 11219b2ee8SDavid du Colombier# Arguments should be 12219b2ee8SDavid du Colombier# time Y|N pages [ftsi] 13219b2ee8SDavid du Colombier# 14219b2ee8SDavid du Colombierswitch($#*){ 15219b2ee8SDavid du Colombier 16219b2ee8SDavid du Colombiercase 4 17219b2ee8SDavid du Colombier # 18*80e12b41SDavid du Colombier # Check for the NYT. It's 9 pages from 'Via Fax '. 19219b2ee8SDavid du Colombier # 20*80e12b41SDavid du Colombier nyt=false 21*80e12b41SDavid du Colombier if(~ $2 Y && {~ $4 'Via Fax '}){ 22*80e12b41SDavid du Colombier switch(`{date|sed 's/ .*//'}){ 23*80e12b41SDavid du Colombier case Mon Tue Wed Thu Fri 24*80e12b41SDavid du Colombier hour=`{date|sed 's/.* ([0-9][0-9]):.*/\1/'} 25*80e12b41SDavid du Colombier if(test $3 -gt 7 -a '(' $hour -lt 7 -o $hour -ge 21 ')') 26*80e12b41SDavid du Colombier nyt=true 27219b2ee8SDavid du Colombier case * 28*80e12b41SDavid du Colombier if(test $3 -gt 7) 29*80e12b41SDavid du Colombier nyt=true 30219b2ee8SDavid du Colombier } 31*80e12b41SDavid du Colombier } 32*80e12b41SDavid du Colombier switch($nyt){ 33*80e12b41SDavid du Colombier 34*80e12b41SDavid du Colombier case true 35*80e12b41SDavid du Colombier to=`{seq 0 1 $3} 36*80e12b41SDavid du Colombier for(i in `{seq 2 1 $3}){ 37*80e12b41SDavid du Colombier switch($i){ 38*80e12b41SDavid du Colombier 39*80e12b41SDavid du Colombier case ? 40*80e12b41SDavid du Colombier ext=00$i 41*80e12b41SDavid du Colombier case ?? 42*80e12b41SDavid du Colombier ext=0$i 43*80e12b41SDavid du Colombier case ??? 44*80e12b41SDavid du Colombier ext=$i 45*80e12b41SDavid du Colombier } 46*80e12b41SDavid du Colombier cp $spool/$1.$ext /n/fs/lib/nyt/nyt.$to($i) 47*80e12b41SDavid du Colombier } 48*80e12b41SDavid du Colombier cp $spool/$1.1 /n/fs/lib/nyt/nyt.$3 49*80e12b41SDavid du Colombier rm -f $spool/$1.* 50*80e12b41SDavid du Colombier case * 51*80e12b41SDavid du Colombier {echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients} 52*80e12b41SDavid du Colombier } 53*80e12b41SDavid du Colombiercase 3 54*80e12b41SDavid du Colombier {echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients} 55*80e12b41SDavid du Colombiercase * 56*80e12b41SDavid du Colombier {echo $*; echo FAX: page -w $spool/$1.'*'} | mail postmaster 57*80e12b41SDavid du Colombier} 58*80e12b41SDavid du Colombierexit 0 59