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

/*****************************************************************************
  NAME
    D2SCP60.vrf - analysis/product configuration script for Windows Oracle
                  PVCS Interface

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of Windows PVCS Interface.

  MODIFIED   MM/DD/YY   REASON
   pgupta    10/01/97   Created
*****************************************************************************/

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

        /**************************************************************************
        Set the Product Name variables
        ****************************************************************************/
        dependency_list = list(w32scpl60);
        verify_dependency_list = list(w32scpl60);
        install_dependency_list = list(w32scpl60);
        /*****************************/

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

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


        /***************************************************************************
        Calculate total size of installation........................
        ****************************************************************************/
        total_sum = 0;

        /**********************************
           Bind variables for PVCS Interface
        ***********************************/
        TOOLS_HOME = "%ORACLE_HOME%\TOOLS";
        if (not(exists(TOOLS_HOME)))
            make_directory(TOOLS_HOME);
        OPEN2K60 = "%TOOLS_HOME%\OPEN2K60";
        if (not(exists(OPEN2K60)))
            make_directory(OPEN2K60);
        D2SCP = "%OPEN2K60%\PVCS";
        /**********************************/

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

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

        /**************************************
           Bind variables for Open/2000 Interfaces
        ***************************************/
        set_dev2000_sourcecontrol = TRUE;    /*will always set this value - even if already there*/
        set_dev2000_project          = TRUE;
        set_dev2000_scviewer      = TRUE;
        {
          DEV2000_PROJECT = translate("DEV2000_PROJECT", ora_config, product_filename(current_product));
          set_dev2000_project = not("DEV2000_PROJECT" == "None");
        }
        [
          'OS_ERROR,'INVALID_FILE_NAME,
          'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
          {
             DEV2000_PROJECT = "None";
             set_dev2000_project = TRUE;
          }
        ]

        {
          DEV2000_SCVIEWER = translate("DEV2000_SCVIEWER", ora_config, product_filename(current_product));
          set_dev2000_scviewer = not("DEV2000_SCVIEWER" == "Notepad.exe");  /*if it is set to " ", need to reset it to NOTEPAD.EXE.*/
        }
        [
          'OS_ERROR,'INVALID_FILE_NAME,
          'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND:
          {
             DEV2000_SCVIEWER = "Notepad.exe";
             set_dev2000_scviewer = TRUE;
          }
        ]
        DEV2000_SOURCECONTROL = "PVCS";
        /**************************************/

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