home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Educate / Educate.zip / quote102.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-28  |  4KB  |  145 lines
  1. /* */
  2.  
  3. '@echo off'
  4. 'cls'
  5.  
  6. SIGNAL ON FAILURE
  7. SIGNAL ON ERROR
  8.  
  9. CALL RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  10. CALL SysLoadFuncs
  11.  
  12. CurDir=DIRECTORY()
  13. ViewPath=SysSearchPath('PATH','VIEW.EXE')
  14. if ViewPath='' then
  15.   do
  16.      say ''
  17.      say 'Error!  VIEW.EXE not found!  INF Files will use C:\OS2\VIEW.EXE...'
  18.      ViewPath='C:\OS2\VIEW.EXE'
  19.   end
  20. EPath=SysSearchPath('PATH','E.EXE')
  21. if EPath='' then
  22.   do
  23.      say ''
  24.      say 'Error!  E.EXE not found!  Text Files will use C:\OS2\E.EXE...'
  25.      ViewPath='C:\OS2\E.EXE'
  26.   end
  27.  
  28. say ''
  29. say '*********************************************'
  30. say '*     Welcome to the Quoteman/2 install     *'
  31. say '*********************************************'
  32. say ''
  33. say 'The install will create objects on your desktop using the'
  34. say 'current directory.  If this is not what you want, move the'
  35. say 'program file(s) to their destination directory and re-run'
  36. say 'the install program.'
  37. say ''
  38. call charout,'Press any key to start Install or Q to quit...'
  39. parse upper value SysGetKey('NOECHO') with key
  40. if key='Q' then
  41.   EXIT
  42.  
  43. say ''
  44.  
  45. classname='WPFolder'
  46. title='QuoteMan/2'
  47. location='<WP_DESKTOP>'
  48. setup='CCVIEW=NO;ICONFILE='||CurDir||'\QUOTEFLD.ICO;OBJECTID=<QUOTE_FOLDER>;'
  49. option='R'
  50. call BldObj
  51.  
  52. classname='WPProgram'
  53. title='QuoteMan/2'
  54. location='<QUOTE_FOLDER>'
  55. setup='EXENAME='||CurDir||'\QUOTEMAN.EXE;STARTUPDIR='||CurDir||';OBJECTID=<QUOTE_PROG>;'
  56. option='R'
  57. call BldObj
  58.  
  59. classname='WPProgram'
  60. title='Quoteman/2'||'0A'x||'Configuration Tool'
  61. location='<QUOTE_FOLDER>'
  62. setup='EXENAME='||CurDir||'\QUOTECFG.EXE;STARTUPDIR='||CurDir||';OBJECTID=<QUOTE_CONFIG>;'
  63. option='R'
  64. call BldObj
  65.  
  66. classname='WPProgram'
  67. title='Quoteman/2'||'0A'x||'Information'
  68. location='<QUOTE_FOLDER>'
  69. setup='EXENAME='||ViewPath||';ICONFILE='||CurDir||'\QUOTEINF.ICO;PARAMETERS=QUOTEMAN.INF;STARTUPDIR='||CurDir||';OBJECTID=<QUOTE_INFO>;'
  70. option='R'
  71. call BldObj
  72.  
  73. classname='WPProgram'
  74. title='QuoteMan'||'0A'x||'Order Form'
  75. location='<QUOTE_FOLDER>'
  76. setup='EXENAME='||EPath||';PARAMETERS='||CurDir||'\ORDER.FRM;STARTUPDIR='||CurDir||';OBJECTID=<QUOTE_ORDERFRM>;'
  77. option='R'
  78. call BldObj
  79.  
  80. say ''
  81. call charout,'Would you like to place QuoteMan/2 in your start-up folder also (Y/N)? '
  82. parse upper value SysGetKey('NOECHO') with key
  83. if key ='Y' then
  84.   do
  85.     classname='WPProgram'
  86.     title='QuoteMan/2'
  87.     location='<WP_START>'
  88.     setup='EXENAME='||CurDir||'\QUOTEMAN.EXE;STARTUPDIR='||CurDir||';OBJECTID=<QUOTE_START>;'
  89.     option='R'
  90.     say ''
  91.     call BldObj
  92.   end
  93.  
  94. StartupDrive=SysSearchPath('PATH','CONFIG.SYS')
  95. StartupDrive=FILESPEC("drive",StartupDrive)
  96. if STREAM('VPREXX.DLL','C','QUERY EXISTS') \= '' then
  97. do
  98.   say ''
  99.   say 'VPREXX.DLL must be present in a directory contained in the LIBPATH'
  100.   say 'variable in config.sys.  I recommend '||StartupDrive||'\OS2\DLL'
  101.   call charout,'Would you like to copy VPREXX.DLL to '||StartupDrive||'\OS2\DLL (Y/N)?'
  102.   parse upper value SysGetKey('NOECHO') with key
  103.   if key ='Y' then
  104.     do
  105.        say ''
  106.        'COPY VPREXX.DLL '||StartupDrive||'\OS2\DLL > nul'
  107.     end
  108.   else
  109.     do
  110.        say ''
  111.        say 'Okay, then remember to place VPREXX.DLL in a directory contained in your LIBPATH!'
  112.     end
  113. end
  114.  
  115. say ''
  116. call charout,'Press any key to exit...'
  117. key=SysGetKey('NOECHO')
  118. EXIT
  119.  
  120. /* Build Object Procedure */
  121. BldObj:
  122. call charout ,'Building: 'title substr(classname,3,)
  123.  
  124. result = SysCreateObject(classname, title, location, setup, option)
  125.  
  126. If result=1 Then call charout ,' ...Created!'
  127. else
  128.   call charout ,' ...Not created! Return code='result
  129. say ' '
  130. Return
  131.  
  132. /*****************************************************************************/
  133.  * Standard REXX program error handler
  134.  *****************************************************************************/
  135. ERROR:
  136.     say ''
  137.     SAY 'An error has occurred...'
  138.     EXIT
  139.  
  140. FAILURE:
  141.     say ''
  142.     SAY 'An error has occurred...'
  143.     EXIT
  144.  
  145.