make-apache-conf.sh

   1 #!/bin/sh
   2
   3 # This script uses the current values of Girocco::Config to
   4 # convert apache.conf.in into apache.conf.
   5 #
   6 # It is run automatically by "make" or "make apache.conf" but
   7 # may be run separately if desired.
   8
   9 set -e
  10
  11 . ./shlib.sh
  12
  13 trap "rm -f 'apache.conf.$$'" EXIT
  14 trap 'exit 130' INT
  15 trap 'exit 143' TERM
  16
  17 __girocco_conf="$GIROCCO_CONF"
  18 [ -n "$__girocco_conf" ] || __girocco_conf="Girocco::Config"
  19 perl -I"$PWD" -M"$__girocco_conf" -- - apache.conf.in >apache.conf.$$ <<'EOT'
  20 #line 21 "make-apache-conf.sh"
  21 use strict;
  22 use warnings;
  23
  24 my $frombegin = '# ---- BEGIN LINES TO DUPLICATE ----';
  25 my $fromend   = '# ---- END LINES TO DUPLICATE ----';
  26 my $tobegin   = '# ---- BEGIN DUPLICATE LINES ----';
  27 my $toend     = '# ---- END DUPLICATE LINES ----';
  28
  29 open IN, '<', $ARGV[0] or die "could not open $ARGV[0] for reading: $!\n";
  30 my $input;
  31 {
  32         local $/;
  33         $input = <IN>;
  34 }
  35 close IN;
  36 $input =~ s/^##.*(?:\n|$)//gm;
  37 my $repl = sub {
  38         no warnings;
  39         if (eval '$Girocco::Config::'.$_[1]) {
  40                 $_[0] ? "Girocco_Config_$_[1]_Disabled" : "!Girocco_Config_$_[1]_Disabled";
  41         } else {
  42                 $_[0] ? "!Girocco_Config_$_[1]_Enabled" : "Girocco_Config_$_[1]_Enabled";
  43         }
  44 };
  45 $input =~ s/^(\s*<IfDefine\s+)(!?)\@\@([a-zA-Z][a-zA-Z0-9_]*)\@\@>/
  46         $1 . &$repl($2, $3) . '>'/gmexi;
  47 {
  48         no warnings;
  49         $input =~ s/\@\@([a-zA-Z][a-zA-Z0-9_]*)\@\@/eval
  50                 "\$Girocco::Config::$1 ne ''?\$Girocco::Config::$1:'\@\@'.\"$1\".'\@\@'"/gsex;
  51 }
  52 if ($input =~ /(?:^|\n)$frombegin[^\n]*\n(.*)(?<=\n)$fromend/s) {
  53         my $dupelines = $1;
  54         if ($input =~ /^((?:.+\n)?$tobegin[^\n]*\n).*((?<=\n)$toend.*)$/s) {
  55                 $input = $1 . $dupelines . $2;
  56         }
  57 }
  58 printf "%s", $input;
  59 EOT
  60 mv -f apache.conf.$$ apache.conf