#!/usr/bin/perl

# Constants
$| = 1 ;
$TRUE = 1 ;
$FALSE = 0 ;

# Settings
$base_dir = "";
$root = $ENV{"DOCUMENT_ROOT"}."${base_dir}/";
$here = $ENV{"SCRIPT_FILENAME"};
$cgi = substr( $here, rindex( $here, "/" ) + 1 );
$style_file = "style.css";
$root_feature = "home";
$topbar_feature = "topbar";
$ad_feature = "ad";
$faq_feature = "faq";
$members_feature = "members";
$sitemap_feature = "sitemap";
# secondary_features == Features that are treated like txt/ files for
#   txt2html processing, and context-sensitive content.
#   insert between "" arguments
$secondary_features = join( ',', "", $ad_feature, $topbar_feature, "" );
$menu_conf_separator_item = "SEPARATOR_ITEM";
$sawmill_option = "--sawmill";
$search_option = "--search";
$feedback_option = "--feedback";
$plain_option = "--plain";
if ( $ENV{"HTTP_USER_AGENT"} =~ /.*MSIE.*/ ) {
  $MSIE = $TRUE ;
}
else {
  $MSIE = $FALSE ;
}
$border = 0 ;
## DEBUG
# $MSIE = $TRUE ;
# $border = 1 ;
$title = "";
$ref_URL = "";
$content = "";
$ad = "";
$menu_txt[0] = "";
$menu_URL[0] = "";
$menu_sub[0] = 0;
$menu_path[0] = "";
$menu_desc[0] = "";
$menu_root[0] = $FALSE ;
$menu_arrow[0] = $FALSE ;
$menu_sel[0] = $FALSE ;
$menu_file[0] = $FALSE ;
$menu_max = 0 ;
$menu_total_separators = 0 ;
$label = $root_feature;
$sawmill = $FALSE ;
$sawmill_token = "[[[SAWMILL-STATISTICS]]]";
$search = $FALSE ;
$search_token = "[[[SEARCH-PAGE]]]";
$feedback = $FALSE ;
$feedback_token = "[[[FEEDBACK-PAGE]]]";
$plain = $FALSE ;
$comment = "#OMP#";
$txt_dir = "txt/";
$txt_suf = ".txt";
$menu_conf = "menu.conf";
$menu_disimgsuf = "_d";
$menu_imgsuf = ".gif";

# Appearance
$header_font = "Verdana,Arial,Helvetica";
$logo_color = "#007384";
$content_bg = "#FFFFFF";
$content_text = "#000000";
$banner_bg = "#CFCFCF";
$banner_text = "#000000";
$topbar_text = "#FFFFFF";
$backpage_bg = $logo_color ;
$backpage_bg_0 = "#006971";
$backpage_bg_1 = "#00555D";
$backpage_bg_2 = "#00454D";
$backpage_width = 20 ;
$backpage_height = 40 ;
$backpage_text_size = "-2";
$backpage_text = "#FFFFFF";
$activate_backpage_menu = $FALSE ;
$menu_images = $TRUE ;
$menu_arrow_width = 7 ;
$menu_arrow_open_height = 4 ;
$menu_bg = "#CCFFCC";
$menu_bg_0 = "#B0E0B0";
$menu_bg_1 = "#99B599";
$menu_bg_2 = "#778A77";
$menu_text = "#000000";
$menu_text_size = "-1";
$menu_disabled = "#000000";
$menu_link = "#606060";
$menu_separator_bg = "#000000";
$menu_separator_width = 2 ;
$menu_btn_width = 50;
$menu_btn_height = 20 ;
$menu_vert_pad = 6;
$menu_width = 120;
$menu_pad = 18;
$side_pad = 13;
$separator_bg = "#000000";
$separator_text = "#FFFFFF";
$vert_sep_width = 2 ;
$horiz_sep_width = 2 ;

# Parse Command Line
while ( @ARGV ) {
  if ( $ARGV[0] eq $sawmill_option ) {
    # Create a context-correct framing page for Sawmill
    $sawmill = $TRUE ;
    $base_dir = "http://www.openmp.org";
    $root = "/home/openmp/web/htdocs/";
    $here = "/home/openmp/web/htdocs/members/index.cgi";
    $cgi = substr( $here, rindex( $here, "/" ) + 1 );
    $label = "sawmill";
    $MSIE = $TRUE ;
    chdir "${root}/members" ;
  }
  elsif ( $ARGV[0] eq $search_option ) {
    # Create a context-correct framing page for Search
    $search = $TRUE ;
    $root = "/home/openmp/web/htdocs/";
    $here = "/home/openmp/web/htdocs/members/archives/index.cgi";
    $cgi = substr( $here, rindex( $here, "/" ) + 1 );
    $label = "mjsearch";
    $MSIE = $TRUE ;
    chdir "${root}/members/archives" ;
  }
  elsif ( $ARGV[0] eq $feedback_option ) {
    # Create a context-correct framing page for Feedback
    $feedback = $TRUE ;
    $root = "/home/openmp/web/htdocs/";
    $here = "/home/openmp/web/htdocs/index.cgi";
    $cgi = substr( $here, rindex( $here, "/" ) + 1 );
    $label = "feedback_results";
    $MSIE = $TRUE ;
  }
  elsif ( $ARGV[0] eq $plain_option ) {
    # For "<A INT PLAIN HREF=*" support
    $plain = $TRUE ;
  }
  else {  
    $label = $ARGV[0];
    $ref_URL = $ARGV[1];
    shift @ARGV ;
  }
  shift @ARGV ;
}

# Filter out dangerous characters
$label =~ s/[\*\?\(\)\[\]\{\}\\\|;<>]/_/g;
$label =~ s/\.\.//g;
$ref_URL =~ s/[\*\?\(\)\[\]\{\}\\\|;<>]/_/g;
$ref_URL =~ s/\.\.//g;

if ( !$sawmill && !$search && !$feedback ) {
  print "Content-type: text/html\n\n";
}

