2006-06-15 08:37:33 +02:00
|
|
|
#!/usr/bin/perl -T
|
2006-03-13 03:19:15 +01:00
|
|
|
$ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
|
2006-08-03 18:13:48 +02:00
|
|
|
delete @ENV{qw{IFS CDPATH ENV BASH_ENV}};
|
2006-03-10 03:10:44 +01:00
|
|
|
|
2006-03-23 07:51:15 +01:00
|
|
|
package IkiWiki;
|
2006-08-13 04:03:43 +02:00
|
|
|
|
2006-03-10 03:10:44 +01:00
|
|
|
use warnings;
|
|
|
|
use strict;
|
2006-11-20 23:12:43 +01:00
|
|
|
use lib '.'; # For use in nonstandard directory, munged by Makefile.
|
2006-05-02 08:53:33 +02:00
|
|
|
use IkiWiki;
|
2006-03-13 03:08:04 +01:00
|
|
|
|
2006-03-23 09:13:39 +01:00
|
|
|
sub usage () { #{{{
|
2006-12-29 05:38:40 +01:00
|
|
|
die gettext("usage: ikiwiki [options] source dest"), "\n";
|
2006-03-23 09:13:39 +01:00
|
|
|
} #}}}
|
|
|
|
|
2006-03-23 09:04:34 +01:00
|
|
|
sub getconfig () { #{{{
|
|
|
|
if (! exists $ENV{WRAPPED_OPTIONS}) {
|
2006-05-04 20:51:26 +02:00
|
|
|
%config=defaultconfig();
|
2006-03-23 09:04:34 +01:00
|
|
|
eval q{use Getopt::Long};
|
2006-07-28 07:26:49 +02:00
|
|
|
Getopt::Long::Configure('pass_through');
|
2006-03-23 09:04:34 +01:00
|
|
|
GetOptions(
|
|
|
|
"setup|s=s" => \$config{setup},
|
2008-07-26 18:46:31 +02:00
|
|
|
"dumpsetup|s=s" => \$config{dumpsetup},
|
2006-03-23 09:04:34 +01:00
|
|
|
"wikiname=s" => \$config{wikiname},
|
|
|
|
"verbose|v!" => \$config{verbose},
|
2006-08-16 23:17:49 +02:00
|
|
|
"syslog!" => \$config{syslog},
|
2006-03-23 09:04:34 +01:00
|
|
|
"rebuild!" => \$config{rebuild},
|
2006-03-26 07:08:41 +02:00
|
|
|
"refresh!" => \$config{refresh},
|
2007-03-29 20:27:00 +02:00
|
|
|
"post-commit" => \$config{post_commit},
|
2006-09-21 23:34:29 +02:00
|
|
|
"render=s" => \$config{render},
|
2006-07-30 06:31:08 +02:00
|
|
|
"wrappers!" => \$config{wrappers},
|
2007-04-01 21:59:42 +02:00
|
|
|
"usedirs!" => \$config{usedirs},
|
2008-02-09 03:35:12 +01:00
|
|
|
"prefix-directives!" => \$config{prefix_directives},
|
2006-03-26 04:30:44 +02:00
|
|
|
"getctime" => \$config{getctime},
|
2007-03-31 10:48:10 +02:00
|
|
|
"numbacklinks=i" => \$config{numbacklinks},
|
2006-05-02 20:44:39 +02:00
|
|
|
"rcs=s" => \$config{rcs},
|
|
|
|
"no-rcs" => sub { $config{rcs}="" },
|
2006-03-23 09:04:34 +01:00
|
|
|
"cgi!" => \$config{cgi},
|
2006-05-05 20:20:52 +02:00
|
|
|
"discussion!" => \$config{discussion},
|
2006-07-07 23:00:48 +02:00
|
|
|
"w3mmode!" => \$config{w3mmode},
|
2006-03-23 09:04:34 +01:00
|
|
|
"url=s" => \$config{url},
|
|
|
|
"cgiurl=s" => \$config{cgiurl},
|
|
|
|
"historyurl=s" => \$config{historyurl},
|
|
|
|
"diffurl=s" => \$config{diffurl},
|
2006-04-25 01:09:26 +02:00
|
|
|
"svnpath" => \$config{svnpath},
|
|
|
|
"adminemail=s" => \$config{adminemail},
|
2006-05-29 07:09:43 +02:00
|
|
|
"timeformat=s" => \$config{timeformat},
|
2006-08-27 22:25:05 +02:00
|
|
|
"sslcookie!" => \$config{sslcookie},
|
2006-10-03 00:56:09 +02:00
|
|
|
"httpauth!" => \$config{httpauth},
|
2006-12-29 06:58:33 +01:00
|
|
|
"userdir=s" => \$config{userdir},
|
2007-07-25 03:16:53 +02:00
|
|
|
"htmlext=s" => \$config{htmlext},
|
2007-08-13 05:07:31 +02:00
|
|
|
"libdir=s" => \$config{libdir},
|
2006-03-23 09:04:34 +01:00
|
|
|
"exclude=s@" => sub {
|
2006-12-21 20:46:01 +01:00
|
|
|
push @{$config{wiki_file_prune_regexps}}, $_[1];
|
2006-03-23 09:04:34 +01:00
|
|
|
},
|
|
|
|
"adminuser=s@" => sub {
|
|
|
|
push @{$config{adminuser}}, $_[1]
|
|
|
|
},
|
|
|
|
"templatedir=s" => sub {
|
|
|
|
$config{templatedir}=possibly_foolish_untaint($_[1])
|
|
|
|
},
|
2006-03-29 20:21:01 +02:00
|
|
|
"underlaydir=s" => sub {
|
|
|
|
$config{underlaydir}=possibly_foolish_untaint($_[1])
|
|
|
|
},
|
2006-03-23 09:04:34 +01:00
|
|
|
"wrapper:s" => sub {
|
2007-08-28 23:14:03 +02:00
|
|
|
$config{wrapper}=$_[1] ? possibly_foolish_untaint($_[1]) : "ikiwiki-wrap"
|
|
|
|
},
|
|
|
|
"wrappermode=i" => sub {
|
|
|
|
$config{wrappermode}=possibly_foolish_untaint($_[1])
|
2006-03-23 09:04:34 +01:00
|
|
|
},
|
2006-05-02 04:34:33 +02:00
|
|
|
"plugin=s@" => sub {
|
|
|
|
push @{$config{plugin}}, $_[1];
|
2006-05-05 07:41:11 +02:00
|
|
|
},
|
|
|
|
"disable-plugin=s@" => sub {
|
2006-12-29 05:49:55 +01:00
|
|
|
push @{$config{disable_plugins}}, $_[1];
|
2006-05-05 07:41:11 +02:00
|
|
|
},
|
2007-08-04 08:28:43 +02:00
|
|
|
"set=s" => sub {
|
|
|
|
my ($var, $val)=split('=', $_[1], 2);
|
|
|
|
if (! defined $var || ! defined $val) {
|
|
|
|
die gettext("usage: --set var=value"), "\n";
|
|
|
|
}
|
|
|
|
$config{$var}=$val;
|
|
|
|
},
|
2006-08-13 04:03:43 +02:00
|
|
|
"version" => sub {
|
2006-10-09 01:57:37 +02:00
|
|
|
print "ikiwiki version $IkiWiki::version\n";
|
2006-08-13 04:03:43 +02:00
|
|
|
exit;
|
|
|
|
},
|
2006-03-23 09:04:34 +01:00
|
|
|
) || usage();
|
|
|
|
|
2006-09-21 23:34:29 +02:00
|
|
|
if (! $config{setup} && ! $config{render}) {
|
2006-07-28 07:26:49 +02:00
|
|
|
loadplugins();
|
2006-03-23 09:04:34 +01:00
|
|
|
usage() unless @ARGV == 2;
|
2006-03-23 11:27:47 +01:00
|
|
|
$config{srcdir} = possibly_foolish_untaint(shift @ARGV);
|
|
|
|
$config{destdir} = possibly_foolish_untaint(shift @ARGV);
|
2006-03-23 09:04:34 +01:00
|
|
|
checkconfig();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
# wrapper passes a full config structure in the environment
|
|
|
|
# variable
|
2008-07-13 05:45:21 +02:00
|
|
|
eval possibly_foolish_untaint($ENV{WRAPPED_OPTIONS});
|
2006-05-03 23:50:39 +02:00
|
|
|
if ($@) {
|
|
|
|
error("WRAPPED_OPTIONS: $@");
|
|
|
|
}
|
2006-07-28 07:26:49 +02:00
|
|
|
loadplugins();
|
2006-03-23 09:04:34 +01:00
|
|
|
checkconfig();
|
|
|
|
}
|
|
|
|
} #}}}
|
|
|
|
|
2006-03-23 08:51:52 +01:00
|
|
|
sub main () { #{{{
|
2006-03-23 09:04:34 +01:00
|
|
|
getconfig();
|
|
|
|
|
2007-08-28 23:14:03 +02:00
|
|
|
if ($config{setup}) {
|
2006-03-23 08:51:52 +01:00
|
|
|
require IkiWiki::Setup;
|
2008-07-26 18:46:31 +02:00
|
|
|
IkiWiki::Setup::load($config{setup});
|
|
|
|
if (! $config{render} && ! $config{dumpsetup} &&
|
|
|
|
(! $config{refresh} || $config{wrappers})) {
|
|
|
|
debug(gettext("generating wrappers.."));
|
|
|
|
require IkiWiki::Wrapper;
|
|
|
|
my %origconfig=(%config);
|
|
|
|
my @wrappers=@{$config{wrappers}};
|
|
|
|
delete $config{wrappers};
|
|
|
|
foreach my $wrapper (@wrappers) {
|
|
|
|
%config=(%origconfig,
|
|
|
|
rebuild => 0,
|
|
|
|
verbose => 0,
|
|
|
|
%{$wrapper},
|
|
|
|
);
|
|
|
|
checkconfig();
|
|
|
|
if (! $config{cgi} && ! $config{post_commit}) {
|
|
|
|
$config{post_commit}=1;
|
|
|
|
}
|
|
|
|
gen_wrapper();
|
|
|
|
}
|
|
|
|
%config=(%origconfig);
|
|
|
|
}
|
|
|
|
|
|
|
|
# setup implies a wiki rebuild by default
|
|
|
|
if (! $config{refresh}) {
|
|
|
|
$config{rebuild}=1;
|
|
|
|
}
|
|
|
|
|
|
|
|
# ignore syslog setting from setup file
|
|
|
|
# while doing initial setup
|
|
|
|
$config{syslog}=0;
|
|
|
|
|
|
|
|
loadplugins();
|
|
|
|
checkconfig();
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($config{dumpsetup}) {
|
|
|
|
loadplugins();
|
|
|
|
checkconfig();
|
|
|
|
IkiWiki::Setup::dump($config{dumpsetup});
|
2006-03-23 08:51:52 +01:00
|
|
|
}
|
2006-03-23 08:55:36 +01:00
|
|
|
elsif ($config{wrapper}) {
|
|
|
|
lockwiki();
|
2006-03-23 08:51:52 +01:00
|
|
|
require IkiWiki::Wrapper;
|
|
|
|
gen_wrapper();
|
|
|
|
}
|
2007-08-28 23:14:03 +02:00
|
|
|
elsif ($config{cgi}) {
|
|
|
|
require IkiWiki::CGI;
|
2008-07-13 05:23:25 +02:00
|
|
|
eval {cgi()};
|
|
|
|
if ($@) {
|
|
|
|
cgierror($@);
|
|
|
|
}
|
2007-08-28 23:14:03 +02:00
|
|
|
}
|
2006-09-21 23:34:29 +02:00
|
|
|
elsif ($config{render}) {
|
|
|
|
require IkiWiki::Render;
|
|
|
|
commandline_render();
|
|
|
|
}
|
2007-02-21 09:55:28 +01:00
|
|
|
elsif ($config{post_commit} && ! commit_hook_enabled()) {
|
2008-01-29 06:36:58 +01:00
|
|
|
# do nothing
|
2007-02-21 09:55:28 +01:00
|
|
|
}
|
2006-03-23 08:51:52 +01:00
|
|
|
else {
|
2008-07-26 18:46:31 +02:00
|
|
|
if (! $config{refresh}) {
|
|
|
|
debug(gettext("rebuilding wiki.."));
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
debug(gettext("refreshing wiki.."));
|
|
|
|
}
|
2006-03-23 08:55:36 +01:00
|
|
|
lockwiki();
|
2006-03-23 22:54:30 +01:00
|
|
|
loadindex();
|
2006-03-23 08:51:52 +01:00
|
|
|
require IkiWiki::Render;
|
|
|
|
rcs_update();
|
|
|
|
refresh();
|
|
|
|
saveindex();
|
2008-07-26 18:46:31 +02:00
|
|
|
debug(gettext("done"));
|
2006-03-23 08:51:52 +01:00
|
|
|
}
|
|
|
|
} #}}}
|
|
|
|
|
|
|
|
main;
|