/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */

/*****************************************************************************
  NAME
    forms60.vrf - V3 analysis/product configuration script for the
                  Forms 6.0 package

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of the Forms 6.0 package

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

{

    {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. */

    /****************
    START MAIN LOGIC
    *****************/
    if (doit)
    {
        /****************************************************************
        Display the generic "Welcome to Oracle Developer"
        billboard if not already displayed, and if Developer release
        *****************************************************************/
        if(exists("%installer_home%%dir_separator%d2bb_01.bmp"))
        {
            if(DEVELOPER2000_RELEASE)
            {
                if(not(DEV2K_BB01))
                {
                    DEV2K_BB01 = TRUE;
                    ui_graphics("%installer_home%%dir_separator%d2bb_01.bmp");
                }
            }
        }
        /****************************************************************/

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

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

        /***********************
        Create Dependencies List
        ************************/
        dependency_list = list(w32tutil60, w32ssf60,w32formsl60);    
        verify_dependency_list = list(w32ssf60, w32tutil60 ,w32oin60, w32gui60, RSF_PRODUCT, w32formsl60);  
        install_dependency_list = list(w32formsl60);
        /***********************/

        /************************************************
        Add path ORACLE_HOME/JDK/bin to the path variable
        *************************************************/
        reg_name = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment";
        if(OPERATING_SYSTEM == "nt")
        {
            PathVal = win32_get_value("HKEY_LOCAL_MACHINE", reg_name, "Path");
            jdk_path = "%ORACLE_HOME%\jdk\bin";
            val_in_path = list();
            val_in_path = explode(PathVal, implode_explode_delimiter);
            tem_val_in_path = val_in_path;
            path_modification_not_required = FALSE;
            while(not(empty(tem_val_in_path)))
            {
               path_present = first(tem_val_in_path);
               tem_val_in_path = rest(tem_val_in_path);
               if(path_present == jdk_path)
               {
                   path_modification_not_required = TRUE;
               }

            }

            if(not(path_modification_not_required))
            {
               add(val_in_path, jdk_path);
               path_val = implode(val_in_path, implode_explode_delimiter);
               win32_set_value("HKEY_LOCAL_MACHINE", reg_name, "Path", path_val);
            }
        }
        else
        {
           copy_file("%PRODUCT_HOME%\path.vrf", "%INSTALLER_HOME%\path.vrf");
           path_to_add = "%ORACLE_HOME%\jdk\bin";
           pathify(path_to_add);
           path_changed = execute("%INSTALLER_HOME%\path.vrf");
        }

        /**********************************************************************
        parent_in_control = TRUE ==> the 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 called by one of the components, no need to add PARENT to the list of products to be installed */
                    parent_in_control = FALSE;
            }
        }
        /**********************************************************************/

        /**************************
        Determine installation path
        ***************************/
        install_variable = "FORMS60";
        default_home     = "%oracle_home%%dir_separator%FORMS60";
        FORMS60 = execute("%product_home%%dir_separator%instloc.usr");
        /**************************/

        /*****************************************************************
        Calculate 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");
        /***********************************************/

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

        total_sum = total_sum + sum(deinst, reg, msg);
        return(total_sum);

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