improve
[ikiwiki.git] / IkiWiki / Setup.pm
1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5 use IkiWiki;
6
7 package IkiWiki;
8
9 sub setup () { # {{{
10         my $setup=possibly_foolish_untaint($config{setup});
11         delete $config{setup};
12         open (IN, $setup) || error("read $setup: $!\n");
13         my $code;
14         {
15                 local $/=undef;
16                 $code=<IN>;
17         }
18         ($code)=$code=~/(.*)/s;
19         close IN;
20
21         eval $code;
22         error($@) if $@;
23
24         exit;
25 } #}}}
26
27 1