/* 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)); /***********************************************************************/ 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 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 **************************/ RSF_PRODUCT = w32rsf80; GUI_PRODUCT = w32gui60; LANG_PRODUCT = w32tul60; verify_dependency_list = list(GUI_PRODUCT,w32ca60,w32de60,w32d2sc60,w32nn60,w32zrc60,w32sqlmgr60,w32vgs60,LANG_PRODUCT); install_dependency_list = list(); /*************************/ /******************************* Set the VRF-INS script "ratchet" ********************************/ vrf_ratchet = "6.0.0.0.0"; /*************************** Installer 3.1 **********************/ repl_groups = "usrpref, grppref"; repl_variables = "CA_UPREFS, CA_GPREFS"; /******************************************* Create a label with the product, and version ********************************************/ current_version = product_version(current_product); version_list = explode(current_version,"."); msb_version_list= list(first(version_list), first(rest(version_list))); display_version = implode(msb_version_list,"."); /*******************************************/ /************************************************************************************************ Bind path variables... *************************************************************************************************/ set_vgs60 = TRUE; set_de60 = TRUE; set_ca_uprefs = TRUE; set_ca_gprefs = TRUE; set_qt_player = 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"; ] { DE60 = translate("DE60", ora_config, product_filename(current_product)); set_de20 = FALSE; } [ 'OS_ERROR,'INVALID_FILE_NAME, 'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: DE60 = "%ORACLE_HOME%%dir_separator%TOOLS%dir_separator%COMMON60"; ] { CA_UPREFS = translate("CA_UPREFS", ora_config, product_filename(current_product)); set_ca_uprefs = FALSE; } [ 'OS_ERROR,'INVALID_FILE_NAME, 'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: CA_UPREFS = "%ORACLE_HOME%"; ] { CA_GPREFS = translate("CA_GPREFS", ora_config, product_filename(current_product)); set_ca_gprefs = FALSE; } [ 'OS_ERROR,'INVALID_FILE_NAME, 'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE, 'FILE_NOT_FOUND: CA_GPREFS = "%ORACLE_HOME%"; ] /**************************************************************************** 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....... *********************************************************************/ total_sum = 0; /****************** 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(deinst); return(total_sum); /********************************************************************/ } else { refresh_map_file = FALSE; return(0); } }