my $changes = join("\n",
map {
my $d = $_->{date};
- $d =~ s{\.\d+Z}{};
+ $d =~ s{:\d\d\.\d+Z}{};
$d =~ s{T}{ };
- qq|<li>$_->{msg} <span class="date">$d</span></li>|
- } @{ $log->{logentry} }
+ my $r = $_->{revision};
+ qq|<li>$_->{msg} <a class="date" title="r$r" href="http://svn.rot13.org/index.cgi/sysadmin-cookbook/revision?rev=$r">$d</a></li>|
+ } reverse @{ $log->{logentry} }
);
$path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next;
font-family: monospace;
color: #888;
float: right;
+ margin-right: 1em;
}
</style>