/* Copyright (c) Oracle Corporation 1994. All Rights Reserved */ /***************************************************************************** NAME Frunw60.vrf - V3 analysis/product configuration script for the Windows NT Webforms Runtime 6.0 package DESCRIPTION This script checks dependencies and environment settings for the installation of the Windows NT Webforms Runtime 6.0 package MODIFIED MM-DD-YY Reason pgupta 11/11/97 created ******************************************************************************/ { /* Following code has to be checked for Windows 2000 */ NT40_only = nls("For_NT40_Only", "You have selected Oracle Webforms which is installable under Windows NT 4.0 only. Press O.K. to continue install other selected products, or press Cancel to terminate the installation."); { NT_version = win32_get_value("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows NT\CurrentVersion", "CurrentVersion");} ['INVALID_KEY, 'FILE_NOT_FOUND, 'OS_ERROR: continue();] /********************************************************************** Only allow user to install this product if they are running NT 4.0 ****************************************************************/ if ((NT_version != "4.0") && (NT_version != "5.0")) { information_dialog(NT40_only, 'NOHELP); if (silent_mode) signal('INFORMATION, instantiate(NT40_only)); doit = FALSE; } /**********************************************************************/ Licensed_Msg = nls("Show_Licensed_Msg", "All programs included in the Oracle Forms Server are licensed for development purposes only. Additional licenses must be ordered for deployment of any web application(s) using the Oracle Forms Server."); if ((NT_version == "4.0") || (NT_version == "5.0")) { /* Show Licensed Info information_dialog(Licensed_Msg, 'NOHELP); */ /********************** if (silent_mode) signal('INFORMATION, instantiate(Licensed_Msg)); ***********************/ doit=TRUE; } SHARED_ORACLE_COMPLIANT = TRUE; if ((NT_version == "4.0") || (NT_version == "5.0")) {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 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.0.0.0"; /*************** 04/21/95 *********************** 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; all_prod_temp = list(); all_prod_temp = all_products(); {if (member(all_prod_temp,w32jdkav)) { COMPONENT_PRODUCT = w32jdkav; }} /*[ 'UNBOUND_VARIABLE: { COMPONENT_PRODUCT = w32jdkave; } ]*/ /*************************/ /*********************** Create Dependencies List ************************/ dependency_list = list(w32fjava60,w32faplet60,w32owm); verify_dependency_list = list(w32fjava60,w32faplet60,w32owm); install_dependency_list = list(w32fjava60,w32faplet60,w32owm); /***********************/ /************************** Determine installation path ***************************/ install_variable = "FORMS60"; default_home = "%oracle_home%%dir_separator%FORMS60"; FORMS60 = execute("%installer_home%%dir_separator%instloc.usr"); FORMS60_MAPPING = "/dev60temp"; f_ini_var = "FORMS60_PATH"; ini_path_list_d1a = list(FORMS60); FORMS60_JAVADIR = "%FORMS60%%dir_separator%java"; /**************************/ /********************************************************************** Set FORMS60_OUTPUT variable in oracle.ini, if not already set ***********************************************************************/ section_heading = product_filename(product_parent(current_product)); modify_forms60_output = TRUE; FORMS60_OUTPUT = "%oracle_home%%dir_separator%tools%dir_separator%web60%dir_separator%temp"; { FORMS60_OUTPUT = translate("FORMS60_OUTPUT", ora_config, section_heading); modify_forms60_output = FALSE; } ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();] /********************************************************************/ /********************************************************************** Set FORMS60_MAPPING variable in oracle.ini, if not already set ***********************************************************************/ section_heading = product_filename(product_parent(current_product)); modify_forms60_mapping = TRUE; FORMS60_MAPPING = "/dev60temp/"; { FORMS60_MAPPING = translate("FORMS60_MAPPING", ora_config, section_heading); modify_forms60_mapping = FALSE; } ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();] /********************************************************************/ /********************************************************************** Set FORMS60_WALLET variable in oracle.ini, if not already set ***********************************************************************/ section_heading = product_filename(product_parent(current_product)); modify_forms60_wallet = TRUE; FORMS60_WALLET = "%FORMS60%%dir_separator%WALLET"; { FORMS60_WALLET = translate("FORMS60_WALLET", ora_config, section_heading); modify_forms60_wallet = FALSE; } ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();] /********************************************************************/ /********************************************************************** Set FORMS60_REPFORMAT variable in oracle.ini, if not already set ***********************************************************************/ section_heading = product_filename(product_parent(current_product)); modify_forms60_repformat = TRUE; FORMS60_REPFORMAT= "HTML"; { FORMS60_REPFORMAT = translate("FORMS60_REPFORMAT", ora_config, section_heading); modify_forms60_repformat = FALSE; } ['INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'UNBOUND_ENVIRONMENT_VARIABLE: continue();] /********************************************************************/ if(configureProcesses) { #IDs IDTIT = 1; IDCLB = 3; IDHLB = 4; IDCEN = 5; IDRB1 = 6; IDRB2 = 7; IDHVL = 8; f_server_config_content = nls("f_server_config_content","Forms Server Parameters"); f_server_config_prompt = nls("f_server_config_prompt","Enter parameter values for the Forms Server."); f_server_port_string = nls("f_server_port_string","Forms Server Port:"); f__server_protocol_s = nls("f__server_protocol_s","Protocol:"); /* f__server_port = nls("f__server_port","9000");*/ f_server_config_help = nls("f_server_config_help", "Forms Server Parameters You may accept or modify the startup parameter values for the Forms Server. Forms Server Port: Enter the TCP/IP port number on which the Forms Server will listen for form execution requests. The displayed value need only be changed if it is already being used by another program. Protocol: This is the method used to communicate between the Forms runtime engine and the Forms Java applet (which runs in the user's Web browser). The value should only be changed (to HTTP) if the communication needs to pass through a firewall. For example, select HTTP if this machine is inside a firewall but your Forms applications need to be available to users outside the firewall."); f_server_protocol_1 = nls("f_server_protocol_1","Sockets"); f_server_protocol_2 = nls("f_server_protocol_2","HTTP"); ITEMTIT1 = list(IDTIT, list('UI_LABEL, list(5, 5, 340, 40), f_server_config_prompt, 'MULTILINE)); ITEMCLB = list(IDCLB, list('UI_LABEL, list(20, 60, 150, 40), f_server_port_string)); ITEMHLB = list(IDHLB, list('UI_LABEL, list(20, 100, 150, 40), f__server_protocol_s)); ITEMCEN = list(IDCEN, list('UI_ENTRY, list(160, 60, 40, 20), f__server_port)); ITEMRB1 = list(IDRB1, list('UI_RADIOBUTTON, list(160,100,65,20),f_server_protocol_1,TRUE)); ITEMRB2 = list(IDRB2, list('UI_RADIOBUTTON, list(160,120,65,20),f_server_protocol_2)); spec = list(ITEMTIT1, ITEMCLB, ITEMHLB, ITEMCEN,ITEMRB1,ITEMRB2); values_proper = FALSE; while(not(values_proper)) { forms_server_choices = custom_dialog(spec, list(), f_server_config_content, f_server_config_help); if(get_UI_value(forms_server_choices,IDRB1, 'UI_RADIOBUTTON)) { set("f__server_protocol","Socket",'GLOBAL); } else set("f__server_protocol",f_server_protocol_2,'GLOBAL); set("f__server_port", get_UI_value(forms_server_choices,IDCEN, 'UI_ENTRY),'GLOBAL); { numerify(f__server_port); values_proper = TRUE; } ['LEXICAL_ERROR: {values_proper = FALSE; continue();} ] if(not(values_proper)) { not_correct_values = nls("not_correct_values","Forms Server Port must be numeric."); information_dialog(not_correct_values); } } } /*************************************************************************** Initialize total size of files ****************************************************************************/ total_sum = 0; /********************************* 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)); /******************************************** Verify COMPONENT_PRODUCT -- JDK Applet Viewer ********************************************/ EXECUTE_SCRIPT = "CHECK_COMPONENT_PRODUCT"; execute("%installer_home%%dir_separator%d2kr2vrf.usr"); if(install_component) total_sum = total_sum + verify(COMPONENT_PRODUCT); /*********************************************/ {winnt_stop_service("Forms60Server%oracle_home_group1%");} ['SERVICE_NOT_ACTIVE, 'NO_RESPONSE, 'FILE_NOT_FOUND, 'SERVICE_DOES_NOT_EXIST, 'INVALID_SERVICE_NAME, 'PERMISSION_DENIED, 'OS_ERROR: continue();] if(configureProcesses) { temp_var=current_directory(); change_directory("%ORACLE_HOME%\bin"); {spawnerror = spawn("ifsrv60 -uninstall Forms60Server%oracle_home_group1% batch=yes");} [ 'INVALID_FILE_NAME, 'OS_ERROR: continue(); ] change_directory("%temp_var%"); } /*************************************************/ if(child_in_control) { if(not(member(products_for_installation, w32formsl60))) { total_sum = total_sum + verify(w32formsl60); add(products_for_installation, w32formsl60); } } /****************** Verify Dependencies *******************/ EXECUTE_SCRIPT = "VERIFY_DEPENDENCIES"; total_sum = total_sum + execute("%installer_home%%dir_separator%d2kr2vrf.usr"); /******************/ total_sum = total_sum + sum(deinst,dll,exe,res,script); return(total_sum); /***************************************************************************/ } else { refresh_map_file = FALSE; return(0); } }