2 # $Id: munge_config_file.pl,v 1.1.2.1 2006/11/11 12:52:05 zak Exp $
6 my $SITE = $ENV{"SITE"};
7 my $FQDN = $ENV{"FQDN"};
8 my $MIRRORFQDN = $ENV{"MIRRORFQDN"};
9 my $SECUREFQDN = $ENV{"SECUREFQDN"};
10 my $USER = $ENV{"USER"};
11 my $DBNAME = $ENV{"DBNAME"};
12 my $DBUSER = $ENV{"DBUSER"};
13 my $DBPASS = $ENV{"DBPASS"};
14 my $PRODUCTIONDIR = $ENV{"PRODUCTIONDIR"};
15 my @ALIASES = defined $ENV{"ALIASES"} ? split ' ', $ENV{"ALIASES"} : ();
19 $line =~ s/\$SITE\b/$SITE/g;
20 $line =~ s/\$FQDN\b/$FQDN/g;
21 $line =~ s/\$MIRRORFQDN\b/$MIRRORFQDN/g;
22 $line =~ s/\$SECUREFQDN\b/$SECUREFQDN/g;
23 $line =~ s/\$USER\b/$USER/g;
24 $line =~ s/\$DBNAME\b/$DBNAME/g;
25 $line =~ s/\$DBUSER\b/$DBUSER/g;
26 $line =~ s/\$DBPASS\b/$DBPASS/g;
27 $line =~ s/\$PRODUCTIONDIR\b/$PRODUCTIONDIR/g;
29 if ($line =~ /\$ALIAS\b/)
31 for my $alias (@ALIASES)
34 $out =~ s/\$ALIAS\b/$alias/g;