# Read menu and ad contents
# getMenu() modifies menu_*[]
$menu_max = getMenu() - 1;
if ( ( $menu_max == 0 ) && !defined( $menu_txt[0] ) ) {
  $menu_max = -1 ;
}
$topbar = getFiles( $topbar_feature, $FALSE, $FALSE );
$ad = getFiles( $ad_feature, $FALSE, $FALSE );

# Read in main title and contents
# getContent() modifies $content, $title
if ( $ref_URL eq "" ) {
  &getContent( $label );
}
else {
  &getContent( $ref_URL );
}

# We need a place-holder title for PLAIN files
if ( $plain && ( $ref_URL ne "" ) ) {
  $title = "OpenMP: ".substr( $ref_URL, rindex( $ref_URL, "/" ) + 1 );
}

# Generate HTML

print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>${title}</TITLE>\n";
print "<META NAME=\"DESCRIPTION\" CONTENT=\"The official site for OpenMP - Simple, Portable, Scalable, SMP Programming\">\n";
print "<META NAME=\"KEYWORDS\" CONTENT=\"OpenMP, Simple, Portable, Scalable, Parallel, SMP, Fortran, C, C++\">\n";
# Load up the style sheet for this directory, if applicable,
# else load root-level default
if ( -f $style_file ) {
  print "<LINK REL=\"STYLESHEET\" HREF=\"${style_file}\" TYPE=\"text/css\">\n";
}
elsif ( -f "${root}${style_file}" ) {
  print "<LINK REL=\"STYLESHEET\" HREF=\"/${style_file}\" TYPE=\"text/css\">\n";
}
print "</HEAD>\n";
print "<BODY TOPMARGIN=\"0\" LEFTMARGIN=\"0\" MARGINWIDTH=\"0\" MARGINHEIGHT=\"0\" BGCOLOR=\"${content_bg}\" TEXT=\"${content_text}\">\n";

print "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"0\" WIDTH=\"100%\">\n";

# Top spacer
print "<TR><TD COLSPAN=\"11\" BGCOLOR=\"${banner_bg}\">";
print spacer( 1, $horiz_sep_width );
print "</TD></TR>";

# BANNER CELLS
print "<TR>";

# Upper-left corner
print "<TD BGCOLOR=\"${banner_bg}\">";
print spacer( $menu_width, 1 );
print "</TD>";

# Vertical separator stub
print "<TD COLSPAN=\"4\" BGCOLOR=\"${banner_bg}\">";
print spacer( 1, 1 );
print "</TD>";

# Image & title cell
print "<TD BGCOLOR=\"${banner_bg}\" ALIGN=LEFT VALIGN=BOTTOM>";
print "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"0\">\n";
print "<TR>";
print "<TD ALIGN=LEFT VALIGN=BOTTOM>";
print "<IMG SRC=\"${base_dir}/images/openmp.gif\" BORDER=\"$border\" ALT=\" OpenMP \" WIDTH=\"200\" HEIGHT=\"72\">";
print spacer( ( $side_pad * 2 ), 1 );
print "</TD>";
print "<TD ALIGN=CENTER VALIGN=MIDDLE WIDTH=300>";
$banner_title = $title ;
$banner_title =~ s/^OpenMP: //i;
print "<FONT FACE=\"${header_font}\" COLOR=\"${logo_color}\"><B>${banner_title}</B></FONT>";
print "</TD>";
print "</TR>\n";
print "</TABLE>\n";
print "</TD>";

# BANNER GRADIENT SEPARATOR STUB
print "<TD COLSPAN=\"4\" BGCOLOR=\"${banner_bg}\">";
print spacer( 1, 1 );
print "</TD>";

# BANNER BACKPAGE STUB
print "<TD BGCOLOR=\"${banner_bg}\">";
print spacer( $backpage_width, 1 );
print "</TD>";

print "</TR>\n";

# TOP BAR TOP SPACER
print "<TR><TD COLSPAN=\"11\" BGCOLOR=\"${separator_bg}\">";
print spacer( 1, ( $horiz_sep_width / 2 ) );
print "</TD></TR>";

# TOP BAR
print "<TR>";

# TOP BAR, MENU PART
print "<TD ALIGN=LEFT BGCOLOR=\"${separator_bg}\">";
print "<FONT FACE=\"${header_font}\" COLOR=\"${separator_text}\">";
print spacer( 5, 1 );
print "<B>www.openmp.org</B></FONT>";
print "</TD>";

# TOP BAR, LEFT GRADIENT STUB
print "<TD COLSPAN=\"4\" BGCOLOR=\"${separator_bg}\">";
print spacer( 1, 1 );
print "</TD>";

# TOP BAR, CONTENT PART
# COLSPAN: menu, sep*4, content, sep*4, (space)
print "<TD BGCOLOR=\"${separator_bg}\" ALIGN=CENTER>";
print "<FONT FACE=\"${header_font}\" COLOR=\"${topbar_text}\">";
print $topbar ;
print "</FONT>";
print "</TD>";

# TOP BAR, RIGHT GRADIENT STUB
print "<TD COLSPAN=\"4\" BGCOLOR=\"${separator_bg}\">";
print spacer( 1, 1 );
print "</TD>";

# TOP BAR, BACKPAGE STUB
print "<TD BGCOLOR=\"${separator_bg}\">";
print spacer( $backpage_width, 1 );
print "</TD>";

print "</TR>\n";

# TOP BAR BOTTOM SPACER
print "<TR><TD COLSPAN=\"11\" BGCOLOR=\"${separator_bg}\">";
print spacer( 1, ( $horiz_sep_width * 2 ) );
print "</TD></TR>";

# MENU CELL
print "<TR>";

print "<TD ROWSPAN=\"2\" BGCOLOR=\"${menu_bg}\" ALIGN=CENTER VALIGN=TOP>";

# MENU TABLE-LET
# HORIZ SPACING -- MENU TEXT/IMAGE -- HORIZ SPACING -- etc.

print "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"0\" BGCOLOR=\"${menu_bg}\" WIDTH=\"100%\">\n";

