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 # Include custom configuration, if any
  18 [ ! -e config.sh ] || [ ! -f config.sh ] || [ ! -r config.sh ] || . ./config.sh
  19
  20 __girocco_conf="$GIROCCO_CONF"
  21 [ -n "$__girocco_conf" ] || __girocco_conf="Girocco::Config"
  22 perl -I"$PWD" -M"$__girocco_conf" -MGirocco::Validator -- - apache.conf.in >apache.conf.$$ <<'EOT'
  23 #line 24 "make-apache-conf.sh"
  24 use strict;
  25 use warnings;
  26
  27 BEGIN { # hack to make var_online_cpus available now
  28         $INC{'Girocco/Config.pm'} = 1;
  29         require Girocco::Util;
  30         my $online_cpus = Girocco::Util::online_cpus();
  31         defined($online_cpus) && $online_cpus >= 1 or $online_cpus = 1;
  32         eval '$Girocco::Config::var_online_cpus = '.$online_cpus.';';
  33 }
  34
  35 my $frombegin = '# ---- BEGIN LINES TO DUPLICATE ----';
  36 my $fromend   = '# ---- END LINES TO DUPLICATE ----';
  37 my $tobegin   = '# ---- BEGIN DUPLICATE LINES ----';
  38 my $toend     = '# ---- END DUPLICATE LINES ----';
  39
  40 open IN, '<', $ARGV[0] or die "could not open $ARGV[0] for reading: $!\n";
  41 my $input;
  42 {
  43         local $/;
  44         $input = <IN>;
  45 }
  46 close IN;
  47 $input =~ s/^##.*(?:\n|$)//gm;
  48 my $replifat = sub {
  49         my ($first, $not, $var, $lines, $last) = @_;
  50         no warnings;
  51         my $test = $var =~ /^\d+$/ ? 0+$var : eval('$Girocco::Config::'.$var);
  52         $not and $test = !$test;
  53         !$test and $lines =~ s/^/#/gm;
  54         return '#'.$first.$lines.'#'.$last;
  55 };
  56 my $replifdef = sub {
  57         my ($not, $var) = @_;
  58         no warnings;
  59         my $test = $var =~ /^\d+$/ ? 0+$var : eval('$Girocco::Config::'.$var);
  60         if ($test) {
  61                 $not ? "Girocco_Config_${var}_Disabled" : "!Girocco_Config_${var}_Disabled";
  62         } else {
  63                 $not ? "!Girocco_Config_${var}_Enabled" : "Girocco_Config_${var}_Enabled";
  64         }
  65 };
  66 my $cmteol = qr/[ \t]*(?:[#][^\n]*)?\n/;
  67 1 while $input =~ s/^([ \t]*\@\@if\((!?)([a-zA-Z][a-zA-Z0-9_]*|\d+)\)\@\@(?>$cmteol)?)(.*?)
  68         ((?<=\n)[ \t]*\@\@endif(?:\(\2\3\))?\@\@(?>$cmteol)?)/&$replifat($1, $2, $3, $4, $5)/gsmex;
  69 $input =~ s/^(\s*<IfDefine\s+)(!?)\@\@([a-zA-Z][a-zA-Z0-9_]*|\d+)\@\@>/
  70         $1 . &$replifdef($2, $3) . '>'/gmexi;
  71 {
  72         no warnings;
  73         $input =~ s/(\@\@([a-zA-Z][a-zA-Z0-9_]*)\@\@)/eval
  74                 "\$Girocco::Config::$2 ne ''?\$Girocco::Config::$2:\$1"/gsex;
  75 }
  76 if ($input =~ /(?:^|\n)$frombegin[^\n]*\n(.*)(?<=\n)$fromend/s) {
  77         my $dupelines = $1;
  78         if ($input =~ /^((?:.+\n)?$tobegin[^\n]*\n).*((?<=\n)$toend.*)$/s) {
  79                 $input = $1 . $dupelines . $2;
  80         }
  81 }
  82 printf "%s", $input;
  83 EOT
  84 mv -f apache.conf.$$ apache.conf