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

/*****************************************************************************
  NAME
    fcgi60.vrf - V3 analysis/product configuration script for the
              Forms Web CGI and Cartridge

  DESCRIPTION

  OWNER
    Thomas C. Jose

  MODIFIED    MM-DD-YY   Reason
   tjose      06-10-99   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.13.0";

         main_product_version = "6.0.8.8.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("%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   = w32forms60;
    /*************************/

    /***********************
    Create Dependencies List
    ************************/
   /* if(member(selected_products,w32www21))
    {
       dependency_list = list(w32www21,w32fjava60,w32faplet60);
       verify_dependency_list = list(w32www21,w32fjava60,w32faplet60); 
       install_dependency_list = list(w32www21,w32fjava60,w32faplet60);

        if(not(registered("d2la")))
        {
             information_dialog(instantiate(d2la_product_required),
                                instantiate(d2la_product_contents),
                                instantiate(d2la_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }



    }*/
   /* else
    {*/
    dependency_list = list(w32fjava60,w32faplet60);
    verify_dependency_list = list(w32fjava60,w32faplet60); 
    install_dependency_list = list(w32fjava60,w32faplet60);

    if(not(registered("d2la")))
        {
             information_dialog(instantiate(d2la_product_required),
                                instantiate(d2la_product_contents),
                                instantiate(d2la_product_help));
             signal('FAILURE, instantiate(halt_installation));  
        }

    /*}*/

    /**************************
    determine installation path
    ***************************/
    install_variable = "FORMS60";
    default_home   = "%oracle_home%%dir_separator%FORMS60";
    FORMS60 = execute("%installer_home%%dir_separator%instloc.usr"); /* resets generic variable for this specific product */
    /**************************/
    /************************************************************
    Initialize total size of files
    *************************************************************/
    total_sum = 0;

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

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

    /*********************************
    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,dll);
    return(total_sum);
    /***************************************************************************/
  }
  else
  {
    refresh_map_file = FALSE;
    return(0);
  }
}