# Side pads
print "<TR>";
print "<TD ROWSPAN=\"".((($menu_max*2)-($menu_total_separators*2))+3)."\">";
print spacer( $side_pad, 1 );
print "</TD>";
print "<TD VALIGN=MIDDLE>";
print spacer( 1, $menu_vert_pad );
print "</TD>";
print "<TD ROWSPAN=\"".((($menu_max*2)-($menu_total_separators*2))+3)."\">";
print spacer( $side_pad, 1 );
print "</TD>";
print "</TR>\n";
# End side pads

for ( $c = 0 ; $c <= $menu_max ; $c++ ) {
  $sep = ( $menu_txt[$c] eq $menu_conf_separator_item );
  $sep_next = ( $menu_txt[($c+1)] eq $menu_conf_separator_item );

  # Menu items cell
  print "<TR>";

  print "<TD ALIGN=LEFT VALIGN=MIDDLE NOWRAP>";

  if ( $sep ) {
    if ( $MSIE ) {
      $mult = 0.75 ;
    }
    else {
      $mult = 1.66 ;
    }
    print l_spacer( ( ( $menu_pad * $menu_sub[$c] ) + int( $menu_arrow_width * $mult ) ), 1 );
    print "<HR NOSHADE SIZE=\"${menu_separator_width}\">";
  }
  else {
    # Spacer
    if ( $menu_sub[$c] > 0 ) {
      print spacer( ( $menu_pad * $menu_sub[$c] ), 1 );
    }

    # Arrow
    if ( $menu_root[$c] && $menu_arrow[$c] ) {	# a bit redundant
      print "<A HREF=\"${base_dir}/".$menu_path[$c].$menu_URL[$c]."\">";
      if ( $here =~ /${menu_URL[$c]}/ ) {
        print "<IMG SRC=\"${base_dir}/images/open.gif\" BORDER=\"${border}\" ALT=\" Open Hierarchy \" WIDTH=\"${menu_arrow_width}\" HEIGHT=\"${menu_arrow_open_height}\">";
      }
      else {
        print "<IMG SRC=\"${base_dir}/images/closed.gif\" BORDER=\"${border}\" ALT=\" Closed Hierarchy \" WIDTH=\"${menu_arrow_width}\" HEIGHT=\"${menu_arrow_width}\">";
      }
      print "</A>";
    }
    else {
      print spacer( $menu_arrow_width, 1 );
    }
    print spacer( ( $menu_arrow_width / 2 ), 1 );

    # Menu Item
    if ( $menu_sel[$c] ) {
      if ( -f "${txt_dir}${label}{$menu_disimgsuf}.gif" && $menu_images ) {
        print "<IMG BORDER=\"${border}\" ALT=\" ".$menu_txt[$c]." \" WIDTH=\"${menu_btn_width}\" HEIGHT=\"${menu_btn_height}\" SRC=\"${txt_dir}${label}${menu_disimgsuf}${menu_imgsuf}\">";
      }
      else {
        print "<FONT SIZE=\"${menu_text_size}\" FACE=\"${header_font}\" COLOR=\"${menu_disabled}\"><B>".$menu_txt[$c]."</B></FONT>" ;
      }
    }
    else {
      if ( $menu_root[$c] || $menu_file[$c] ) {
        print "<A HREF=\"${base_dir}/".$menu_path[$c].$menu_URL[$c]."\">";
      }
      else {
        print "<A HREF=\"${base_dir}/".$menu_path[$c]."${cgi}?".$menu_URL[$c]."\">";
      }
      if ( -f "${txt_dir}${label}.gif" && $menu_images ) {
        print "<IMG BORDER=\"${border}\" ALT=\" ".$menu_txt[$c]." \" WIDTH=\"${menu_btn_width}\" HEIGHT=\"${menu_btn_height}\" SRC=\"${txt_dir}${label}${menu_imgsuf}\">";
      }
      else {
        print "<FONT SIZE=\"${menu_text_size}\" FACE=\"${header_font}\" COLOR=\"${menu_link}\"><B>".$menu_txt[$c]."</B></FONT>";
      }
      print "</A>";
    }
  }
  print "</TD>";

  print "</TR>\n";

  if ( !$sep && !$sep_next ) {
    if ( $c == $menu_max ) {
      $mult = 2 ;
    }
    else {
      $mult = 1 ;
    }
    print "<TR><TD>";
    print spacer( 1, ( $menu_vert_pad * $mult ) );
    print "</TD></TR>\n";
  }
} # for ( $c <= $menu_max )

# MENU HORIZONTAL SEPARATOR

if ( $ad ne "" ) {
  print "<TR><TD COLSPAN=\"3\" BGCOLOR=\"${menu_separator_bg}\">";
  print spacer( 1, $menu_separator_width );
  print "</TD></TR>\n";
}

# AD SECTION

# Side pads
print "<TR><TD ROWSPAN=3>";
print spacer( $side_pad, 1 );
print "</TD>";
print "<TD>";
print spacer( 1, ( $menu_vert_pad * 2 ) );
print "</TD>";
print "<TD ROWSPAN=3>";
print spacer( $side_pad, 1 );
print "</TD></TR>";
# End side pads

print "<TR><TD BGCOLOR=\"${menu_bg}\" ALIGN=CENTER VALIGN=TOP>";
if ( $ad ne "" ) {
  print "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"0\" WIDTH=\"".($menu_width-$side_pad)."\"><TR><TD ALIGN=CENTER VALIGN=TOP>";
  print $ad ;
  print "</TD></TR></TABLE>\n";
}
print "</TD></TR>\n";

# Bottom spacer
print "<TR><TD>";
print spacer( 1, ( $menu_vert_pad * 2 ) );
print "</TD></TR>";

# END MENU TABLE-LET
print "</TABLE>\n";

# END MENU CELL
print "</TD>\n";

# VERTICAL GRADIENT SEPARATOR

print "<TD ROWSPAN=\"2\" BGCOLOR=\"${menu_bg_0}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";
print "<TD ROWSPAN=\"2\" BGCOLOR=\"${menu_bg_1}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";
print "<TD ROWSPAN=\"2\" BGCOLOR=\"${menu_bg_2}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";
print "<TD ROWSPAN=\"2\" BGCOLOR=\"${separator_bg}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";

