diff options
Diffstat (limited to 'admin/WebConsole/dirphp.php')
| -rw-r--r-- | admin/WebConsole/dirphp.php | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/admin/WebConsole/dirphp.php b/admin/WebConsole/dirphp.php new file mode 100644 index 00000000..73dfb3a0 --- /dev/null +++ b/admin/WebConsole/dirphp.php @@ -0,0 +1,63 @@ +<?php +listar_directorios_ruta("./"); +function listar_directorios_ruta($ruta){ + // abrir un directorio y listarlo recursivo + if (is_dir($ruta)) { + if ($dh = opendir($ruta)) { + while (($file = readdir($dh)) !== false) { + if($file !=".svn" && $file!="." && $file!=".."){ + //esta línea la utilizaríamos si queremos listar todo lo que hay en el directorio + //mostraría tanto archivos como directorios + //echo "<br>Nombre de archivo: $file : Es un: " . filetype($ruta . $file); + if (is_dir($ruta . $file) && $file!="." && $file!=".."){ + //solo si el archivo es un directorio, distinto que "." y ".." + echo "<br>Directorio: $ruta$file"; + listar_directorios_ruta($ruta . $file . "/"); + } + else{ + //echo "<br>Archivp:$file"; + //if($file=="aulas.php") + procesaarchivo($ruta,$file); + } + } + } + closedir($dh); + } + }else + echo "<br>No es ruta valida"; +} + function procesaarchivo($ruta,$file){ + $meta='<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">'; + $archivo=realpath($ruta.$file); + echo "<br>Procesando Archivo:".$file; + + $tam=filesize($archivo); + $fp = fopen($archivo, "rb"); + $buffer = fread($fp, $tam); + fclose($fp); + + $pos = strpos($buffer,'<HEAD> + <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">'); + if($pos==0) + $pos = strpos($buffer,'<head>'); + if($pos==0) + return; + + $dpl=strlen('<HEAD>'); + $prebuffer=substr($buffer,0,$pos+$dpl); + $posbuffer=substr($buffer,$pos+$dpl); + + $buffer=$prebuffer."\n\t".$meta.$posbuffer; + + /* + $buffer=ereg_replace( "<"," ",$buffer); + $buffer=ereg_replace( ">"," ",$buffer); + $buffer=ereg_replace( "[\n\r]","<BR>",$buffer); + echo $buffer; + */ + + $fp = fopen($archivo,"w"); + fwrite($fp, $buffer,strlen($buffer)); + fclose($fp); +} +?>
\ No newline at end of file |