# program: installgen_custom.pm
# features: This perl module contains subroutines which can
# be customized and then run before or after
# the script generation process to change the
# way output files are generated.
#
# Usage: Place a customized version of this file
# into the directory containing the GUI
# application to override using the standard
# version of the file built into the GUI
# application.
#
# Used By: installgen_windows.pl or installgen_solaris.pl
#
# --------------- Revision History ---------------
# Date By Changes
# 01-31-2002 dsimpson Initial Release
# 04-25-2002 dsimpson Added example code for building custom init.ora
file.
use strict;
package installgen_custom;
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
use Exporter qw();
@ISA=qw(Exporter);
@EXPORT_OK = qw(before_script_generation after_script_generation);
%EXPORT_TAGS = (all => [@EXPORT_OK]);
use installgen_conf qw(output_version perl_path_gen
client_name orahome_path oracle_db_sid
oracle_db_hostname oracle_db_ipaddress oracle_db_netmask oracle_db_router_address
number_of_dns_servers list_of_oracle_db_dns_server_addresses output_file_path
oracle_version oracle_platform oracle_blocksize oracle_memsize archivelog_location
backup_location rman_time oem_hostname oem_ipaddress oem_sid additional_oem_db_number
list_of_additional_oem_db
list_of_additional_oem_hosts oemtbs_name oemtbs_size
oemtbs_path oem_username oem_password rmantbs_name rmantbs_size rmantbs_path
rman_username rman_password standby_hostname standby_ipaddress standby_delay
archivelog_mode mount_points_number list_of_mount_points
list_of_device_names tablespace_names_number list_of_tablespace_names
list_of_tablespace_sizes
list_of_tablespace_paths controlfile_number list_of_controlfile_paths
redo_log_number
list_of_redo_log_files udump_directory cdump_directory bdump_directory
jserver_feature
intermedia_feature spatial_feature time_series_feature visual_info_feature
replication_feature
sqlplushelp_feature initora_processes sga_log_buffer_size sga_block_buffer_size
sga_shared_pool_size
sga_java_pool_size unix_account_name unix_account_password unix_group_name
oracle_system_account_password oracle_sys_account_password oracle_dba_accounts_number
list_of_oracle_dba_accounts list_of_oracle_dba_accounts_passwords oracle_backup_type
undo_tablespace_name undo_tablespace_size undo_tablespace_path
oem_hardware_type db_hardware_type scripts_directory intermedia_passwords
list_of_redo_file_sizes oracle_csi_number dns_search_domain laptop_ip_address
user_unix_path oracle_ts_phone olap_feature demo_schemas_feature oracle_3264version
email_server_name list_of_dba_email_address standby_db_sid list_of_redo_file_path_multiplexed
rman_channel_type rman_channel_name rman_channel_format_archive
rman_channel_format_backup time_zone oracle_home_name dbdomain oem_dbdomain);
use installgen_win_901 qw(win_901_prepinstall_1
win_901_prepinstall_2 win_901_prepinstall_3 win_901_db_build2
win_901_build_jserver win_901_build_intermedia win_901_build_spatial
win_901_build_sqlplus_help win_901_initora win_901_rman_backup_job
win_901_rman_restore_db win_tasklist_sheet win_901_backup_timeline
win_901_build_ultrasearch win_901_build_demos win_901_schema_stats win_901_import_stats_day
win_901_import_stats_night win_901_gather_stats_day win_901_gather_stats_night
win_901_patch_db_32bit_9012 win_901_patch_db_32bit_9013
win_901_build_olap win_901ee_db_installer_response
win_901_db_build1 win_901_patch9012_response win_901_patch9013_response
win_901_oem_installer_response win_901std_db_installer_response win_901_primary_init_ora
win_901_standby_init_ora win_901_primary_standbysetup win_901_standby_standbysetup);
use installgen_win_common qw(start_date_time win_postinstall_4
win_rotate_alert_log win_rotateoraclefiles
win_901_tnsnames win_rman_oem_setup win_closed_db_backup_job win_open_db_backup_job
win_export_full_db win_controlfile_backup_to_trace win_rebuild_controlfile1
win_documentation win_remove_oracle win_overview_diagram1 listener_ora
win_901_rman_oem_backup_job win_901_spnc_makefile primary_tnsnames failover_tnsnames
client_taf_tnsnames win_standby_listener_ora win_standby_status_pl win_dataguard_changerole
test_plsql win_standby_startup_service win_file_replicator win_file_replicator_pm
win_archivelog_move win_rman_archivelog_backup win_sqlnet_ora win_901_spnc_makefile_msvcc
filename1
filename2
filename3
filename4
filename5
filename6
filename7
filename8
filename9
filename10
filename11
renamed_filename11
filename12
filename13
renamed_filename13
filename14
filename15
filename16
filename17
filename18
filename19
filename20
filename21
filename22
filename23
filename24
filename25
renamed_filename25
filename26
filename27
filename28
filename29
renamed_filename29
batchfile_filename29
logfile_filename29
filename30
renamed_filename30
filename31
renamed_filename31
get_sql_filename31
shell_script_filename31
batchfile_filename31
logfile_filename31
filename32
get_sql_filename32
shell_script_filename32
filename33
renamed_filename33
get_sql_filename33
sql_filename33
batchfile_filename33
logfile_filename33
filename34
get_sql_filename34
shell_script_filename34
sql_filename34
filename35
renamed_filename35
logfile_filename35
filename36
renamed_filename36
filename37
filename38
filename39
filename40
renamed_filename40
filename41
filename42
filename43
renamed_filename43
filename44
filename45
filename46
filename47
filename48
filename49
renamed_filename49
filename50
filename51
filename52
filename53
filename54
filename55
filename56
renamed_filename56
get_sql_filename56
gather_stats_sql_filename56
batchfile_filename56
logfile_filename56
filename57
renamed_filename57
filename58
renamed_filename58
filename59
renamed_filename59
filename60
renamed_filename60
filename61
get_sql_filename61
filename62
renamed_filename62
batchfile_filename62
logfile_filename62
filename63
renamed_filename63
filename64
filename65
renamed_filename65
filename66
filename67
filename68
filename69
filename70
renamed_filename70
filename71
renamed_filename71
filename72
renamed_filename72
filename73
renamed_filename73
filename74
renamed_filename74
filename75
renamed_filename75
filename76
renamed_filename76
filename77
filename78
filename79
renamed_filename79
filename80
renamed_filename80
filename81
renamed_filename81
filename82
renamed_filename82
filename83
renamed_filename83
filename84
renamed_filename84
filename85
renamed_filename85
filename86
renamed_filename86
filename87
renamed_filename87);
# define variables to use here
my $output_file_path = output_file_path();
# version# to be added to generated output files
# This way multiple installation scenarios can be tested by the dba
my $version = output_version();
# get shortened version of os name
my $short_os_name = lc(substr(oracle_platform(),0,2));
if ($short_os_name eq "nt")
{
# use win for shortened os name for NT/Windows 2000
$short_os_name = "win";
}
my $medium_os_name = '';
my $oracle_platform = oracle_platform();
if ($oracle_platform eq "Solaris 7")
{
$medium_os_name = "sol7";
}
elsif ($oracle_platform eq "Solaris 8")
{
$medium_os_name = "sol8";
}
elsif ($oracle_platform eq "Solaris 9")
{
$medium_os_name = "sol9";
}
# This sub gets the current date/time for use inside generated files.
my $start_date_time = start_date_time();
# This sub gets the current year
my $current_year = current_year();
# This sub gets the current month
my $current_month = current_month();
# This sub gets the current day
my $current_day = current_day();
# get shortened version of oracle version - without
periods
# get medium version of oracle version - without periods but with EE
or STD designation
my $medium_oracle_version = oracle_version();
$medium_oracle_version =~ tr/.//d;
my $short_oracle_version = substr($medium_oracle_version,0,3);
# get the path to perl
my $perl_path_gen = perl_path_gen();
# name of the client
my $client_name = client_name();
my $orahome_path = orahome_path();
my $short_orahome_path = $orahome_path;
chop($short_orahome_path);
my $short_orahome_path_unix = $short_orahome_path;
$short_orahome_path_unix =~ s(\\)(/)g;
my $short_orahome_path2 = $short_orahome_path;
$short_orahome_path2 =~ s(\\)(\\\\)g;
# orahome_name is only used for Windows servers
my $orahome_name = oracle_home_name();
my $oracle_db_sid = lc(oracle_db_sid());
my $capital_oracle_db_sid=uc($oracle_db_sid);
my $dbdomain = lc(dbdomain());
my $capital_dbdomain = uc($dbdomain);
my $db_sid_dbdomain = '';
my $capital_db_sid_dbdomain = '';
if (length($dbdomain) > 0)
{
$db_sid_dbdomain = lc($oracle_db_sid.".".$dbdomain);
$capital_db_sid_dbdomain = uc($oracle_db_sid.".".$dbdomain);
}
else
{
# no dbdomain entered
$db_sid_dbdomain = lc($oracle_db_sid);
$capital_db_sid_dbdomain = uc($oracle_db_sid);
}
my $oracle_db_timezone = time_zone();
my $oracle_db_hostname = oracle_db_hostname();
my $oracle_db_ipaddress = oracle_db_ipaddress();
my $oracle_db_netmask = oracle_db_netmask();
my $oracle_db_router_address = oracle_db_router_address();
my $number_of_dns_servers = number_of_dns_servers();
my @list_of_oracle_db_dns_server_addresses = list_of_oracle_db_dns_server_addresses();
my $oracle_version = oracle_version();
# Find out which version of Oracle is being installed
32bit or 64bit
my $oracle_3264version = oracle_3264version();
my $oracle_platform = oracle_platform();
my $oracle_blocksize = oracle_blocksize();
my $oracle_memsize = oracle_memsize();
my $archivelog_location = archivelog_location();
my $short_archivelog_location = $archivelog_location;
chop($short_archivelog_location);
my $short_archivelog_location2 = $short_archivelog_location;
$short_archivelog_location2 =~ s(\\)(\\\\)g;
my $archivelog_location2 = $short_archivelog_location2 . '\\\\';
my $backup_location = backup_location();
my $short_backup_location = $backup_location;
chop($short_backup_location);
my $short_backup_location2 = $short_backup_location;
$short_backup_location2 =~ s(\\)(\\\\)g;
my $backup_location2 = $short_backup_location2 . '\\\\';
my $rman_time = rman_time();
my @list_of_rman_time = split(/:/,$rman_time);
# since 24 hour clock time is used - get the first 2 characters for
the hours
my $rman_time_hours = $list_of_rman_time[0];
# since 24 hour clock time is used - get the last 2 characters for the
minutes
my $rman_time_minutes = $list_of_rman_time[1];
my $rman_channel_type = rman_channel_type();
my $rman_channel_name = rman_channel_name();
my $rman_channel_format_archive = rman_channel_format_archive();
my $rman_channel_format_archive2 = $rman_channel_format_archive;
$rman_channel_format_archive2 =~ s(\\)(\\\\)g;
my $rman_channel_format_datafile = rman_channel_format_backup();
my $rman_channel_format_datafile2 = $rman_channel_format_datafile;
$rman_channel_format_datafile2 =~ s(\\)(\\\\)g;
my $oem_hostname = oem_hostname();
my $oem_ipaddress = oem_ipaddress();
my $oem_sid = lc(oem_sid());
my $capital_oem_sid = uc($oem_sid);
my $at_sign_oem_sid = "\\@".$oem_sid;
my $oem_dbdomain = lc(oem_dbdomain());
my $capital_oem_dbdomain = uc($oem_dbdomain);
my $oem_db_sid_dbdomain = '';
my $capital_oem_db_sid_dbdomain = '';
if (length($oem_dbdomain) > 0)
{
$oem_db_sid_dbdomain = lc($oem_sid.".".$oem_dbdomain);
$capital_oem_db_sid_dbdomain = uc($oem_sid.".".$oem_dbdomain);
}
else
{
# no dbdomain entered
$oem_db_sid_dbdomain = lc($oem_sid);
$capital_oem_db_sid_dbdomain = uc($oem_sid);
}
my $at_sign_oem_sid_domain = "\\@".$oem_db_sid_dbdomain;
my $additional_oem_db_number = additional_oem_db_number();
my @list_of_additional_oem_db = list_of_additional_oem_db();
my @list_of_additional_oem_hosts = list_of_additional_oem_hosts();
my $oemtbs_name = oemtbs_name();
my $oemtbs_size = oemtbs_size();
my $oemtbs_path = oemtbs_path();
my $oemtbs_path2 = $oemtbs_path;
$oemtbs_path2 =~ s(\\)(\\\\)g;
my $oem_username = oem_username();
my $oem_password = oem_password();
my $rmantbs_name = rmantbs_name();
my $rmantbs_size = rmantbs_size();
my $rmantbs_path = rmantbs_path();
my $rmantbs_path2 = $rmantbs_path;
$rmantbs_path2 =~ s(\\)(\\\\)g;
my $rman_username = rman_username();
my $rman_password = rman_password();
my $standby_hostname = standby_hostname();
my $standby_ipaddress = standby_ipaddress();
my $standby_db_sid = standby_db_sid();
my $capital_standby_db_sid = uc($standby_db_sid);
my $standby_delay = standby_delay();
my $archivelog_mode = archivelog_mode();
my $mount_points_number = mount_points_number();
my @list_of_mount_points = list_of_mount_points();
my @list_of_device_names = list_of_device_names();
my $device_names_number = @list_of_device_names;
my $tablespace_names_number = tablespace_names_number();
my @list_of_tablespace_names = list_of_tablespace_names();
my @list_of_tablespace_sizes = list_of_tablespace_sizes();
my @list_of_tablespace_paths = list_of_tablespace_paths();
my $controlfile_number = controlfile_number();
my @list_of_controlfile_paths = list_of_controlfile_paths();
my $redo_log_number = redo_log_number();
my @list_of_redo_log_files = list_of_redo_log_files();
my @list_of_redo_file_path_multiplexed = list_of_redo_file_path_multiplexed();
my $udump_directory = udump_directory();
my $short_udump_directory = $udump_directory;
chop($short_udump_directory);
my $short_udump_directory2 = $short_udump_directory;
$short_udump_directory2 =~ s(\\)(\\\\)g;
my $udump_directory2 = $short_udump_directory2 . "\\\\";
my $cdump_directory = cdump_directory();
my $short_cdump_directory = $cdump_directory;
chop($short_cdump_directory);
my $short_cdump_directory2 = $short_cdump_directory;
$short_cdump_directory2 =~ s(\\)(\\\\)g;
my $cdump_directory2 = $short_cdump_directory2 . "\\\\";
my $bdump_directory = bdump_directory();
my $short_bdump_directory = $bdump_directory;
chop($short_bdump_directory);
my $short_bdump_directory2 = $short_bdump_directory;
$short_bdump_directory2 =~ s(\\)(\\\\)g;
my $bdump_directory2 = $short_bdump_directory2 . "\\\\";
my $jserver_feature = jserver_feature();
my $intermedia_feature = intermedia_feature();
my $spatial_feature = spatial_feature();
my $time_series_feature = time_series_feature();
my $visual_info_feature = visual_info_feature();
my $replication_feature = replication_feature();
my $sqlplushelp_feature = sqlplushelp_feature();
my $olap_feature = olap_feature();
my $demo_schemas_feature = demo_schemas_feature();
my $initora_processes = initora_processes();
my $sga_log_buffer_size = sga_log_buffer_size();
my $sga_block_buffer_size = sga_block_buffer_size();
my $sga_shared_pool_size = sga_shared_pool_size();
my $sga_java_pool_size = sga_java_pool_size();
my $unix_account_name = unix_account_name();
my $unix_account_password = unix_account_password();
my $unix_group_name = unix_group_name();
my $oracle_system_account_password = oracle_system_account_password();
my $oracle_sys_account_password = oracle_sys_account_password();
my $oracle_dba_accounts_number = oracle_dba_accounts_number();
my @list_of_oracle_dba_accounts = list_of_oracle_dba_accounts();
my @list_of_oracle_dba_accounts_passwords = list_of_oracle_dba_accounts_passwords();
my $oracle_backup_type = oracle_backup_type();
my $undo_tablespace_name = undo_tablespace_name();
my $undo_tablespace_size = undo_tablespace_size();
my $undo_tablespace_path = undo_tablespace_path();
my $oem_hardware_type = oem_hardware_type();
my $db_hardware_type = db_hardware_type();
my $scripts_directory = scripts_directory();
my $short_scripts_directory = $scripts_directory;
chop($short_scripts_directory);
my $scripts_directory2 = $scripts_directory;
$scripts_directory2 =~ s(\\)(\\\\)g;
my $short_scripts_directory2 = $scripts_directory2;
chop($short_scripts_directory2);
chop($short_scripts_directory2);
my $intermedia_passwords = intermedia_passwords();
my @list_of_redo_file_sizes = list_of_redo_file_sizes();
my $oracle_csi_number = oracle_csi_number();
my $dns_search_domain = dns_search_domain();
my $email_server_name = email_server_name();
my @list_of_dba_email_address = list_of_dba_email_address();
my $laptop_ip_address = laptop_ip_address();
my $user_unix_path = user_unix_path();
my $short_user_unix_path = $user_unix_path;
chop($short_user_unix_path);
my $short_user_unix_path2 = $short_user_unix_path;
$short_user_unix_path2 =~ s(\\)(\\\\)g;
my $oracle_ts_phone = oracle_ts_phone();
my $single_quote_var = chr(39);
my $filename1 = filename1();
my $filename2 = filename2();
my $filename3 = filename3();
my $filename4 = filename4();
my $filename5 = filename5();
my $filename6 = filename6();
my $filename7 = filename7();
my $filename8 = filename8();
my $filename9 = filename9();
my $filename10 = filename10();
my $filename11 = filename11();
my $renamed_filename11 = renamed_filename11();
my $filename12 = filename12();
my $filename13 = filename13();
my $renamed_filename13 = renamed_filename13();
my $filename14 = filename14();
my $filename15 = filename15();
my $filename16 = filename16();
my $filename17 = filename17();
my $filename18 = filename18();
my $filename19 = filename19();
my $filename20 = filename20();
my $filename21 = filename21();
my $filename22 = filename22();
my $filename23 = filename23();
my $filename24 = filename24();
my $filename25 = filename25();
my $renamed_filename25 = renamed_filename25();
my $filename26 = filename26();
my $filename27 = filename27();
my $filename28 = filename28();
my $filename29 = filename29();
my $renamed_filename29 = renamed_filename29();
my $batchfile_filename29 = batchfile_filename29();
my $logfile_filename29 = logfile_filename29();
my $filename30 = filename30();
my $renamed_filename30 = renamed_filename30();
my $filename31 = filename31();
my $renamed_filename31 = renamed_filename31();
my $get_sql_filename31 = get_sql_filename31();
my $shell_script_filename31 = shell_script_filename31();
my $batchfile_filename31 = batchfile_filename31();
my $logfile_filename31 = logfile_filename31();
my $filename32 = filename32();
my $get_sql_filename32 = get_sql_filename32();
my $shell_script_filename32 = shell_script_filename32();
my $filename33 = filename33();
my $renamed_filename33 = renamed_filename33();
my $get_sql_filename33 = get_sql_filename33();
my $sql_filename33 = sql_filename33();
my $batchfile_filename33 = batchfile_filename33();
my $logfile_filename33 = logfile_filename33();
my $filename34 = filename34();
my $get_sql_filename34 = get_sql_filename34();
my $shell_script_filename34 = shell_script_filename34();
my $sql_filename34 = sql_filename34();
my $filename35 = filename35();
my $renamed_filename35 = renamed_filename35();
my $logfile_filename35 = logfile_filename35();
my $filename36 = filename36();
my $renamed_filename36 = renamed_filename36();
my $filename37 = filename37();
my $filename38 = filename38();
my $filename39 = filename39();
my $filename40 = filename40();
my $renamed_filename40 = renamed_filename40();
my $filename41 = filename41();
my $filename42 = filename42();
my $filename43 = filename43();
my $renamed_filename43 = renamed_filename43();
my $filename44 = filename44();
my $filename45 = filename45();
my $filename46 = filename46();
my $filename47 = filename47();
my $filename48 = filename48();
my $filename49 = filename49();
my $renamed_filename49 = renamed_filename49();
my $filename50 = filename50();
my $filename51 = filename51();
my $filename52 = filename52();
my $filename53 = filename53();
my $filename54 = filename54();
my $filename55 = filename55();
my $filename56 = filename56();
my $renamed_filename56 = renamed_filename56();
my $get_sql_filename56 = get_sql_filename56();
my $gather_stats_sql_filename56 = gather_stats_sql_filename56();
my $batchfile_filename56 = batchfile_filename56();
my $logfile_filename56 = logfile_filename56();
my $filename57 = filename57();
my $renamed_filename57 = renamed_filename57();
my $filename58 = filename58();
my $renamed_filename58 = renamed_filename58();
my $filename59 = filename59();
my $renamed_filename59 = renamed_filename59();
my $filename60 = filename60();
my $renamed_filename60 = renamed_filename60();
my $filename61 = filename61();
my $get_sql_filename61 = get_sql_filename61();
my $filename62 = filename62();
my $renamed_filename62 = renamed_filename62();
my $batchfile_filename62 = batchfile_filename62();
my $logfile_filename62 = logfile_filename62();
my $filename63 = filename63();
my $renamed_filename63 = renamed_filename63();
my $filename64 = filename64();
my $filename65 = filename65();
my $renamed_filename65 = renamed_filename65();
my $filename66 = filename66();
my $filename67 = filename67();
my $filename68 = filename68();
my $filename69 = filename69();
my $filename70 = filename70();
my $renamed_filename70 = renamed_filename70();
my $filename71 = filename71();
my $renamed_filename71 = renamed_filename71();
my $filename72 = filename72();
my $renamed_filename72 = renamed_filename72();
my $filename73 = filename73();
my $renamed_filename73 = renamed_filename73();
my $filename74 = filename74();
my $renamed_filename74 = renamed_filename74();
my $filename75 = filename75();
my $renamed_filename75 = renamed_filename75();
my $filename76 = filename76();
my $renamed_filename76 = renamed_filename76();
my $filename77 = filename77();
my $filename78 = filename78();
my $filename79 = filename79();
my $renamed_filename79 = renamed_filename79();
my $filename80 = filename80();
my $renamed_filename80 = renamed_filename80();
my $filename81 = filename81();
my $renamed_filename81 = renamed_filename81();
my $filename82 = filename82();
my $renamed_filename82 = renamed_filename82();
my $filename83 = filename83();
my $renamed_filename83 = renamed_filename83();
my $filename84 = filename84();
my $renamed_filename84 = renamed_filename84();
my $filename85 = filename85();
my $renamed_filename85 = renamed_filename85();
my $filename86 = filename86();
my $renamed_filename86 = renamed_filename86();
# define subs
sub before_script_generation();
sub after_script_generation();
sub win_901_initora_custom();
# ----------------------- start_date_time --------------------------
# This sub gets the current date/time for use inside generated files.
sub start_date_time() {
# get current date/time for use inside generated
files
my $current_start_time = time();
my $start_date_time = localtime ($current_start_time);
return $start_date_time;
}
# ----------------------- start_date_time -----------------------
# ----------------------- current_year --------------------------
# This sub gets the current year for use inside generated files.
sub current_year() {
# get current date/time for use inside generated
files
my $current_start_time = time();
my $current_year = 1900 + (localtime)[5];
return $current_year;
}
# ----------------------- current_year -----------------------
# ----------------------- current_month --------------------------
# This sub gets the current month for use inside generated files.
sub current_month() {
# get current date/time for use inside generated
files
my $current_start_time = time();
my $current_month = 1 + (localtime)[4];
return $current_month;
}
# ----------------------- current_month -----------------------
# ----------------------- current_day --------------------------
# This sub gets the current day for use inside generated files.
sub current_day() {
# get current date/time for use inside generated
files
my $current_start_time = time();
my $current_day = (localtime)[3];
return $current_day;
}
# ----------------------- current_day -----------------------
# ----------------------- win_901_initora_custom
--------------------------
# This sub runs after the script generation process to allow additional
output
sub win_901_initora_custom () {
# open output file, overwrite old file
my $outputpath_full = $output_file_path . $filename24;
print "Generating $outputpath_full\n";
open (FILE1,">$outputpath_full") ||
die ("Could not open output file $outputpath_full for writing.
\n Does the full directory path exist?");
my $init_ora_service_names = '';
my $init_ora_domain = '';
if (length($dbdomain)>0)
{
$init_ora_service_names = $oracle_db_sid . ", " . $capital_db_sid_dbdomain;
$init_ora_domain = "db_domain = $capital_dbdomain";
}
else
{
$init_ora_service_names = $oracle_db_sid;
}
# build up log archive dest variable contents
my $log_archive_dest_var = chr(39) . "LOCATION=$short_archivelog_location"
. chr(39);
# build up log archive format variable contents
my $log_archive_format_var=$oracle_db_sid . "_%t_%s.arc";
# build up log archive format variable contents
my $init_ora_control_file_list="";
# loop thru the list of control files
if ($controlfile_number > 0)
{
for (my $controlfiles_count=0;$controlfiles_count <= $controlfile_number-1;
$controlfiles_count++)
{
$init_ora_control_file_list .= chr(34) . $list_of_controlfile_paths[$controlfiles_count]
. chr(34) . ", ";
}
}
# remove the last two characters (which are a space and a comma)
chop($init_ora_control_file_list);
chop($init_ora_control_file_list);
my $db_cache_size_var = $sga_block_buffer_size*$oracle_blocksize;
# set database size-specific parameters
# default setting is for a Small system
my $sort_area_size_var = 50000;
#my $log_buffer_size_var = 512000;
my $large_pool_size_var = 10000000;
my $dml_locks_var = 100;
my $open_cursors_var = 100;
if ($oracle_memsize eq 'Medium')
{
# configure medium system init.ora parameters
$sort_area_size_var = 256000;
#$log_buffer_size_var=1024000;
$large_pool_size_var=100000000;
$dml_locks_var = 500;
$open_cursors_var = 300;
}
elsif ($oracle_memsize eq 'Large')
{
# configure large system init.ora parameters
$sort_area_size_var = 524288;
#$log_buffer_size_var = 5120000;
$large_pool_size_var = 500000000;
$dml_locks_var = 2000;
$open_cursors_var = 600;
}
# send text to output file
my $header=<<"EOF2";
# file: $short_orahome_path\\database\\init$oracle_db_sid.ora
# ***** Example init.ora created within custom.pm *****
# Features: This file provides the initial configuration for the Oracle
# database instance (Windows NT/2000 version).
# Note: During the installation process this file will generally
# be converted to an spfile for version 9i databases.
#
# Script Sequence#: 24
# Used By: oracle database instance $oracle_db_sid
# Copyright $current_year by $client_name
#
# ---------------------- Revision History ---------------
# Date By Changes
# 04-22-2002 dsimpson Initial Release - of customized version for *custom.pm
# $main::generated_header
###########################################
# Miscellaneous
###########################################
compatible=9.0.1.0.0
###########################################
# Network Registration
###########################################
instance_name = $oracle_db_sid
db_name = $oracle_db_sid
service_names = $init_ora_service_names
$init_ora_domain
###########################################
# Archive
###########################################
log_archive_dest_1=$log_archive_dest_var
log_archive_format=$log_archive_format_var
log_archive_start=true
###########################################
# Cache and I/O
###########################################
db_block_size=$oracle_blocksize
# small system - db_block_size=4096
# medium system - db_block_size=8192
# large system - db_block_size=16384
db_cache_size=$db_cache_size_var
# small system - db_cache_size =10000000
# medium system - db_cache_size =50000000
# large system - db_cache_size =10000000000
###########################################
# Cursors and Library Cache
###########################################
open_cursors=$open_cursors_var
# small system - open_cursors =100
# medium system - open_cursors =300
# large system - open_cursors =600
###########################################
# Diagnostics and Statistics
###########################################
background_dump_dest=$short_bdump_directory
core_dump_dest =$short_cdump_directory
timed_statistics=FALSE
user_dump_dest =$short_udump_directory
#max_dump_file_size = 10000 # limit trace file size to 5M each
###########################################
# Distributed, Replication and Snapshot
###########################################
db_domain=""
remote_login_passwordfile=EXCLUSIVE
# Global Naming -- enforce that a dblink has same name as the db it
connects to
# global_names = false
# The following parameters are needed for the Advanced
Replication Option
# Job Queue Processes is also used when gathering Oracle 9i system statistics
job_queue_processes = 2
#distributed_transactions = 500
#open_links = 16
#aq_tm_processes=1
###########################################
# File Configuration
###########################################
control_files=($init_ora_control_file_list)
# UTL_FILE_DIR is used by various utilities
# including log_miner to allow pl/sql to read/write
# data to the hard drive
UTL_FILE_DIR=$short_backup_location\\oracle_utl_file_dir
###########################################
# MTS
###########################################
# Uncomment the following line when your listener is configured for
SSL
# (listener.ora and sqlnet.ora)
# dispatchers = "(PROTOCOL=TCPS)(SER=MODOSE)", "(PROTOCOL=TCPS)(PRE=oracle.aurora.server.GiopServer)",
"(PROTOCOL=TCPS)(PRE=oracle.aurora.server.SGiopServer)"
dispatchers="(PROTOCOL=TCP)(SER=MODOSE)", "(PROTOCOL=TCP)(PRE=oracle.aurora.server.GiopServer)",
"(PROTOCOL=TCP)(PRE=oracle.aurora.server.SGiopServer)"
###########################################
# Pools
###########################################
java_pool_size =$sga_java_pool_size
# small system - java_pool_size=25000000
# medium system - java_pool_size=50000000
# large system - java_pool_size=100000000
large_pool_size =$large_pool_size_var
# small system - shared_pool_size= 10000000
# medium system - shared_pool_size=100000000
# large system - shared_pool_size=500000000
shared_pool_size=$sga_shared_pool_size
# medium system - shared_pool_size=25000000
# large system - shared_pool_size=60000000
dml_locks= $dml_locks_var
# small system - dml_locks= 100
# medium system - dml_locks= 500
# large system - dml_locks=2000
log_buffer= $sga_log_buffer_size
# small system - log_buffer=512000
# medium system - log_buffer=1024000
# large system - log_buffer=5120000
###########################################
# PL/SQL Native Compilation Parameters
###########################################
plsql_compiler_flags = 'INTERPRETED'
plsql_native_c_compiler = 'c:\\mingw\\bin\\gcc.exe'
plsql_native_library_dir = '$short_orahome_path\\plsql_compiled_code'
plsql_native_library_subdir_count = 1000
plsql_native_linker = 'c:\\mingw\\bin\\ld.exe'
plsql_native_make_file_name = '$short_orahome_path\\plsql\\spnc_makefile.mk'
plsql_native_make_utility = 'c:\\mingw\\bin\\make.exe'
###########################################
# Processes and Sessions
###########################################
processes=$initora_processes
parallel_automatic_tuning = true
# small system - processes=50
# medium system - processes=1000
# large system - processes=10000
###########################################
# Redo Log and Recovery
###########################################
fast_start_mttr_target=300
###########################################
# Resource Manager
###########################################
resource_manager_plan=SYSTEM_PLAN
###########################################
# Sort, Hash Joins, Bitmap Indexes
###########################################
sort_area_size=524288
# small system - sort_area_size= 50000
# medium system - sort_area_size=256000
# large system - sort_area_size=524288
###########################################
# System Managed Undo and Rollback Segments
###########################################
undo_management=AUTO
undo_tablespace=$undo_tablespace_name
EOF2
print FILE1 ($header);
# close the output file
close (FILE1);
}
# ----------------------- win_901_initora_custom --------------------------
# ----------------------- before_script_generation
--------------------------
# This sub runs before the script generation process to allow customization
# of the process.
sub before_script_generation() {
# -- custom code goes here --
# This is an example of how to change the header text which gets written
out
# to each output file. The $generated_header perl variable is defined
globally
# in the main perl program, thus allowing this modification.
#
#$main::generated_header = "My new file text header.";
}
# ----------------------- before_script_generation -----------------------
# ----------------------- after_script_generation
--------------------------
# This sub runs after the script generation process to allow additional
output
# to be created, or to allow for the re-generation and replacement of
# output files after the generatoin process
sub after_script_generation() {
# custom code goes here
if ($short_os_name eq "win" and $short_oracle_version eq "901")
{
# execute this code for Oracle 9.0.1 for Windows scripts
#win_901_initora_custom ()
}
}
# ----------------------- after_script_generation -----------------------
1;
