display nice recepie names

git-svn-id: file:///home/dpavlin/private/svn/sysadmin-cookbook-html@3 3e18072f-9615-4e06-9d3a-648eafba3f8d

diff --git a/bin/html.pl b/bin/html.pl
index cd9485d..0a591fa 100755 (executable)
--- a/bin/html.pl
+++ b/bin/html.pl
@@ -35,15 +35,18 @@ my $last_level = 0;
 my $toc_html = '';
 sub header {
        my ($level, $content) = @_;
 my $toc_html = '';
 sub header {
        my ($level, $content) = @_;

+       my $display = $content;
+       $display =~ s{^\d+[\.-]}{};
+       $display =~ s{-}{ }g;

        html qq|<a name=$content></a>|;
        html qq|<a name=$content></a>|;

-       html qq|<h$level>$content</h$level>|;
+       html qq|<h$level>$display</h$level>|;

 
        if ( $last_level > $level ) {
                $toc_html .= "</ul>";
        } elsif ( $last_level < $level ) {
                $toc_html .= "<ul>";
        }
 
        if ( $last_level > $level ) {
                $toc_html .= "</ul>";
        } elsif ( $last_level < $level ) {
                $toc_html .= "<ul>";
        }

-       $toc_html .= qq|<li><a href="#$content">$content</li>|;
+       $toc_html .= qq|<li><a href="#$content">$display</li>|;

        $last_level = $level;
 }
 
        $last_level = $level;
 }