1219b2ee8SDavid du Colombier#!/bin/rc 2219b2ee8SDavid du Colombierspool=/mail/faxqueue 3219b2ee8SDavid du Colombierrecipients=/mail/faxqueue/faxrecipients 47dd7cddfSDavid du Colombier 5*ab3dc52fSDavid du Colombier# run mail as if we're on fs 6*ab3dc52fSDavid du Colombierrm /srv/fs 7*ab3dc52fSDavid du Colombier9fs fs 8*ab3dc52fSDavid 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 177dd7cddfSDavid du Colombier # 187dd7cddfSDavid du Colombier # Check for the NYT. It's 9 pages from 'Via Fax '. 197dd7cddfSDavid du Colombier # 207dd7cddfSDavid du Colombier nyt=false 217dd7cddfSDavid du Colombier if(~ $2 Y && {~ $4 'Via Fax '}){ 227dd7cddfSDavid du Colombier switch(`{date|sed 's/ .*//'}){ 237dd7cddfSDavid du Colombier case Mon Tue Wed Thu Fri 247dd7cddfSDavid du Colombier hour=`{date|sed 's/.* ([0-9][0-9]):.*/\1/'} 257dd7cddfSDavid du Colombier if(test $3 -gt 7 -a '(' $hour -lt 7 -o $hour -ge 21 ')') 267dd7cddfSDavid du Colombier nyt=true 277dd7cddfSDavid du Colombier case * 287dd7cddfSDavid du Colombier if(test $3 -gt 7) 297dd7cddfSDavid du Colombier nyt=true 307dd7cddfSDavid du Colombier } 317dd7cddfSDavid du Colombier } 327dd7cddfSDavid du Colombier switch($nyt){ 337dd7cddfSDavid du Colombier 347dd7cddfSDavid du Colombier case true 357dd7cddfSDavid du Colombier to=`{seq 0 1 $3} 367dd7cddfSDavid du Colombier for(i in `{seq 2 1 $3}){ 377dd7cddfSDavid du Colombier switch($i){ 387dd7cddfSDavid du Colombier 397dd7cddfSDavid du Colombier case ? 407dd7cddfSDavid du Colombier ext=00$i 417dd7cddfSDavid du Colombier case ?? 427dd7cddfSDavid du Colombier ext=0$i 437dd7cddfSDavid du Colombier case ??? 447dd7cddfSDavid du Colombier ext=$i 457dd7cddfSDavid du Colombier } 46*ab3dc52fSDavid du Colombier cp $spool/$1.$ext /n/fs/lib/nyt/nyt.$to($i) 477dd7cddfSDavid du Colombier } 48*ab3dc52fSDavid du Colombier cp $spool/$1.1 /n/fs/lib/nyt/nyt.$3 497dd7cddfSDavid du Colombier rm -f $spool/$1.* 507dd7cddfSDavid du Colombier case * 519a747e4fSDavid du Colombier {echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients} 527dd7cddfSDavid du Colombier } 53219b2ee8SDavid du Colombiercase 3 549a747e4fSDavid du Colombier {echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients} 55219b2ee8SDavid du Colombiercase * 569a747e4fSDavid du Colombier {echo $*; echo FAX: page -w $spool/$1.'*'} | mail jmk 57219b2ee8SDavid du Colombier} 587dd7cddfSDavid du Colombierexit 0 59