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(sprintf(gettext("cannot read %s: %s"), $setup, $!));
  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