web commit by joey

[git.ikiwiki.info.git] / IkiWiki / Setup.pm

#!/usr/bin/perl

use warnings;
use strict;

package IkiWiki;

sub setup () { # {{{
        my $setup=possibly_foolish_untaint($config{setup});
        delete $config{setup};
        open (IN, $setup) || error("read $setup: $!\n");
        my $code;
        {
                local $/=undef;
                $code=<IN>;
        }
        ($code)=$code=~/(.*)/s;
        close IN;

        eval $code;
        error($@) if $@;

        exit;
} #}}}

1