home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 April / PCO0499.ISO / filesbbs / os2 / cfgmaint.arj / CFGMAINT.ZIP / install.cmd < prev   
Encoding:
Text File  |  1998-12-31  |  2.7 KB  |  102 lines
  1. /* */
  2.  
  3. call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6. CALL SysCls
  7.  
  8. say 'Dumb little Rexx Installer for ConfigMaint/2'
  9. say '--------------------------------------------'
  10. say
  11. say '   Installation...'
  12. say
  13. say '   ... will copy files to destination directory'
  14. say '   ... will create folder and objects on desktop'
  15. say '   ... will NOT modify your config.sys and *.ini files'
  16. say '       so stay cool :-)'
  17. say
  18.  
  19. /* Ask Directory */
  20.  
  21. say 'Enter target directory (e.g.: C:\CM2):'
  22. say '(<return> = current directory, object creation only, no copy operation)'
  23. PARSE PULL InstDir
  24. InstDir = STRIP(InstDir, 'T', '\')
  25.  
  26. IF InstDir="" THEN
  27.  DO
  28.    InstDir=directory()
  29.    SIGNAL MakeIcons
  30.  END
  31.  
  32. /* Create Directory */
  33. say
  34. say '--------------------------------------------'
  35. say 'creating directories...'
  36. say '--------------------------------------------'
  37.  
  38. if InstDir <> "." then
  39.    DO
  40.      call SysFileTree InstDir, "SearchDir", "D"
  41.      if SearchDir.0 = 0 then do
  42.          rc = SysMkDir(InstDir)
  43.             if rc <> 0 then do
  44.                  say "Error: Cannot create directory!" InstDir
  45.                  exit
  46.             end
  47.      end
  48. end
  49.  
  50. /* Copy files */
  51. say
  52. say '--------------------------------------------'
  53. say 'copying files...'
  54. say '--------------------------------------------'
  55.  
  56. '@Copy cm2.exe 'InstDir'\cm2.exe'
  57. '@Copy cm2.dll 'InstDir'\cm2.dll'
  58. '@Copy cm2.inf 'InstDir'\cm2.inf'
  59. '@Copy cm2cfg.dat 'InstDir'\cm2cfg.dat'
  60. '@Copy cm2fold1.ico 'InstDir'\cm2fold1.ico'
  61. '@Copy cm2fold2.ico 'InstDir'\cm2fold2.ico'
  62. '@Copy cm2.ico 'InstDir'\cm2.ico'
  63.  
  64. MakeIcons:
  65. /* Make icons */
  66. say
  67. say '--------------------------------------------'
  68. say 'creating icons...'
  69. say '--------------------------------------------'
  70.  
  71. mydir=Directory()
  72.  
  73. classname='WPFolder'
  74. title='ConfigMaint/2'
  75. location='<WP_DESKTOP>'
  76. icon1=mydir||'\cm2fold1.ico'
  77. icon2=mydir||'\cm2fold2.ico'
  78. icon='ICONFILE='icon1||';ICONNFILE=1,'||icon2
  79. folderid='<CM2_FOLDER>'
  80. setup='OBJECTID='||folderid||';'||icon||';ICONVIEW=FLOWED'
  81. rc=SysCreateObject(classname, title, location, setup, 'U')
  82.  
  83. classname='WPProgram'
  84. title='CM/2 Information'
  85. location='<CM2_FOLDER>'
  86. infname=InstDir||'\cm2.inf'
  87. WorkDir=InstDir
  88. setup='OBJECTID=<CM2_INFO>;EXENAME=VIEW.EXE;PARAMETERS='||infname||';STARTUPDIR='||WorkDir
  89. rc=SysCreateObject(classname, title, location, setup, 'U')
  90.  
  91. classname='WPProgram'
  92. title='ConfigMaint/2'
  93. location='<CM2_FOLDER>'
  94. icon='ICONFILE='mydir||'\cm2.ico'
  95. exename='EXENAME='||InstDir||'\cm2.exe'
  96. WorkDir=InstDir
  97. setup='OBJECTID=<CM2_PROGRAM>; STARTUPDIR='||InstDir||';STARTUPDIR='||Workdir||';'||icon||';'||exename
  98. rc=SysCreateObject(classname, title, location, setup, 'U')
  99.  
  100. say
  101. say 'Done.'
  102.