eval q{use Getopt::Long};
Getopt::Long::Configure('pass_through');
GetOptions(
- "setup|s=s" => \$config{setup},
+ "setup|s=s" => sub {
+ require IkiWiki::Setup;
+ IkiWiki::Setup::load($_[1]);
+ $config{setup}=1;
+ },
"dumpsetup|s=s" => \$config{dumpsetup},
"wikiname=s" => \$config{wikiname},
"verbose|v!" => \$config{verbose},
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 {
if ($@) {
error("WRAPPED_OPTIONS: $@");
}
+ delete $ENV{WRAPPED_OPTIONS};
loadplugins();
checkconfig();
}
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})) {
foreach my $wrapper (@wrappers) {
%config=(%origconfig,
rebuild => 0,
- verbose => 0,
+ verbose => undef,
%{$wrapper},
);
checkconfig();
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}) {
- require IkiWiki::Setup::Standard;
- IkiWiki::Setup::Standard::dump($config{dumpsetup});
+ require IkiWiki::Setup;
+ IkiWiki::Setup::dump($config{dumpsetup});
}
elsif ($config{wrapper}) {
lockwiki();