Urgente

[kidd]

Hola:

A. Para poner un limite de tamaño, todo lo que tienes que hacer es incluir el siguiente código:

Código:

 my $max_upload = "1000"; #Tamaño máximo en kbytes

  if ($ENV{'CONTENT_LENGTH'} > ($max_upload*1024)){
      print "Content-type: text/html\n\n";
      print "<h1>Archivo my grande</h1>";
      exit(0);
}

Pon el código al principio de la función que se llama recepcion_de_archivo, y recuerda modificar la variable $max_upload a los kbyte máximos que quieres.

C. En la parte donde pongo el comentario de -#TODO SALIO BIEN- y donde se depliega el mensaje final, pon el siguiente código:

Código:

opendir (DIR, "$dir");
my @files = readdir(DIR);
closedir(DIR);

print "Content-type: text/html\n\n";
print "<h1>El archivo fue recibido correctamente</h1>\n";
print "<b>Aquí hay una lista de archivos recibidos actualmente en este directorio:</b>\n";

print "<ul>\n";
  foreach my $file(sort @files){
     next if $file =~ /^\.\.?$/;
     print "<li><a href=\"$file\" target=\"_blank\">$file</a></li>\n";
  }
print "</ul>\n";

Si tienes algun problema, avísame.

SALUDOS