strlen($Base_Dir)) { $Base_Dir = $doc_root; } $dir_requested = $Base_Dir . '/' . $dir_requested; header("Content-type: text/xml"); print "\n\n"; print "\n"; $dir_list = array(); $dh = @opendir($dir_requested); while (($file = readdir($dh)) !== false) { if (substr($file, 0, 1) == '.') { continue; } foreach ($Hide_Names as $name) { if ($file == $name) { continue 2; } } foreach ($Hide_Patterns as $pattern) { if (preg_match($pattern, $file)) { continue 2; } } if (is_dir($dir_requested.'/'.$file)) { array_push($dir_list, $file); } } closedir($dh); natcasesort($dir_list); reset($dir_list); foreach ($dir_list as $one_dir) { print "\t$one_dir\n"; } print "\n\n\n\n"; exit; ?>