Installgen
Features and Benefits
Installgen
Demo Available for download...
Bookmark This Page
#! /usr/local/bin/perl
# program: prod3_file_replicator_job.pm (renamed from 83_prod3_file_replicator_job_1.pm)
# features: This perl module contains the
# archivelog directory paths for the
# primary and standby servers.
#
# Used By: 82_win_prod3_file_replicator_1.pl
# Usage: DBA must manually set archivelog directory mount points before using.
# Copyright 2002 by .com Solutions Inc.
#
# --------------- Revision History ---------------
# Date By Changes
# 01-19-2002 dsimpson Initial Release
# 06-19-2002 dsimpson Archivelog directories are set by default
# to the same value for primary and standby servers.
# Corrected comment about trailing directory separator.
# This output file was created by Installgen version 1.38 on Thu Nov 14 17:48:05 2002. By .com Solutions Inc. www.dotcomsolutionsinc.net
use strict;
package prod3_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 NOT be a trailing directory separator at the end of the path.
sub primary_archivelog_directory_path() {
my $primary_archivelog_directory_path_var = 'c:\\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 NOT be a trailing directory separator at the end of the path.
sub standby_archivelog_directory_path() {
my $standby_archivelog_directory_path_var = 'c:\\archive';
return $standby_archivelog_directory_path_var;
}
# ----------------------- standby_archivelog_directory_path -----------------------
1;
