/* Copyright (c) Oracle Corporation 1996.  All Rights Reserved */
/*****************************************************************************
  NAME
    ocx60.vrf - V3 version analysis/product configuration script for
                Oracle OCX Pack 6.0.

  DESCRIPTION
    This script checks dependencies and environment settings for the Oracle
    OCX Pack.

  MODIFIED   MM/DD/YY   Reason
  pgupta     12/12/97   Created.
******************************************************************************/
{
    /***********************************************************************
    Set Installer variables according to the <os.prd> being used.
    ***********************************************************************/
    prefix = product_prefix;
    {instver_product =       evaluate("%prefix%instver"); } ['UNBOUND_VARIABLE: continue(); ]
    {orainst_product =       evaluate("%prefix%install"); } ['UNBOUND_VARIABLE: continue(); ]

    dir_separator = "\";

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


    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%%.");

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

    if((not(doit)) && (member(selected_products, current_product)))
        ui_action(instantiate(halt_installation));

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

        /********************************
        Set product name variables
        ********************************/
        TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS";
        DOC60 = "%TOOLS_HOME%%dir_separator%DOC60";
        DOC60_NLS = "%DOC60%%dir_separator%%NLS_ABBREVIATION%";
        SSF_PRODUCT = w32ssf60;
        dependency_list = list(SSF_PRODUCT,w32gui60);
        install_dependency_list = list();
        /*****************************/

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

        /******************
        Verify Dependencies
        *******************/
        size_current_dependency = 0;
        verify_dependency_list = dependency_list;
        while(not(empty(verify_dependency_list)))
        {
            current_dependency = first(verify_dependency_list);
            verify_dependency_list = rest(verify_dependency_list);

            size_current_dependency = verify(current_dependency);
            if(size_current_dependency != 0)
            {
                add(install_dependency_list, current_dependency);
                total_sum = total_sum + size_current_dependency;
            }
        }
        /******************/

        total_sum = total_sum + sum(deinst, ocx, dll, lic, hlp);

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