# CONTENT CELL

print "<TD ALIGN=LEFT VALIGN=TOP>\n";
print "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"${side_pad}\" WIDTH=\"100%\">\n";
print "<TR><TD ALIGN=LEFT VALIGN=TOP>";

if ( $plain ) {
  # If we got here via a <A INT PLAIN href
  print "<PRE>";
}
print $content;

if ( $plain ) {
  # Close the PRE after content is finished
  print "</PRE>";
}
if ( $sawmill ) {
  # Within the content cell, tell Sawmill to start inserting
  # its statistics here.
  print "\n${sawmill_token}\n";
}
elsif ( $search ) {
  print "\n${search_token}\n";
}
elsif ( $feedback ) {
  print "\n${feedback_token}\n";
}
print "</TD></TR>\n";
print "</TABLE>\n";
print "</TD>";

# RIGHT SIDE VERTICAL GRADIENT SEPARATOR

print "<TD ROWSPAN=\"2\" BGCOLOR=\"${separator_bg}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";
print "<TD ROWSPAN=\"3\" BGCOLOR=\"${backpage_bg_2}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";
print "<TD ROWSPAN=\"4\" BGCOLOR=\"${backpage_bg_1}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";
print "<TD ROWSPAN=\"5\" BGCOLOR=\"${backpage_bg_0}\">";
print spacer( $vert_sep_width, 1 );
print "</TD>";

print "<TD ROWSPAN=\"6\" BGCOLOR=\"${backpage_bg}\">";
print spacer( $backpage_width, 1 );
print "</TD>";

# END MENU/CONTENT ROW
print "</TR>\n";

# COPYRIGHT NOTICE

print "<TR><TD ALIGN=CENTER VALIGN=BOTTOM><HR WIDTH=\"99%\"><FONT SIZE=-1>Copyright &copy; 1997-2003, OpenMP Architecture Review Board</FONT></TD></TR>";

# BOTTOM HORIZONTAL GRADIENT SEPARATOR

print "<TR><TD COLSPAN=\"7\" BGCOLOR=\"${separator_bg}\">";
print spacer( 1, ( $horiz_sep_width ) );
print "</TD></TR>";
print "<TR><TD COLSPAN=\"8\" BGCOLOR=\"${backpage_bg_2}\">";
print spacer( 1, ( $horiz_sep_width ) );
print "</TD></TR>";
print "<TR><TD COLSPAN=\"9\" BGCOLOR=\"${backpage_bg_1}\">";
print spacer( 1, ( $horiz_sep_width ) );
print "</TD></TR>";
print "<TR><TD COLSPAN=\"10\" BGCOLOR=\"${backpage_bg_0}\">";
print spacer( 1, ( $horiz_sep_width ) );
print "</TD></TR>";

# BACKPAGE
print "<TR>";

# Menu Stub # Separator Stub # Content Stub # Separator Stub # Backpage Stub

# Bottom bar content
print "<TD COLSPAN=\"11\" BGCOLOR=\"${backpage_bg}\" ALIGN=CENTER>";

if ( $activate_backpage_menu ) {
  print "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"".int($side_pad/2)."\" WIDTH=\"100%\" ALIGN=CENTER>\n";
  print "<TR><TD ALIGN=CENTER VALIGN=TOP>";
  for ( $c = 0 ; $c <= $menu_max ; $c++ ) {
    if ( ( $menu_sub[$c] == 0 ) && ( $menu_txt[$c] ne $menu_conf_separator_item ) ) {
      if ( $c > 0 ) {
        print "<FONT SIZE=\"${backpage_text_size}\" FACE=\"${header_font}\" COLOR=\"${backpage_text}\">";
        print "|&nbsp; ";
        print "</FONT>";
      }
      if ( $menu_root[$c] || $menu_file[$c] ) {
        print "<A HREF=\"${base_dir}/".$menu_path[$c].$menu_URL[$c]."\">";
      }
      else {
        print "<A HREF=\"${base_dir}/".$menu_path[$c]."${cgi}?".$menu_URL[$c]."\">";
      }
      $txt_tmp = $menu_txt[$c] ;
      $txt_tmp =~ s/ /\&nbsp\;/g ;
      print "<FONT SIZE=\"${backpage_text_size}\" FACE=\"${header_font}\" COLOR=\"${backpage_text}\">";
      print $txt_tmp ;
      print "</FONT></A>&nbsp;&nbsp;&nbsp;";
    }
  }
  print "</TD></TR>\n";
  print "</TABLE>\n";
}
else {
  print spacer( 1, $backpage_height );
}

print "</TD>";

print "</TR>\n";
# END BACKPAGE

print "<TR><TD COLSPAN=\"11\" BGCOLOR=\"${separator_bg}\">";
print spacer( 1, ( $horiz_sep_width * 2 ) );
print "</TD></TR>\n";

print "</TABLE>\n";
print "</BODY>\n";

print "</HTML>\n";

exit( 0 );

###
# Subroutines


