web commit by intrigeri: thanks
[ikiwiki.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.
4 #
5 # There can be multiple modules, with different configuration styles.
6 # The setup modules each convert the data into the hashes used by ikiwiki
7 # internally (if it's not already in that format), and store it in
8 # IkiWiki::Setup::$raw_setup, to pass it back to this module.
9
10 package IkiWiki::Setup;
11 use warnings;
12 use strict;
13 use IkiWiki;
14 use open qw{:utf8 :std};
15
16 our $raw_setup;
17
18 sub load ($) { # {{{
19         my $setup=IkiWiki::possibly_foolish_untaint(shift);
20         delete $config{setup};
21         #translators: The first parameter is a filename, and the second
22         #translators: is a (probably not translated) error message.
23         open (IN, $setup) || error(sprintf(gettext("cannot read %s: %s"), $setup, $!));
24         my $code;
25         {
26                 local $/=undef;
27                 $code=<IN>;
28         }
29         ($code)=$code=~/(.*)/s;
30         close IN;
31
32         eval $code;
33         error("$setup: ".$@) if $@;
34
35         my $ret=$raw_setup;
36         $raw_setup=undef;
37
38         return %$ret;
39 } #}}}
40
41 package IkiWiki;
42
43 sub setup () { #{{{
44         my %setup=IkiWiki::Setup::load($config{setup});
45
46         $setup{plugin}=$config{plugin};
47         if (exists $setup{add_plugins}) {
48                 push @{$setup{plugin}}, @{$setup{add_plugins}};
49                 delete $setup{add_plugins};
50         }
51         if (exists $setup{exclude}) {
52                 push @{$config{wiki_file_prune_regexps}}, $setup{exclude};
53         }
54
55         if (! $config{render} && (! $config{refresh} || $config{wrappers})) {
56                 debug(gettext("generating wrappers.."));
57                 my @wrappers=@{$setup{wrappers}};
58                 delete $setup{wrappers};
59                 my %startconfig=(%config);
60                 foreach my $wrapper (@wrappers) {
61                         %config=(%startconfig, rebuild => 0, verbose => 0, %setup, %{$wrapper});
62                         checkconfig();
63                         if (! $config{cgi} && ! $config{post_commit}) {
64                                 $config{post_commit}=1;
65                         }
66                         gen_wrapper();
67                 }
68                 %config=(%startconfig);
69         }
70         
71         foreach my $c (keys %setup) {
72                 next if $c eq 'syslog';
73                 if (defined $setup{$c}) {
74                         if (! ref $setup{$c}) {
75                                 $config{$c}=possibly_foolish_untaint($setup{$c});
76                         }
77                         elsif (ref $setup{$c} eq 'ARRAY') {
78                                 $config{$c}=[map { possibly_foolish_untaint($_) } @{$setup{$c}}]
79                         }
80                         elsif (ref $setup{$c} eq 'HASH') {
81                                 foreach my $key (keys %{$setup{$c}}) {
82                                         $config{$c}{$key}=possibly_foolish_untaint($setup{$c}{$key});
83                                 }
84                         }
85                 }
86                 else {
87                         $config{$c}=undef;
88                 }
89         }
90         
91         if (! $config{refresh}) {
92                 $config{rebuild}=1;
93         }
94         
95         loadplugins();
96         checkconfig();
97
98         if ($config{render}) {
99                 commandline_render();
100         }
101
102         if (! $config{refresh}) {
103                 debug(gettext("rebuilding wiki.."));
104         }
105         else {
106                 debug(gettext("refreshing wiki.."));
107         }
108
109         lockwiki();
110         loadindex();
111         refresh();
112
113         debug(gettext("done"));
114         saveindex();
115 } #}}}
116
117 1