harvey/sys/lib/fax/receiverc

#!/bin/rc
spool=/mail/faxqueue
recipients=/mail/faxqueue/faxrecipients

# run mail as if we're on emelie
rm /srv/emelie
9fs emelie
bind -c /n/emelie/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/emelie/lib/nyt/nyt.$to($i)
		}
		cp $spool/$1.1 /n/emelie/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