foo
parent
d59734caf6
commit
800dfe6612
9
ikiwiki
9
ikiwiki
|
@ -1,5 +1,4 @@
|
||||||
#!/usr/bin/perl -T
|
#!/usr/bin/perl -T
|
||||||
|
|
||||||
$ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
|
$ENV{PATH}="/usr/local/bin:/usr/bin:/bin";
|
||||||
|
|
||||||
package IkiWiki;
|
package IkiWiki;
|
||||||
|
@ -11,6 +10,10 @@ use lib '.'; # For use without installation, removed by Makefile.
|
||||||
|
|
||||||
use vars qw{%config %links %oldlinks %oldpagemtime %renderedfiles %pagesources};
|
use vars qw{%config %links %oldlinks %oldpagemtime %renderedfiles %pagesources};
|
||||||
|
|
||||||
|
sub usage () { #{{{
|
||||||
|
die "usage: ikiwiki [options] source dest\n";
|
||||||
|
} #}}}
|
||||||
|
|
||||||
sub getconfig () { #{{{
|
sub getconfig () { #{{{
|
||||||
if (! exists $ENV{WRAPPED_OPTIONS}) {
|
if (! exists $ENV{WRAPPED_OPTIONS}) {
|
||||||
%config=(
|
%config=(
|
||||||
|
@ -106,10 +109,6 @@ sub error ($) { #{{{
|
||||||
die @_;
|
die @_;
|
||||||
} #}}}
|
} #}}}
|
||||||
|
|
||||||
sub usage () { #{{{
|
|
||||||
die "usage: ikiwiki [options] source dest\n";
|
|
||||||
} #}}}
|
|
||||||
|
|
||||||
sub possibly_foolish_untaint ($) { #{{{
|
sub possibly_foolish_untaint ($) { #{{{
|
||||||
my $tainted=shift;
|
my $tainted=shift;
|
||||||
my ($untainted)=$tainted=~/(.*)/;
|
my ($untainted)=$tainted=~/(.*)/;
|
||||||
|
|
Loading…
Reference in New Issue