home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / xbbsos2.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1995-01-22  |  4KB  |  142 lines
  1. /*
  2.  * simple 'install' for XBBS-OS/2 PM
  3.  * actually just creates a folder and some objects
  4.  */
  5.  
  6. existed = ''
  7.  
  8. rc = stream('xbbs3.exe','c','query exists')
  9. if rc = '' then
  10. do
  11.   say 'Sorry, XBBS3.EXE not found.  Must not be right directory.  Terminating.'
  12.   exit
  13. end
  14.  
  15. /* save current directory */
  16.  
  17. curdir = directory()
  18.  
  19. /* load rexx utility functions */
  20.  
  21. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  22. call SysLoadFuncs
  23.  
  24. /* say it, then do it */
  25.  
  26. say "Creating XBBS-OS/2 folder and objects..."
  27.  
  28. /* first, create XBBS-OS/2 folder */
  29.  
  30. title = "XBBS-OS/2"
  31. classname = 'WPFolder'
  32. location = '<WP_DESKTOP>'
  33. setup = 'OBJECTID=<XBBS_Folder>;OPEN=DEFAULT'
  34. result=SysCreateObject(classname,title,location,setup,f)
  35.  
  36. if result = 0 then
  37. do
  38.   existed = 'TRUE'
  39.   say ''
  40.   say 'The XBBS-OS/2 folder already exists.'
  41.   say 'Should I update the objects? (Y/N)'
  42.   parse upper pull dummy
  43.   if left(dummy,1) = 'N' then exit
  44.   say ''
  45. end
  46.  
  47. /* now, create program objects in folder */
  48.  
  49. title = "XBBS-OS/2"
  50. classname = 'WPProgram'
  51. location = '<XBBS_Folder>'
  52. setup = 'EXENAME='curdir'\BBS.CMD;STARTUPDIR='curdir
  53. if existed = '' then setup = setup';PARAMETERS=1 0'
  54. call SysCreateObject classname,title,location,setup,u
  55.  
  56. rc = stream('XSENDPM.EXE','c','query exists')
  57. if rc \= '' then
  58. do
  59.   title = "Send files"
  60.   classname = 'WPProgram'
  61.   location = '<XBBS_Folder>'
  62.   setup = 'EXENAME='curdir'\XSENDPM.EXE;STARTUPDIR='curdir
  63.   if existed = '' then setup = setup';PARAMETERS=%* 'curdir
  64.   call SysCreateObject classname,title,location,setup,u
  65. end
  66.  
  67. rc = stream('filedit.exe','c','query exists')
  68. if rc \= '' then
  69. do
  70.   title = "File area editor"
  71.   classname = 'WPProgram'
  72.   location = '<XBBS_Folder>'
  73.   setup = 'EXENAME='curdir'\FILEDIT.EXE;STARTUPDIR='curdir
  74.   call SysCreateObject classname,title,location,setup,u
  75. end
  76.  
  77. rc = stream('msgedit.exe','c','query exists')
  78. if rc \= '' then
  79. do
  80.   title = "Msg area editor"
  81.   classname = 'WPProgram'
  82.   location = '<XBBS_Folder>'
  83.   setup = 'EXENAME='curdir'\MSGEDIT.EXE;STARTUPDIR='curdir
  84.   call SysCreateObject classname,title,location,setup,u
  85. end
  86.  
  87. rc = stream('libedit.exe','c','query exists')
  88. if rc \= '' then
  89. do
  90.   title = "Library area editor"
  91.   classname = 'WPProgram'
  92.   location = '<XBBS_Folder>'
  93.   setup = 'EXENAME='curdir'\LIBEDIT.EXE;STARTUPDIR='curdir';
  94.   call SysCreateObject classname,title,location,setup,u
  95. end
  96.  
  97. rc = stream('xuserpm.exe','c','query exists')
  98. if rc \= '' then
  99. do
  100.   title = "User editor"
  101.   classname = 'WPProgram'
  102.   location = '<XBBS_Folder>'
  103.   setup = 'EXENAME='curdir'\XUSERPM.EXE;STARTUPDIR='curdir
  104.   call SysCreateObject classname,title,location,setup,u
  105. end
  106.  
  107. rc = stream('README.BBS','c','query exists')
  108. if rc \= '' then
  109. do
  110.   title = "ReadMe"
  111.   classname = 'WPShadow'
  112.   location = '<XBBS_Folder>'
  113.   setup = 'SHADOWID='rc
  114.   call SysCreateObject classname,title,location,setup,u
  115. end
  116.  
  117. title = "Docs"
  118. classname = 'WPShadow'
  119. location = '<XBBS_Folder>'
  120. setup = 'SHADOWID='curdir'\DOCS'
  121. call SysCreateObject classname,title,location,setup,u
  122.  
  123. title = "BBS Menus"
  124. classname = 'WPShadow'
  125. location = '<XBBS_Folder>'
  126. setup = 'SHADOWID='curdir'\MENU'
  127. call SysCreateObject classname,title,location,setup,u
  128.  
  129. title = "BBS Help"
  130. classname = 'WPShadow'
  131. location = '<XBBS_Folder>'
  132. setup = 'SHADOWID='curdir'\HELP'
  133. call SysCreateObject classname,title,location,setup,u
  134.  
  135. title = "BBS Text"
  136. classname = 'WPShadow'
  137. location = '<XBBS_Folder>'
  138. setup = 'SHADOWID='curdir'\TEXT'
  139. call SysCreateObject classname,title,location,setup,u
  140.  
  141. say "I'm done now."
  142.