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