Make it possible to load setup files w/o running them. Code needing to do so can call IkiWiki::Setup::load, and the values will be loaded into %IkiWiki::Setup::setup.
parent
6ebb411e8b
commit
4e02dead14
|
@ -1,14 +1,17 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
package IkiWiki::Setup;
|
||||||
use warnings;
|
use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
use IkiWiki;
|
use IkiWiki;
|
||||||
use open qw{:utf8 :std};
|
use open qw{:utf8 :std};
|
||||||
|
|
||||||
package IkiWiki;
|
# This hashref is where setup files store settings while they're being
|
||||||
|
# loaded. It is not used otherwise.
|
||||||
|
our $raw_setup;
|
||||||
|
|
||||||
sub setup () { # {{{
|
sub load ($) { # {{{
|
||||||
my $setup=possibly_foolish_untaint($config{setup});
|
my $setup=IkiWiki::possibly_foolish_untaint(shift);
|
||||||
delete $config{setup};
|
delete $config{setup};
|
||||||
#translators: The first parameter is a filename, and the second
|
#translators: The first parameter is a filename, and the second
|
||||||
#translators: is a (probably not translated) error message.
|
#translators: is a (probably not translated) error message.
|
||||||
|
@ -24,7 +27,86 @@ sub setup () { # {{{
|
||||||
eval $code;
|
eval $code;
|
||||||
error("$setup: ".$@) if $@;
|
error("$setup: ".$@) if $@;
|
||||||
|
|
||||||
exit;
|
my $ret=$raw_setup;
|
||||||
|
$raw_setup=undef;
|
||||||
|
|
||||||
|
return %$ret;
|
||||||
|
} #}}}
|
||||||
|
|
||||||
|
package IkiWiki;
|
||||||
|
|
||||||
|
sub setup () { #{{{
|
||||||
|
my %setup=IkiWiki::Setup::load($config{setup});
|
||||||
|
|
||||||
|
$setup{plugin}=$config{plugin};
|
||||||
|
if (exists $setup{add_plugins}) {
|
||||||
|
push @{$setup{plugin}}, @{$setup{add_plugins}};
|
||||||
|
delete $setup{add_plugins};
|
||||||
|
}
|
||||||
|
if (exists $setup{exclude}) {
|
||||||
|
push @{$config{wiki_file_prune_regexps}}, $setup{exclude};
|
||||||
|
}
|
||||||
|
|
||||||
|
if (! $config{render} && (! $config{refresh} || $config{wrappers})) {
|
||||||
|
debug(gettext("generating wrappers.."));
|
||||||
|
my @wrappers=@{$setup{wrappers}};
|
||||||
|
delete $setup{wrappers};
|
||||||
|
my %startconfig=(%config);
|
||||||
|
foreach my $wrapper (@wrappers) {
|
||||||
|
%config=(%startconfig, rebuild => 0, verbose => 0, %setup, %{$wrapper});
|
||||||
|
checkconfig();
|
||||||
|
if (! $config{cgi} && ! $config{post_commit}) {
|
||||||
|
$config{post_commit}=1;
|
||||||
|
}
|
||||||
|
gen_wrapper();
|
||||||
|
}
|
||||||
|
%config=(%startconfig);
|
||||||
|
}
|
||||||
|
|
||||||
|
foreach my $c (keys %setup) {
|
||||||
|
next if $c eq 'syslog';
|
||||||
|
if (defined $setup{$c}) {
|
||||||
|
if (! ref $setup{$c}) {
|
||||||
|
$config{$c}=IkiWiki::possibly_foolish_untaint($setup{$c});
|
||||||
|
}
|
||||||
|
elsif (ref $setup{$c} eq 'ARRAY') {
|
||||||
|
$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 (! $config{refresh}) {
|
||||||
|
$config{rebuild}=1;
|
||||||
|
}
|
||||||
|
|
||||||
|
loadplugins();
|
||||||
|
checkconfig();
|
||||||
|
|
||||||
|
if ($config{render}) {
|
||||||
|
commandline_render();
|
||||||
|
}
|
||||||
|
|
||||||
|
if (! $config{refresh}) {
|
||||||
|
debug(gettext("rebuilding wiki.."));
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
debug(gettext("refreshing wiki.."));
|
||||||
|
}
|
||||||
|
|
||||||
|
lockwiki();
|
||||||
|
loadindex();
|
||||||
|
refresh();
|
||||||
|
|
||||||
|
debug(gettext("done"));
|
||||||
|
saveindex();
|
||||||
} #}}}
|
} #}}}
|
||||||
|
|
||||||
1
|
1
|
||||||
|
|
|
@ -11,83 +11,7 @@ use IkiWiki::Render;
|
||||||
package IkiWiki::Setup::Standard;
|
package IkiWiki::Setup::Standard;
|
||||||
|
|
||||||
sub import {
|
sub import {
|
||||||
IkiWiki::setup_standard(@_);
|
$IkiWiki::Setup::raw_setup=$_[1];
|
||||||
}
|
|
||||||
|
|
||||||
package IkiWiki;
|
|
||||||
|
|
||||||
sub setup_standard {
|
|
||||||
my %setup=%{$_[1]};
|
|
||||||
|
|
||||||
$setup{plugin}=$config{plugin};
|
|
||||||
if (exists $setup{add_plugins}) {
|
|
||||||
push @{$setup{plugin}}, @{$setup{add_plugins}};
|
|
||||||
delete $setup{add_plugins};
|
|
||||||
}
|
|
||||||
if (exists $setup{exclude}) {
|
|
||||||
push @{$config{wiki_file_prune_regexps}}, $setup{exclude};
|
|
||||||
}
|
|
||||||
|
|
||||||
if (! $config{render} && (! $config{refresh} || $config{wrappers})) {
|
|
||||||
debug(gettext("generating wrappers.."));
|
|
||||||
my @wrappers=@{$setup{wrappers}};
|
|
||||||
delete $setup{wrappers};
|
|
||||||
my %startconfig=(%config);
|
|
||||||
foreach my $wrapper (@wrappers) {
|
|
||||||
%config=(%startconfig, rebuild => 0, verbose => 0, %setup, %{$wrapper});
|
|
||||||
checkconfig();
|
|
||||||
if (! $config{cgi} && ! $config{post_commit}) {
|
|
||||||
$config{post_commit}=1;
|
|
||||||
}
|
|
||||||
gen_wrapper();
|
|
||||||
}
|
|
||||||
%config=(%startconfig);
|
|
||||||
}
|
|
||||||
|
|
||||||
foreach my $c (keys %setup) {
|
|
||||||
next if $c eq 'syslog';
|
|
||||||
if (defined $setup{$c}) {
|
|
||||||
if (! ref $setup{$c}) {
|
|
||||||
$config{$c}=possibly_foolish_untaint($setup{$c});
|
|
||||||
}
|
|
||||||
elsif (ref $setup{$c} eq 'ARRAY') {
|
|
||||||
$config{$c}=[map { possibly_foolish_untaint($_) } @{$setup{$c}}]
|
|
||||||
}
|
|
||||||
elsif (ref $setup{$c} eq 'HASH') {
|
|
||||||
foreach my $key (keys %{$setup{$c}}) {
|
|
||||||
$config{$c}{$key}=possibly_foolish_untaint($setup{$c}{$key});
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
$config{$c}=undef;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (! $config{refresh}) {
|
|
||||||
$config{rebuild}=1;
|
|
||||||
}
|
|
||||||
|
|
||||||
loadplugins();
|
|
||||||
checkconfig();
|
|
||||||
|
|
||||||
if ($config{render}) {
|
|
||||||
commandline_render();
|
|
||||||
}
|
|
||||||
|
|
||||||
if (! $config{refresh}) {
|
|
||||||
debug(gettext("rebuilding wiki.."));
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
debug(gettext("refreshing wiki.."));
|
|
||||||
}
|
|
||||||
|
|
||||||
lockwiki();
|
|
||||||
loadindex();
|
|
||||||
refresh();
|
|
||||||
|
|
||||||
debug(gettext("done"));
|
|
||||||
saveindex();
|
|
||||||
}
|
}
|
||||||
|
|
||||||
1
|
1
|
||||||
|
|
|
@ -1,3 +1,11 @@
|
||||||
|
ikiwiki (2.54) UNRELEASED; urgency=low
|
||||||
|
|
||||||
|
* Make it possible to load setup files w/o running them. Code
|
||||||
|
needing to do so can call IkiWiki::Setup::load, and the values will
|
||||||
|
be loaded into %IkiWiki::Setup::setup.
|
||||||
|
|
||||||
|
-- Joey Hess <joeyh@debian.org> Wed, 09 Jul 2008 22:27:19 -0400
|
||||||
|
|
||||||
ikiwiki (2.53) unstable; urgency=low
|
ikiwiki (2.53) unstable; urgency=low
|
||||||
|
|
||||||
* search: generate configuration files once only when rebuilding
|
* search: generate configuration files once only when rebuilding
|
||||||
|
|
Loading…
Reference in New Issue