/* Copyright (c) Oracle Corporation 1996. All Rights Reserved */ /***************************************************************************** NAME tutil60.vrf - V3 version analysis/product configuration script for the TOOLS Utilities DESCRIPTION This script checks dependencies and environment settings for the installation of the TOOLS Utilities. MODIFIED MM/DD/YY Reason ******************************************************************************/ { /*********************************************************************** Set Installer variables according to the being used. ***********************************************************************/ dir_separator = "\"; prefix = operating_system; { {instver_product = evaluate("%prefix%instver"); } ['UNBOUND_VARIABLE: continue(); ] {orainst_product = evaluate("%prefix%install"); } ['UNBOUND_VARIABLE: continue(); ] } TOOLS_HOME = "%ORACLE_HOME%%dir_separator%TOOLS"; DOC60 = "%TOOLS_HOME%%dir_separator%DOC60"; /************************************/ /************************************************************* Check if Tools Utilities is already installed and up to date. Check that the correct version of the Installer is being used. *************************************************************/ reinstall_group = nls("reinstall_group","Version %%installed_version%% of %%product_label%% has already been installed and is up to date. Do you want to reinstall it?"); reinstall_group_help = nls("reinstall_group_help","You selected to install %%product_label%%, which is up to date. Unless a problem has occurred with %%product_label%%, there is no need to reinstall. Choose 'No' to skip the reinstallation, or choose 'Yes' if you want to reinstall %%product_label%%."); { 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. */ if((not(doit)) && (member(selected_products, current_product))) ui_action(instantiate(halt_installation)); /***********************************************************************/ /***************************** Set up the nls message strings ******************************/ display_product_label = "%%product_label%% %%display_version%%"; install_dei = nls("install_dei", "Installing %%product_label%% Installation Scripts..."); install_exe = nls("install_exe", "Installing %%product_label%% Executables..."); install_msb = nls("install_msb", "Installing %%product_label%% Message Files..."); install_dll = nls("install_dll", "Installing %%product_label%% Dynamic Link Libraries..."); install_res = nls("install_res", "Installing %%product_label%% Resource Files..."); install_dependencies = nls("install_dependencies", "Installing %%product_label%% Dependencies..."); install_register = nls("install_register", "Registering %%product_label%%..."); halt_installation = nls("halt_installation", "Cancelled installation at user's request..."); reference_dependencies = nls("reference_dependencies","Referencing %%product_label%% Dependencies..."); modify_variables = nls("modify_variables", "Modifying %%product_label%% Environment Variables..."); install_pvcs = nls("install_pvcs","Installing %%product_label%% PVCS Files"); install_otm = nls("install_otm","Installing %%product_label%% OTM Files"); install_pref = nls("install_pref", "Installing %%product_label%% Preferences..."); /*****************************/ /************************* Set Product Name variables **************************/ verify_dependency_list = list(); install_dependency_list = list(); /*************************/ /******************************* Set the VRF-INS script "ratchet" ********************************/ vrf_ratchet = "6.0.5.37.0"; main_product_version = "6.0.5.34.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)); } /*************************** Installer 3.1 **********************/ repl_groups = "usrpref, grppref"; repl_variables = "CA_UPREFS, CA_GPREFS"; /******************************************* Create a label with the product, 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; /**********************************************************************/ total_sum = 0; /********************************* 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)); /*********************************/ /************************************************************************************************ Bind path variables... *************************************************************************************************/ set_vgs60 = TRUE; set_de60 = TRUE; { default_loc = make_directory("%ORACLE_HOME%%dir_separator%TOOLS"); } [ 'OS_ERROR,'INVALID_FILE_NAME, 'PERMISSION_DENIED,'WRITE_ERROR,'FILE_NOT_FOUND: Continue(); ] { VGS60 = translate("VGS60", ora_config, product_filename(current_product)); set_vgs30 = FALSE; } [ 'OS_ERROR,'INVALID_FILE_NAME, 'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: VGS60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60"; ] /**************************************************************************** QT_PLAYER variable is set to "OMO" for Quick Tour using OMO (i.e., 8-bit) Set it to "DIRECTOR" for Quick Tour using Macromind Director (i.e., Japanese) *****************************************************************************/ { QT_PLAYER = translate("QT_PLAYER", ora_config, product_filename(current_product)); set_qt_player = FALSE; } [ 'OS_ERROR,'INVALID_FILE_NAME, 'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: QT_PLAYER = "OMO"; /* <------------- change this value to "DIRECTOR" for Quick Tour using Macromind Director (i.e., Japanese) */ ] /****************************************************************************/ /************************************************************************************************ Bind variables for Open/2000 Interfaces *************************************************************************************************/ set_dev2000_sourcecontrol = FALSE; set_dev2000_project = FALSE; set_dev2000_scviewer = FALSE; set_dev2000_scconvert = FALSE; { DEV2000_SOURCECONTROL = translate( "DEV2000_SOURCECONTROL", ora_config, product_filename( current_product ) ); } [ 'OS_ERROR,'INVALID_FILE_NAME,'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE,'FILE_NOT_FOUND: { DEV2000_SOURCECONTROL = "NONE"; set_dev2000_sourcecontrol = TRUE; } ] { DEV2000_PROJECT = translate("DEV2000_PROJECT", ora_config, product_filename(current_product)); } [ '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)); } [ 'OS_ERROR,'INVALID_FILE_NAME,'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE,'FILE_NOT_FOUND: { DEV2000_SCVIEWER = "NOTEPAD.EXE"; set_dev2000_scviewer = TRUE; } ] { DEV2000_SCCONVERT = translate("DEV2000_SCCONVERT", ora_config, product_filename(current_product)); } [ 'OS_ERROR,'INVALID_FILE_NAME,'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE,'FILE_NOT_FOUND: { DEV2000_SCCONVERT = "FALSE"; set_dev2000_scconvert = TRUE; } ] /************************************************************************************************/ /************************************************************************** Set 'rename_prefs' flag if Tools Utilities (R1.3 or R2.0) already installed ***************************************************************************/ rename_prefs = FALSE; if ( registered(product_name(current_product)) || registered("w95tutil21") ) rename_prefs = TRUE; /**************************************************************************/ /******************************************************************** Calculate total size of installation....... *********************************************************************/ /****************** Verify Dependencies *******************/ size_current_dependency = 0; while(not(empty(verify_dependency_list))) { current_dependency = first(verify_dependency_list); verify_dependency_list = rest(verify_dependency_list); size_current_dependency = verify(current_dependency); if(size_current_dependency != 0) { add(install_dependency_list, current_dependency); total_sum = total_sum + size_current_dependency; } } /******************/ total_sum = total_sum + sum(deinstl,vgs,de,usrpref,grppref,dll); return(total_sum); /********************************************************************/ } else { refresh_map_file = FALSE; return(0); } }