home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / tools / plus31 / plus31.vrf < prev    next >
Text File  |  1995-01-12  |  4KB  |  112 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.     plus31.vrf - V3.0.10.3.1 version analysis/product configuration script
  5.          for Sql*Plus for Windows 3.1
  6.  
  7.   DESCRIPTION
  8.     This script checks dependencies and environment settings for the
  9.     installation of Sql*Plus for Windows 3.1
  10.  
  11.   OWNER
  12.     Edan Kabatchnik
  13.  
  14.   MODIFIED    DD-MMM-YY  Reason
  15.     LMurphy   08-SEP-94  Modified for Windows SQL*Plus 3.1.3.5.x
  16.     LMurphy   23-MAY-94  Modified for Windows SQL*Plus 3.1.2.2.6
  17.     shall     04-FEB-93  Created from RSF 7 vrf file
  18. *****************************************************************************/
  19. /*****************************************************************************
  20.    Bind string variables & prompt strings...
  21. *****************************************************************************/
  22. {
  23.     { doit = execute("%installer_home%\windows.vrf"); }
  24.     [
  25.     'UNBOUND_VARIABLE:
  26.     {
  27.         required_version = product_version(windowsinstver);
  28.         temp = explode(required_version,".");
  29.         required_version = implode(list(first(temp), first(rest(temp)),
  30.                       first(rest(rest(temp))),
  31.                       first(rest(rest(rest(temp))))),".");
  32.         signal('failure, instantiate(nls("instver_too_early1","The version of the Installer currently running is %%installer_version%%.  The installation you have chosen requires version %%required_version%% or later.  Please run version %%required_version%% or later in order to perform this installation.")));
  33.     }
  34.     ]
  35.  
  36.     if (doit)
  37.     {
  38.         vrf_ratchet = "3.1.3.5.4A";
  39.         {
  40.         set_plus31 = FALSE;
  41.         plus31 = v7_translate("PLUS31");
  42.  
  43.         if (not(exists(plus31)))
  44.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  45.         }
  46.         [ 'OS_ERROR, 'INVALID_FILE_NAME, 
  47.         'PERMISSION_DENIED, 'UNBOUND_ENVIRONMENT_VARIABLE:
  48.         {
  49.             plus31 = "%oracle_home%\PLUS31";
  50.             set_plus31 = TRUE;
  51.         }
  52.         ]
  53.  
  54.         {
  55.         set_mshelp = FALSE;
  56.         mshelp = v7_translate("MSHELP");
  57.         
  58.         if (not(exists(mshelp)))
  59.             signal('UNBOUND_ENVIRONMENT_VARIABLE);
  60.         }
  61.         [ 'OS_ERROR,'INVALID_FILE_NAME,
  62.           'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
  63.         {
  64.             mshelp = "%oracle_home%\MSHELP";
  65.             set_mshelp = TRUE;
  66.         }
  67.         ]
  68.  
  69.         { install_type = install_type; }
  70.         [ 'UNBOUND_VARIABLE: install_type = "Custom Install"; ]
  71.  
  72.         if (install_type == "Custom Install")
  73.         {
  74.           newplus31 = choose_directory_dialog(nls("which_directory", 
  75.                         "Where do you wish to install SQL*Plus?"), plus31);
  76.           pathify(newplus31);
  77.           if (plus31 != newplus31)
  78.             set_plus31 = TRUE;
  79.  
  80.           plus31 = newplus31;
  81.         }
  82.     
  83.         {
  84.             set_sqlpath = FALSE;
  85.             sqlpath = v7_translate("SQLPATH");
  86.             if (not(exists(sqlpath)))
  87.                 signal('UNBOUND_ENVIRONMENT_VARIABLE);
  88.         }
  89.             [ 'OS_ERROR, 'INVALID_FILE_NAME, 
  90.             'PERMISSION_DENIED, 'UNBOUND_ENVIRONMENT_VARIABLE:
  91.             {
  92.             sqlpath = "%ORACLE_HOME%\dbs";
  93.             set_sqlpath = true;
  94.             }
  95.             ]
  96.  
  97.  
  98.         installing_scripts = nls("installing_scripts", "Installing %%product_label%% Installation Scripts...");
  99.         installing_exec = nls("installing_exec", "Installing %%product_label%% Executable...");
  100.         installing_msbs = nls("installing_msbs", "Installing %%product_label%% Message Files...");
  101.         installing_sql = nls("installing_sql", "Installing %%product_label%% SQL Scripts...");
  102.         registering = nls("registering", "Registering %%product_label%%...");
  103.         prod_label = nls("prod_label", "Modifying %%product_label%% Environment Variables...");
  104.         installing_help = nls("installing_help", "Installing %%product_label%% Help Files...");
  105.  
  106.         return(sum(msg,nls_abbreviation,sql,deinstl,exe,help) + verify(winrsf71));
  107.     }
  108.     else
  109.         refresh_map_file = FALSE;
  110.     return(0);
  111. }
  112.