/* Copyright (c) Oracle Corporation 1994. All Rights Reserved */ /************************************************************************* NAME user.avf - user-defined .avf script DESCRIPTION This script allows users access to their own customizable .avf script. OWNER Amanda Harrison MODIFIED MM/DD/YY Reason **************************************************************************/ { windows_sys_dir = windows_system_directory(); windows_dir = windows_directory(); /*********************************************************************** Set Installer variables according to the being used. ***********************************************************************/ prefix = operating_system; {instver_product = evaluate("%prefix%instver"); } ['UNBOUND_VARIABLE: continue(); ] {orainst_product = evaluate("%prefix%install"); } ['UNBOUND_VARIABLE: continue(); ] {instver_prod = evaluate("%prefix%instver"); } ['UNBOUND_VARIABLE: continue(); ] {orainst_prod = evaluate("%prefix%install"); } ['UNBOUND_VARIABLE: continue(); ] RSF_PRODUCT = w32rsf80; PLUS_PRODUCT = w32plus80; /***********************************************************************/ /***************************** Set the directory separator ******************************/ dir_separator = "\"; /******************************* Set a flag for Adobe Acrobat reader message at end of install *********************************/ set("acro_flag", FALSE, 'GLOBAL); /******************************* Set a flag for asking user to install dev/2000 Demos & Add-on *********************************/ set("demos_flag", TRUE, 'GLOBAL); /*********************************************************************/ permit_invisible_registrations = FALSE; /********************************************** Set variables for program groups for .MAP files ***********************************************/ developer_icon = nls("developer_icon","Forms & Reports"); d2k_icon = developer_icon; D2K60_COMPONENTS = nls("D2K60_COMPONENTS","Oracle %d2k_icon% 6i Comps"); D2K60_ADMINISTRATION = nls("D2K60_ADMINISTRATION","Oracle %d2k_icon% 6i Admin"); D2KOR60_ADMINISTRATION = nls("D2KOR60_ADMINISTRATION","Oracle Reports 6i Admin"); D2KIF60_ADMINISTRATION = nls("D2KIF60_ADMINISTRATION","Oracle Forms 6i Admin"); D2K60_DEMOS = nls("D2K60_DEMOS","Oracle %d2k_icon% 6i Demos"); D2K60_DOCS = nls("D2K60_DOCS","Oracle %d2k_icon% 6i Doc"); D2K60_DRIVERS = nls("D2K60_DRIVERS","Oracle %d2k_icon% 6i Direct Drivers"); D2K60_GROUP = nls("D2K60_GROUP","Oracle %d2k_icon% 6i"); D2KOR60_GROUP = nls("D2KOR60_GROUP","Oracle Reports 6i"); D2KIF60_GROUP = nls("D2KIF60_GROUP","Oracle Forms 6i"); OLAP22_CLIENT = nls("OLAP22_CLIENT","Oracle Olap Client 2.2"); D2K60_COMPONENTS_OLD = nls("D2K60_COMPONENTS_OLD","Oracle Developer 60 Comps"); D2K60_ADMINISTRATION_OLD = nls("D2K60_ADMINISTRATION_OLD","Oracle Developer 60 Admin"); D2K60_DEMOS_OLD = nls("D2K60_DEMOS_OLD","Oracle Developer 60 Demos"); D2K60_DOCS_OLD = nls("D2K60_DOCS_OLD","Oracle Developer 60 Doc"); D2K60_DRIVERS_OLD = nls("D2K60_DRIVERS_OLD","Oracle Developer 60 Direct Drivers"); D2K60_GROUP_OLD = nls("D2K60_GROUP_OLD","Oracle Developer 60"); D2K60_COMPONENTS ="%D2K60_COMPONENTS%%oracle_home_group%"; D2K60_ADMINISTRATION = "%D2K60_ADMINISTRATION%%oracle_home_group%"; D2KOR60_ADMINISTRATION = "%D2KOR60_ADMINISTRATION%%oracle_home_group%"; D2KIF60_ADMINISTRATION = "%D2KIF60_ADMINISTRATION%%oracle_home_group%"; D2K60_DEMOS = "%D2K60_DEMOS%%oracle_home_group%"; D2K60_DOCS = "%D2K60_DOCS%%oracle_home_group%"; D2K60_DRIVERS = "%D2K60_DRIVERS%%oracle_home_group%"; D2K60_GROUP = "%D2K60_GROUP%%oracle_home_group%"; D2KOR60_GROUP = "%D2KOR60_GROUP%%oracle_home_group%"; D2KIF60_GROUP = "%D2KIF60_GROUP%%oracle_home_group%"; OLAP22_CLIENT = "%OLAP22_CLIENT%%oracle_home_group%"; OPEN2K60_DOCS = D2K60_DOCS; D2K60_COMPONENTS_NEW =D2K60_COMPONENTS; D2K60_ADMINISTRATION_NEW = D2K60_ADMINISTRATION; D2KOR60_ADMINISTRATION_NEW = D2KOR60_ADMINISTRATION; D2KIF60_ADMINISTRATION_NEW = D2KIF60_ADMINISTRATION; D2K60_DEMOS_NEW = D2K60_DEMOS; D2K60_DOCS_NEW = D2K60_DOCS; D2K60_DRIVERS_NEW = D2K60_DRIVERS; D2K60_GROUP_NEW = D2K60_GROUP; D2KOR60_GROUP_NEW = D2KOR60_GROUP; D2KIF60_GROUP_NEW = D2KIF60_GROUP; D2K60_COMPONENTS_OLD ="%D2K60_COMPONENTS_OLD%%oracle_home_group%"; D2K60_ADMINISTRATION_OLD = "%D2K60_ADMINISTRATION_OLD%%oracle_home_group%"; D2K60_DEMOS_OLD = "%D2K60_DEMOS_OLD%%oracle_home_group%"; D2K60_DOCS_OLD = "%D2K60_DOCS_OLD%%oracle_home_group%"; D2K60_DRIVERS_OLD = "%D2K60_DRIVERS_OLD%%oracle_home_group%"; D2K60_GROUP_OLD = "%D2K60_GROUP_OLD%%oracle_home_group%"; /**********************************************/ /**************************************************************** Set each variable in the Registry so that Restore Icons will work *****************************************************************/ modify("D2K60_COMPONENTS", D2K60_COMPONENTS, ora_config); modify("D2K60_ADMINISTRATION", D2K60_ADMINISTRATION, ora_config); modify("D2KOR60_ADMINISTRATION", D2KOR60_ADMINISTRATION, ora_config); modify("D2KIF60_ADMINISTRATION", D2KIF60_ADMINISTRATION, ora_config); modify("D2K60_DEMOS", D2K60_DEMOS, ora_config); modify("D2K60_DOCS", D2K60_DOCS, ora_config); modify("D2K60_GROUP", D2K60_GROUP, ora_config); modify("D2KOR60_GROUP", D2KOR60_GROUP, ora_config); modify("D2KIF60_GROUP", D2KIF60_GROUP, ora_config); modify("D2K60_DRIVERS", D2K60_DRIVERS, ora_config); modify("OPEN2K60_DOCS", OPEN2K60_DOCS, ora_config); /****************************************************************/ /**************************************************** Set the Registry editor EXE depending on the Platform *****************************************************/ /******************************** Version detection stuff for WinNT *********************************/ osVer = operating_system_version(); osVerStr = "You are running WinNT version 3.50. This version of WinNT probably will not work with some of the Oracle Forms/Reports components. Upgrade to get full functionality."; osVerTitle = "WinNT 3.50 Version Warning"; if (operating_system == "nt") /* see first if we are running NT */ { if (osVer < "3.51") { information_dialog( instantiate( osVerStr ), instantiate( osVerTitle ), 'NO_CANCEL ); } /* end osVerStr compare if */ } /* end of os system if loop */ current_platform = platform(); if (current_platform == "nt") { if (osVer == "3.51") REGEXE="%windows_dir%%dir_separator%REGEDIT.EXE"; } else REGEXE="%windows_dir%%dir_separator%REGEDIT.EXE"; /****************************************************/ /****************************** Set up variables for Billboards *******************************/ DEV2K_BB01 = FALSE; DEV2K_BB02 = FALSE; DEV2K_BB03 = FALSE; DEV2K_BB04 = FALSE; DEV2K_BB05 = FALSE; DEV2K_BB06 = FALSE; DEV2K_BB07 = FALSE; DEV2K_BB08 = FALSE; DEV2K_BB09 = FALSE; DEV2K_BB10 = FALSE; DEV2K_BB11 = FALSE; DEV2K_BB12 = FALSE; DEV2K_BB13 = FALSE; DEVELOPER2000_RELEASE = TRUE; DISCOVERER2000_RELEASE = FALSE; PJ = FALSE; /******************************/ /******************************************************************* Copy Developer generic billboards to %installer_home% location ********************************************************************/ bboard_list = files("%product_home%%dir_separator%d*.bmp"); while(not(empty(bboard_list))) { current_bboard = file_name(first(bboard_list)); { if(not(exists("%installer_home%%dir_separator%%current_bboard%"))) copy_file("%product_home%%dir_separator%%current_bboard%", "%installer_home%%dir_separator%%current_bboard%"); } [ 'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'READ_ERROR: continue(); 'WRITE_ERROR: signal('FAILURE, "Insufficient disk space."); ] bboard_list = rest(bboard_list); } /*************************************/ execute("%installer_home%%dir_separator%%operating_system%.avf"); {installation_mode = installation_mode;} ['UNBOUND_VARIABLE: installation_mode = 'stand_alone;] /************************* Remove any temporary files **************************/ install_loc_file = "%installer_home%%dir_separator%varfile.tmp"; { if(exists(install_loc_file)) remove_file(install_loc_file); } ['INVALID_FILE_NAME: continue();] /*************************/ /*********************************** Copy *.USR files to %INSTALLER_HOME% ************************************/ userfiles_list = files("%product_home%%dir_separator%*.usr"); while(not(empty(userfiles_list))) { current_userfile = file_name(first(userfiles_list)); { copy_file("%product_home%%dir_separator%%current_userfile%", "%installer_home%%dir_separator%%current_userfile%"); } [ 'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'READ_ERROR: continue(); 'WRITE_ERROR: signal('FAILURE, "Insufficient disk space."); ] userfiles_list = rest(userfiles_list); } /***********************************/ /********************* Setup global variables **********************/ release = "D2KSRV"; display_product_label = "%%product_label%% %%display_version%%"; display_main_label = "%%product_main%% %%display_version_main%%"; quick_install = FALSE; { if (mn_menu_type == mn_menu_st1) { if ((dev_menu_type == dev_menu_st1) || (dev_menu_type == dev_menu_st2) || (dev_menu_type == dev_menu_st3)) quick_install = TRUE; } else if (mn_menu_type == mn_menu_st2) { if ((dep_menu_type == dep_menu_st1) || (dep_menu_type == dep_menu_st2)) quick_install = TRUE; } } [ 'UNBOUND_VARIABLE: CONTINUE();] CDE1_PRODUCT_EXISTS = FALSE; CALLED_BY_DBTABLES = FALSE; OLD_SECTION_HEADING_EXISTS = FALSE; implode_explode_delimiter = ";"; /* default delimiter for implode/explode functions */ /*********************/ /**************************************** Setup the nls() stuff for install scripts *****************************************/ /*** Begin - Common Declarations ***/ install_exe = nls("install_exe", "Installing %%product_label%% Executables..."); install_dll = nls("install_dll", "Installing %%product_label%% Dynamic Link Libraries..."); install_files = nls("install_files", "Installing %%product_label%% ..."); install_register = nls("install_register", "Registering %%product_label%%..."); install_loc_conflict = nls("install_loc_conflict","Another product is already installed at this location. Please specify a different location to install %%product_label%%."); deinstall_delold = nls("deinstall_delold", "De-Installing old files..."); 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_product = nls("install_product","Where should %%product_label%% be installed?"); /*** End Common ***/ /*** Begin - Open Client adapter for ODBC Declarations ***/ odbc_demo_question = nls("odbc_demo_question", "Would you like to install the %%product_label%% Examples?"); odbc_demo_content = nls("odbc_demo_content", "%%product_label%% Examples"); odbc_demo_help = nls("odbc_demo_help", "You may choose to automatically install the Examples for %%product_label%%. Choose NO if you don't want to install the Examples, CANCEL to halt the installation process."); /*** End - Open client adapter for ODBC ***/ /*** Begin - Reinstall product over existing version of product Declarations ***/ reinstall_group = nls("reinstall_group","Version %%installed_version%% of %%product_label%% has already been installed and is up to date, although a component could be outdated or not installed. Do you want to reinstall the main product and all its components?"); reinstall_group_content = nls("reinstall_group_content","Up To Date"); reinstall_group_help = nls("reinstall_group_help","You selected the main product, %%product_label%%, which is up to date. However, a component of the main product could be outdated or not installed. Choose 'No' to skip the reinstallation of %%product_label%% and its component(s). Choose 'Yes' if you want to reinstall %%product_label%% and all its components. If you want to install one or more specific components, click 'Cancel' and then select the appropriate component(s) to be reinstalled."); /*** End Reinstall ***/ /*** Following message has to be declared get the message in Japanese. Right now this string is defined in in win32.stp but for some reason, it is not available for our install. */ install_success = nls("install_success","Installation Successful."); /*** Begin Adobe Acrobat Reader Declarations ***/ acro_installation_successful = nls("acro_installation_successful","Installation Successful.%carriage_return%%carriage_return%Some of the products you have installed require the Adobe Acrobat Reader. If you do not already have this installed on your machine, you should select it from the 'Products available' list."); /*** End Adobe Acrobat Reader Declarations ***/ pjs_msg =nls("pjs_msg","Before setting up your projects, please read the chapter 'Managing Oracle Forms & Reports Developer Applications' in the manual 'Oracle Forms & Reports Developer: Guidelines for Building Applications'."); /************ Begin Oracle Book Declarations **********************************/ book_missing = nls("book_missing","You must install Oracle Book Runtime to be able to use online documentation. Do you wish to install Oracle Book Runtime?"); book_missing_help = nls("book_missing_help","If you choose 'Yes', Oracle Book Runtime will automatically be installed, along with the other selected products. Selecting 'No' will not install Oracle Book Runtime, but will continue to install other previously selected products. To cancel the installation, click 'Cancel'. If there are settings in your current PREFS.ORA you would like to preserve, choose 'Preserve current PREFS.ORA'. A file called PREFS.NEW will be copied to the %%OB21%% directory. In order for links between documents in the Oracle Book document set to function, you must copy certain info from PREFS.NEW into PREFS.ORA. See the Installation Guide for details. If your current PREFS.ORA file has no settings you would like to keep, choose 'Overwrite current PREFS.ORA'. This will overwrite your old PREFS.ORA and all old settings will be lost."); replace_overwrite = nls("replace_overwrite","Overwrite existing PREFS.ORA"); replace_preserve = nls("replace_preserve","Preserve existing PREFS.ORA"); replace_list = list(replace_overwrite, replace_preserve); replace_prompt = nls("replace_prompt","A copy of PREFS.ORA, the configuration file which sets up bookshelves and other user preferences, has been found in %%Old_Prefs_Location%%. Should the installer overwrite the existing PREFS.ORA?"); replace_content = nls("replace_content","PREFS.ORA Conflict"); replace_help = nls("replace_help","The PREFS.ORA file is where your Oracle Book preferences and customizations are kept. For the Oracle Book documentation to work correctly, there are certain settings which must be defined in this file. If there are settings in your current PREFS.ORA you would like to preserve, choose 'Preserve current PREFS.ORA'. A file called PREFS.NEW will be copied to the %%OB21%% directory. In order for links between documents in the Oracle Book document set to function, you must copy certain info from PREFS.NEW into PREFS.ORA. See the Installation Guide for details. If your current PREFS.ORA file has no settings you would like to keep, choose 'Overwrite current PREFS.ORA'. This will overwrite your old PREFS.ORA and all old settings will be lost."); /************ End Oracle Book Declarations **********************************/ /*** Begin - Language Supplement Declarations ***/ lang_products_missing = nls("lang_products_missing","Language Supplement files are installed to your machine based on the Oracle products you have installed. You cannot install the %%product_label%% without having first installed one of the main products."); lang_products_content = nls("lang_products_content","Main Products Missing"); lang_products_help = nls("lang_products_help","None of the Main Products required for this installation are installed. Please make sure to install the desired Main Product first before continuing with the installation. Choose OK or CANCEL to halt the installation process."); /*** End - Language Supplement Declarations ***/ /**********************Smart Server related variables and dialogs ****************/ if (operating_system == "nt") { configureProcesses = FALSE; need_to_start_f_server = FALSE; need_to_start_r_server = FALSE; Developer_6i_install= TRUE; /*if(registered("w32www21")|| member(selected_products,w32www21))*/ /* install_webdb_listner = TRUE;*/ forms_config_instruction_file = "%ORACLE_HOME%\orainst\forms6iconfig.txt"; reports_config_instruction_file = "%ORACLE_HOME%\orainst\reports6iconfig.txt"; forms_config_instruction_bak_file = "%ORACLE_HOME%\orainst\forms6iconfig.bak"; reports_config_instruction_bak_file = "%ORACLE_HOME%\orainst\reports6iconfig.bak"; if(member(selected_products,d2lc) || member(selected_products,d2ls)|| member(selected_products,w32frunw60)||member(selected_products,w32rmts60)|| member(selected_products,w32forms60)||member(selected_products,w32report60)) { prompt_string=nls("prompt_string", "One or more components that you have selected need to be started up before they can be used. Please indicate whether you want this to be done for you. NOTE: Oracle Enterprise Manager (OEM) users should select 'No' here and use OEM to start the required processes later. Create and start services now? "); prompt_default=TRUE; prompt_content=nls("path_modn_content","Process Startup"); path_modify = yesno_dialog(prompt_string, prompt_default, prompt_content, 'NOHELP, 'NOCANCEL); if(path_modify) { configureProcesses = TRUE; if(member(selected_products,w32rmts60) || member(selected_products,w32report60)) need_to_start_r_server = TRUE; if(member(selected_products,w32frunw60) || member(selected_products,w32forms60)) need_to_start_f_server = TRUE; } } set("data_port","9010",'GLOBAL) ; set("request_port","9020",'GLOBAL); set("f__server_port","9000", 'GLOBAL); set("f__server_protocol","Socket", 'GLOBAL); /* Following added for Multiple Oracle Home support */ if (oracle_home_info == default_home_info) { oracle_home_group1 = ""; } else { oracle_home_group1 = "-%oracle_home_name%"; } if((configureProcesses)||member(selected_products,w32rmts60)) { if_config_file_creation_error = nls("if_config_file_creation_error","File %%forms_config_instruction_file%% couldn't create."); rw_config_file_creation_error = nls("rw_config_file_creation_error","File %%reports_config_instruction_file%% couldn't create."); make_directory("%Oracle_Home%\orainst"); if(exists(forms_config_instruction_file)) { forms_bak_file_creation_error = nls("forms_bak_file_creation_error","File %%forms_config_instruction_file%% couldn't move to file %%forms_config_instruction_bak_file%%."); { move_file(forms_config_instruction_file, forms_config_instruction_bak_file);} [ 'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: {information_dialog(forms_bak_file_creation_error);} ] } { create_file(forms_config_instruction_file);} ['INVALID_FILE_NAME, 'WRITE_ERROR: {information_dialog(if_config_file_creation_error);} ] if(exists(reports_config_instruction_file)) { reports_bak_file_creation_error = nls("reports_bak_file_creation_error","File %%reports_config_instruction_file%% couldn't move to file %%reports_config_instruction_bak_file%%."); { move_file(reports_config_instruction_file, reports_config_instruction_bak_file);} [ 'INVALID_FILE_NAME, 'FILE_NOT_FOUND, 'PERMISSION_DENIED, 'WRITE_ERROR, 'OS_ERROR: {information_dialog(reports_bak_file_creation_error);} ] } { create_file(reports_config_instruction_file);} ['INVALID_FILE_NAME, 'WRITE_ERROR: {information_dialog(rw_config_file_creation_error);} ] current_date = system_date(); current_time = system_time(); forms_config_file_header = nls("forms_config_file_header", "Configuration Steps for Oracle Forms installation of %current_time% %current_date% __________________________________________________________________ "); reports_config_file_header = nls("reports_config_file_header", "Configuration Steps for Oracle Reports installation of %current_time% %current_date% __________________________________________________________________ "); introductory_message = nls("introductory_message", "This file gives details of the configuration steps done for you by the installation process (marked '[INFO]') and of any actions you need to do manually (marked '[ACTION]'). Please read this file and perform the requested actions. [ACTION] If you are installing in a new Oracle Home, please reboot the machine after the installation. "); modify("",forms_config_file_header,forms_config_instruction_file); modify("",introductory_message,forms_config_instruction_file); modify("",reports_config_file_header,reports_config_instruction_file); modify("",introductory_message,reports_config_instruction_file); } if(not(exists(forms_config_instruction_file))) { { create_file(forms_config_instruction_file);} ['INVALID_FILE_NAME, 'WRITE_ERROR: {information_dialog(if_config_file_creation_error);} ] } if(not(exists(reports_config_instruction_file))) { { create_file(reports_config_instruction_file);} ['INVALID_FILE_NAME, 'WRITE_ERROR: {information_dialog(rw_config_file_creation_error);} ] } execute("user1.avf"); } /*********************************************************************************************/ return(0); }