$path =~ s{^$recepies/*(.*?[^/]+)$}{$1} || next;
return ''
. qq|<ul class=changes>$changes</ul>|
- . ( $path =~ m{(\.sh|Makefile)$}i ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' )
+ . ( $path =~ m{(\.sh|Makefile|\.conf)$}i ? qq|<a class="path" href="$svn/view/recepies/$path">$path</a>| : '' )
. qq|<pre class=content>$content</pre>|
;
}
my $last_level = 0;
my $toc_html = '';
sub header {
- my ($level, $content) = @_;
- my $display = $content;
+ my ($level, $name) = @_;
+
+ my $display = $name;
$display =~ s{^\d+[\.-]}{};
$display =~ s{-}{ }g;
$display =~ s{\.\w+$}{};
- $content =~ s{\W+}{_}g;
- html qq|<a name=$content></a>|;
+
+ my $anchor = $name;
+ $anchor =~ s{</?[^>]+>}{}g;
+ $anchor =~ s{\W+}{_}g;
+
+ html qq|<a name=$anchor></a>|;
html qq|<h$level>$display</h$level>|;
if ( $last_level > $level ) {
} elsif ( $last_level < $level ) {
$toc_html .= "<ul>";
}
- $toc_html .= qq|<li><a href="#$content">$display</li>|;
+ $toc_html .= qq|<li><a href="#$anchor">$display</li>|;
$last_level = $level;
}