122 lines
3.1 KiB
Perl
122 lines
3.1 KiB
Perl
#!/usr/bin/perl
|
|
# Ikiwiki setup files are perl files that 'use IkiWiki::Setup::foo',
|
|
# passing it some sort of configuration data.
|
|
|
|
package IkiWiki::Setup;
|
|
|
|
use warnings;
|
|
use strict;
|
|
use IkiWiki;
|
|
use open qw{:utf8 :std};
|
|
use File::Spec;
|
|
|
|
sub load ($) {
|
|
my $setup=IkiWiki::possibly_foolish_untaint(shift);
|
|
$config{setupfile}=File::Spec->rel2abs($setup);
|
|
|
|
#translators: The first parameter is a filename, and the second
|
|
#translators: is a (probably not translated) error message.
|
|
open (IN, $setup) || error(sprintf(gettext("cannot read %s: %s"), $setup, $!));
|
|
my $code;
|
|
{
|
|
local $/=undef;
|
|
$code=<IN>;
|
|
}
|
|
($code)=$code=~/(.*)/s;
|
|
close IN;
|
|
|
|
eval $code;
|
|
error("$setup: ".$@) if $@;
|
|
}
|
|
|
|
sub merge ($) {
|
|
# Merge setup into existing config and untaint.
|
|
my %setup=%{shift()};
|
|
|
|
if (exists $setup{add_plugins} && exists $config{add_plugins}) {
|
|
push @{$setup{add_plugins}}, @{$config{add_plugins}};
|
|
}
|
|
if (exists $setup{exclude}) {
|
|
push @{$config{wiki_file_prune_regexps}}, $setup{exclude};
|
|
}
|
|
foreach my $c (keys %setup) {
|
|
if (defined $setup{$c}) {
|
|
if (! ref $setup{$c} || ref $setup{$c} eq 'Regexp') {
|
|
$config{$c}=IkiWiki::possibly_foolish_untaint($setup{$c});
|
|
}
|
|
elsif (ref $setup{$c} eq 'ARRAY') {
|
|
if ($c eq 'wrappers') {
|
|
# backwards compatability code
|
|
$config{$c}=$setup{$c};
|
|
}
|
|
else {
|
|
$config{$c}=[map { IkiWiki::possibly_foolish_untaint($_) } @{$setup{$c}}]
|
|
}
|
|
}
|
|
elsif (ref $setup{$c} eq 'HASH') {
|
|
foreach my $key (keys %{$setup{$c}}) {
|
|
$config{$c}{$key}=IkiWiki::possibly_foolish_untaint($setup{$c}{$key});
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
$config{$c}=undef;
|
|
}
|
|
}
|
|
|
|
if (length $config{cgi_wrapper}) {
|
|
push @{$config{wrappers}}, {
|
|
cgi => 1,
|
|
wrapper => $config{cgi_wrapper},
|
|
wrappermode => (defined $config{cgi_wrappermode} ? $config{cgi_wrappermode} : "06755"),
|
|
};
|
|
}
|
|
}
|
|
|
|
sub getsetup () {
|
|
# Gets all available setup data from all plugins. Returns an
|
|
# ordered list of [plugin, setup] pairs.
|
|
my @ret;
|
|
|
|
# disable logging to syslog while dumping, broken plugins may
|
|
# whine when loaded
|
|
my $syslog=$config{syslog};
|
|
$config{syslog}=undef;
|
|
|
|
# Load all plugins, so that all setup options are available.
|
|
my @plugins=grep { $_ ne $config{rcs} } sort(IkiWiki::listplugins());
|
|
unshift @plugins, $config{rcs} if $config{rcs}; # rcs plugin 1st
|
|
foreach my $plugin (@plugins) {
|
|
eval { IkiWiki::loadplugin($plugin) };
|
|
if (exists $IkiWiki::hooks{checkconfig}{$plugin}{call}) {
|
|
my @s=eval { $IkiWiki::hooks{checkconfig}{$plugin}{call}->() };
|
|
}
|
|
}
|
|
|
|
foreach my $plugin (@plugins) {
|
|
if (exists $IkiWiki::hooks{getsetup}{$plugin}{call}) {
|
|
# use an array rather than a hash, to preserve order
|
|
my @s=eval { $IkiWiki::hooks{getsetup}{$plugin}{call}->() };
|
|
next unless @s;
|
|
push @ret, [ $plugin, \@s ],
|
|
}
|
|
}
|
|
|
|
$config{syslog}=$syslog;
|
|
|
|
return @ret;
|
|
}
|
|
|
|
sub dump ($) {
|
|
my $file=IkiWiki::possibly_foolish_untaint(shift);
|
|
|
|
require IkiWiki::Setup::Standard;
|
|
my @dump=IkiWiki::Setup::Standard::gendump("Setup file for ikiwiki.");
|
|
|
|
open (OUT, ">", $file) || die "$file: $!";
|
|
print OUT "$_\n" foreach @dump;
|
|
close OUT;
|
|
}
|
|
|
|
1
|