home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / text / CNews-Tips / news_misc.lha / newsbin / batchnews < prev    next >
Encoding:
AmigaDOS Script File  |  1992-04-24  |  750 b   |  30 lines
  1. .key System/A,SIZE/K,
  2. .def SIZE 49152
  3. .bra [
  4. .ket ]
  5.  
  6. ;# BATCHNEWS -- batch out-going news for a system
  7. ;# Usage: batchnews System [SIZE Bytes]
  8. ;# Copyright (c) 1991,92 Ralf S. Engelschall, All Rights Reserved.
  9. ;# Copyright (c) 1991,92 Cyvaned Systems, All Rights Reserved.
  10.  
  11. lab retry
  12. if exists T:batchnews.LOCK
  13.     wait 10
  14.     skip back retry
  15. endif
  16. echo >T:batchnews.LOCK "batchnews"
  17.  
  18. whence >env:TMP[$$] batchnews.2
  19. if exists NEWSARTS:out.going/[System]/togo
  20.     mkbatch -s[SIZE] [System]
  21.     find NEWSARTS:out.going/[System] -name togo.* -type f -print | awk >T:batchnews[$$].TMP -f $TMP[$$]
  22.     execute T:batchnews[$$].TMP [System]
  23.     delete >NULL: T:batch[$$].TMP
  24. else
  25.     echo "sorry, nothing to batch for system [system]"
  26. endif
  27.  
  28. delete >NULL: T:batchnews.LOCK
  29.  
  30.