home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / remor105.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1995-09-01  |  3KB  |  104 lines
  1. /*
  2.  * Inspire Remora Installation Script
  3.  */
  4.  
  5. '@Echo off'
  6. 'cls'
  7.  
  8. say'     ░▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒'
  9. say'     ░               Inspire Remora Installation Routine                 ▒'
  10. say'     ░             Remora is copyright (c) 1995 Inspire Software,        ▒'
  11. say'     ░                 Justin Kilimnik, All rights reserved              ▒'
  12. say'     ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒'
  13.  
  14. rc = stream('remora.exe','c','query exists')
  15. if rc = '' then
  16. do
  17.   say 'Sorry, Remora.exe not found.  Please run from the directory where Remora.EXE'
  18.   say 'and Remora.HLP exist.'
  19.   exit
  20. end
  21.  
  22. say ''
  23. say 'About to create objects for Inspire Remora.'
  24. say ''
  25.  
  26. say 'Press [Enter] to continue...'
  27. pull dummy .
  28. say ''
  29. assflt = ';ASSOCFILTER=*.CAL'
  30.  
  31. /* save current directory */
  32.  
  33. curdir = directory()
  34.  
  35. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  36. call SysLoadFuncs
  37.  
  38. say "Creating Inspire Remora folder and objects..."
  39.  
  40. /* first, create Inspire folder */
  41.  
  42. title = "Inspire Remora"
  43. classname = 'WPFolder'
  44. location = '<WP_DESKTOP>'
  45. setup = 'OBJECTID=<Remora_Folder>;OPEN=DEFAULT'
  46. result=SysCreateObject(classname,title,location,setup,f)
  47.  
  48. if result = 0 then
  49. do
  50.   assflt = ''
  51.   existed = 'TRUE'
  52.   say ''
  53.   say 'The Inspire Remora folder already exists.'
  54.   say 'Should I update? (Y/n)'
  55.   parse upper pull dummy
  56.   if left(dummy,1) = 'N' then exit
  57.   say ''
  58. end
  59.  
  60. /* now, create program objects in Inspire Remora folder */
  61.  
  62. title = "Inspire Remora"
  63. classname = 'WPProgram'
  64. location = '<Remora_Folder>'
  65. setup = 'OBJECT=<Remora_Program>;EXENAME='curdir'\REMORA.EXE;STARTUPDIR='curdir assflt
  66. if existed = '' then setup = setup';PARAMETERS=%*'
  67. call SysCreateObject classname,title,location,setup,u 
  68.  
  69. /* Install in startup folder */
  70. title = "Check Remora for Events"
  71. location = '<WP_START>'
  72. setup = 'OBJECTID=<Remora_Bootup>;EXENAME='curdir'\Remora.EXE;STARTUPDIR='curdir';PARAMETERS=/B'
  73. if existed = '' then setup = setup';PARAMETERS=%*'
  74. call SysCreateObject classname,title,location,setup,u
  75.  
  76. rc = stream('README.TXT','c','query exists')
  77. if rc \= '' then
  78. do
  79.   title = "Readme.Txt"
  80.   classname = 'WPShadow'
  81.   location = '<Remora_Folder>'
  82.   setup = 'SHADOWID='rc
  83.   call SysCreateObject classname,title,location,setup,u
  84. end
  85.  
  86. rc = stream('REGISTER.TXT','c','query exists')
  87. if rc \= '' then
  88. do
  89.   title = "Register.Txt"
  90.   classname = 'WPShadow'
  91.   location = '<Remora_Folder>'
  92.   setup = 'SHADOWID='rc
  93.   call SysCreateObject classname,title,location,setup,u
  94. end
  95.  
  96. /* Final words */
  97.  
  98. say 'To move Inspire Remora to another directory, move the files, delete the Inspire'
  99. say 'Remora folder, then rerun INSTALL.  To remove Inspire Remora, run UNINSTAL and '
  100. say 'follow its directions.'
  101. say ''
  102. say "Thankyou for Installing Inspire Remora!"
  103.  
  104.