if (! exists $ENV{WRAPPED_OPTIONS}) {
%config=defaultconfig();
eval q{use Getopt::Long};
+ Getopt::Long::Configure('pass_through');
GetOptions(
"setup|s=s" => \$config{setup},
"wikiname=s" => \$config{wikiname},
"rss!" => \$config{rss},
"cgi!" => \$config{cgi},
"discussion!" => \$config{discussion},
+ "w3mmode!" => \$config{w3mmode},
"notify!" => \$config{notify},
"url=s" => \$config{url},
"cgiurl=s" => \$config{cgiurl},
"svnrepo" => \$config{svnrepo},
"svnpath" => \$config{svnpath},
"adminemail=s" => \$config{adminemail},
+ "timeformat=s" => \$config{timeformat},
"exclude=s@" => sub {
$config{wiki_file_prune_regexp}=qr/$config{wiki_file_prune_regexp}|$_[1]/;
},
push @{$config{plugin}}, $_[1];
},
"disable-plugin=s@" => sub {
- $config{plugin}=[grep { $_ ne $_[1] } @{$config{plugin}} ];
+ $config{plugin}=[grep { $_ ne $_[1] } @{$config{plugin}}];
},
+ "pingurl" => sub {
+ push @{$config{pingurl}}, $_[1];
+ }
) || usage();
if (! $config{setup}) {
+ loadplugins();
+ if (exists $hooks{getopt}) {
+ foreach my $id (keys %{$hooks{getopt}}) {
+ $hooks{getopt}{$id}{call}->();
+ }
+ }
+ if (grep /^-/, @ARGV) {
+ print STDERR "Unknown option: $_\n"
+ foreach grep /^-/, @ARGV;
+ usage();
+ }
usage() unless @ARGV == 2;
$config{srcdir} = possibly_foolish_untaint(shift @ARGV);
$config{destdir} = possibly_foolish_untaint(shift @ARGV);
if ($@) {
error("WRAPPED_OPTIONS: $@");
}
+ loadplugins();
checkconfig();
}
} #}}}
loadindex();
require IkiWiki::Render;
rcs_update();
- rcs_getctime() if $config{getctime};
refresh();
rcs_notify() if $config{notify};
saveindex();