#!/usr/bin/perl -T
-
$ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
package IkiWiki;
use vars qw{%config %links %oldlinks %oldpagemtime %renderedfiles %pagesources};
+sub usage () { #{{{
+ die "usage: ikiwiki [options] source dest\n";
+} #}}}
+
sub getconfig () { #{{{
if (! exists $ENV{WRAPPED_OPTIONS}) {
%config=(
die @_;
} #}}}
-sub usage () { #{{{
- die "usage: ikiwiki [options] source dest\n";
-} #}}}
-
sub possibly_foolish_untaint ($) { #{{{
my $tainted=shift;
my ($untainted)=$tainted=~/(.*)/;