/* Copyright (c) Oracle Corporation 1996. All Rights Reserved */ /***************************************************************************** NAME fdes60.vrf - V3 analysis/product configuration script for Oracle Forms 6.0 Designer DESCRIPTION This script checks dependencies and environment settings for the installation of Oracle Forms 6.0 Designer. 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.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("%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 **************************/ PARENT_PRODUCT = w32forms60; COMPONENT_PRODUCTS_list = list(w32frun60); /*Component product - Reports Runtime */ COMPONENT_products_to_install = list(); all_prod_temp = list(); all_prod_temp = all_products(); /* {if (member(all_prod_temp,w32jdkavd)) { required_products_list = list(w32ge60,w32d2kqt60,w32d2kdoc60,w32brqry60,w32qb60,w32jdkavd); required_products_to_install = list(); }} [ 'UNBOUND_VARIABLE: { required_products_list = list(w32ge60,w32d2kqt60,w32d2kdoc60,w32brqry60,w32qb60,w32jdkave); required_products_to_install = list(); } ] */ {if (member(all_prod_temp,w32jdkav)) { required_products_list = list(w32jdkav,w32d2kdoc60); /* removed w32d2kqt60, for patch-3 */ required_products_to_install = list(); }} [ 'UNBOUND_VARIABLE: { required_products_list = list(); required_products_to_install = list(); } ] if(not(registered("w32ge60"))) { information_dialog(instantiate(ge_product_required), instantiate(ge_product_contents), instantiate(ge_product_help)); signal('FAILURE, instantiate(halt_installation)); } if(not(registered("w32d2kqt60"))) /* Uncommented this portion for patch-3 */ { information_dialog(instantiate(d2kqt_product_required), instantiate(d2kqt_product_contents), instantiate(d2kqt_product_help)); signal('FAILURE, instantiate(halt_installation)); } /* Till here */ /*if(not(registered("w32d2kdoc60"))) { information_dialog(instantiate(d2kdoc_product_required), instantiate(d2kdoc_product_contents), instantiate(d2kdoc_product_help)); signal('FAILURE, instantiate(halt_installation)); }*/ if(not(registered("w32brqry60"))) { information_dialog(instantiate(brqry_product_required), instantiate(brqry_product_contents), instantiate(brqry_product_help)); signal('FAILURE, instantiate(halt_installation)); } if(not(registered("w32qb60"))) { information_dialog(instantiate(qb_product_required), instantiate(qb_product_contents), instantiate(qb_product_help)); signal('FAILURE, instantiate(halt_installation)); } /*************************/ /************************** Determine installation path ***************************/ install_variable = "FORMS60"; default_home = "%oracle_home%%dir_separator%FORMS60"; FORMS60 = execute("%product_home%%dir_separator%instloc.usr"); TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS"; DOC60 = "%TOOLS_HOME%%dir_separator%DOC60"; /**************************/ /*************************************************************************** Include the path ORACLE_HOME/jdk/bin to the path variable ***************************************************************************/ /* path_to_add = "%ORACLE_HOME%%dir_separator%jdk%dir_separator%bin"; information_dialog(path_to_add); information_dialog("\HKEY_LOCAL_USER\ENVIRONEMENT\Path"); modify("Path", "%path_to_add%", "\HKEY_CURRENT_USER\ENVIRONEMENT", "ENVIRONEMENT", 'SUBKEY); */ /*************************************************************************** Initialize total size of files ****************************************************************************/ total_sum = 0; /******************************************* Check if Forms 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); } } /*************************************************/ /*************************************************/ if(child_in_control) { if(not(member(products_for_installation, w32formsl60))) { total_sum = total_sum + verify(w32formsl60); add(products_for_installation, w32formsl60); } } /************************************** Return total size of files **************************************/ total_sum = total_sum + sum(deinst, exe, dll, res, ue); return(total_sum); /***************************************************************************/ } else { refresh_map_file = FALSE; return(0); } }