+ $content =~ s[$RE{URI}{HTTP}{-keep}][<a href="$1">$1</a>]gs;
+
+ my $log = XMLin( scalar `svn log --xml $path`,
+ ForceArray => [ 'logentry' ],
+ );
+ my $changes = join("\n",
+ map {
+ my $d = $_->{date};
+ $d =~ s{\.\d+Z}{};
+ $d =~ s{T}{ };
+ qq|<li>$_->{msg} <span class="date">$d</span></li>|
+ } @{ $log->{logentry} }
+ );
+
+ $path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next;