]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - IkiWiki/Setup.pm
Merge branch 'master' of ssh://git.ikiwiki.info/srv/git/ikiwiki.info
[git.ikiwiki.info.git] / IkiWiki / Setup.pm
1 #!/usr/bin/perl
2 # Ikiwiki setup files are perl files that 'use IkiWiki::Setup::foo',
3 # passing it some sort of configuration data.
5 package IkiWiki::Setup;
7 use warnings;
8 use strict;
9 use IkiWiki;
10 use open qw{:utf8 :std};
12 sub load ($) { # {{{
13         my $setup=IkiWiki::possibly_foolish_untaint(shift);
14         delete $config{setup};
15         #translators: The first parameter is a filename, and the second
16         #translators: is a (probably not translated) error message.
17         open (IN, $setup) || error(sprintf(gettext("cannot read %s: %s"), $setup, $!));
18         my $code;
19         {
20                 local $/=undef;
21                 $code=<IN>;
22         }
23         ($code)=$code=~/(.*)/s;
24         close IN;
26         eval $code;
27         error("$setup: ".$@) if $@;
28 } #}}}
30 sub merge ($) {
31         # Merge setup into existing config and untaint.
32         my %setup=%{shift()};
34         if (exists $setup{add_plugins}) {
35                 push @{$setup{add_plugins}}, @{$config{add_plugins}};
36         }
37         if (exists $setup{exclude}) {
38                 push @{$config{wiki_file_prune_regexps}}, $setup{exclude};
39         }
40         foreach my $c (keys %setup) {
41                 if (defined $setup{$c}) {
42                         if (! ref $setup{$c} || ref $setup{$c} eq 'Regexp') {
43                                 $config{$c}=IkiWiki::possibly_foolish_untaint($setup{$c});
44                         }
45                         elsif (ref $setup{$c} eq 'ARRAY') {
46                                 if ($c eq 'wrappers') {
47                                         # backwards compatability code
48                                         $config{$c}=$setup{$c};
49                                 }
50                                 else {
51                                         $config{$c}=[map { IkiWiki::possibly_foolish_untaint($_) } @{$setup{$c}}]
52                                 }
53                         }
54                         elsif (ref $setup{$c} eq 'HASH') {
55                                 foreach my $key (keys %{$setup{$c}}) {
56                                         $config{$c}{$key}=IkiWiki::possibly_foolish_untaint($setup{$c}{$key});
57                                 }
58                         }
59                 }
60                 else {
61                         $config{$c}=undef;
62                 }
63         }
64         
65         if (length $config{cgi_wrapper}) {
66                 push @{$config{wrappers}}, {
67                         cgi => 1,
68                         wrapper => $config{cgi_wrapper},
69                         wrappermode => (defined $config{cgi_wrappermode} ? $config{cgi_wrappermode} : "06755"),
70                 };
71         }
72 } #}}}
74 sub getsetup () { #{{{
75         # Gets all available setup data from all plugins. Returns an ordered list of
76         # [plugin, setup] pairs.
77         my @ret;
79         # disable logging to syslog while dumping, broken plugins may whine when loaded
80         my $syslog=$config{syslog};
81         $config{syslog}=0;
83         # Load all plugins, so that all setup options are available.
84         my @plugins=grep { $_ ne $config{rcs} } sort(IkiWiki::listplugins());
85         unshift @plugins, $config{rcs} if $config{rcs}; # rcs plugin 1st
86         foreach my $plugin (@plugins) {
87                 eval { IkiWiki::loadplugin($plugin) };
88                 if (exists $IkiWiki::hooks{checkconfig}{$plugin}{call}) {
89                         my @s=eval { $IkiWiki::hooks{checkconfig}{$plugin}{call}->() };
90                 }
91         }
93         foreach my $plugin (@plugins) {
94                 if (exists $IkiWiki::hooks{getsetup}{$plugin}{call}) {
95                         # use an array rather than a hash, to preserve order
96                         my @s=eval { $IkiWiki::hooks{getsetup}{$plugin}{call}->() };
97                         next unless @s;
98                         push @ret, [ $plugin, \@s ],
99                 }
100         }
101         
102         $config{syslog}=$syslog;
104         return @ret;
105 } #}}}
107 sub dump ($) { #{{{
108         my $file=IkiWiki::possibly_foolish_untaint(shift);
109         
110         require IkiWiki::Setup::Standard;
111         my @dump=IkiWiki::Setup::Standard::gendump("Setup file for ikiwiki.");
113         open (OUT, ">", $file) || die "$file: $!";
114         print OUT "$_\n" foreach @dump;
115         close OUT;