/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    pbui60.vrf - V3 version analysis/product configuration script for
                  Oracle Procedure Builder User Interface 6.0

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Oracle Procedure Builder User Interface 6.0.

  MODIFIED    MM-DD-YY   Reason
   pgupta     01/10/97   Created
*****************************************************************************/
{
    SHARED_ORACLE_COMPLIANT = TRUE;

    { 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("%installer_home%%dir_separator%d2kr2vrf.usr");
        /************************************************/

        /******************************************************************
        child_in_control = TRUE ==> component product called explicitly
        child_in_control = FALSE ==> component product called by the PARENT
        *******************************************************************/
        child_in_control = TRUE;
        if( member(products_for_installation, product_parent(current_product) ))
            child_in_control = FALSE;
        /******************************************************************/

        /**************************
         Set Product Name Variables
         **************************/
        TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS";
        DOC60 = "%TOOLS_HOME%%dir_separator%DOC60";
         required_products_list = list();
         required_products_to_install = list();
        /*****************************
        Initialize total size of files
        ******************************/
        total_sum = 0;

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

        /*************************************************
        Determine which of the required products specified
        in required_products_list need to be installed
        **************************************************/
        while(not(empty(required_products_list)))
        {
            REQUIRED_PRODUCT = first(required_products_list);
            required_products_list = rest(required_products_list);

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

            if (install_required_product)
            {
                total_sum = total_sum + verify(REQUIRED_PRODUCT);
                add(required_products_to_install, REQUIRED_PRODUCT);
            }
        }
        /*************************************************/
        /*********************************
        Verify PARENT if explicitly called
        **********************************/
        install_parent = FALSE;
        if(child_in_control)
        {
            EXECUTE_SCRIPT = "VERIFY_PARENT";
            install_parent = execute("%installer_home%%dir_separator%d2kr2vrf.usr");
        }

        if(install_parent)
            total_sum = total_sum + verify(product_parent(current_product));
        /*********************************/

        total_sum = total_sum +    sum(deinst, exe, help);

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