home *** CD-ROM | disk | FTP | other *** search
/ Magazyn WWW 1999 April / cd24-www.iso / prog / os2 / connex / connex15.exe / _CONNEX.EXE / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-11-17  |  2KB  |  72 lines
  1. /* Set up a CONNEX for OS/2 icon */
  2.  
  3. call rxfuncadd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. ThisDir = DIRECTORY()
  7.  
  8. IF STREAM('connex.exe', 'c', 'query exists') = "" then do
  9.    SAY "ERROR: required file not found.  Change directories"
  10.    SAY "       to the Connexion Collection directory before"
  11.    SAY "       running this installation utility."
  12.    SAY ""
  13.    SAY "Hit any key..."
  14.    userin = SysGetKey()
  15.    EXIT
  16. END
  17.  
  18. IF STREAM('connex.htm', 'c', 'query exists') = "" then do
  19.    'REN SAMPLE.HTM CONNEX.HTM'
  20. end
  21. else do
  22.    SAY "A Connexions file (CONNEX.HTM) has been detected."
  23.    SAY "Do you wish to replace this file with the installation sample file?"
  24.    SAY "Present Connexions file will be renamed CONNEX.OLD."
  25.    SAY "Hit 'Y' ***ONLY*** if you wish to replace your file with the"
  26.    SAY "distribution sample file, otherwise hit any other key."
  27.    If TRANSLATE( SysGetKey() ) = 'Y' then do
  28.       'ERASE CONNEX.OLD'
  29.       'REN CONNEX.HTM CONNEX.OLD'
  30.       'REN SAMPLE.HTM CONNEX.HTM'
  31.    end
  32. end
  33.  
  34. CLS
  35. SAY "This utility will now create a Connexion Collection Folder"
  36. SAY "on your desktop.                                      "
  37. SAY ""
  38. SAY "Hit 'Y' to proceed, or any other key to quit..."
  39. If TRANSLATE( SysGetKey() ) <> 'Y' then exit
  40.  
  41. call SysCreateObject 'WPFolder',,
  42.                      'Connexion Collection',,
  43.                      '<WP_DESKTOP>',,
  44.                      'OBJECTID=<CONNEXFLDR>',,
  45.                      'REPLACE:'
  46.  
  47. MyLine1="EXENAME="||ThisDir||"\CONNEX.EXE;"
  48. MyLine2="STARTUPDIR="ThisDir";"
  49. MyLine3="OBJECTID=<CONNEX>;"
  50. MyLine3="HELPLIBRARY=CONNEX.HLP;HELPPANEL=10000;"
  51.  
  52. call SysCreateObject 'WPProgram',,
  53.                      'Connexion Collection',,
  54.                      '<CONNEXFLDR>',,
  55.                      MyLine1||MyLine2||MyLine3||MyLine4,,
  56.                      'REPLACE:'
  57.  
  58. MyLine1="EXENAME=VIEW.EXE;"
  59. MyLine2="PARAMETERS="ThisDir"\CONNEX.INF;"
  60. MyLine3="OBJECTID=<CONNEXINFO>;"
  61.  
  62.  
  63. call SysCreateObject 'WPProgram',,
  64.                      'Connexion Collection User Manual',,
  65.                      '<CONNEXFLDR>',,
  66.                      MyLine1||MyLine2||MyLine3,,
  67.                      'REPLACE:'
  68.  
  69. 'ERASE _CONNEX.EXE'
  70.  
  71. EXIT
  72.