IkiWiki/Setup.pm

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