home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 400-499 / ff473.lzh / CNewsSrc / cnews_src.lzh / batch / amiga / DoBatch.e2 < prev    next >
AmigaDOS Script File  |  1990-12-30  |  697b  |  32 lines
  1. .key SYS
  2. .bra [
  3. .ket ]
  4.  
  5. cd NewsArts:Out.Going/[SYS]
  6. if not exists togo
  7.     quit 5
  8. endif
  9.  
  10. if exists T:Batch.[SYS]
  11.     echo "Batcher already running for [SYS]"
  12.     quit 5
  13. endif
  14.  
  15. date >T:Batch.[SYS]
  16. delete quiet togo.last
  17. rename togo togo.last    ; move `togo' in case relaynews creates more...
  18.  
  19. echo "News batched for `[SYS]' is in NewsArts:Out.Going/[SYS]/batch_#?.Z"
  20. batcher -s 49152 -p batch -f togo.last; -S [SYS]; (system name for batchparms)
  21. if val $RC eq 0
  22.     list batch_#? lformat "acomp %s" to temp
  23.     sort temp exec.compress
  24.     execute exec.compress
  25.     delete exec.compress temp quiet
  26. else
  27.     echo "Hmmm.  Something in `batcher' didn't work!"
  28.     date >>togo.failed
  29.     join togo.last to togo.failed
  30.     rm togo.last
  31. fi
  32.