/* Copyright (c) Oracle Corporation 1997.  All Rights Reserved */
/***************************************************************
 NAME
         adp80.vrf

 DESCRIPTION
         Verify script for Oracle Protocol Adapters pseudo-product.
         This script is will perform auto-detection of the user's
         installed Networking Protocols (TCP/IP and SPX only).  It
         will then invoke the verify() function on those Protocol Adapters
         for which the user has a Networking Protocol installed.

 OWNER
         NT SQL*Net Group within Server Technologies.

 MODIFIED         MM/DD/YY        Reason
  mmckerle        08/20/97        Created.
****************************************************************/

{
   /*** First, execute the <operating_system>.vrf script, which returns a boolean, doit,
        indicating whether installation should proceed or not. ***/
   {
      doit = execute("%installer_home%\%operating_system%.vrf");
   }
   [
      'UNBOUND_VARIABLE:
      {
         required_version = product_version(osinstver);
         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.")));
      }
   ]

   /*** The body of this script is contained within this "if" statement. ***/
   if(doit)
   {


      /*** Set the VRF script ratchet variable, guaranteeing a match between VRF and INS version numbers. ***/
      vrf_ratchet = "8.0.4.0.0";

      #########################################################
      #                                                       #
      # Autodetection and Verification Sequence for NT and 95 #
      #                                                       #
      #########################################################




      /* Variables and Logic */

      tcp_prod = w32tcp80;
      spx_prod = w32spx80;
      nmp_prod = w32nmp80;

      tcp_name = product_name(tcp_prod);
      spx_name = product_name(spx_prod);
      nmp_name = product_name(nmp_prod);

      install_tcp = FALSE;                   /* Autodetect for this protocol */
      install_spx = FALSE;                   /* Autodetect for this protocol */
      install_nmp = TRUE;                    /* Always install the Named Pipes Protocol Adapter for this release */
      total = 0;                             /* return size from this script */

      /* Force install Named Pipes Protocol Adapter in Windows NT */
      total = total + verify(nmp_prod);


      /* Now begin Autodetection Sequence for SPX and TCP/IP only.  DECNet and LU6.2 are only installed through custom.*/
      if(platform() == "nt")
      {

         /* TCP/IP */
         if(win32_key_exists("HKEY_LOCAL_MACHINE", "System\CurrentControlSet\Services\TCPIP"))
         {
            install_tcp = TRUE;
            total = total + verify(tcp_prod);
         }

         /* Novell NDS Client */
         if(win32_key_exists("HKEY_LOCAL_MACHINE", "System\CurrentControlSet\Services\NwlnkIpx") ||
            win32_key_exists("HKEY_LOCAL_MACHINE", "Software\Novell\IpxSpx"))
         {
            install_spx = TRUE;
            total = total + verify(spx_prod);
         }
      }
      else /* Win 95 */
      {

         /* This loop performs protocol auto-detection in Windows 95 */
         increment = 0;
         while(increment < 100)
         {
            if(increment > 9)
               increment_string = "%increment%";
            else
               increment_string = "0%increment%";

            temp_string = win32_get_value("HKEY_LOCAL_MACHINE",
                                          "System\CurrentControlSet\Services\Class\NetTrans\00%increment_string%",
                                          "DeviceVxDs");
            temp_list = explode(temp_string,",", 'STRINGSONLY);

            if(member(temp_list, "vtcp.386"))
               install_tcp = TRUE;
            else if (member(temp_list, "nwlink.vxd") || member(temp_list, "nios.vxd"))
               install_spx = TRUE;
            increment = increment + 1;
         }
         [ 'INVALID_KEY, 'FILE_NOT_FOUND, 'OS_ERROR: increment = increment + 1; ]

         /* Novell's Stack */
         {
         if(not(install_spx) && (win32_key_exists("HKEY_LOCAL_MACHINE", "Network\Novell\ProtocolIPX")))
            install_spx = TRUE;
         }
         [ 'DEFAULT:   continue(); ]

         if(install_tcp)
            total = total + verify(tcp_prod);
         if(install_spx)
            total = total + verify(spx_prod);
      }

      return(total);

   }
   else
   {
      refresh_map_file = FALSE;  /*** Don't bother checking MAP file, as installation will not proceed. ***/
      return(0);
   }
}