xref: /plan9/sys/lib/fax/receiverc (revision ab3dc52f122c98aa4bc2bd64bd2292bb7b80fba2)
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