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