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

recentchanges

master
joey 2006-03-11 03:56:32 +00:00
parent f7d49b96d2
commit 227d2f62c3
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ikiwiki
View File

@ -383,7 +383,6 @@ sub rcs_recentchanges ($) {
my ($rev, $user, $when, @pages, $message); my ($rev, $user, $when, @pages, $message);
foreach (`LANG=C svn log -v '$svn_url'`) { foreach (`LANG=C svn log -v '$svn_url'`) {
chomp; chomp;
print STDERR "state: $state ($_)\n";
if ($state eq 'start' && /$div/) { if ($state eq 'start' && /$div/) {
$state='header'; $state='header';
} }
@ -402,7 +401,6 @@ sub rcs_recentchanges ($) {
push @ret, { rev => $rev, user => $user, push @ret, { rev => $rev, user => $user,
date => $when, message => $message, date => $when, message => $message,
pages => [@pages] }; pages => [@pages] };
print STDERR "have: $#ret; most recent is $ret[$#ret]\n";
return @ret if @ret >= $num; return @ret if @ret >= $num;
$state='header'; $state='header';
@ -641,7 +639,6 @@ sub cgi () {
if ($do eq 'recentchanges') { if ($do eq 'recentchanges') {
my $list="<ul>\n"; my $list="<ul>\n";
foreach my $change (rcs_recentchanges(100)) { foreach my $change (rcs_recentchanges(100)) {
print STDERR "change: $change....\n";
$list.="<li>"; $list.="<li>";
foreach my $page (@{$change->{pages}}) { foreach my $page (@{$change->{pages}}) {
$list.=$page." "; $list.=$page." ";
@ -649,7 +646,7 @@ sub cgi () {
$list.="<br>\n"; $list.="<br>\n";
$list.="changed ".$change->{when}." by ". $list.="changed ".$change->{when}." by ".
htmllink("index", $change->{user}). htmllink("index", $change->{user}).
": <i>".$change->{message}."<br>\n"; ": <i>".$change->{message}."</i><br>\n";
$list.="</li>\n"; $list.="</li>\n";
} }
$list.="</ul>\n"; $list.="</ul>\n";