2 # fax [-v] telephone-number recipient [file ...] - send files via fax
8 echo 'usage: fax [-v] telephone-number recipient [file ...]' >[1=2]
24 telno=`{echo $1|sed 's/[ \-]//g'}
27 if (! ~ $telno [0-9]* +[0-9]*)
30 # our old phone system needed *9 to get outside; the new one just needs 9
41 telno=`{echo $telno | sed 's/\+/9,011/'}
51 tmpin=/tmp/fax.in.$pid
52 tmpps=/tmp/fax.ps.$pid
53 tel=`{grep '\) '$user /lib/tel}
54 myname=`{echo $tel | sed 's/ \(.*//'}
57 ext=`{echo $tel | sed 's/.*\) [^ ]* [^ ]* ([^ ]*).*/\1/'}
60 rm -f $tmp.* $script $header $header.* $tmpin $tmpps
67 # gather input into a file
84 gs -dSAFER '-sDEVICE=dfaxlow' '-sOUTPUTFILE='$tmp'.'$#a'.%03d' \
85 -dNOPAUSE -dQUIET $i quit.ps
86 g3files=($g3files $tmp.$#a.*)
88 lp -dstdout $i >$tmpps
89 gs -dSAFER '-sDEVICE=dfaxlow' '-sOUTPUTFILE='$tmp'.'$#a'.%03d' \
90 -dNOPAUSE -dQUIET $tmpps quit.ps
91 g3files=($g3files $tmp.$#a.*)
93 a=($a 1) # count by increasing list length
96 pages=`{echo $g3files|wc -w}
98 # use delimiters that are unlikely to be supplied in arguments
101 echo -n `{date} # treat `{} output list specially
103 echo s∮FAXFFF∮$"myname^∮
104 echo s∮FAXEEE∮$"user^∮
105 echo s∮FAXVVV∮$"ext^∮
106 echo s∮FAXTTT∮$"recip^∮
107 echo s∮FAXfff∮$"telno^∮
108 echo s∮FAXPPP∮$"pages^∮
110 sed -f $script /sys/lib/fax/h.ps >$header
112 gs -dSAFER '-sDEVICE=dfaxlow' '-sOUTPUTFILE='$header'.%03d' \
113 -dNOPAUSE -dQUIET $header quit.ps
116 for(i in $header.* $g3files){
122 page $header.* $g3files
124 upas/qer $files /mail/faxoutqueue fax $user $telno </dev/null
125 rx fax /sys/lib/fax/faxgoose </dev/null