# getMenu(): Parses menu.conf files from a given point UP in the menu hierarchy
#            Modifies global menu_*[] arrays
#	     $c is the menu_*[] subscript, maintained through recursion
#            $sub denotes the position in the hierarchy
#            $labeltree denotes the hierarchy above us that has already
#	       been processed
sub getMenu {
  my( $sub, $c, $labelTree ) = @_ ;
  my( $stage ) = ( 0 );
  my( $myHere, $line ) = ( "", "" );
  my( $menu_FP ) = ( "" );

  # Where I am currently in the menu hierarchy
  $myHere = toPath( $here );

  if ( defined( $sub ) && defined( $c ) && defined( $labelTree ) ) {
    # Find where I am ($myHere) by striping the higher part
    # of the hierarchy ($labeltree)
    $myHere = substr( $myHere, 0, length( $myHere ) - length( $labelTree ) );
  }
  else {
    # First-time called, initialize $labelTree with current path
    $sub = 0 ;
    $c = 0 ;
    $labelTree = "" ;
    while ( $myHere ne $root ) {
      $labelTree = tailPath( $myHere )."/".${labelTree};
      $myHere = headPath( $myHere );
      if ( $myHere eq "/" ) {
        return $c ;
      }
    }
  }
  # Open and parse the menu_conf file
  # $stage == 1 -- found txt; 2 -- found url; if desc found at 2, reset to 0
  $menu_FP = tailPath( $myHere );
  if ( !open($menu_FP, "${myHere}${txt_dir}${menu_conf}") ) {
#    printf "Could not open \"${myHere}${txt_dir}${menu_conf}\"; punting.";
#    exit(0);
     return $c;
  }
  while ( <$menu_FP> ) {
    chomp;chomp;
    next if ( $_ =~ /^${comment}/ );
    $line = $_ ;
    if ( $line eq "" ) {
      $stage = 0;
    }
    else {
      if ( $stage == 0 ) {
        if ( $line eq $menu_conf_separator_item ) {
          $menu_txt[$c] = $line ;
	  $menu_sub[$c] = $sub ;
          $menu_total_separators++ ;
          $c++;
        }
        else {
          $stage++;
          $menu_txt[$c] = $line ;
        }
      }
      elsif ( $stage == 1 ) {
        $stage++;
        $menu_URL[$c] = $line ;
        if ( ( $menu_file[$c] = ( $line =~ /\./ ) ) ) {
          $look_label = substr( $menu_URL[$c], 0, index( $menu_URL[$c], '.' ) );
        }
        else {
          $look_label = $menu_URL[$c] ;
        }
        $menu_sub[$c] = $sub ;
	$menu_path[$c] = substr( $myHere, length( $root ) ) ;
        # NASTY CODE TO DETERMINE WHETHER A MENU ITEM
        # IS THE CURRENTLY SELECTED ITEM...
#        print "here $here sub ".substr($myPath,length($myPath)-length($menu_path[$c]))." my $myHere label $label lt $labelTree mp $menu_path[$c] mU $menu_URL[$c]<BR>";
        $menu_sel[$c] = ( ( $menu_URL[$c] eq $labelTree ) && ( $label eq $root_feature ) && ( $ref_URL eq "" ) ) ||
                        ( ( $labelTree eq "" ) && ( $label eq $look_label ) && ( $ref_URL eq "" ) ) ||
                        ( ( $menu_URL[$c] eq $root_feature ) && ( $label eq $root_feature ) && ( $labelTree eq "" ) );
#          print "check for $line root $root my $myHere mp ".substr( $myHere, length( $root ) )." lt $labelTree tp ".topPath( $labelTree )."<BR>";
        # Is the item a folder, and if so, does it have a menu.conf file?
	if ( substr( $line, length( $line )-1, 1 ) eq "/" ) {
          $menu_root[$c] = $TRUE ;
          $menu_arrow[$c] = ( -f $myHere.$menu_URL[$c].$txt_dir.$menu_conf );
          $line = substr( $line, 0, rindex( $line, "/" ) );
        }
	$c++;
        # GET HIGHER (ROOT) MENU ITEMS
        if ( $line eq topPath( $labelTree ) ) {
          $c = getMenu( $sub+1, $c, upPath( $labelTree ) );
        }
      }
      elsif ( $stage == 2 ) {
	# Found final info line, reset stage
        $menu_desc[$c] = $line ;
        $stage = 0;
      }
    }
  }
  close( $menu_FP );

  return $c ;
} # getMenu()


# toPath(): take off any filenames at the end of a path
sub toPath {
  my( $thePath ) = @_ ;

  return substr( $thePath, 0, rindex( $thePath, "/" )+1 );
} # toPath()


# tailPath(): extract the last directory entry in a path
sub tailPath {
  my( $thePath ) = @_ ;
  my( $last, $nextLast ) = ( "", "" );

  $last = rindex( $thePath, "/" );
  $nextLast = rindex( $thePath, "/", $last-1 );

  return substr( $thePath, $nextLast+1, $last-$nextLast-1 );
} # tailPath()


# topPath(): extract the top level directory in a path
sub topPath {
  my( $thePath ) = @_ ;

  return substr( $thePath, 0, index( $thePath, "/" ) );
} # topPath()


# upPath(): inverse of topPath() -- remove top level dir
sub upPath {
  my( $thePath ) = @_ ;

  return substr( $thePath, index( $thePath, "/" )+1 );
} # upPath()


# headPath(): remove lowest level dir from path
sub headPath {
  my( $thePath ) = @_ ;
  my( $last, $nextLast ) = ( "", "" );

  $last = rindex( $thePath, "/" );
  $nextLast = rindex( $thePath, "/", $last-1 );

  return substr( $thePath, 0, $nextLast+1 );
} # headPath()


# spacer(): Return a spacer HTML string
sub spacer {
  my( $width, $height ) = @_ ;

  return if ( !defined( $width ) || !defined( $height ) );

  $width = int( $width );
  $height = int( $height );

  if ( $MSIE ) {
    return "<IMG SRC=\"${base_dir}/images/spacer.gif\" BORDER=\"${border}\" WIDTH=\"${width}\" HEIGHT=\"${height}\" ALT=\" SPACER \">";
  }
  else {
    return "<SPACER TYPE=BLOCK WIDTH=\"${width}\" HEIGHT=\"${height}\">";
  }
} # spacer()


# l_spacer(): Return an ALIGN=LEFT horizontal spacer HTML string
sub l_spacer {
  my( $width, $height ) = @_ ;

  return if ( !defined( $width ) || !defined( $height ) );

  $width = int( $width );
  $height = int( $height );

  if ( $MSIE ) {
    return "<IMG SRC=\"${base_dir}/images/spacer.gif\" BORDER=\"${border}\" WIDTH=\"${width}\" HEIGHT=\"${height}\" ALT=\" SPACER \" ALIGN=LEFT>";
  }
  else {
    return "<SPACER TYPE=BLOCK WIDTH=\"${width}\" HEIGHT=\"${height}\" ALIGN=LEFT>";
  }
} # l_spacer()


