#!/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=(
if (! $config{setup}) {
usage() unless @ARGV == 2;
- $config{srcdir} = possibly_foolish_untaint(shift);
- $config{destdir} = possibly_foolish_untaint(shift);
+ $config{srcdir} = possibly_foolish_untaint(shift @ARGV);
+ $config{destdir} = possibly_foolish_untaint(shift @ARGV);
checkconfig();
}
}
die @_;
} #}}}
-sub usage () { #{{{
- die "usage: ikiwiki [options] source dest\n";
-} #}}}
-
sub possibly_foolish_untaint ($) { #{{{
my $tainted=shift;
my ($untainted)=$tainted=~/(.*)/;