sys/src/cmd/fax/receiverc

   1 #!/bin/rc
   2 spool=/mail/faxqueue
   3 recipients=/mail/faxqueue/faxrecipients
   4
   5 # run mail as if we're on fs
   6 rm /srv/fs
   7 9fs fs
   8 bind -c /n/fs/mail/faxqueue /mail/faxqueue
   9
  10 #
  11 # Arguments should be
  12 #       time Y|N pages [ftsi]
  13 #
  14 switch($#*){
  15
  16 case 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         }
  53 case 3
  54         {echo $*; echo FAX: page -w $spool/$1.'*'} | mail `{cat $recipients}
  55 case *
  56         {echo $*; echo FAX: page -w $spool/$1.'*'} | mail postmaster
  57 }
  58 exit 0