receiverc 581 B

1234567891011121314151617181920212223242526272829303132
  1. #!/bin/rc
  2. spool=/mail/faxqueue
  3. recipients=/mail/lib/faxrecipients
  4. #
  5. # Arguments should be
  6. # time Y|N pages [ftsi]
  7. #
  8. switch($#*){
  9. case 4
  10. #
  11. # Check for the NYT. It's 9 pages from
  12. # area-code 202.
  13. #
  14. if(~ $2 Y && ~ $4 20240*){
  15. if(~ $3 9){
  16. for(i in 001 002 003 004 005 006 007 008 009){
  17. cp $spool/$1.$i /lib/nyt/nyt.$i
  18. }
  19. rm -f $spool/$1.*
  20. }
  21. if not
  22. echo NYT FAX: $* | mail rob
  23. }
  24. if not
  25. echo FAX: page $spool/$1.* | mail `{cat $recipients}
  26. case 3
  27. echo FAX: page $spool/$1.* | mail `{cat $recipients}
  28. case *
  29. echo FAX BOTCH: page $spool/$1.* | mail jmk
  30. }