Winzipper/Winzipper_ISO.iso/programming/oracle7 7.2/NET/SPX22/SPX22.VRF

Text File | 1995-10-13 | 5.8 KB | 130 lines

/* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
/*****************************************************************************
  NAME
    spx22.vrf - Windows 95 V3 installation verification script for
                SPX/IPX Protocol Adapter.

  DESCRIPTION
    This script checks dependencies and environment settings for installation
    of the Windows 95 SPX/IPX product.

  OWNER
    Lav Jain

  MODIFIED    DD-MMM-YY Reason
    trodgers  10-APR-92 Created.
    zkhan     11-AUG-93 Modified for SQLNET and for using V3.0.9.3.2 or later
            of the installer.
    eflores   06-APR-94 Modified for Windows NT.
    ljain     07-JUL-95 Modified for Windows 95.
*****************************************************************************/
{
 { doit = execute("%installer_home%\win95.vrf"); }
  [
    'UNBOUND_VARIABLE:
      {
        required_version = product_version(w95instver);
        temp = explode(required_version,".");
        required_version = implode(list(first(temp),first(rest(temp)),
                                        first(rest(rest(temp))),
                                        first(rest(rest(rest(temp))))),".");
        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.")));
      }
  ]

  if (not(doit) && (version_status == 'reinstall))
    doit = TRUE;

  if (doit)
  {
    protocol_prompt = nls("protocol_prompt", "The SPX network protocol is currently not installed on your machine. Oracle SPX Protocol Adapter can not function without this network protocol. Would you still like to install it?");
    protocol_prompt_content = nls("protocol_prompt_content", "SPX Protocol Not Installed");
    protocol_prompt_help = nls("protocol_prompt_help", "The SPX network protocol is currently not installed on your machine. Oracle SPX Protocol Adapter cannot function without this network protocol.

The SPX network protocol enables data transfer in a Novell NetWare environment.

If you are not familiar with network transport protocols, please contact your network administrator.

YES installs the Oracle SPX Protocol Adapter.

NO does not install the Oracle SPX Protocol Adapter.");

    yes_ans = nls("yes_ans","Yes");
    no_ans = nls("no_ans","No");
    yes_no_list = list(yes_ans, no_ans);


    if(not(win32_key_exists("HKEY_LOCAL_MACHINE",
                            "System\CurrentControlSet\Services\VxD\NWLink")))
    {
      ans = single_selection_dialog(protocol_prompt, yes_no_list, no_ans, protocol_prompt_content, protocol_prompt_help);
      if (ans == no_ans)
      {
        extract(products_for_installation, w95spx22);
        doit = FALSE;
      }
    }
  }


 if (doit)
  {
    vrf_ratchet = "2.2.2.0.0";
    net2_register = nls("net2_register","Registering %%product_label%%...");

    net2_install_script = nls("net2_install_script","Installing %%product_label%% Installation Scripts...");

    net2_install_dll = nls("net2_install_dll","Installing %%product_label%% DLL's...");

    no_protocol = nls("no_protocol", "Oracle SPX Protocol Adapter not installed.");

    app_prompt = instantiate(nls("app_prompt","Close all Oracle applications that are using %%product_label%% before continuing with this installation."));
    app_term_prompt = instantiate(nls("app_term_prompt","Installation terminated.  Close all Oracle applications that are using %%product_label%% before continuing with this installation."));
    app_content = nls("app_content","Close Applications");
    app_help = nls("app_help","%%product_label%% is being used. Close all Oracle applications that are using %%product_label%% before continuing with this installation.");

    spx22_expl = nls("spx22_expl", "A %%product_label%% DLL (NTSNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Silent mode installation of %%product_label%% terminated.");
    spx22_inst = instantiate(nls("spx22_inst", "A %%product_label%% DLL (NTSNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.

Choose CANCEL to terminate the installation of %%product_label%%.
    "));
    spx22_inst_term = instantiate(nls("spx22_inst_term", "%%product_label%% installation terminated."));
    spx22_inst_content = instantiate(nls("spx22_inst_content", "%%product_label%% DLL Used"));
    spx22_inst_help = instantiate(nls("spx22_inst_help", "The Oracle Installer has detected that a %%product_label%% DLL (NTSNT.DLL) is being used on this machine.  Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.

Choose CANCEL to terminate the installation of %%product_label%%.
    "));

   done = FALSE;
   while(not(done))
   { move_file("%ORACLE_HOME%\bin\ntsnt.dll", "%ORACLE_HOME%\bin\ntsnt.dll"); done = TRUE;}
    [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
      {
        if (silent_mode)
          signal('FAILURE, instantiate(spx22_expl));
        else
          information_dialog(instantiate(spx22_inst), spx22_inst_content, instantiate(spx22_inst_help));
      }
      'FILE_NOT_FOUND:
        done = TRUE;
    ]

   return(sum(dll,deinstl));

  }
  else
  {
    refresh_map_file = FALSE;
    return(0);
  }
}