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

/*****************************************************************************
  NAME
    pbcsnd60.vrf - V3 analysis/product configuration script for Windows
                    Procedure Builder 6.0 Cue Card Sound Extensions

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Windows Procedure Builder 6.0 Cue Card Sound Extensions.

  MODIFIED   MM/DD/YY   REASON
   pgupta    10/01/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
        *************************************/
        PARENT_PRODUCT           = w32pb60;                                    /*Parent - Oracle Procedure Builder*/
        COMPONENT_PRODUCT        = w32pbui60;                                /*Component - Procedure Builder User Interface*/
        TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS";
        DOC60 = "%TOOLS_HOME%%dir_separator%DOC60";

        /************************************************************************
        Initialize total size of files
        *************************************************************************/
        total_sum = 0;

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

        /***************************************************
        Check if Procedure Builder User Interface
        needs to be installed (no need to verify
        the PARENT because OPBUI will be doing that anyway)
        ****************************************************/
        if(child_in_control)
        {
            EXECUTE_SCRIPT = "CHECK_COMPONENT_PRODUCT";
            execute("%installer_home%%dir_separator%d2kr2vrf.usr");

            if(install_component)
                total_sum = total_sum  + verify(COMPONENT_PRODUCT);
            }

        /************************************************************************
        Return total size of files
        *************************************************************************/

         total_sum = total_sum + sum(deinst);
         total_sum = total_sum + sum(procedure_builder,"us");

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