# getContent(): Retrieve content, modify globals $title and $content
#               $type is the tag for our current menu hier. location
#               $link determines whether we're looking at a base txt
#                 document, or an internal HTML page.
sub getContent {
  my( $type ) = @_ ;
  my( $begin, $link, $line ) = ( $TRUE, $FALSE, "" );

  return if ( !defined( $type ) );

  if ( $type eq $sitemap_feature ) {
    $title = "OpenMP: Site Map";
    $content = generateSiteMap();
    return;
  }

  $link = ( $type =~ /\// && substr( $type, -1, 1 ) ne "/" );
  if ( $link ) {
    if ( !open( CONTENT, "${type}" ) ) {
      $title = "Feature \"${type}\" not found - ${type}";
      $content = "<FONT SIZE=+1><B>Sorry, the feature \"${type}\" could not be found.<BR>\nPlease report this event to <A HREF=\"mailto:webmaster\@openmp.org\">webmaster\@openmp.org</A>.</B></FONT><BR>\n";
      return;
    }
  }
  else {
    if ( !open( CONTENT, "${txt_dir}${type}${txt_suf}" ) ) {
      $title = "Feature \"${type}\" not found - ${txt_dir}${type}${txt_suf}";
      $content = "<FONT SIZE=+1><B>Sorry, the feature \"${type}\" could not be found.<BR>\nPlease report this event to <A HREF=\"mailto:webmaster\@openmp.org\">webmaster\@openmp.org</A>.</B></FONT><BR>\n";
      return;
    }
  }
  while ( <CONTENT> ) {
    chomp;chomp;
    $line = $_ ;
    # Ignore blank lines until non-blank found
    # Ignore commented-out lines
    next if ( ( $_ eq "" && $begin ) || $_ =~ /^${comment}/ );
    if ( $begin && !$plain ) {
      $begin = $FALSE ;
      if ( !( $line =~ /^</ ) ) {
        # The first line is the title
        $title = $line ;
      }
      next;
    }
    $content .= "${line}\n";
  }
  close( CONTENT );

  # Convert basic text formatting to HTML, translate HREFs, etc.
  $content = txt2html( $type, $content );

  # If this isn't an internal HTML page, look for file0.txt, file1.txt, etc.
  if ( !$link ) {
    $content .= getFiles( $type, $TRUE, $FALSE );
  }
} # getContent()


# getFiles(): read from consecutive files (file.txt, file0.txt, file1.txt)
#	      $type is the menu hier. location tag
#	      $skipFirst means don't look at file.txt
#               E.g., the main content file is handled differently
#             $noTranslate -> don't run the txt2html translator on these files
#	      @sources -- use these paths to look for ads (global/local ads)
sub getFiles {
  my( $type, $skipFirst, $noTranslate ) = @_ ;
  my( $stuff, $src_dir ) = ( "", "" );
  my( $c, $d ) = ( 0, 0 );
  my( $found ) = ( $FALSE );
  my( @sources ) = ( "${txt_dir}${label}_", "${txt_dir}" );

  return "" if ( !defined($type) );

  if ( ( $secondary_features =~ /,${type},/ ) && ( toPath( $here ) ne $root ) ) {
    push( @sources, "${root}${txt_dir}" );
  }

  for ( $d = 0 ; $d <= $#sources ; $d++ ) { 
    $src_dir = $sources[$d] ;
#    print "SRC $src_dir or ${src_dir}${type}${txt_suf}<BR>\n";

    if ( -f "${src_dir}${type}${txt_suf}" && (!$skipFirst) ) {
      if ( $found ) {
        $stuff .= "<HR>\n";
      }
      $found = $TRUE ;
      $stuff .= catFile( "${src_dir}${type}${txt_suf}" );
    }
    $c = 0;
    while ( -f "${src_dir}${type}${c}${txt_suf}" ) {
      if ( $found || $skipFirst ) {
        $stuff .= "<HR>\n";
      }
      $found = $TRUE ;
      $stuff .= catFile( "${src_dir}${type}${c}${txt_suf}" );
      $c++ ;
    }
  }
  if ( $found ) {
    if ( $noTranslate ) {
      return $stuff ;
    }
    else {
      return txt2html( $type, $stuff );
    }
  }
  else {
    return "";
  }
} # getFiles()

# catFile(): literally cat a file into a variable.
sub catFile {
  my( $filename ) = @_ ;
  my( $stuff ) = "";

  return "" if ( (!defined($filename)) || (! -f $filename) );

  open( IN, "<${filename}" ) || return "Could not open file \"${filename}\" for reading!<BR>\n";
  while ( <IN> ) {
    next if ( $_ =~ /^${comment}/ );
    $stuff .= $_ ;
  }
  close( IN );

  return $stuff ;
} # catFile()


# txt2html(): Make basic txt->html translations, link translation, etc.
#             Read in $txtBuffer, translate it and return the new string
#	      Use $type to enable FAQ or other additional/different translations
sub txt2html {
  my( $type, $txtBuffer ) = @_ ;
  my( $i, $b, $c, $in, $indent, $stage ) = ( 0, 0, 0, 0, 0, 0 );
  my( $newBuffer, $buf, $relPath ) = ( "", "", "" );

  return "" if ( !defined( $type ) || $type eq "" || !defined( $txtBuffer ) || $txtBuffer eq "" );

  if ( ( $type eq $faq_feature ) || ( $type =~ /_${faq_feature}$/ ) ) {
    return faq2html( $txtBuffer );
  }

  $relPath = toPath( $type );

  if ( ( $relPath eq "" ) || ( $relPath eq $txt_dir ) || ( $secondary_features =~ /,${type},/ ) ) {
    # Handle $txt_dir features
    $txtBuffer =~ s/\s+HREF=\"\// FIXED HREF=\"\//gi;
    $txtBuffer =~ s/\s+INT\s+HREF=\"(?!HTTP)/ INT HREF=\"${cgi}\?${label}+/gi;
    $txtBuffer =~ s/\s+FIXED\s+HREF=\"\// HREF=\"\//gi;
  }
  else {
    # Handle arbitrary HTML
    $txtBuffer =~ /\<TITLE\>([\s\S]*)\<\/TITLE\>/i;
    if ( defined( $1 ) && $title eq "" ) {
      $title = $1 ;
    }
    $txtBuffer =~ s/\<TITLE\>[\s\w\n\m]*\<\/TITLE\>\n//gi;
    $txtBuffer =~ s/\<TITLE\>[\s\w\n\m]*\<\/TITLE\>//gi;
    $txtBuffer =~ s/\<HTML\s+/\<OMP_HTML /gi;
    $txtBuffer =~ s/\<\/HTML\>\n//gi;
    $txtBuffer =~ s/\<\/HTML\>//gi;
    $txtBuffer =~ s/\<HEAD\s+/\<OMP_HEAD /gi;
    $txtBuffer =~ s/\<\/HEAD\>\n//gi;
    $txtBuffer =~ s/\<\/HEAD\>//gi;
    $txtBuffer =~ s/\<BODY\s+/\<OMP_BODY /gi;
    $txtBuffer =~ s/\<\/BODY\>\n//gi;
    $txtBuffer =~ s/\<\/BODY\>//gi;
    $txtBuffer =~ s/\<BASE\s+/\<OMP_BASE /gi;
    $txtBuffer =~ s/\s+INT\s+HREF=\"(?!HTTP)/ INT HREF=\"${cgi}\?${label}+${relPath}/gi;
    $txtBuffer =~ s/(?!INT)\s+HREF=\"(?!HTTP)/ HREF=\"${cgi}\?${label}+${relPath}/gi;
    $txtBuffer =~ s/\s+BACKGROUND=\"/ OMP_BACKGROUND=\"${relPath}/gi;
    $txtBuffer =~ s/\s+SRC=\"/ SRC=\"${relPath}/gi;
  }
  $txtBuffer =~ s/\s+INT\s+PLAIN\s+HREF=\"(?!HTTP)/ HREF=\"${cgi}\?${plain_option}+${label}+/gi;

  # This mess parses and implements tabbed-indentation (<UL> with <LI>)
  # Quite nasty.
  while ( ( ( $i = index( $txtBuffer, "\n", $b ) ) >= 0 ) && !$plain ) {
#    print "AT ".substr( $txtBuffer, $b, $i-$b )." TA $stage<BR>";
    $buf = substr( $txtBuffer, $b, $i-$b );
    $char = substr( $buf, 0, 1 );
    if ( $buf eq "" ) {
      if ( $stage == 0 ) {
        $stage = 1;
      }
      elsif ( $stage == 2 ) {
        for ( $c = 0 ; $c < $indent ; $c++ ) {
          $newBuffer .= "</UL>\n";
        }
        $indent = 0 ;
        $stage = 1 ;
        $b = $i + 1 ;
        next;
      }
    } 
    elsif ( $char eq "\t" ) {
      $in = 0;
      while ( substr( $txtBuffer, $b+$in, 1 ) eq "\t" ) {
        $in++;
      }
      if ( $in > $indent ) {
        for ( $c = 0 ; $c < ($in-$indent) ; $c++ ) {
          $newBuffer .= "<UL>";
        }
      }
      elsif ( $indent > $in ) {
        for ( $c = 0 ; $c < ($indent-$in) ; $c++ ) {
          $newBuffer .= "</UL>";
        }
      }
      $indent = $in; 
      if ( $stage == 1 ) {
        $stage = 2;
        $newBuffer .= "<LI>";
      }
      elsif ( $stage == 2 ) {
        $newBuffer .= "<LI>";
      }
    }
    else {
      if ( $stage == 0 || $stage == 1 ) {
        if ( ( substr( $txtBuffer, $i+1, 1 ) eq "\n" ) && ( substr( $buf, 0, 1 ) ne "<" ) ) {
          $newBuffer .= "${buf}<P>\n";
          $b = $i + 1 ;
          next;
        }
      }
      if ( $stage == 1 ) {
        $stage = 0;
      }
      elsif ( $stage == 2 ) {
        for ( $c = 0 ; $c < $indent ; $c++ ) {
          $newBuffer .= "</UL>\n";
        }
        $stage = 0 ;
      }
    }       
    $newBuffer .= $buf."\n";
    $b = $i + 1 ;
  }
  $buf = substr( $txtBuffer, $b );
  if ( $buf ne "" ) {
    $newBuffer .= $buf ;
  }

  return $newBuffer;
} # txt2html()

# faq2html(): convert a FAQ-formatted txt file into header links and content
sub faq2html {
  my( $txtBuffer ) = @_ ;
  my( $stage, $i, $b, $c ) = ( 0, 0, 0, 0 );
  my( $indexBuffer, $fullBuffer, $newBuffer, $buf ) = ( "", "", "", "" );
  my( @q, @a );

  while ( ( $i = index( $txtBuffer, "\n", $b ) ) >= 0 ) {
    $buf = substr( $txtBuffer, $b, $i-$b );
    if ( $buf =~ /^\s*Q[0-9]+:([\s\S]+)/ ) {
      $stage = 1 ;
      $q[$#q+1] = $1 ;
    }
    elsif ( $buf =~ /^\s*A[0-9]+:([\s\S]+)/ ) {
      $stage = 2 ;
      $a[$#a+1] = $1 ;
    }
    else {
      if ( $stage == 0 ) {
        $newBuffer .= $buf."\n";
      }
      elsif ( $stage == 1 ) {
        $q[$#q] .= $buf ;
      }
      elsif ( $stage == 2 ) {
        $a[$#a] .= $buf ;
      }
    } 
    $b = $i + 1 ;
  }

  $indexBuffer .= "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"2\">\n";
  $fullBuffer .= "<TABLE BORDER=\"${border}\" CELLSPACING=\"0\" CELLPADDING=\"2\">\n";
  for ( $c = 0 ; $c <= $#q ; $c++ ) {
    $i = $c + 1 ;
    if ( defined( $a[$c] ) && ( $a[$c] ne "" ) ) {
      $indexBuffer .= "<TR><TD ALIGN=RIGHT VALIGN=TOP><FONT COLOR=\"#FF0000\"><B>Q${i}:</B></FONT></TD><TD ALIGN=LEFT VALIGN=TOP><A HREF=\"#Q${i}\">".$q[$c]."</A></TD></TR>\n";
      $fullBuffer .= "<TR><TD ALIGN=RIGHT VALIGN=TOP><A NAME=\"Q${i}\"><FONT COLOR=\"#FF0000\"><B>Q${i}:</B></FONT></A></TD><TD ALIGN=LEFT VALIGN=TOP>".$q[$c]."</TD></TR>\n";
      $fullBuffer .= "<TR><TD ALIGN=RIGHT VALIGN=TOP><FONT COLOR=\"${logo_color}\"><B>A${i}:</B></FONT></TD><TD ALIGN=LEFT VALIGN=TOP>".$a[$c]."</TD></TR>\n";
      if ( $c != $#q ) {
        $fullBuffer .= "<TR><TD COLSPAN=\"2\"><HR></TD></TR>\n";
      }
    }
  }
  $indexBuffer .= "</TABLE>\n";
  $fullBuffer .= "</TABLE>\n";

  $newBuffer .= $indexBuffer."<HR SIZE=\"${horiz_sep_width}\">\n".$fullBuffer ;

  return $newBuffer ;
} # faq2html()

$gSMlineCount = 0;
# generateSiteMap(): recurse through all menu_conf files from site root
# This could theoretically be an option of getMenu(), but that function is hard
# enough to follow already, methinks.
sub generateSiteMap {
  my( $myRoot, $c ) = @_ ;
  my( $menu_txt, $menu_URL, $menu_desc ) = ( "", "", "", "" );
  my( $menu_root, $menu_arrow, $start ) = ( $FALSE, $FALSE );
  my( $stage, $t ) = ( 0, 0 );
  my( $stuff ) = ( "" );

  if ( !defined( $myRoot ) ) {
    $myRoot = $root ;
  }
  if ( !defined( $c ) ) {
    $c = 0 ;
    $start = $TRUE ;
    $gSMlineCount = 0 ;
    $stuff .= "<CENTER>\n";
    $stuff .= "<TABLE BORDER=\"1\" CELLSPACING=\"1\" CELLPADDING=\"3\">\n";
  }
  my( $menu_FP ) = ( $myRoot );

  if ( ( $here !~ /\/${members_feature}\// ) && ( tailPath( $myRoot ) eq $members_feature ) ) {
    return "";
  }

  if ( !open($menu_FP, "${myRoot}${txt_dir}${menu_conf}") ) {
#    printf "Could not open \"${myRoot}${txt_dir}${menu_conf}\"; punting.";
#    exit(0);
    return "";
  }
  while ( <$menu_FP> ) {
    chomp;chomp;
    next if ( $_ =~ /^${comment}/ );
    $line = $_ ;
    if ( $line eq "" ) {
      $stage = 0;
      $menu_root = $FALSE ;
      $menu_arrow = $FALSE ;
    }
    else {
      if ( $stage == 0 ) {
        $stage++;
        $menu_txt = $line ;
      }
      elsif ( $stage == 1 ) {
        $stage++;
        $menu_URL = $line ;
        # IS THE ITEM A FOLDER/SUBMENU?
        if ( substr( $line, length( $line )-1, 1 ) eq "/" ) {
          $menu_root = $TRUE ;
        }
        if ( -f $myRoot.$menu_URL.$txt_dir.$menu_conf ) {
          $menu_arrow = $TRUE ;
        }
      }
      elsif ( $stage == 2 ) {
        $menu_desc = $line ;
        $stuff .= "<TR>";
        $gSMlineCount++ ;
        if ( $gSMlineCount % 2 ) {
          $stuff .= "<TD BGCOLOR=\"#D0D0D0\" VALIGN=MIDDLE NOWRAP>";
        }
        else {
          $stuff .= "<TD BGCOLOR=\"#EFEFEF\" VALIGN=MIDDLE NOWRAP>";
        }
        for ( $t=0 ; $t < $c ; $t++ ) {
          $stuff .= spacer( $menu_pad, 1 );
        }
        if ( $menu_arrow ) {
          $stuff .= "<IMG SRC=\"${base_dir}/images/closed.gif\" BORDER=\"${border}\" ALT=\" Hierarchy \" WIDTH=\"${menu_arrow_width}\" HEIGHT=\"${menu_arrow_width}\">";
          $stuff .= spacer( ( $menu_arrow_width / 2 ), 1 );
        }
	else {
          $stuff .= spacer( ( $menu_arrow_width * 1.5 ), 1 );
        }
        if ( $menu_root ) {
          $stuff .= "<A HREF=\"${base_dir}/".substr( $myRoot, length( $root ) ).$menu_URL."\">${menu_txt}</A>";
        }
        else {
          $stuff .= "<A HREF=\"${base_dir}/".substr( $myRoot, length( $root ) ).$cgi."?".$menu_URL."\">${menu_txt}</A>";
        }
        $stuff .= "</TD>";
        if ( $gSMlineCount % 2 ) {
          $stuff .= "<TD BGCOLOR=\"#D0D0D0\">";
        }
        else {
          $stuff .= "<TD BGCOLOR=\"#EFEFEF\">";
        }
        $stuff .= $menu_desc ;
        $stuff .= "</TD>";
        $stuff .= "</TR>\n";
        $stuff .= generateSiteMap( ${myRoot}.${menu_URL}, $c+1 );
        $stage = 0;
        $menu_root = $FALSE ;
        $menu_arrow = $FALSE ;
      }
    }
  }
  close( $menu_FP );

  if ( $start ) {
    $stuff .= "</TABLE>\n";
    $stuff .= "</CENTER>\n";
  }

  return $stuff;
} # generateSiteMap()