/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    gui60.vrf - V3 version analysis/product configuration script for
                GUI Common Files 6.0.

  DESCRIPTION
    This script checks dependencies and environment settings for the GUI
    Common Files.

  MODIFIED   MM/DD/YY   Reason
******************************************************************************/
{
     /***********************************************************************
     Set Installer variables according to the <os.prd> being used.
     ***********************************************************************/

      dir_separator = "\";
      prefix = operating_system;
      {
         {instver_product =       evaluate("%prefix%instver"); } ['UNBOUND_VARIABLE: continue(); ]
         {orainst_product =       evaluate("%prefix%install"); } ['UNBOUND_VARIABLE: continue(); ]
      }
      /************************************/


    { doit = execute("%installer_home%%dir_separator%%operating_system%.vrf"); }
    [
        'UNBOUND_VARIABLE:
        {
                required_version = product_version(instver_product);
                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)) && (member(selected_products, current_product)))
         ui_action(instantiate(halt_installation));
     {
         NLS_PREV_LANG = translate("NLS_PREV_LANG", ora_config);
     }
     [
        'OS_ERROR,'INVALID_FILE_NAME,
        'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
        {
           NLS_PREV_LANG = translate("NLS_LANG", ora_config);
        }
     ]

     nls_lang = translate("nls_lang",ora_config);

     if (doit == FALSE)
     {
         if (not(NLS_LANG == NLS_PREV_LANG))
         {
              doit = true;
         }
     }
    /***************
    Start Main Logic
    ****************/
    if (doit)
    {

          /*****************************
          Set up the nls message strings
          ******************************/

          install_gui             = nls("install_gui", "Installing %%product_label%%...");
          display_product_label  = "%%product_label%% %%display_version%%";
          install_dependencies   = nls("install_dependencies", "Installing %%product_label%% Dependencies...");
          install_register       = nls("install_register", "Registering %%product_label%%...");
          halt_installation      = nls("halt_installation", "Cancelled installation at user's request...");
          reference_dependencies = nls("reference_dependencies","Referencing %%product_label%% Dependencies...");
          modify_variables       = nls("modify_variables", "Modifying %%product_label%% Environment Variables...");
         /*****************************/

          /*******************************
           Set the VRF-INS script "ratchet"
          ********************************/
          vrf_ratchet = "6.0.5.30.0";


          /************************************************
          Create a label with the product name, and version
          ************************************************/
          EXECUTE_SCRIPT = "CREATE_LABEL";
          execute("%product_home%%dir_separator%d2kr2vrf.usr");
          /***********************************************/

          /********************************
          Create Dependencies list
          ********************************/
          COMPONENT_PRODUCT = w32gui60;
          /*RSF_PRODUCT = w32rsf80;*/

          dependency_list = list(w32guil60,w32ucol60,w32tk60);
          verify_dependency_list = list(w32guil60,w32ucol60,w32tk60);
          install_dependency_list = list();

	  if(not(registered("w32rsf80")))
        {	information_dialog(instantiate(rsf_product_required),
               instantiate(rsf_product_contents),
               instantiate(rsf_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }
	  if(not(registered("w32ut60")))
        {	information_dialog(instantiate(ut_product_required),
               instantiate(ut_product_contents),
               instantiate(ut_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }

 if(not(registered("w32mm60")))
        {	information_dialog(instantiate(mm_product_required),
               instantiate(mm_product_contents),
               instantiate(mm_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }

  if(not(registered("w32ros60")))
        {	information_dialog(instantiate(ros_product_required),
               instantiate(ros_product_contents),
               instantiate(ros_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }

 if(not(registered("w32uat60")))
        {	information_dialog(instantiate(uat_product_required),
               instantiate(uat_product_contents),
               instantiate(uat_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }

         /*****************************/

         /*******************************************************************
         parent_in_control = TRUE => complete product needs to be installed
         parent_in_control = FALSE => PARENT called by one of the components
         *******************************************************************/

         parent_in_control = TRUE;
         if(not(member(selected_products, current_product)))
         {
             child_products = all_child_products(current_product);
             while(not(empty(child_products)))
             {
                  next_child = first(child_products);
                  child_products = rest(child_products);
                  if(member(products_for_installation, next_child))
                        parent_in_control = FALSE;
             }
         }

        /***********************************************
        Check if component product needs to be installed
        ***********************************************/

        EXECUTE_SCRIPT = "CHECK_COMPONENT_PRODUCT";
        execute("%product_home%%dir_separator%d2kr2vrf.usr");


        /****************************************
        Calculate and Return total size of files
        *****************************************/
        total_sum = 0;

        /****************************************************
        If PARENT is explicitly called for installation
        verify all the component products
        *****************************************************/
        EXECUTE_SCRIPT = "VERIFY_COMPONENTS";
        total_sum = total_sum + execute("%product_home%%dir_separator%d2kr2vrf.usr");
        /****************************************************/


        /****************************************************
        If PARENT is not explicitly called for installation,
        then check if parent needs to be installed
        *****************************************************/
/*
        EXECUTE_SCRIPT = "VERIFY_PARENT";
        total_sum = total_sum + execute("%product_home%%dir_separator%d2kr2vrf.usr");
*/
        /****************************************************/

        /******************
        Verify Dependencies
        *******************/
        EXECUTE_SCRIPT = "VERIFY_DEPENDENCIES";
        total_sum = total_sum + execute("%product_home%%dir_separator%d2kr2vrf.usr");
        /******************/

        /******************/
        total_sum = total_sum + sum(deinst);
        return(total_sum);
        /*********************************************************************/
    }
    else
    {
        refresh_map_file = FALSE;
        return(0);
    }
}