$file=~/\.(png|gif|jpg|jpeg)$/;
}
-sub htmllink ($$) {
+sub htmllink {
my $page=shift;
my $link=shift;
+ my $noimagelink=shift;
my $bestlink=bestlink($page, $link);
$bestlink=File::Spec->abs2rel($bestlink, dirname($page));
- if (isinlinableimage($bestlink)) {
+ if (! $noimagelink && isinlinableimage($bestlink)) {
return "<img src=\"$bestlink\">";
}
return "<a href=\"$bestlink\">$link</a>";
$when=concise(ago(time - str2time($3)));
}
elsif ($state eq 'header' && /^\s+[A-Z]\s+\Q$svn_base\E\/(.+)$/) {
- push @pages, pagename($1);
+ push @pages, pagename($1) if length $1;
}
elsif ($state eq 'header' && /^$/) {
$state='body';
elsif ($state eq 'body' && /$div/) {
push @ret, { rev => $rev, user => $user,
when => $when, message => $message,
- pages => [@pages] };
+ pages => [@pages] } if @pages;
return @ret if @ret >= $num;
$state='header';
my $list="<ul>\n";
foreach my $change (rcs_recentchanges(100)) {
$list.="<li>";
- $list.=join(", ", map { htmllink("index", $_) } @{$change->{pages}});
+ $list.=join(", ", map { htmllink("index", $_, 1) } @{$change->{pages}});
$list.="<br>\n";
$list.="changed ".$change->{when}." by ".
- htmllink("index", $change->{user}).
+ htmllink("index", $change->{user}, 1).
": <i>".$change->{message}."</i>\n";
$list.="</li>\n";
}