X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/b073359b18be7940d5138037a6423b8c45bfa39f..2587137775ab7c0582768e9006b65187d09cb7c4:/ikiwiki.in diff --git a/ikiwiki.in b/ikiwiki.in index febc8ff56..5c2d710b9 100755 --- a/ikiwiki.in +++ b/ikiwiki.in @@ -19,7 +19,17 @@ sub getconfig () { #{{{ eval q{use Getopt::Long}; Getopt::Long::Configure('pass_through'); GetOptions( - "setup|s=s" => \$config{setup}, + "setup|s=s" => sub { + require IkiWiki::Setup; + my $verbose=$config{verbose}; + my $syslog=$config{syslog}; + IkiWiki::Setup::load($_[1]); + $config{setupverbose}=$config{verbose}; + $config{setupsyslog}=$config{syslog}; + $config{verbose}=$verbose; + $config{syslog}=$syslog; + $config{setup}=1; + }, "dumpsetup|s=s" => \$config{dumpsetup}, "wikiname=s" => \$config{wikiname}, "verbose|v!" => \$config{verbose}, @@ -88,10 +98,14 @@ sub getconfig () { #{{{ if (! $config{setup} && ! $config{render}) { loadplugins(); - usage() unless @ARGV == 2; - $config{srcdir} = possibly_foolish_untaint(shift @ARGV); - $config{destdir} = possibly_foolish_untaint(shift @ARGV); - checkconfig(); + if (@ARGV == 2) { + $config{srcdir} = possibly_foolish_untaint(shift @ARGV); + $config{destdir} = possibly_foolish_untaint(shift @ARGV); + checkconfig(); + } + else { + usage() unless $config{dumpsetup}; + } } } else { @@ -101,6 +115,7 @@ sub getconfig () { #{{{ if ($@) { error("WRAPPED_OPTIONS: $@"); } + delete $ENV{WRAPPED_OPTIONS}; loadplugins(); checkconfig(); } @@ -110,23 +125,23 @@ sub main () { #{{{ getconfig(); if ($config{setup}) { - require IkiWiki::Setup; - IkiWiki::Setup::load($config{setup}); + delete $config{setup}; + loadplugins(); + checkconfig(); + if (@{$config{wrappers}} && ! $config{render} && ! $config{dumpsetup} && (! $config{refresh} || $config{genwrappers})) { debug(gettext("generating wrappers..")); require IkiWiki::Wrapper; my %origconfig=(%config); - my @wrappers=@{$config{wrappers}}; - delete $config{wrappers}; - delete $config{genwrappers}; - foreach my $wrapper (@wrappers) { - %config=(%origconfig, - rebuild => 0, - verbose => 0, - %{$wrapper}, - ); + foreach my $wrapper (@{$config{wrappers}}) { + %config=(%origconfig, %{$wrapper}); + $config{verbose}=$config{setupverbose} + if exists $config{setupverbose}; + $config{syslog}=$config{setupsyslog} + if exists $config{setupsyslog}; + delete @config{qw(setupsyslog setupverbose wrappers genwrappers rebuild)}; checkconfig(); if (! $config{cgi} && ! $config{post_commit}) { $config{post_commit}=1; @@ -140,16 +155,10 @@ sub main () { #{{{ if (! $config{refresh}) { $config{rebuild}=1; } - - # ignore syslog setting from setup file - # while doing initial setup - $config{syslog}=0 unless $config{dumpsetup}; - - loadplugins(); - checkconfig(); } if ($config{dumpsetup}) { + $config{srdir}=$config{destdir}=""; require IkiWiki::Setup; IkiWiki::Setup::dump($config{dumpsetup}); }