/* Copyright (c) Oracle Corporation 1992. All Rights Reserved */ /***************************************************************************** NAME rdbms80.vrf - Windows NT V3 installation verification script for the ORACLE8 RDBMS Installable patch DESCRIPTION This script installs patch files for the ORACLE8 RDBMS product OWNER Alyn Kelley MODIFIED DD-MMM-YY Reason akelley 02/24/95 - Created as template script. akelley 01/16/95 - Updated for Shared Oracle compliance. *****************************************************************************/ { SHARED_ORACLE_COMPLIANT = TRUE; /*********************************************************************** Set the VRF-INS script "ratchet" ***********************************************************************/ vrf_ratchet = "8.0.6.3.2"; /*************************************************************************** Execute the nt.vrf script for standard version analysis and because it is required for Shared Oracle. ***************************************************************************/ { doit = execute("%installer_home%\nt.vrf"); } [ 'UNBOUND_VARIABLE: { required_version = product_version(ntinstver); 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."))); } ] if (doit) { /*********************************************************************** Set default installable patch information patch_version = version of installable patch version_to_be_patched = version of product this patch must be applied to ***********************************************************************/ patch_version = product_version(current_product); version_to_be_patched = "8.0.6.0.0"; /********************************************************************** Check that the correct previous version of the product was installed before installing this patch ***********************************************************************/ old_version_to_be_patched_prompt = nls("old_version_to_be_patched_prompt", "%%product_label%% %%version_to_be_patched%% must be installed for this patch installation to continue. Please install %%product_label%% %%version_to_be_patched%% before installing this patch."); old_version_to_be_patched_content = nls("old_version_to_be_patched_content", "Old Product Version"); old_version_to_be_patched_help = nls("old_version_to_be_patched_help", "In order for this product to function properly, the files in this patch may only be installed over %%product_label%% version %%version_to_be_patched%%. You must install %%product_label%% %%version_to_be_patched%% before continuing with this installation."); old_patch_prompt = nls("old_patch_prompt", "You are attempting to install this patch over a later version of %%product_label%%. This is not supported. If you require a patch for this later product version, please contact Oracle. "); old_patch_content = nls("old_patch_content", "Old Patch Version"); old_patch_help = nls("old_patch_help", "If you wish to install a patch over this later version of %%product_label%%, you must contact Oracle for a later version of this patch. Downgrades of patches are not supported."); no_version_to_be_patched_prompt = nls("no_version_to_be_patched_prompt", "%%product_label%% %%version_to_be_patched%% must be installed for this patch installation to continue. Please install %%product_label%% %%version_to_be_patched%% before installing this patch."); no_version_to_be_patched_content = nls("no_version_to_be_patched_content", "Missing Product"); no_version_to_be_patched_help = nls("no_version_to_be_patched_help", "In order for this product to function properly, the files in this patch may only be installed over %%product_label%% version %%version_to_be_patched%%. You must install %%product_label%% %%version_to_be_patched%% before continuing with this installation."); same_version_to_be_patched_prompt = nls("same_version_to_be_patched_prompt","The patch %%product_label%% %%patch_version%% is already installed. Are you sure you want to reinstall?"); same_version_to_be_patched_content = nls("same_version_to_be_patched_content","Patch Already Installed"); same_version_to_be_patched_help = nls("same_version_to_be_patched_help","The patch %%product_label%% %%patch_version%% is already installed. Choose 'Yes' to continue or 'No' to cancel this installation."); if (registered("ntrdbms80")) { installer_registry=registration("ntrdbms80"); if(earlier_version(installer_registry,version_to_be_patched)) { information_dialog(instantiate(old_version_to_be_patched_prompt), instantiate(old_version_to_be_patched_content), instantiate(old_version_to_be_patched_help)); refresh_map_file = FALSE; doit = FALSE; return(0); } if(later_version(installer_registry,patch_version)) { information_dialog(instantiate(old_patch_prompt), instantiate(old_patch_content), instantiate(old_patch_help)); refresh_map_file = FALSE; doit = FALSE; return(0); } else { if(same_version(installer_registry,patch_version)) { if(not(yesno_dialog(instantiate(same_version_to_be_patched_prompt),FALSE, instantiate(same_version_to_be_patched_content), instantiate(same_version_to_be_patched_help)))) { refresh_map_file = FALSE; doit = FALSE; return(0); } } } } else { information_dialog(instantiate(no_version_to_be_patched_prompt), instantiate(no_version_to_be_patched_content), instantiate(no_version_to_be_patched_help)); refresh_map_file = FALSE; doit = FALSE; return(0); } /*********************************************************************** Bind path variables... ************************************************************************/ { set_rdbms80 = FALSE; rdbms80 = v7_translate("RDBMS80"); if (not(exists(rdbms80))) signal('UNBOUND_ENVIRONMENT_VARIABLE); } [ 'OS_ERROR,'INVALID_FILE_NAME, 'PERMISSION_DENIED,'UNBOUND_ENVIRONMENT_VARIABLE: { rdbms80 = "%oracle_home%\RDBMS80"; set_rdbms80 = TRUE; } ] } /*********************************************************************** Bind string variables & prompt strings... ***********************************************************************/ if (doit) { installing_scripts = nls("installing_scripts", "Installing %%product_label%% Scripts..."); installing_executables = nls("installing_executables", "Installing %%product_label%% Executables..."); installing_patch = nls("installing_patch", "Logging Patch Installation..."); modifying_config = nls("modifying_config", "Modifying NT Registry..."); registering = nls("registering","Registering %%product_label%%..."); /***************************************************************************** Start processing ... *****************************************************************************/ ui_product(product_label); /*********************************************************************** Return total size of files ... ***********************************************************************/ return(sum(exec, oraspwn, patch)); } else { refresh_map_file = FALSE; return(0); } }