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         local $/=undef;
  13         my $code=<IN>;
  14         ($code)=$code=~/(.*)/s;
  15         close IN;
  16
  17         eval $code;
  18         error($@) if $@;
  19         exit;
  20 } #}}}
  21
  22 1