Photos
Blog
Projects
vanrenterghem.biz
projects
/
git.ikiwiki.info.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
foo
[git.ikiwiki.info.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