home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: SysTools / SysTools.zip / ccamet.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-09-20  |  3KB  |  96 lines
  1. /* CCaMeter Installation */
  2. '@Echo Off'
  3. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5. Signal On Failure Name FAILURE
  6. Signal On Halt Name HALT
  7. Signal On Syntax Name SYNTAX
  8. Call SysCls
  9. Say 'Central Coast Associates Installation'
  10. Say 'Installing CPU Meter'
  11. Say ''
  12. Result = SysFileTree( 'CCAMETER.EXE', 'Files', 'F' )
  13. If Files.0 = 0 Then
  14.   Do
  15.   Say 'ERROR: CCAMETER.EXE not found! Installation cancelled.'
  16.   Signal DONE
  17.   End
  18. Result = SysFileTree( 'README.TXT', 'Files', 'F' )
  19. If Files.0 = 0 Then
  20.   Do
  21.   Say 'ERROR: README.TXT not found! Installation cancelled.'
  22.   Signal DONE
  23.   End
  24. Result = SysFileTree( 'LICENSE.TXT', 'Files', 'F' )
  25. If Files.0 = 0 Then
  26.   Do
  27.   Say 'ERROR: LICENSE.TXT not found! Installation cancelled.'
  28.   Signal DONE
  29.   End
  30. Result = SysFileTree( 'REGISTER.TXT', 'Files', 'F' )
  31. If Files.0 = 0 Then
  32.   Do
  33.   Say 'ERROR: REGISTER.TXT not found! Installation cancelled.'
  34.   Signal DONE
  35.   End
  36. Result = SysFileTree( 'INSTALL.CMD', 'Files', 'F' )
  37. If Files.0 = 0 Then
  38.   Do
  39.   Say 'ERROR: INSTALL.CMD not found! Installation cancelled.'
  40.   Signal DONE
  41.   End
  42. Say 'Please enter Path of directory files '
  43. Say '(default C:\CCAMETER): '
  44. Pull Directory
  45. If Directory = "" Then Directory = 'C:\CCAMETER'
  46. Result = SysFileTree( Directory, 'Dirs', 'D' )
  47. If Dirs.0 = 0 Then
  48.   Do
  49.   Result = SysMkDir( Directory )
  50.   if Result == 0 Then
  51.     Do
  52.     End
  53.   Else
  54.     Do
  55.     Say Result ' ERROR: Create target directory. Installation cancelled.'
  56.     Signal DONE
  57.     End
  58.   End
  59. Say ''
  60. Say 'Copying CCAMETER.EXE to' Directory '...'
  61. Copy CCAMETER.EXE Directory                  '1>NUL'
  62. Say 'Copying README.TXT to' Directory '...'
  63. Copy README.TXT Directory                  '1>NUL'
  64. Say 'Copying LICENSE.TXT to' Directory '...'
  65. Copy LICENSE.TXT Directory                  '1>NUL'
  66. Say 'Copying REGISTER.TXT to' Directory '...'
  67. Copy REGISTER.TXT Directory                  '1>NUL'
  68. Say 'Copying INSTALL.CMD to' Directory '...'
  69. Copy INSTALL.CMD Directory                  '1>NUL'
  70. Say ''
  71. Say 'Creating program object...'
  72. Say ''
  73. Type = 'WPProgram'
  74. Title = 'CCaMeter'
  75. Folder = '<WP_DESKTOP>'
  76. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CCAMETER.EXE;PARAMETERS=-;STARTUPDIR='Directory';OBJECTID=<CCAMETER>;NOPRINT=YES;'
  77. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  78. If Result = 1 Then
  79.   Say 'CCaMeter was successfully installed.'
  80.   Exit
  81. Else
  82.   Say 'ERROR: Unable to create DeskTop Program Object.'
  83.   Exit
  84.  
  85. FAILURE:
  86. Say 'Installation error.'
  87. Signal DONE
  88. HALT:
  89. Say 'Installation error.'
  90. Signal DONE
  91. SYNTAX:
  92. Say 'Installation error.'
  93. Signal DONE
  94. DONE:
  95. Exit
  96.