- while($current_level<$level) {
- print OUTPUT "<ol type=\"1\">\n";
- $current_level++;
- }
- while($current_level>$level) {
- print OUTPUT "</ol>\n";
- $current_level--;
- }
- foreach (1..$current_level) {
- print OUTPUT "\t";
- }
- print OUTPUT "<li> <a href=\"#$label\">$name</a>\n";
-}
+ my $outfile = "$infile.toc";
+ $outfile =~ s|\./||g;
+ $outfile =~ s|\.\./||g;
+ $outfile =~ s|/|_|g;
+ $outfile = ".$outfile";
+ print "Create a TOC for $infile (in $outfile)\n";
+ open OUTPUT,"> ./$outfile";
+ my($current_level)=-1;
+ my($entry);
+ print OUTPUT "<!-- Automatically generated table of contents --!>\n";
+ print OUTPUT "<div class=\"toc\">\n";
+ print OUTPUT "<div class=\"tocTitle\">Table of content</div>\n";
+ foreach $entry (@toc) {
+ ($level,$label,$name) = @$entry;