home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 9 Archive / 09-Archive.zip / wuz131.zip / Post-WUZ.Tpl < prev    next >
Text File  |  1994-04-17  |  1KB  |  56 lines
  1. /* Post processing for WUZ.CMD */
  2. /* (c) Copyright 1994 Scott Maxwell. */
  3.  
  4. FinalCommand=''
  5. /* ---- You can insert any commands you like between these two lines ---- */
  6. /* ---- They will be preserved if you reinstall WUZ (a new version?) ---- */
  7.  
  8. parse arg '"' WuzWhat '"' haveFresh haveUpdate
  9. haveFresh = Strip(haveFresh)
  10.  
  11. if WuzWhat = '' then do
  12.   Say "Post-WUZ is only meant to be used from WUZ.CMD"
  13.   exit(0)
  14. end
  15.  
  16. if WuzWhat \= 0 then
  17.   call 'wuz' '"'WuzWhat'" here'
  18.  
  19. call 'Open-Dir'
  20. is4OS2 = Check4OS2()
  21.  
  22. say '0a'x"Type 'ZCLR' to remove the files and subdirectory."
  23. if is4OS2 = 1 then do
  24.   say "Hit <Alt-X> or type 'ZCLR -x' to remove files and close command line."
  25.   '@alias @Alt-x=zclr -x^r'
  26. end
  27. else
  28.   say "Type 'ZCLR -x' to also close the command line"
  29.  
  30. if haveUpdate \= '' then do
  31.   if is4OS2 = 1 then do
  32.     say "Type ZUPDATE or <Alt-u> to remove deleted files and add new files to archive."
  33.     '@alias @Alt-u=zupdate^r'
  34.   end
  35.   else
  36.     say "Type ZUPDATE to remove deleted files and add new files to the archive."
  37. end
  38.  
  39.  
  40. if haveFresh \= '' then do
  41.   if is4OS2 = 1 then do
  42.     say "Type ZFRESH or <Alt-f> to update existing files in the archive."
  43.     '@alias @Alt-f=zfresh^r'
  44.   end
  45.   else
  46.     say "Type ZFRESH to update existing files in the archive."
  47. end
  48.  
  49. interpret FinalCommand
  50.  
  51. exit
  52.  
  53. Check4OS2: procedure
  54.   '@set is4os2=%_4ver'
  55.   return DATATYPE(VALUE(is4os2,,OS2ENVIRONMENT),'N')
  56.