my ($rev, $user, $when, @pages, $message);
foreach (`LANG=C svn log -v '$svn_url'`) {
chomp;
- print STDERR "state: $state ($_)\n";
if ($state eq 'start' && /$div/) {
$state='header';
}
elsif ($state eq 'header' && /$infoline/) {
$rev=$1;
$user=$2;
- $when=ago(time - str2time($3));
+ $when=concise(ago(time - str2time($3)));
}
elsif ($state eq 'header' && /^\s+(.*)/) {
push @pages, $1;
$state='body';
}
elsif ($state eq 'body' && /$div/) {
- push @ret, {rev => $rev, user => $user,
- date => $when, message => $message,
- pages => [@pages]},
- last if @ret >= $num;
+ push @ret, { rev => $rev, user => $user,
+ when => $when, message => $message,
+ pages => [@pages] };
+ return @ret if @ret >= $num;
$state='header';
$message=$rev=$user=$when=undef;
$list.="<br>\n";
$list.="changed ".$change->{when}." by ".
htmllink("index", $change->{user}).
- ": <i>".$change->{message}."<br>\n";
+ ": <i>".$change->{message}."</i>\n";
$list.="</li>\n";
}
$list.="</ul>\n";