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

/*****************************************************************************
  NAME
    fjava60.vrf - V3 analysis/product configuration script for the
              Windows Java Class Web Support Files package

  DESCRIPTION
    This script checks dependencies and environment settings for the
    installation of the Windows Forms 6.0 package

  OWNER
    Raymond Chen

  MODIFIED    MM-DD-YY   Reason
******************************************************************************/

{
  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.1";

         main_product_version = "6.0.8.4.0";
         /***************************
         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;
    /**********************************************************************/
          PARENT_PRODUCT  = w32forms60;
          COMPONENT_PRODUCTS_list = list();                /*Component product - Reports Runtime */
          COMPONENT_products_to_install = list();

    /**************************
    determine installation path
    ***************************/
    install_variable = "FORMS60";
    default_home   = "%oracle_home%%dir_separator%FORMS60";
          FORMS60 = execute("%product_home%%dir_separator%instloc.usr");
    /**************************/


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

    /*************************************************/
     if(child_in_control)
     {
        if(not(member(products_for_installation, w32formsl60)))
        {
             total_sum = total_sum + verify(w32formsl60);
             add(products_for_installation, w32formsl60);
        }
     }
    /*********************************
    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,ewt);
    return(total_sum);
    /***************************************************************************/
  }
  else
  {
    refresh_map_file = FALSE;
    return(0);
  }
}