summaryrefslogtreecommitdiffstats
path: root/aai-traversal/src/main/scripts/install/siteconf.pl
diff options
context:
space:
mode:
Diffstat (limited to 'aai-traversal/src/main/scripts/install/siteconf.pl')
-rw-r--r--aai-traversal/src/main/scripts/install/siteconf.pl100
1 files changed, 0 insertions, 100 deletions
diff --git a/aai-traversal/src/main/scripts/install/siteconf.pl b/aai-traversal/src/main/scripts/install/siteconf.pl
deleted file mode 100644
index d035851..0000000
--- a/aai-traversal/src/main/scripts/install/siteconf.pl
+++ /dev/null
@@ -1,100 +0,0 @@
-#!/usr/bin/perl
-# CC_ID_SITECONF_PL[] = "@(#)/vobs/waas/src/oam/siteconf.pl@@/main/4"
-
-#.Description
-# This perl script takes as input template file,
-# and one or more configuration files. It uses the values in the
-# configuration files as substitutions for the matching tags in the template
-# file.
-
-#.Constraints
-# The input files must be readable by the script.
-
-#.See Also
-#
-
-use Getopt::Std;
-
-local $dbg=0;
-
-getopts ('dt:c:');
-
-if ($opt_d) {
- $dbg=$opt_d;
-}
-
-if ($dbg) {
- print STDERR "opt_d=$opt_d\n";
- print STDERR "opt_t=$opt_t\n";
- print STDERR "opt_c=$opt_c\n";
-}
-
-###
-# Print usage if no arguments passed
-if (! $opt_t) {
- print STDERR "Usage: $0 -t templatefile -c configfilelist\n";
- exit (1);
-}
-
-# process the template file variable
-if ($opt_t) {
- if (! -r $opt_t) {
- print STDERR "Error: Can't read template file $opt_t\n";
- exit (2);
- }
- $templatefile = $opt_t;
-}
-else {
- print STDERR "Error: You must enter the template file name\n";
- exit (2);
-}
-
-###
-# Global error flag for return code when exiting
-$err = 0;
-
-$configlist = '';
-if ($opt_c) {
- $configlist = $opt_c;
-}
-
-# process the site configuration file variable
-if ($configlist) {
- @siteary = split /,/, $configlist;
-}
-
-# Add PROJECT_HOME to Conf dictionary
-$Conf{'PROJECT_HOME'} = $ENV{'PROJECT_HOME'};
-
-foreach $arg (@siteary) {
- if ($dbg) { print STDERR "Opening $arg\n" }
-
- open(CONF, $arg) || die $!, ", '$arg'\n";
-
- while (<CONF>) {
- #1 while chomp();
- $_ =~ s/[\r\n]$//g; # strip newlines and dos-injected carriage returns
- if ( /=/ ) {
- ($attr,$value) = split(/=/,$_,2);
- $value =~ s/\$PHOME/$ENV{'PROJECT_HOME'}/;
- $value =~ s/\$PROJECT_HOME/$ENV{'PROJECT_HOME'}/;
- $Conf{$attr} = $value;
- }
- }
-
- close CONF;
-}
-
-if ($dbg) { print STDERR "Expanding $templatefile\n" }
-
-# Expand a config file
-
-open(TEMPLATE, $templatefile) || die $!, ", '$templatefile'\n";
-while (<TEMPLATE>) {
- # handle strings such as @HTTP_ROOT@@HTTP_PORT@
- s/@(\w+)@/$Conf{$1}/g;
- print;
-}
-
-close TEMPLATE;
-