File: subst.in

package info (click to toggle)
icinga 1.7.1-7
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 40,804 kB
  • sloc: xml: 190,216; ansic: 112,471; sql: 9,077; sh: 5,928; perl: 3,109; makefile: 1,306
file content (68 lines) | stat: -rwxr-xr-x 1,787 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#!/usr/bin/perl -w

my ${exec_prefix};
my ${prefix};

${prefix}="@prefix@";
${exec_prefix}="@exec_prefix@";
while ($f = shift @ARGV) {

	if (-x "/bin/mktemp") { 
		$TEMP = `/bin/mktemp $f.$$.XXXXXX`;
		die 'Cannot make temporary file $TEMP' if($?);
		chomp $TEMP;
	} else {
		$XXXXXX = rand;
		$TEMP = "$f.$$.$XXXXXX";
	}

	open(IN,"<$f.in");
	open(OUT,">$TEMP") || die 'Cannot make temporary file $TEMP';

	while (<IN>) {
		s|\@icinga_user\@|@icinga_user@|g;
		s|\@icinga_grp\@|@icinga_grp@|g;
		s|\@lockfile\@|@lockfile@|g;
		s|\@libexecdir\@|@libexecdir@|g; # put all --with-vars before directories
		s|\@localstatedir\@|@localstatedir@|g;
		s|\@sysconfdir\@|@sysconfdir@|g;
		s|\@LOGDIR\@|@LOGDIR@|g;
		s|\@STATEDIR\@|@STATEDIR@|g;
		s|\@ENABLECGILOG\@|@ENABLECGILOG@|g;
		s|\@CGILOGDIR\@|@CGILOGDIR@|g;
		s|\@PLUGINDIR\@|@PLUGINDIR@|g;
		s|\@EVENTHANDLERDIR\@|@EVENTHANDLERDIR@|g;
		s|\@TMPDIR\@|@TMPDIR@|g;
		s|\@HTTPAUTHFILE\@|@HTTPAUTHFILE@|g;
		s|\@TMPFILE\@|@TMPFILE@|g;
		s|\@EXTCMDFILEDIR\@|@EXTCMDFILEDIR@|g;
		s|\@P1FILELOC\@|@P1FILELOC@|g;
		s|\@ICINGACHKFILE\@|@ICINGACHKFILE@|g;
		s|\@IDOSOCKFILE\@|@IDOSOCKFILE@|g;
		s|\@IDO2DBLOCKFILE\@|@IDO2DBLOCKFILE@|g;
		s|\@IDOMODTMPFILE\@|@IDOMODTMPFILE@|g;
		s|\@IDO_INSTANCE_NAME\@|@IDO_INSTANCE_NAME@|g;
		s|\@CHECKRESULTDIR\@|@CHECKRESULTDIR@|g;
		s|\@datadir\@|@datarootdir@|g;
		s|\@sbindir\@|@sbindir@|g;
		s|\@bindir\@|@bindir@|g;
		s|\@libdir\@|@libdir@|g;
		s|\@htmurl\@|@htmurl@|g;
		s|\@cgiurl\@|@cgiurl@|g;
		s|\@MAIL_PROG\@|@MAIL_PROG@|g;
		s|\@VERSION\@|@VERSION@|g;
		s|\$\{exec_prefix\}|@exec_prefix@|g; # must be next to last
		s|\$\{prefix\}|@prefix@|g; # must be last
		print OUT $_;
	}

	close IN;
	close OUT;

	if ((! -e $f) || (`diff $f $TEMP`)) {
		`mv $TEMP $f`;
	} else {
	         unlink $TEMP;
	}

}