Installgen
Features and Benefits
Installgen
Demo Available for download...
Bookmark This Page
#!/usr/bin/perl
# program: prod1_file_replicator_job.pm (renamed from 83_prod1_file_replicator_job_1.pm)
# features: This perl module contains the archivelog
# directory paths for the primary and
# standby servers.
#
# Used By: prod1_file_replicator_job_1.pl
#
# Copyright 2002 by .com Solutions Inc.
#
# --------------- Revision History ---------------
# Date By Changes
# 01-19-2001 dsimpson Initial Release
# 05-25-2002 dsimpson Updated for Solaris.
# This output file was created by Installgen version 1.38 on Sat Nov 23 07:13:32 2002. By .com Solutions Inc. www.dotcomsolutionsinc.net
use strict;
package prod1_file_replicator_job;
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
use Exporter qw();
@ISA=qw(Exporter);
@EXPORT_OK = qw(primary_archivelog_directory_path standby_archivelog_directory_path);
%EXPORT_TAGS = (all => [@EXPORT_OK]);
# define subs
sub primary_archivelog_directory_path();
sub standby_archivelog_directory_path();
# ----------------------- primary_archivelog_directory_path --------------------------
# This sub returns the primary server's archivelogs directory path.
# NOTES: There should be a trailing directory separator at the end of the path.
sub primary_archivelog_directory_path() {
my $primary_archivelog_directory_path_var = '/Volumes/archive';
return $primary_archivelog_directory_path_var;
}
# ----------------------- primary_archivelog_directory_path -----------------------
# ----------------------- standby_archivelog_directory_path --------------------------
# This sub returns the standby server's archivelogs directory path.
# NOTES: There should be a trailing directory separator at the end of the path.
sub standby_archivelog_directory_path() {
my $standby_archivelog_directory_path_var = '/Volumes/archive/prod1s_archivelog_standby_mnt';
return $standby_archivelog_directory_path_var;
}
# ----------------------- standby_archivelog_directory_path -----------------------
1;
