#!/usr/bin/perl
#
# This program generates an HTML document containing links to man
# pages already converted to html using man2html3.0.1 
# (http://search.cpan.org/~ehood/man2html3.0.1/) 
#
# Written by:     Alex Burger
# Date:           March 2nd, 2004
# 
################################################################
# Options

# Location of man pages to parse
$man_dir = "/tmp/net-snmp/html/";
$include_header = 1;
$include_footer = 1;

# Output file
$toc_file = "/tmp/net-snmp/html/toc.hhc";

#URL up to the name of the man page
$url = '';

################################################################

if ($man_dir =~ /\/$/) {
  chop $man_dir;
}

@files = `find $man_dir`;

@files = sort @files;

open (FILE_OUT, ">$toc_file") || die "Could not open file $toc_file for writing. $!";
select FILE_OUT;

foreach my $file (@files)
{
  chomp $file;

  # Man pages  
  if ($file =~ /$man_dir\/man(\d+)-(.*)/)
  {
    push (@man_pages, "$1-$2");
  }

  # Perl POD files  
  elsif ($file =~ /$man_dir\/perl-(.*)/) {
    push (@perl_files, "$1");
  }

  # README files
  elsif ($file =~ /$man_dir\/readme-(.*)/) {
    push (@readme_files, "$1");
  }
}

@man_pages = sort (@man_pages);
@perl_files = sort (@perl_files);
@readme_files = sort (@readme_files);

# Divide up man pages  
foreach my $man_page (@man_pages)
{
  $man_page =~ /(\d+)-(.*)/;

  if ($1 == 1) { push (@man1,$2); }
  elsif ($1 == 2) { push (@man2,$2); }
  elsif ($1 == 3) { push (@man3,$2); }
  elsif ($1 == 4) { push (@man4,$2); }
  elsif ($1 == 5) { push (@man5,$2); }
  elsif ($1 == 6) { push (@man6,$2); }
  elsif ($1 == 7) { push (@man7,$2); }
  elsif ($1 == 8) { push (@man8,$2); }
  elsif ($1 == 9) { push (@man9,$2); }
}
  
if ($include_header > 0) {
  print '<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">' . "\n";
  print '<HTML>' . "\n";
  print '<HEAD>' . "\n";
  print '<meta name="GENERATOR" content="Microsoft&reg; HTML Help Workshop 4.1">' . "\n";
  print '<!-- Sitemap 1.0 -->' . "\n";
  print '</HEAD><BODY>' . "\n";
  print '<OBJECT type="text/site properties">' . "\n";
  print '	<param name="ImageType" value="Folder">' . "\n";
  print '</OBJECT>' . "\n";
  
  print "<UL>\n";
}
print_section("Applications",   "man1-",\@man1);
print_section("man2",           "man2-",\@man2);
print_section("API",            "man3-",\@man3);
print_section("man4",           "man4-",\@man4);
print_section("Configuration",  "man5-",\@man5);
print_section("man6",           "man6-",\@man6);
print_section("man7",           "man7-",\@man7);
print_section("Servers",        "man8-",\@man8);
print_section("man9",           "man9-",\@man9);

print_section("Start Here",     "readme-",\@readme_files);
print_section("Perl Modules",   "perl-",\@perl_files);

sub print_section{
  # Section title, subfolder/prefix, array
  my $section_name = shift;
  my $folder = shift;
  my $man = shift;

  if (defined(@$man)) {
      
    print '	<LI> <OBJECT type="text/sitemap">' . "\n";
    print "		<param name=\"Name\" value=\"$section_name\">\n";
    print '		<param name="ImageNumber" value="1">' . "\n";
    print '		</OBJECT>' . "\n";

    print "	<UL>\n";
    foreach my $man_page (@$man)
    {
      my $man_page_short;
      if ($man_page =~ /(.*?)\.\d+\.html/i) {
        $man_page_short = $1;
      }
      else {
        $man_page =~ /(.*?).html/i;
        $man_page_short = $1;
      }
      print '		<LI> <OBJECT type="text/sitemap">' . "\n";
      print "			<param name=\"Name \"value=\"$man_page_short\">\n";
      print "			<param name=\"Local\" value=\"$folder$url$man_page\">\n";
      print '			</OBJECT>' . "\n";
    }
    print "	</UL>\n";
  }
}

if ($include_footer > 0) {
  print "</UL>\n";
  print "</BODY>\n";
  print "</HTML>\n";
}

close FILE_OUT;