home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 6 File / 06-File.zip / hog3.zip / install.cmd < prev   
OS/2 REXX Batch file  |  1996-04-06  |  1KB  |  56 lines
  1. /* INSTALL HOG */
  2.  
  3. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6.  
  7. Say "In welches Laufwerk soll installiert werden? (ohne :)"
  8. pull xx
  9. LW=translate(xx)||':'
  10.  
  11. /* Achtung vollständiger Pfad nötig" */
  12. Say "In welchen Pfad soll installiert werden? (ohne \ am ende)"
  13. pull xx
  14.  
  15. Path=lw||translate(xx)
  16. testfile=Path||'\HOG3.TST'
  17. x=lineout(testfile,"TEST_HOG3_TMP_FIILE")
  18. x=lineout(testfile)     /* Close */
  19. line=linein(testfile)
  20. x=lineout(testfile)     /* Close */
  21.  
  22.  
  23. if line=="TEST_HOG3_TMP_FIILE" then
  24. do
  25.      Say "install ..."    Path
  26.      'copy' 'HOG3.EXE'    Path
  27.      'copy' 'HOG3.INF'    Path
  28.      'copy' 'HOG3OBJ.CMD' Path
  29.      xx=Path||"\HOG3.TST"
  30.      'del' xx
  31.      Say
  32.      Say
  33.      Say "Dateien ist kopiert"
  34.      Say "Soll ein WPS-Objekt angelegt werden ? J/N"
  35.      pull xx
  36.      xx=translate(xx)
  37.      if(xx=="J"|xx=="Y") then
  38.      do
  39.        Say "Call HOG3OBJ.CMD" Path
  40.        call 'HOG3OBJ.CMD' Path
  41.      end
  42. end
  43. else
  44. do
  45.     Say
  46.     Say "Ich kann auf " Path "nicht zugreifen"
  47.     Say "Bitte berichtigen bzw. erst einmal anlegen"
  48. end
  49.  
  50.  
  51. Say
  52. Say "Bitte ENTER drücken"
  53. pull xx
  54.  
  55. exit
  56.