"; if (eregi("/meta", $root)) { $root = substr($root,0,strpos($root,"/meta")); } //$docroot = getenv("DOCUMENT_ROOT"); $docroot = "/home/groups/a/as/asnews/htdocs"; require "$docroot/$root/meta/func.inc"; include "$docroot/$root/meta/head.inc"; $sections = read_sections_file ("$docroot/meta/sections.lst"); $path = getenv( "PATH_INFO"); $file = basename($path); if ( !strcmp($path, "") ) $path = $path . "/index.inc"; if ( !strstr($path, ".") ) $path = $path . "/index.php3"; $path = substr($path, 1, strlen($path)); list($section,$subsection,$pg) = split("/",$path); /* print "
Using:
    "; print "
  1. section = $section
  2. subsection=$subsection
  3. pg = $pg"; print "
"; print "Read sections:
    "; for ($i = 0; $i < count($sections); $i++ ) print "
  1. " . $sections[$i] . "
    "; print "
"; */ if (!isset($pg) || !pg) { $pg = 1; } if (!isset($section) || $section == "") { $section = ""; include("$docroot/index.inc"); } if (!isset($subsection)) { $subsection = ""; } $subsections = array(); if (file_exists("$docroot/$section/section.lst")) $has_subsec = 1; else $has_subsec = 0; if ($has_subsec) { $subsections=read_subsections_file("$docroot/$section/section.lst"); write_navbar( $sections, $subsections, $section, $subsection ); } else { write_complete_navbar ($docroot, $root); } print ""; if ($has_subsec) { $sub_num = find_subsection_index ( $subsections, $subsection ); if ( $sub_num != -1 ) { print "
"; print "

" . $subsections[$sub_num]["title"] . "

"; if ( $subsections[$sub_num]["title"] != $subsections[$sub_num]["btitle"] ) print "
" . $subsections[$sub_num]["btitle"] . "

"; } } if (file_exists("$docroot/$path")) { print ""; //include("$docroot/$path"); /* if (!isset($real) || strcmp($real, $realid) ) register_real_hit($path); else register_hit ($path); */ body_include("$docroot/$path"); //print "
real = $real
"; print "
"; } else { print "The page you requested does not exist."; print " If you think this is wrong, contact the webmaster."; print "

Request: " . "$docroot/$path" . "
"; } print ""; print_next_prev($docroot, $path); ?>


Site hosted by SourceForge.