PROYECTO PRIMARTIS

\n"; function get_extension($name) { $array = explode(".", $name); //La función explode() permite dividir un string en partes conforme a un separador especificado. $retval = strtolower(array_pop($array)); return $retval; } /* Recursion */ function list_dir($chdir) { /* algunas variables globales y un poco de orden */ global $root, $prefix, $showsize, $display, $excludedir, $excludefile; unset($sdirs); unset($sfiles); chdir($chdir); $self = basename($_SERVER['PHP_SELF']); /* abrimos el directorio actual */ $handle = opendir('.'); /* read directory. If the item is a directory, place it in $sdirs, if it's a filetype we want * and not this file, put it in $sfiles */ while ($file = readdir($handle)) { if(is_dir($file) && $file != "." && $file != ".." && !in_array($file, $excludedir)) { $sdirs[] = $file; } elseif(is_file($file) && $file != "$self" && array_key_exists(get_extension($file), $display) && !in_array($file, $excludefile)) { $sfiles[] = $file; } } /* contamos las barras para saber la profundidad a la que estamos * o en la estructura de directorios y cuántos segmentos debemos * usar de la rama en la que estamos */ $dir = getcwd(); $dir1 = str_replace($root, "", $dir."/"); $count = substr_count($dir1, "/") + substr_count($dir1, "\\"); /* iterate through the array of files and display them */ if(is_array($sfiles)) { sort($sfiles); reset($sfiles); $sizeof = sizeof($sfiles); /* ¿qué tipos de ficheros deben ser visualizados? */ for($y=0; $y<$sizeof; $y++) { echo ""; echo "\n"; } /* display directory names and recursively list all of them */ if(is_array($sdirs)) { sort($sdirs); reset($sdirs); for($y=0; $y
  \n"; echo "

MAPA DEL PROYECTO PRIMARTIS

"; //echo "$prefix/"; echo "
"; for($z=1; $z<=$count; $z++) { echo "   "; } if($y == ($sizeof -1)) { echo ""; } else { echo ""; } echo " "; // echo "$sfiles[$y]"; if($showsize) { $archivo = fopen("http://".$_SERVER['SERVER_NAME']."$prefix/$dir1$sfiles[$y]", "r"); if (!$archivo) { echo "

No se pudo abrir el archivo.\n"; exit; } while (!feof($archivo)) { $linea = fgets($archivo, 1024); /* Esto sólo funciona si el título y sus etiquetas están en una línea. */ if (eregi("(.*)", $linea, $salida)) { $title = $salida[1]; break; } } fclose($file); echo " $title"; //$fsize = @filesize($sfiles[$y])/1024; printf(" (%.2f kB)", $fsize); mostrar el tamaño del archivo } echo "

"; } echo "
"; for($z=1; $z<=$count; $z++) { echo "   "; } echo "
"; for($z=1; $z<=$count; $z++) { echo "   "; } if(is_array($sfiles)) { echo ""; } else { echo ""; } /*para evitar que salgan los nombres de las carpetas */ echo "" ; switch($sdirs[$y]) { case 'a' : // Bloque 1 echo "

Mundo Primero

"; break; case 'b': // Bloque 2 echo "

Mundo Segundo

"; break; case 'c': // Bloque 2 echo "

Mundo Tercero

"; break; } // $sdirs[$y]"; list_dir($dir."/".$sdirs[$y]); } } chdir($chdir); } list_dir($root); echo "
\n"; ?>