home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / 123G-FLG / PACKINST.CMD < prev   
OS/2 REXX Batch file  |  1996-04-04  |  4KB  |  117 lines
  1. /******************************************************************
  2. Description:    Lotus Installation Exec.
  3.  
  4. Details:        This exec is used to install 123/G and FLG
  5.  
  6.                 It really only runs the Lotus supplied install
  7.                 program, but before doing so gives the user
  8.                 some useful info.
  9.  
  10. Dependencies:
  11.    Externals:   RXUTILS - Part of VENDOR package.
  12.    Drive(s):    None
  13.    Directories: All DLL and EXE files in same directory.
  14.    Window Type: FS/WIN
  15.    App Title:   None
  16.  
  17. Last Updated:   7/27/92
  18. ******************************************************************/
  19.  
  20. /** Setup vars **/
  21. '@echo off'
  22. Env = 'OS2ENVIRONMENT'
  23.  
  24. /** Give header **/
  25. call RxCls
  26. say
  27. say ' LOTUS Pre-Installation Info (Please Read):'
  28. say ' ------------------------------------------'
  29. say
  30. say 'The Lotus install program will ask you various questions about your personal'
  31. say 'directories.  If you need help from within the installation program, press F1.'
  32. say ''
  33. say 'Lotus 123/G and FLG are designed to run together.  During the installation'
  34. say 'program, you will be asked if you want to install either one or both.  It is'
  35. say 'recommended that you select both.'
  36. say ''
  37. say 'If you have your own copy of Lotus 123G and/or FLG, then this install process'
  38. say 'will disable their use.  The Lotus install process assumes that these programs'
  39. say 'are stored together (as they are on CORE).  If you do not want to disable your'
  40. say 'local copy of 123G or FLG, then you should abort the install process.'
  41. say ''
  42. say 'Important information about installing Lotus will be displayed when'
  43. call RxPause ' you press any key to continue...'
  44. call RxCls
  45. say ''
  46. say ' IMPORTANT Notes on Lotus Installation Program:'
  47. say ' ______________________________________________'
  48. say ''
  49. say
  50. say ' 1)  Let the installation program modify your CONFIG.SYS'
  51. say ''
  52. say ' 2)  Do not have the installation add the program to you desktop'
  53. say '     group.  The installation program does not know you need to'
  54. say '     use Vendor.  If you want to access Lotus without going '
  55. say '     through the Vendor panels, select the option within Vendor to'
  56. say '     add it to a program group.'
  57. say ''
  58. say ' 3)  Lotus will be ready to run from VENDOR immediately after'
  59. say '     completing the installation program; no reboot is required.'
  60. say ''
  61. say ' The INSTALL program for LOTUS will be executed when press any key'
  62. call RxPause ' to continue...'
  63.  
  64. /******************************************/
  65. /* Search for a local copy of 123G or FLG */
  66. /******************************************/
  67.  
  68. CurrDir = Directory()
  69. TempDir = Directory('C:\')
  70. Found = RxSearchPath('LIBPATH','LDCCORE.DLL')
  71. if (Found <> '') then
  72.    if (left(Found,2) <> left(CurrDir,2)) then do
  73.       call RxCls
  74.       say ''
  75.       say 'A local copy of Lotus was found on 'left(Found,2)'!'
  76.       say 'If you continue with the install, this local copy will be disabled!'
  77.       say ''
  78.       call RxSay 'Do you want to abort the install? [Y/N] > '
  79.       do until resp='Y' | resp='N'
  80.          resp = translate(RxGetKey('NOECHO'))
  81.          if resp<>'Y' & resp<>'N' then call RxSay D2C(7)
  82.       end
  83.       if (resp = 'Y')  then
  84.          'exit 100'
  85.    end
  86. CurrDir = Directory(CurrDir)
  87.  
  88. pdir=GetPersonal() /* Get personal Lotus dir var if  exists  */
  89. 'install'
  90. call RxCls
  91. say
  92. say 'Lotus is ready to run.'
  93. say
  94. call RxPause
  95. 'exit'
  96.  
  97. /************************************************************
  98. ** GetPersonal()                                           **
  99. **                                                         **
  100. ** Returns the Lotus Personal Env Var as specified in      **
  101. ** the CONFIG.SYS.  This is needed as the user may change  **
  102. ** this and we would rather not force a reboot to activate **
  103. ** it.                                                     **
  104. **                                                         **
  105. ** Also sets the current LOTUSPERSONAL to that set in the  **
  106. ** CONFIG.SYS (JIC).                                       **
  107. ************************************************************/
  108. GetPersonal:
  109.  if RxGrep('SET LOTUSPERSONAL=',RxBootDrive()'\CONFIG.SYS','grep')=0 then
  110.    if grep.0>0 then
  111.      pdir=space(substr(grep.1, pos('=', grep.1)+1))
  112.    else
  113.      pdir=''
  114.  call value 'LOTUSPERSONAL', pdir, Env
  115. return pdir
  116.  
  117.