]> sipb.mit.edu Git - ikiwiki.git/blob - IkiWiki/Setup.pm
Major code reoganisation, splitting up the single big file. The two goals
[ikiwiki.git] / IkiWiki / Setup.pm
1 #!/usr/bin/perl
2
3 use warnings;
4 use strict;
5
6 package IkiWiki;
7
8 sub setup () { # {{{
9         my $setup=possibly_foolish_untaint($config{setup});
10         delete $config{setup};
11         open (IN, $setup) || error("read $setup: $!\n");
12         local $/=undef;
13         my $code=<IN>;
14         ($code)=$code=~/(.*)/s;
15         close IN;
16
17         eval $code;
18         error($@) if $@;
19         exit;
20 } #}}}
21
22 1