sub cgi_getsource ($) {
my $cgi=shift;
- # Note: we use sessioncgi rather than just cgi
- # because we need %pagesources to be
- # populated.
-
return unless (defined $cgi->param('do') &&
$cgi->param("do") eq "getsource");
my $page=$cgi->param('page');
+ # For %pagesources.
IkiWiki::loadindex();
if (! exists $pagesources{$page}) {
exit;
}
- my $data = readfile(srcfile($pagesources{$page}));
-
if (! $config{getsource_mimetype}) {
$config{getsource_mimetype} = "text/plain; charset=utf-8";
}
print "Content-Type: $config{getsource_mimetype}\r\n";
-
print ("\r\n");
+ print readfile(srcfile($pagesources{$page}));
- print $data;
-
exit 0;
}