\n";
print "\n";
print "";
# Anchura maxima en pixels=400
# Escalamos los demas en funcion de su tamanyo respecto
# al directorio mas grande
#
$max = 0;
foreach $tamano (@contenido){
if ($tamano > $max) {
$max = $tamano;
}
}
$num_file = 0;
$alto = 15;
foreach $tamano (@contenido){
$ancho=int(400*$tamano/$max);
$x=$ordenados[$num_file];
print "| ";
print "$x | ";
print " $tamano";
print " | \n";
$num_file ++;
}
print " ";
print " |
";
print "";
print "Se han hallado $num_file ficheros y subdirectorios ";
print "ocupando un total de $total bytes ";
print "(aproximadamente $kas Kbytes)";
print "
";
} else {
print "No se muestra el gráfico comparativo ";
print "ya que sólo ";
print "se ha listado un subdirectorio ";
}
print "";
exit;
# Se acabo
#
####################################3
#
# Rutina que lee los directorios
#
sub leedir
{
# Pasamos al directorio actual y lo abrimos
#
$actual = @_[0];
chdir($actual);
opendir(CURDIR, ".") ||
die("No puedo abrir el subdirectorio");
# lo leemos
#
@ficheros = readdir(CURDIR);
# lo ordenamos por orden alfabetico
#
@ordenados = sort(@ficheros);
$subtotal=0;
foreach $file (@ordenados){
# tomamos el tamanyo del fichero
#
$tama= -s $file;
push(@contenido,$tama);
# Vemos las atributos para world
#
if (-r $file) {
$read="r";
} else {
$read="-";
}
if (-w $file) {
$write="w";
} else {
$write="-";
}
if (-x $file) {
$ex="x";
} else {
$ex="-";
}
# Numero de dias de antiguedad
# Comprobamos si es un directorio
#
$total = $total + $tama;
$dias_mod = &tiempo(-M $file);
$dias_con = &tiempo(-A $file);
if (-d $file){
# Sumamos su tamanyo
# al total y al subtotal. Lo presentamos en
# pantalla
#
if (($muestro ne "/")|($file ne "..")){
if ($file eq ".") {
$cadena="Directorio actual";
$cad2 = "Refrescar";
} else {
$cadena="Subdirectorio";
$cad2 = "Consultar";
}
if ($file eq "..") { $cadena = "Subir un nivel";}
$darlista = $quien_soy . "?". $muestro . $separador . $file;
$darlista =~ s/\/\//\//g;
print "| $file ($cadena)";
print " | $read$write$ex | ";
print "$tama | ";
if (-r $file){
print "$cad2";
} else { print "-----";}
print " | ";
print "$dias_mod | $dias_con |
\n";
}
} else {
# Si no es un subdirectorio hacemos lo mismo (mas o menos)
#
$noleer = "0";
if (-r $file) {$noleer="1";}
if ($muestro eq "/"){
$donde_esta = $serv. $separador . $file;
} else {
$donde_esta = $serv. $muestro . $separador . $file;
}
$que = $descarga."?".$root.$muestro.$separador.$file;
$que =~ s/\/\//\//g;
print "| ";
if ($noleer eq "0"){
print "$file";
} else {
print "$file";
}
print " | ";
print "$read$write$ex | $tama | ";
print "";
if ($noleer eq "0"){
print "-----";
} else {
print "Descargar";
}
print " | ";
print "$dias_mod | $dias_con |
\n";
}
}
# Pasamos a Kbytes el subtotal y lo escribimos
#
$kas = ($total-($total % $factor))/$factor;
print "| Total";
print " $total bytes ";
print "(aproximadamanete $kas Kbytes) |
";
close(CURDIR);
}
##########################################
# Pasa el tiempo a dias, horas y minutos
#
sub tiempo
{
local ($tmp,$dias,$horas,$minutos,$rdias,$rhoras,$rminutos,$final);
$tmp = @_[0];
$dias= int($tmp);
$rdias = $tmp-$dias;
$rhoras= 24*$rdias;
$horas = int($rhoras);
$rminutos = 60*($rhoras-$horas);
$minutos = int($rminutos);
if ($minutos < 10) { $minutos = "0".$minutos;}
$final = $minutos . "m";
if ($horas !=0) {
if ($horas < 10) { $horas = "0".$horas;}
$final = $horas . "h:" . $final;
if ($dias !=0) {$final= $dias . "d:" . $final;}
} else {
if ($dias != 0){ $final = $dias . "d:00h" . $final; }
}
return $final;
}