home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / po7_win / db / dbtool71 / dbtool71.vrf < prev    next >
Encoding:
Text File  |  1995-04-12  |  9.9 KB  |  235 lines
  1. /* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.  dbtool71.vrf - V3 version analysis/product configuration script
  5.                    for Database Administration Tools v7.1
  6.  
  7.   DESCRIPTION
  8.     This script checks dependencies and environment settings for the
  9.          Database Administration Tools.
  10.  
  11.   OWNER
  12.     Amy Winarske
  13.  
  14.   MODIFIED    DD-MMM-YY  Reason
  15.     zzerhoun  13-JAN-95  Initialized prompt & content of protocol_type
  16.     balbert   09-JAN-95  Fixed NetWare bundle name error and moved spx ahead of tcp
  17.     awinarsk  05-JAN-95  Moved vs10.ini existence checking to dbtool71.ins
  18.     awinarsk  04-JAN-95  Added windbhlp71 dependency, NLS handling.
  19.     awinarsk  03-JAN-95  Added support for Workgroup Server installation
  20.     awinarsk  30-DEC-94  Revised tools group names as per Marketing
  21.     awinarsk  29-DEC-94  Revised tools group names as per Marketing
  22.     awinarsk  27-DEC-94  Revised bundle_name checking
  23.     awinarsk  21-DEC-94  Revised to handle NLS DLLs.
  24.     awinarsk  16-DEC-94  Revised group names, added sys group to sum checking.
  25.     awinarsk  15-DEC-94  Revised product names.
  26.     awinarsk  14-DEC-94  Minor cosmetic changes
  27.     awinarsk  13-DEC-94  Fixed errata
  28.     awinarsk  12-DEC-94  Further changes to accommodate product names.
  29.     awinarsk  08-DEC-94  Added new information for upcoming release.
  30.     akelley   08-NOV-94  Created.
  31. *****************************************************************************/
  32. {
  33.   { doit = execute("%installer_home%\windows.vrf"); }
  34.   [
  35.     'UNBOUND_VARIABLE:
  36.     {
  37.       required_version = product_version(windowsinstver);
  38.       temp             = explode(required_version, ".");
  39.       required_version = implode(list(first(temp),
  40.                                       first(rest(temp)), 
  41.                                       first(rest(rest(temp))),
  42.                                       first(rest(rest(rest(temp))))), ".");
  43.       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%%. Please run version %%required_version%% in order to perform this installation."))); 
  44.      }
  45.   ]     /* This FAILURE will cause 3.0.9.x installer to exit gracefully. */
  46.  
  47.   if (doit)
  48.   {
  49.     /**********************************************************************
  50.       Set the VRF-INS script "ratchet";
  51.      ***********************************************************************/
  52.     vrf_ratchet = "7.1.4.1.0C";
  53.  
  54.     /**********************************************************************
  55.       Bind default variables...
  56.      ***********************************************************************/
  57.     { web_install = web_install; }
  58.     ['UNBOUND_VARIABLE: web_install = FALSE;]
  59.  
  60.     { install_type = install_type; }
  61.     ['UNBOUND_VARIABLE: install_type = "Custom Install";]
  62.  
  63.     { bundle_name = bundle_name; }
  64.     ['UNBOUND_VARIABLE: bundle_name = "";]
  65.  
  66.     protocol_string = "";
  67.     sid = "ORCL";
  68.  
  69.     if ((bundle_name == P_O7_E) || (bundle_name == P_O7)) 
  70.     {
  71.       { host = host;}
  72.       ['UNBOUND_VARIABLE: host = "oracle7";]
  73.     }
  74.  
  75.     else /* determine protocols */
  76.     {
  77.        if ( (bundle_name == W_O7_W_NT)|| (bundle_name == E_O7_W_NT))
  78.        /* protocol can be either tcp or named pipes */
  79.     {
  80.      {
  81.         if (install_type == "")
  82.             signal('UNBOUND_VARIABLE);  /*'*/
  83.         else if (install_type != install_type_chained)
  84.         {
  85.             if (protocol_type == protocol_type_tcp)
  86.                 protocol_string = "t";
  87.             else if (protocol_type == protocol_type_nmp)
  88.                 protocol_string = "p";
  89.             else
  90.                 signal('UNBOUND_VARIABLE);    
  91.         }
  92.         else
  93.         {
  94.             protocol_string = "p"; /* default is named pipes for NT */
  95.         }
  96.      }
  97.      ['UNBOUND_VARIABLE: /* pop a dialog */
  98.          {
  99.                 protocol_type_prompt = nls("protocol_type_prompt",
  100.                                            "Please choose the default Oracle network protocol you would like to install:");
  101.                 protocol_type_content = nls("protocol_type_content",
  102.                                             "Network Protocol Options");
  103.  
  104.  
  105.         protocol_type_choices = list(protocol_type_tcp, protocol_type_nmp);
  106.               protocol_type_help = instantiate(nls("protocol_type_help","Select the default network protocol you would like to use for %%bundle_name%%:%carriage_return%%%protocol_type_helpt%%%carriage_return%%%protocol_type_helpp%%."));
  107.             protocol_type = single_selection_dialog(
  108.                                          protocol_type_prompt,
  109.                                          protocol_type_choices,
  110.                                          protocol_type_content,
  111.                                          protocol_type_help);
  112.              if (protocol_type == protocol_type_tcp)
  113.             {
  114.                   add(selected_products,"wintcp11");
  115.             protocol_string = "t";
  116.             }
  117.             else if (protocol_type == protocol_type_nmp)
  118.             {
  119.                   add(selected_products,"winnmp11");      
  120.             protocol_string = "p";
  121.             }
  122.           }
  123.      ]
  124.     }    
  125.  
  126.        else if ( (bundle_name == W_O7_NW) || (bundle_name == E_O7_NW))
  127.        /* protocol can be either spx or tcp*/     
  128.        {
  129.      {
  130.         if (install_type == "")
  131.             signal('UNBOUND_VARIABLE);
  132.         else if (protocol_type == protocol_type_tcp)
  133.             protocol_string = "t";
  134.         else if (protocol_type == protocol_type_spx)
  135.             protocol_string = "x";
  136.         else
  137.             signal('UNBOUND_VARIABLE);    
  138.      }
  139.      ['UNBOUND_VARIABLE: /* pop a dialog */
  140.                { 
  141.                 /* Following five elements are added by for Netware 03/17/95 */
  142.                 protocol_type_helpt = instantiate(nls("protocol_type_helpt",
  143.                                           "'%%protocol_type_tcp%%' installs SQL*Net %%protocol_type_tcp%%"));
  144.                 protocol_type_helpx = instantiate(nls("protocol_type_helpx",
  145.                                           "'%%protocol_type_spx%%' installs SQL*Net %%protocol_type_spx%%"));
  146.                 protocol_type_helpp = instantiate(nls("protocol_type_helpp",
  147.                                           "'%%protocol_type_nmp%%' installs SQL*Net %%protocol_type_nmp%%"));
  148.                 protocol_type_prompt = nls("protocol_type_prompt",
  149.                                            "Please choose the default Oracle network protocol you would like to install:");
  150.                 protocol_type_content = nls("protocol_type_content",
  151.                                             "Network Protocol Options");
  152.  
  153.  
  154.         protocol_type_choices = list(protocol_type_spx, protocol_type_tcp);
  155.               protocol_type_help = instantiate(nls("protocol_type_help","Select the default network protocol you would like to use for %%bundle_name%%:%carriage_return%%%protocol_type_helpx%%%carriage_return%%%protocol_type_helpt%%."));
  156.             protocol_type = single_selection_dialog(
  157.                                          instantiate(protocol_type_prompt),
  158.                                          protocol_type_choices,
  159.                                          instantiate(protocol_type_content),
  160.                                          protocol_type_help);
  161.              if (protocol_type == protocol_type_tcp)
  162.             {
  163.                   add(selected_products,"wintcp11");
  164.             protocol_string = "t";
  165.             }
  166.             else if (protocol_type == protocol_type_spx)
  167.             {
  168.                   add(selected_products,"winspx11"); 
  169.             protocol_string = "x";     
  170.             } 
  171.                }
  172.      ]
  173.        }
  174.  
  175.        host = text_dialog("What is the name of the machine where the Oracle7 Server is installed?", "");
  176.     } /* end determine protocols */     
  177.     /**********************************************************************
  178.       Bind path variables...
  179.      ***********************************************************************/
  180.  
  181.     {
  182.       set_mshelp = false;
  183.       mshelp = v7_translate("mshelp");
  184.  
  185.       if (not(exists(mshelp))) 
  186.         signal('UNBOUND_ENVIRONMENT_VARIABLE);
  187.     }
  188.     [
  189.       'OS_ERROR,'INVALID_FILE_NAME,'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE:
  190.       {
  191.         mshelp = "%oracle_home%\mshelp";
  192.         set_mshelp = true;
  193.       }
  194.     ]
  195.  
  196.     /**********************************************************************
  197.       Bind Default Product Names and Tools Group Names
  198.      ***********************************************************************/
  199.  
  200.     /**********************************************************************
  201.       Set notification messages.
  202.       See windows.stp for language information.
  203.      ***********************************************************************/
  204.     
  205.     installing_scripts = nls("installing_scripts",
  206.                              "Installing %%product_label%% Scripts...");
  207.     installing_exe = nls("installing_exe",
  208.                              "Installing %%product_label%% Executables...");
  209.     installing_dll = nls("installing_dll",
  210.                              "Installing %%product_label%% DLLs...");
  211.     installing_msg = nls("installing_msg",
  212.                  "Installing %%product_label%% Message Files...");
  213.     installing_sql = nls("installing_sql",
  214.                              "Installing %%product_label%% Sample Files...");
  215.     installing_sys = nls("installing_sys",
  216.                              "Installing %%product_label%% System Files...");
  217.     installing_hlp = nls("installing_hlp",
  218.                              "Installing %%product_label%% Help Files...");
  219.     modifying_config = nls("modifying_config",
  220.                              "Modifying Initialization Files...");
  221.     installing_dependencies = nls("installing_dependencies",
  222.                              "Installing %%product_label%% Dependencies...");
  223.     registering = nls("registering","Registering %%product_label%%...");
  224.  
  225.     return(sum(deinst, exe, sys, dll, sqldat, hlp, dll, nls_abbreviation, msg, nls_abbreviation)  + verify(windbhlp71) + verify(winrsf71));}
  226.     
  227.  }
  228.   else  /* if (doit) */
  229.   {
  230.     refresh_map_file = FALSE;
  231.     return(0);
  232.   }
  233. }
  234.  
  235.