$htmltitle
\n" if ($htmltitle); print OUTFILE "By ",encode_only($htmlauthor),"
\n" if ($htmlauthor); print OUTFILE "$htmldate
\n" if ($htmldate); # table of contents? print OUTFILE "Table of Contents
\n"; print OUTFILE "- \n";
my $lastlevel = 0;
for(my $loop = 0; $loop <= $tocindex; $loop++)
{
$_ = $toc[$loop];
m#([^:]*):(.*)#;
my $level = $1;
my $content = $2;
next if $level == 2;
if($lastlevel == 0) {
# first entry
print OUTFILE qq|
- $content|; $lastlevel = $level; } elsif ($lastlevel == $level) { # stayed same, end prior entry start new one print OUTFILE qq| \n
- $content|;
} elsif ($level == 2 && $lastlevel == 1) {
# starting new level
print OUTFILE qq|\n
- \n
- $content|; $lastlevel = $level; } elsif ($level == 1 && $lastlevel == 2) { # finishing a level print OUTFILE qq| \n
\n - $content|; $lastlevel = $level; } else { print STDERR "toc error lastlevel vs level mismatch\n"; die; } } print OUTFILE "