make-lighttpd-conf.sh

   1 #!/bin/sh
   2
   3 # This script uses the current values of Girocco::Config to
   4 # convert lighttpd.conf.in into lighttpd.conf.
   5 #
   6 # It is run automatically by "make" or "make lighttpd.conf" but
   7 # may be run separately if desired.
   8
   9 set -e
  10
  11 . ./shlib.sh
  12
  13 trap "rm -f 'lighttpd.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 -- - lighttpd.conf.in >lighttpd.conf.$$ <<'EOT'
  23 #line 24 "make-lighttpd-conf.sh"
  24 use strict;
  25 use warnings;
  26
  27 BEGIN { # hack to make var_online_cpus and var_getconfpath 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         require Girocco::Dumper;
  34         my $getconfpath = Girocco::Dumper::GetConfPath();
  35         defined($getconfpath) && $getconfpath ne "" or $getconfpath = "/usr/bin:/bin";
  36         eval '$Girocco::Config::var_getconfpath = $getconfpath;';
  37 }
  38
  39 my $frombegin = '# ---- BEGIN LINES TO DUPLICATE ----';
  40 my $fromend   = '# ---- END LINES TO DUPLICATE ----';
  41 my $tobegin   = '# ---- BEGIN DUPLICATE LINES ----';
  42 my $toend     = '# ---- END DUPLICATE LINES ----';
  43
  44 open IN, '<', $ARGV[0] or die "could not open $ARGV[0] for reading: $!\n";
  45 my $input;
  46 {
  47         local $/;
  48         $input = <IN>;
  49 }
  50 close IN;
  51 $input =~ s/^##.*(?:\n|$)//gm;
  52 my $replifat = sub {
  53         my ($first, $not, $var, $lines, $last) = @_;
  54         no warnings;
  55         my $test = $var =~ /^\d+$/ ? 0+$var : eval('$Girocco::Config::'.$var);
  56         $not and $test = !$test;
  57         !$test and $lines =~ s/^/#/gm;
  58         return '#'.$first.$lines.'#'.$last;
  59 };
  60 my $resv = sub {
  61         my ($first, $extra, $eol) = @_;
  62         my $prefix = "";
  63         $prefix = $first if $first =~ /^[ \t]*(?:[#].*)?$/;
  64         $eol = $extra."\n" if $eol ne "";
  65         return $first.join($extra."\n".$prefix,map('(?<!\.'.$_.')',
  66                 sort(keys(%Girocco::Config::reserved_suffixes)))).$eol;
  67 };
  68 my $cmteol = qr/[ \t]*(?:[#][^\n]*)?\n/;
  69 1 while $input =~ s/^([ \t]*\@\@if\((!?)([a-zA-Z][a-zA-Z0-9_]*|\d+)\)\@\@(?>$cmteol)?)(.*?)
  70         ((?<=\n)[ \t]*\@\@endif(?:\(\2\3\))?\@\@(?>$cmteol)?)/&$replifat($1, $2, $3, $4, $5)/gsmex;
  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 $input =~ s/^(.*)\@\@reserved\(([^)]*)\)\@\@((?>$cmteol)?)/&$resv($1, $2, $3)/gme;
  77 if ($input =~ /(?:^|\n)$frombegin[^\n]*\n(.*)(?<=\n)$fromend/s) {
  78         my $dupelines = $1;
  79         if ($input =~ /^((?:.+\n)?$tobegin[^\n]*\n).*((?<=\n)$toend.*)$/s) {
  80                 $input = $1 . $dupelines . $2;
  81         }
  82 }
  83 printf "%s", $input;
  84 EOT
  85 mv -f lighttpd.conf.$$ lighttpd.conf