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

/*****************************************************************************
  NAME
    report60.vrf - V3 analysis/product configuration script for the
                   Oracle Reports 6.0 package

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

  MODIFIED    MM/DD/YY   Reason
   mjain      11/12/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.8.10.0";

         main_product_version = "6.0.8.8.3";
         /***************************
         Check Installed Version
         ***************************/
         if(registered(product_name(current_product)))
         {
              check_installed_version = registry_version(registration(product_name(current_product)));
              if(earlier_version(check_installed_version, main_product_version))
              {
                   information_dialog(instantiate(product_upgrade_required),
                                      instantiate(product_upgrade_contents),
                                      instantiate(product_upgrade_help));
                   refresh_map_file = FALSE;
                   doit = FALSE;
                   return(0);
              }
          }
          else
          {
                information_dialog(instantiate(main_product_required),
                                   instantiate(main_product_contents),
                                   instantiate(main_product_help));
                 refresh_map_file = FALSE;
                 doit = FALSE;
                 signal('FAILURE, instantiate(halt_installation));
          }
        /************************************************
        Create a label with the product name, and version
        *************************************************/
        EXECUTE_SCRIPT = "CREATE_LABEL";
        execute("%product_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
        **************************/
        COMPONENT_PRODUCTS_list = list(w32tutil60, w32rsf80); /* added w32rsf80 for p-6 */
        COMPONENT_products_to_install = list();
        /*required_products_list = list(w32tutil60,w32rsf80);
        required_products_to_install = list();*//*commented prior to P1*/

/*        if(not(registered("w32rsf80")))
        {
             information_dialog(instantiate(rsf_product_required),
                                instantiate(rsf_product_contents),
                                instantiate(rsf_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }commented for p-6 */

        /*if(not(registered("w32net80")))
        {
             information_dialog(instantiate(net_product_required),
                                instantiate(net_product_contents),
                                instantiate(net_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }*/

        /**************************
        Determine installation path
        ***************************/
        install_variable = "RW60";
        default_home     = "%oracle_home%%dir_separator%REPORT60";
        section_heading  = product_filename(current_product);
        RW60             = execute("%product_home%%dir_separator%instloc.usr");
        /**************************/

        /*************************************************************************
        Set REPORTS60_DB_AUTH variable in oracle.ini
        **************************************************************************/
        section_heading = product_filename(product_parent(current_product));
        modify_reports60_db_auth = TRUE;
        reports60_db_auth_var = "dbauth.htm";
        {
            REPORTS60_DB_AUTH = translate("REPORTS60_DB_AUTH", ora_config, section_heading);
            modify_reports60_db_auth = FALSE;
        }
        ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();]

        /*************************************************************************
        Set REPORTS60_SYS_AUTH variable in oracle.ini
        **************************************************************************/
        section_heading = product_filename(product_parent(current_product));
        modify_reports60_sys_auth = TRUE;
        reports60_sys_auth_var = "sysauth.htm";
        {
            REPORTS60_SYS_AUTH = translate("REPORTS60_SYS_AUTH", ora_config, section_heading);
            modify_reports60_sys_auth = FALSE;
        }
        ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();]

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

        /*********************************************
        Check if Reports Runtime needs to be installed
        (no need to verify the PARENT because Runtime
         will be doing that anyway)
        ********************************************/

        while(not(empty(component_products_list)))
        {
            component_product = first(component_products_list);
            component_products_list = rest(component_products_list);
               if(child_in_control)
               {
                   EXECUTE_SCRIPT = "CHECK_COMPONENT_PRODUCT";
                   execute("%product_home%%dir_separator%d2kr2vrf.usr");

                   if(install_component)
                   {
                       add(component_products_to_install, COMPONENT_PRODUCT);
                       total_sum = total_sum  + verify(COMPONENT_PRODUCT);
                   }
                }
        }

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

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

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

        return(sum(deinst,exe,dll,java,user) + total_sum);

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

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