home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / cfgmt100.zip / install.cmd < prev   
OS/2 REXX Batch file  |  1999-03-10  |  3KB  |  119 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 howto.dat 'InstDir'\howto.dat'
  61. '@Copy cm2fold1.ico 'InstDir'\cm2fold1.ico'
  62. '@Copy cm2fold2.ico 'InstDir'\cm2fold2.ico'
  63. '@Copy cm2.ico 'InstDir'\cm2.ico'
  64. '@Copy file_id.diz 'InstDir'\file_id.diz'
  65.  
  66. MakeIcons:
  67. /* Make icons */
  68. say
  69. say '--------------------------------------------'
  70. say 'creating icons...'
  71. say '--------------------------------------------'
  72.  
  73. mydir=Directory()
  74.  
  75. classname='WPFolder'
  76. title='ConfigMaint/2'
  77. location='<WP_DESKTOP>'
  78. icon1=mydir||'\cm2fold1.ico'
  79. icon2=mydir||'\cm2fold2.ico'
  80. icon='ICONFILE='icon1||';ICONNFILE=1,'||icon2
  81. folderid='<CM2_FOLDER>'
  82. setup='OBJECTID='||folderid||';'||icon||';ICONVIEW=FLOWED'
  83. rc=SysCreateObject(classname, title, location, setup, 'U')
  84.  
  85. classname='WPProgram'
  86. title='CM/2 Information'
  87. location='<CM2_FOLDER>'
  88. infname=InstDir||'\cm2.inf'
  89. WorkDir=InstDir
  90. setup='OBJECTID=<CM2_INFO>;EXENAME=VIEW.EXE;PARAMETERS='||infname||';STARTUPDIR='||WorkDir
  91. rc=SysCreateObject(classname, title, location, setup, 'U')
  92.  
  93. classname='WPProgram'
  94. title='ConfigMaint/2'
  95. location='<CM2_FOLDER>'
  96. icon='ICONFILE='mydir||'\cm2.ico'
  97. exename='EXENAME='||InstDir||'\cm2.exe'
  98. WorkDir=InstDir
  99. setup='OBJECTID=<CM2_PROGRAM>;STARTUPDIR='||Workdir||';'||icon||';'||exename
  100. rc=SysCreateObject(classname, title, location, setup, 'U')
  101.  
  102. say
  103. say 'Done.'
  104. say
  105.  
  106. PARSE VERSION . Level .
  107. IF Level > 4.00 THEN
  108.   DO
  109.     say
  110.     say 'NOTE: You are using ObjectRexx. This will probably slow down processing'
  111.     say '      ConfigMaint/2.'
  112.     say '      To compare with ClassicRexx, performance is ways slower so we suggest'
  113.     say "      to use ClassicRexx if you don't have any good reason to do not."
  114.     say
  115.   END
  116.  
  117. "@pause"
  118.  
  119. EXIT