<?php 

function GetDirArray($sPath)
{
   $handle = opendir($sPath);
   $file = true;
   $result_array = array();
   while ($file) {
      $file = readdir($handle);
      if ($file) { 
         if (is_dir($sPath.$file)) {}
         else if ($file == ".") {}
            else if ($file == "..") {}
               else {
                    $fsep = strrpos($file, ".");
                    if (is_integer($fsep)) {
                       $filext = substr($file, $fsep + 1);
                       if ($filext == "html") {
                          $resultarray[] = $file;
                       }
                    }
                }
      }
   }
   closedir($handle); 
   return $resultarray;	
}

$rootdir = "/virtual/cyberteams/htdocs";
if (!$dirpath) $dirpath = "/wsd-support/tutorial/";
$sPath = $rootdir.$dirpath;
$retArray = array();
$retArray = GetDirArray($sPath);
sort ($retArray);
$max = count($retArray);
$nextval = reset($retArray);
$i = 0;
print "<hreflist>\n";
print "<title>Files in directory: ".$dirpath."</title>\n";
print "<urlprefix>http://www.cyberteams.com".$dirpath."</urlprefix>\n";
while ($nextval) {
   $i++;
   print "<href>\n";
   print "   <url>".$nextval."</url>\n";
   print "   <displayname>".$nextval."</displayname>\n";
   print "</href>\n";
   $nextval = next($retArray);
}
print "<hreflist>\n";

?>
