/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    tk60.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(); ]
      }
      /************************************/

     /*************************************************************
     Check if GUI is already installed and up to date.
     Check that the correct version of the Installer is being used
     *************************************************************/
     reinstall_group           = nls("reinstall_group","Version %%installed_version%% of %%product_label%% has already been installed and is up to date.  Do you want to reinstall it?");
     reinstall_group_help = nls("reinstall_group_help","You selected to install %%product_label%%, which is up to date.  Unless a problem has occurred with %%product_label%%, there is no need to reinstall.  Choose 'No' to skip the reinstallation, or choose 'Yes' if you want to reinstall %%product_label%%.");
     
    { 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.")));
        }
    ]                                                                                       /* This FAILURE will cause 3.0.x.x installer to exit gracefully. */
     /*information_dialog("inside tk.vrf-outside not doit");*/
     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 (NLS_LANG == NLS_PREV_LANG)
       {
              doit = true;
       }
    }
    if (doit)
    {
        /*information_dialog("inside doit of gui60");*/
          /*****************************
          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, and version
         ********************************************/
          current_version = product_version(current_product);
          version_list    = explode(current_version,".");
          msb_version_list= list(first(version_list),
                                   first(rest(version_list)));

          display_version = implode(msb_version_list,".");
         /*******************************************/

        /**********************************************************************
         Bind path variables...
        ***********************************************************************/
          set_tk60 = TRUE;
          {
               default_loc = make_directory("%ORACLE_HOME%%dir_separator%TOOLS");
          }
         [
              'OS_ERROR,'INVALID_FILE_NAME,
                  'PERMISSION_DENIED,'WRITE_ERROR, 'FILE_NOT_FOUND:
                 continue();
         ]

        {
             TK60     = translate("TK60", ora_config, product_filename(current_product));
             set_tk60 = FALSE;
        }
         [
              'OS_ERROR,'INVALID_FILE_NAME,
                  'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
                 TK60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60";
         ]

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

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

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

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