home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Internet / News-Email / Transports / taylor / NormPost < prev    next >
Text File  |  1994-09-19  |  1KB  |  39 lines
  1. | > DoPost
  2. |
  3. | Version for uncompressed newsbatches
  4. | Usage: DoPost <NewsServerAddress> <Filename>
  5. |
  6. | DoPost will queue the specified file for posting to News via the
  7. | specified NewsServer. It performs no error checking on the file, and
  8. | assumes that the file contains a valid header.
  9. |
  10. | This version of DoPost produces single, uncompressed news batches
  11. | for sending straight to the other end. It needs little memory and is
  12. | the best version for people with minimal RAM available.
  13. |
  14. | Author:           Gunnar Zötl
  15. | Date:                17-Sep-1994
  16. | Last Modified:    19-Sep-1994
  17. |
  18. | more memory will be needed if you want to compress the batches.
  19. Wimpslot -min 256k
  20. |
  21. | this gets around a problem with the C library, which sometimes seems
  22. | confused then receiving a <system$variable> together with I/O redirection.
  23. Set alias$DoPostIt Uux -r - %0!rnews < %1 2> null:
  24. |
  25. | we assume that posting the article will succeed.
  26. |
  27. Set NewsBase$ReturnInfo Article posted
  28. DoPostIt
  29. Set NewsBase$ReturnCode <Sys$ReturnCode>
  30. |
  31. | If posting did not succeed, we alter the Info for NewsBase here.
  32. |
  33. If "<NewsBase$ReturnCode>" <> "0" Then Set NewsBase$ReturnInfo Posting failed
  34. |
  35. | now remove the file sendnews passed us, and unset the helper macro.
  36. |
  37. unset alias$DoPostIt
  38. Remove %1
  39.