scripts/mir-setup/munge_config_file.pl

   1 #!/usr/bin/perl -w
   2 # $Id: munge_config_file.pl,v 1.1.2.1 2006/11/11 12:52:05 zak Exp $
   3
   4 use strict;
   5
   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"} : ();
  16
  17 while (my $line = <>)
  18 {
  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;
  28
  29     if ($line =~ /\$ALIAS\b/)
  30     {
  31         for my $alias (@ALIASES)
  32         {
  33             my $out = $line;
  34             $out =~ s/\$ALIAS\b/$alias/g;
  35             print $out;
  36         }
  37     }
  38     else
  39     {
  40         print $line;
  41     }
  42 }