git.oblomov.eu Git - ikiwiki/blob - IkiWiki/Setup.pm

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5 use IkiWiki;
   6
   7 package IkiWiki;
   8
   9 sub setup () { # {{{
  10         my $setup=possibly_foolish_untaint($config{setup});
  11         delete $config{setup};
  12         open (IN, $setup) || error("read $setup: $!\n");
  13         my $code;
  14         {
  15                 local $/=undef;
  16                 $code=<IN>;
  17         }
  18         ($code)=$code=~/(.*)/s;
  19         close IN;
  20
  21         eval $code;
  22         error($@) if $@;
  23
  24         exit;
  25 } #}}}
  26
  27 1