home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / afinst21.zip / AFINST2.CMD < prev    next >
OS/2 REXX Batch file  |  1996-02-20  |  13KB  |  249 lines
  1. /*
  2.  * ALLFIX/2 v1.00 WPfolder Installation Program copyright (c) 1995, 1996
  3.  * by Scott Drake of Innovative Solutions 1:2630/212
  4.  *
  5.  * This program creates a folder to hold program objects for ALLFIX/2, then
  6.  * creates program objects for each executable.  It only needs to be run once
  7.  * (unless you move the ALLFIX directory -- see say notes at end).  Run
  8.  * this program in the ALLFIX directory (where you unpacked the archive).
  9.  */
  10.  
  11. /* see if we might be in the right directory... */
  12.  
  13. '@Echo off'
  14. 'cls'
  15.  
  16. say ''
  17. say ''
  18. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  19. say '│ ┌─────────────────────────────────────────────────────────────────────────┐ │'
  20. say '│ │               ALLFIX/2 v1.00 WPfolder Installation Program              │ │'
  21. say '│ │                  Copyright (c) 1995, 1996 by Scott Drake                │ │'
  22. say '│ │ ALLFIX/2 v1.00 is Copyrighted (c) 1992-96 by Harms Software Engineering │ │'
  23. say '│ │                           All rights reserved                           │ │'
  24. say '│ └─────────────────────────────────────────────────────────────────────────┘ │'
  25. say '│ ┌─────────────────────────────────────────────────────────────────────────┐ │'
  26. say '│ │          Have you read the ALLFIX.DOC or ALLFIX.INF file yet?           │ │'
  27. say '│ │           By running this program, you agree to the license             │ │'
  28. say '│ │                       as specified in that file,                        │ │'
  29. say '│ │      and it tells you how to install ALLFIX, so you should read it.     │ │'
  30. say '│ │                                 Please?                                 │ │'
  31. say '│ └─────────────────────────────────────────────────────────────────────────┘ │'
  32. say '└─────────────────────────────────────────────────────────────────────────────┘'
  33. say ''
  34. say ''
  35.  
  36. /*
  37.  * allow user to eliminate associations from being placed on AV/2.
  38.  * seemed to upset some fellow on CIS (I guess he doesn't know about
  39.  * Settings notebooks on WPS objects).
  40.  */
  41. assocfilter = ';ASSOCFILTER=*.ZIP,*.ARC,*.LZH,*.ARJ,*.ZOO,*.MO0,READ.ME,README,README.1ST,README.OS2,REGISTER.TXT'
  42. existed = ''
  43. parse upper arg dummy
  44. if dummy = 'NOASSOC' then assocfilter = ''
  45.  
  46. rc = stream('allfix.exe','c','query exists')
  47. if rc = '' then
  48. do
  49.   say 'Sorry, ALLFIX.EXE not found.  Must not be right directory.  Terminating.'
  50.   exit
  51. end
  52.  
  53. /* tell user what we're doing, give him a chance to hit CTRL-C */
  54.  
  55. say '     This program creates Desktop objects for ALLFIX/2. If you do not want'
  56. say '     create the Desktop Objects, just press CTRL + C then press Enter.'
  57. say ''
  58.  
  59.  
  60.  
  61. say '     Otherwise Press [Enter] to continue wit the Installation...'
  62. pull dummy .
  63. say ''
  64.  
  65.  
  66. /* save current directory */
  67.  
  68. curdir = directory()
  69.  
  70. /* load rexx utility functions */
  71.  
  72. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  73. call SysLoadFuncs
  74.  
  75. /* say it, then do it */
  76.  
  77. 'cls'
  78. say "        Creating The ALLFIX/2 FileEcho Processor folder and objects..."
  79. say '┌─────────────────────────────────────────────────────────────────────────────┐'
  80. say '│ ┌─────────────────────────────────────────────────────────────────────────┐ │'
  81. say '│ │                       ALLFIX/2 for OS/2 Warp, v1.00                     │ │'
  82. say '│ │ ALLFIX is the most complete FileEcho utility available. No other program│ │'
  83. say '│ │ offers the large number of features that are part of the ALLFIX package.│ │'
  84. say '│ └─────────────────────────────────────────────────────────────────────────┘ │'
  85. say '│ ┌─────────────────────────────────────────────────────────────────────────┐ │'
  86. say '│ │ * Full support for more than 22 BBS different BBS programs              │ │'
  87. say '│ │ * Full support for Zones and 4D points.                                 │ │'
  88. say '│ │ * Support for domains (5D addressing).                                  │ │'
  89. say '│ │ * Ability to disable sending a TIC file.                                │ │'
  90. say '│ │ * Ability to put all of the TIC files with or without the accompanying  │ │'
  91. say '│ │ * archive into one archive.                                             │ │'
  92. say '│ │ * ALLFIX uses the FD/RA HMB sharing spec.                               │ │'
  93. say '│ │ * Direct support for the HMB, *.MSG, Squish, PCBoard, Ezycom msg-base,  │ │'
  94. say '│ │ * and the .PKT interface.                                               │ │'
  95. say '│ │ * Support for multiple compression formats.                             │ │'
  96. say '│ │ * User friendly setup program. ALLFIX does not require any configuration│ │'
  97. say '│ │ * files used by any other program.                                      │ │'
  98. say '│ │ * Writes FD/DBridge/RA/SBBS/BinkleyTerm/PoP compatible log file.        │ │'
  99. say '│ │ * Very HIGH quality performance, Very LOW registration fee.             │ │'
  100. say '│ └─────────────────────────────────────────────────────────────────────────┘ │'
  101. say '└─────────────────────────────────────────────────────────────────────────────┘'
  102.  
  103. /* first, create ALLFIX folder */
  104.  
  105. rc = stream('af2fldr.ico','c','query exists')
  106. title = "ALLFIX/2 FileEcho^ Processor"
  107. classname = 'WPFolder'
  108. location = '<WP_DESKTOP>'
  109. setup = 'OBJECTID=<Allfix/2_Folder>;OPEN=DEFAULT'
  110. if rc \= '' then setup = setup';ICONFILE='rc
  111. result=SysCreateObject(classname,title,location,setup,r)
  112.  
  113. /* Check to see if the ALLFIX/2 Folder already exists... */
  114. if result = 0 then
  115. do
  116.   assocfilter = ''
  117.   existed = 'TRUE'
  118.   say ''
  119.   say 'The ALLFIX/2 FileEcho Processor folder already exists.'
  120.   say 'Should I update the objects? (Y/n)'
  121.   parse upper pull dummy
  122.   if left(dummy,1) = 'N' then exit
  123.   say ''
  124. end
  125.  
  126. /* now, create program objects in ALLFIX folder */
  127.  
  128. title = "ALLFIX/2 v1.00^ FileEcho Processor"
  129. classname = 'WPProgram'
  130. location = '<Allfix/2_Folder>'
  131. setup = 'OBJECTID=<ALLFIX/2 v1.00>;EXENAME='curdir'\ALLFIX.EXE;STARTUPDIR='curdir
  132. if existed = '' then setup = setup';PARAMETERS=%*'
  133. call SysCreateObject classname,title,location,setup,u
  134.  
  135. title = "ALLFIX/2 v1.00^ Configuration"
  136. classname = 'WPProgram'
  137. location = '<Allfix/2_Folder>'
  138. setup = 'OBJECTID=<ALLFIX/2 Configuration>;EXENAME='curdir'\ASETUP.EXE;STARTUPDIR='curdir
  139. if existed = '' then setup = setup';PARAMETERS=%*'
  140. call SysCreateObject classname,title,location,setup,u
  141.  
  142. title = "ALLFIX/2 v1.00^ File Hatch"
  143. classname = 'WPProgram'
  144. location = '<Allfix/2_Folder>'
  145. setup = 'OBJECTID=<ALLFIX/2 v1.00 File Hatch>;EXENAME='curdir'\HATCH.EXE;STARTUPDIR='curdir
  146. if existed = '' then setup = setup';PARAMETERS=%*'
  147. call SysCreateObject classname,title,location,setup,u
  148.  
  149. title = "ALLFIX/2 v1.00^ Fix Utility"
  150. classname = 'WPProgram'
  151. location = '<Allfix/2_Folder>'
  152. setup = 'OBJECTID=<ALLFIX/2 Utility>;EXENAME='curdir'\FIXUTIL.EXE;STARTUPDIR='curdir
  153. if existed = '' then setup = setup';PARAMETERS=%*'
  154. call SysCreateObject classname,title,location,setup,u
  155.  
  156. title = "ALLFIX/2 v1.00^ Update Utility"
  157. classname = 'WPProgram'
  158. location = '<Allfix/2_Folder>'
  159. setup = 'OBJECTID=<ALLFIX/2 Update Utility>;EXENAME='curdir'\UPDATE.EXE;STARTUPDIR='curdir
  160. if existed = '' then setup = setup';PARAMETERS=%*'
  161. call SysCreateObject classname,title,location,setup,u
  162.  
  163. title = "ALLFIX/2 v1.00^ File Area Compilier"
  164. classname = 'WPProgram'
  165. location = '<Allfix/2_Folder>'
  166. setup = 'OBJECTID=<ALLFIX/2 v1.00 File Area Compilier>;EXENAME='curdir'\FCOMP.EXE;STARTUPDIR='curdir
  167. if existed = '' then setup = setup';PARAMETERS=%*'
  168. call SysCreateObject classname,title,location,setup,u
  169.  
  170. title = "ALLFIX/2 v1.00^ Cookie Baker"
  171. classname = 'WPProgram'
  172. location = '<Allfix/2_Folder>'
  173. setup = 'OBJECTID=<ALLFIX/2 v1.00^ Cookie Baker>;EXENAME='curdir'\BAKE.EXE;STARTUPDIR='curdir
  174. if existed = '' then setup = setup';PARAMETERS=COOKIE.TXT COOKIE.DAT'
  175. call SysCreateObject classname,title,location,setup,u
  176.  
  177.  
  178. rc = stream('cookie.ico','c','query exists')
  179. title = "COOKIE.TXT"
  180. classname = 'WPProgram'
  181. location = '<Allfix/2_Folder>'
  182. setup = 'OBJECTID=<ALLFIX/2 v1.00^COOKIE.TXT>;EXENAME=e.exe;PARAMETERS='curdir'\cookie.txt;STARTUPDIR='curdir
  183. if rc \= '' then setup = setup';ICONFILE='rc
  184. call SysCreateObject classname,title,location,setup,u
  185.  
  186. rc = stream('whatsnew.ico','c','query exists')
  187. title = "WHATSNEW.DOC"
  188. classname = 'WPProgram'
  189. location = '<Allfix/2_Folder>'
  190. setup = 'OBJECTID=<ALLFIX/2 v1.00^Whats New!>;EXENAME=e.exe;PARAMETERS='curdir'\whatsnew.doc;STARTUPDIR='curdir
  191. if rc \= '' then setup = setup';ICONFILE='rc
  192. call SysCreateObject classname,title,location,setup,u
  193.  
  194. rc = stream('ALLFIX.DOC','c','query exists')
  195. if rc \= '' then
  196. do
  197. title = "ALLFIX/2 v1.00^ Text Doc's"
  198. classname = 'WPProgram'
  199. location = '<Allfix/2_Folder>'
  200.   setup = 'OBJECTID=<ALLFIX/2 v1.00 Documentation>;EXENAME=e.exe;PARAMETERS='curdir'\allfix.doc;STARTUPDIR='curdir
  201.   call SysCreateObject classname,title,location,setup,u
  202. end
  203.  
  204. rc = stream('ALLFIX.INF','c','query exists')
  205. if rc \= '' then
  206. do
  207.   title = "ALLFIX/2 v1.00^ INF Doc's"
  208.   classname = 'WPProgram'
  209.   location = '<Allfix/2_Folder>'
  210.   setup = 'OBJECTID=<ALLFIX/2 v1.00 OS/2 Documentation>;EXENAME=view.exe;PARAMETERS='curdir'\allfix.inf;STARTUPDIR='curdir
  211.   call SysCreateObject classname,title,location,setup,u
  212. end
  213.  
  214. rc = stream('UPGRADE.LOG','c','query exists')
  215. if rc \= '' then
  216. do
  217.   title = "UPGRADE.LOG"
  218.   classname = 'WPShadow'
  219.   location = '<Allfix/2_Folder>'
  220.   setup = 'SHADOWID='rc
  221.   call SysCreateObject classname,title,location,setup,u
  222. end
  223.  
  224. /* Final words */
  225. 'cls'
  226.  
  227. say ''
  228. say ''
  229. say ''
  230. say ''
  231. say ''
  232. say ' ┌─────────────────────────────────────────────────────────────────────────────'
  233. say 'AC┐C│ ┌─────────────────────────────────────────────────────────────────────────┐ '
  234. say 'AC│C│ │ If you find a need to move ALLFIX to a different Directory, delete the  │ '
  235. say 'AC│C│ │  ALLFIX Desktop folder and re-run INSTALL in the New ALLFIX Directory.  │ '
  236. say 'AC│C│ └─────────────────────────────────────────────────────────────────────────┘ '
  237. say 'AC│C│ ┌─────────────────────────────────────────────────────────────────────────┐ '
  238. say 'AC│C│ │          I am now done Installing the ALLFIX Desktop Folder!            │ '
  239. say 'AC│C│ │ Please be sure to check all the settings for each program, as a default │ '
  240. say 'AC│C│ │   all programs will be opened in a OS/2 Window instead of a OS/2 Full   │ '
  241. say 'AC│C│ │ Screen. Also be sure to check the parameters on such programs as Fcomp  │ '
  242. say 'AC│C│ │                                                                         │ '
  243. say 'AC│C│ │   If you havent Registered ALLFIX yet,  please remember to do so soon.  │ '
  244. say 'AC│C│ └─────────────────────────────────────────────────────────────────────────┘ '
  245. say 'AC│C└─────────────────────────────────────────────────────────────────────────────'
  246. say 'AC┘'
  247.  
  248.  
  249.