#!/usr/sbin/perl

# Notes:
#
# - going to have a problem with casing
# - handle metachars

# ----------------------------------------------------
# VARIABLES

$docroot = "\/performer";
$absdocroot = "\/var\/www\/htdocs\/performer";
$dbsdir = "\/var\/www\/htdocs\/performer\/dbs";
$mandir = "/var/www/htdocs/performer/html_mans";
$cgiroot = "\/cgi-bin";
$fullcgiroot = "/var/www/cgi-bin";
# ----------------------------------------------------

# Main


# LOOK for *.html in html_mans and in html_mans/B


opendir(MANDIR,"$mandir");
@manlist = readdir MANDIR;
closedir(MANDIR);
foreach $MAN_PAGE (@manlist) {
  if ($MAN_PAGE =~ /.*\.html$/ ) {
     push(@man,"$MAN_PAGE/G");
  }
}

opendir(MANDIRB,"$mandir/B");
@manlistb = readdir MANDIRB;
closedir(MANDIRB);
foreach $MAN_PAGEB (@manlistb) {
  if ($MAN_PAGEB =~ /.*\.html$/ ) {
     push(@man,"$MAN_PAGEB/B");
  }
}


print "Content-type: text/html\n\n"; # Required for HTTP/1.0 compat.
print "<BODY BGCOLOR=\"f2f5bd\">\n";
print "<H3>Man Pages</H3>\n";

# --------------------------------------------------
# Hard coded perfly and pf man pages

print "&nbsp\;&nbsp\;&nbsp\;&nbsp\;&nbsp\;<A HREF=\"$docroot/html_mans/man1/perfly.html\">perfly</A><BR>\n";
print "&nbsp\;&nbsp\;&nbsp\;&nbsp\;&nbsp\;<A HREF=\"$docroot/html_mans/man1/pfconv.html\">pfconv</A><BR>\n";
# --------------------------------------------------

foreach $list (sort(@man)) {
   $list =~ s/^(.*).html\/(\w)/$1/;
   $dir = $2;
   #print "$list $dir\n";
   if ($dir eq "G") {
     print "&nbsp\;&nbsp\;&nbsp\;&nbsp\;&nbsp\;<A HREF=\"$docroot/html_mans/$list.html\">$list</A><BR>\n";
   } elsif ($dir eq "B") {
     print "&nbsp\;&nbsp\;&nbsp\;&nbsp\;&nbsp\;<A HREF=\"$docroot/html_mans/B/$list.html\">$list</A><BR>\n";
   }
}

print "<P>\n</BODY>\n</HTML>";

#foreach $list (@genman) {
#   print "Gen $list\n";
#}

#foreach $list (@bman) {
#   print "B $list\n";
#}