43 |
$path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next; |
$path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next; |
44 |
return '' |
return '' |
45 |
. qq|<ul class=changes>$changes</ul>| |
. qq|<ul class=changes>$changes</ul>| |
46 |
. ( $path =~ m{(\.sh|Makefile|\.conf)$}i ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' ) |
. ( $path =~ m{(\.sh|Makefile|\.conf|\.pl)$}i || -e $path ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' ) |
47 |
. qq|<pre class=content>$content</pre>| |
. qq|<pre class=content>$content</pre>| |
48 |
; |
; |
49 |
} |
} |