home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / tktools.zip / extract / dumpall.cmd < prev    next >
OS/2 REXX Batch file  |  1994-09-26  |  1KB  |  70 lines
  1. /* DUMPALL.CMD: This Rexx program runs the show for EXTRACT/MERGER
  2.    program.
  3. */
  4. parse arg site
  5. if site = '' then do
  6.   site = 'baum02.ege.edu.tr'
  7.   site = 'omega.gmd.de'
  8.   site = 'vm3090.ege.edu.tr'
  9.   site = 'news.ege.edu.tr'
  10.   site = "news.metu.edu.tr"
  11.   site = 'liberty.uc.wlu.edu'
  12. end
  13.  
  14. /* This is what will be put between each message. This needs to be
  15.  the same for EXTRACT.CFG as well.
  16. */
  17. SEPARATOR = '**#turgut#**'
  18.  
  19. 'C:'
  20. 'CD \DOCS'
  21. 'DEL S\S.UUE'
  22. "\binp\dumpgrp -s"site "-r -l"SEPARATOR
  23. say 'DUMPGRP returns:' rc
  24. if rc = 1 then exit rc
  25. if rc = -1 then exit rc
  26.  
  27. /* Does S.UUE exist? */
  28. If lines('C:\DOCS\S\S.UUE') < 1 Then Exit 0
  29. r = lineout('C:\DOCS\S\S.UUE',,)
  30.  
  31. 'CD S'
  32. 'ERASE INCOMP.ZUP'
  33. 'REN S.UUE INCOMP.ZUP'
  34.  
  35. /* NOEOF removes CTRL-Z that may be present in file.. */
  36. '..\NOEOF'
  37.  
  38. if lines('INCOMP.OUT') > 0 Then Do
  39.   r = lineout('INCOMP.OUT',,)
  40.   'DEL INCOMP.ZUP'
  41.   'REN INCOMP.OUT INCOMP.ZUP'
  42. end
  43.  
  44. 'CD ..'
  45. 'EXTRACT'
  46. 'MERGER'
  47. 'CD S'
  48. 'DEL INCOMP.BAK'
  49. 'REN INCOMP.ZUP INCOMP.BAK'
  50. 'CD ..'
  51. call DEUUE
  52. 'MOVE *.ZIP S'
  53. 'MOVE *.ARJ S'
  54. 'MOVE *.GIF S'
  55. 'MOVE *.JPG S'
  56. 'MOVE *.MPG S'
  57. 'MOVE *.DL  S'
  58. exit
  59.  
  60. /* Here we decode the received pieces: */
  61. DeUUE:
  62. 'FORALL *.GI : UUDDEL "@S" "@N.GIF"'
  63. 'FORALL *.JP : UUDDEL "@S" "@N.JPG"'
  64. 'FORALL *.ZI : UUDDEL "@S" "@N.ZIP"'
  65. 'FORALL *.MP : UUDDEL "@S" "@N.MPG"'
  66. 'FORALL *.DL : UUDDEL "@S" "@N.DL_"'
  67. 'FORALL *.AR : UUDDEL "@S" "@N.ARJ"'
  68. Return
  69.  
  70.