$when=concise(ago(time - str2time($3)));
}
elsif ($state eq 'header' && /^\s+[A-Z]\s+\Q$svn_base\E\/(.+)$/) {
- push @pages, htmllink("", pagename($1), 1)
+ push @pages, { link => htmllink("", pagename($1), 1) }
if length $1;
}
elsif ($state eq 'header' && /^$/) {
exit 0;
} #}}}
-sub cgi_recentchanges () { #{{{
+sub html_recentchanges ($q) { #{{{
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;
}