urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

prototyping improvements

master
joey 2006-03-23 08:10:09 +00:00
parent 0943c375d4
commit 28055bbcc5
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
README
View File

@ -1,4 +1,4 @@
Use ./Makefile.PL to generate a Makefile, "make" will generate docs and a
man page, and "make install" will install ikiwiki.
Use ./Makefile.PL to generate a Makefile, "make" will build the
documentation wiki and a man page, and "make install" will install ikiwiki.
All other documentation is in the ikiwiki documentation wiki.

26
ikiwiki
View File

@ -81,7 +81,7 @@ sub getconfig () { #{{{
}
} #}}}
sub checkconfig { #{{{
sub checkconfig () { #{{{
if ($config{cgi} && ! length $config{url}) {
error("Must specify url to wiki with --url when using --cgi");
}
@ -99,11 +99,7 @@ sub checkconfig { #{{{
}
} #}}}
sub usage { #{{{
die "usage: ikiwiki [options] source dest\n";
} #}}}
sub error { #{{{
sub error ($) { #{{{
if ($config{cgi}) {
print "Content-type: text/html\n\n";
print misctemplate("Error", "<p>Error: @_</p>");
@ -111,6 +107,16 @@ sub error { #{{{
die @_;
} #}}}
sub usage () { #{{{
die "usage: ikiwiki [options] source dest\n";
} #}}}
sub possibly_foolish_untaint ($) { #{{{
my $tainted=shift;
my ($untainted)=$tainted=~/(.*)/;
return $untainted;
} #}}}
sub debug ($) { #{{{
return unless $config{verbose};
if (! $config{cgi}) {
@ -121,12 +127,6 @@ sub debug ($) { #{{{
}
} #}}}
sub possibly_foolish_untaint { #{{{
my $tainted=shift;
my ($untainted)=$tainted=~/(.*)/;
return $untainted;
} #}}}
sub basename ($) { #{{{
my $file=shift;
@ -236,7 +236,7 @@ sub isinlinableimage ($) { #{{{
$file=~/\.(png|gif|jpg|jpeg)$/;
} #}}}
sub htmllink { #{{{
sub htmllink ($$;$$) { #{{{
my $page=shift;
my $link=shift;
my $noimageinline=shift; # don't turn links into inline html images