home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ucmenu.zip / UCMINST.CMD < prev   
OS/2 REXX Batch file  |  1994-09-07  |  994b  |  42 lines
  1. /* Simple REXX program to install the UCMenus toolkit */
  2. /* Requires PKUNZIP2 program.                         */
  3.  
  4. '@echo off'
  5.  
  6. say 'NOTE: This installation requires that PKUNZIP2.EXE be available'
  7. say '      in the current PATH for decompressing files.'
  8. say ' '
  9. say 'Enter directory for UCMENUS toolkit installation (or blank to quit):'
  10. Dir = linein()
  11. if strip(Dir) = '' then exit
  12.  
  13. /* Make new directory if necessary */
  14.  
  15. CurrDir = directory()
  16. if directory(Dir)='' then do
  17.   'mkdir 'Dir
  18.   if RC<>0 then do
  19.     say 'Unable to create directory "'||Dir||'".'
  20.     say 'Installation halted.'
  21.     call directory CurrDir
  22.     exit
  23.   end
  24. end
  25.  
  26. /* Return to original directory and run install */
  27. call directory CurrDir
  28.  
  29. 'pkunzip2 ucmenus.pak -d -o 'Dir
  30. if RC<>0 then do
  31.   say ' '
  32.   say 'PKUNZIP had errors or warnings... toolkit installation may not be complete.'
  33.   say ' '
  34. end
  35. else do
  36.   say ' '
  37.   say 'UCMENUS toolkit installation complete.'
  38.   say ' '
  39. end
  40.  
  41. exit
  42.