exit 0;
} #}}}
-sub cgi_recentchanges () { #{{{
+sub cgi_recentchanges ($) { #{{{
my $q=shift;
my $template=HTML::Template->new(
wikiname => $wikiname,
changelog => [rcs_recentchanges(100)],
);
- return $template->output;
+ print $q->header, $template->output;
} #}}}
sub cgi_signin ($$) { #{{{
}
if ($do eq 'recentchanges') {
- cgi_recentchanges();
+ cgi_recentchanges($q);
return;
}
($templatedir) = possibly_foolish_untaint(shift);
($destdir) = possibly_foolish_untaint(shift);
-print cgi_recentchanges();
-
if ($cgi && ! length $url) {
error("Must specify url to wiki with --url when using --cgi");
}