8 sub gen_wrapper () { #{{{
9 eval q{use Cwd 'abs_path'};
10 $config{srcdir}=abs_path($config{srcdir});
11 $config{destdir}=abs_path($config{destdir});
12 my $this=abs_path($0);
14 error("$this doesn't seem to be executable");
18 error("cannot create a wrapper that uses a setup file");
21 my @params=($config{srcdir}, $config{destdir},
22 "--wikiname=$config{wikiname}",
23 "--templatedir=$config{templatedir}");
24 push @params, "--verbose" if $config{verbose};
25 push @params, "--rebuild" if $config{rebuild};
26 push @params, "--nosvn" if !$config{svn};
27 push @params, "--cgi" if $config{cgi};
28 push @params, "--url=$config{url}" if length $config{url};
29 push @params, "--cgiurl=$config{cgiurl}" if length $config{cgiurl};
30 push @params, "--historyurl=$config{historyurl}" if length $config{historyurl};
31 push @params, "--diffurl=$config{diffurl}" if length $config{diffurl};
32 push @params, "--anonok" if $config{anonok};
33 push @params, "--adminuser=$_" foreach @{$config{adminuser}};
34 my $params=join(" ", @params);
36 foreach my $p ($this, $this, @params) {
42 push @envsave, qw{REMOTE_ADDR QUERY_STRING REQUEST_METHOD REQUEST_URI
43 CONTENT_TYPE CONTENT_LENGTH GATEWAY_INTERFACE
44 HTTP_COOKIE} if $config{cgi};
46 foreach my $var (@envsave) {
48 if ((s=getenv("$var")))
49 asprintf(&newenviron[i++], "%s=%s", "$var", s);
53 open(OUT, ">ikiwiki-wrap.c") || error("failed to write ikiwiki-wrap.c: $!");;
55 /* A wrapper for ikiwiki, can be safely made suid. */
62 extern char **environ;
64 int main (int argc, char **argv) {
65 /* Sanitize environment. */
67 char *newenviron[$#envsave+3];
70 newenviron[i++]="HOME=$ENV{HOME}";
74 if (argc == 2 && strcmp(argv[1], "--params") == 0) {
80 perror("failed to run $this");
85 if (system("gcc", "ikiwiki-wrap.c", "-o", possibly_foolish_untaint($config{wrapper})) != 0) {
86 error("failed to compile ikiwiki-wrap.c");
88 unlink("ikiwiki-wrap.c");
89 if (defined $config{wrappermode} &&
90 ! chmod(oct($config{wrappermode}), possibly_foolish_untaint($config{wrapper}))) {
91 error("chmod $config{wrapper}: $!");
93 print "successfully generated $config{wrapper}\n";