• Publicidad

Bloquear archivos

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Bloquear archivos

Notapor kaeri » 2007-10-09 12:38 @568

Hola

Tengo una cuestión acerca de archivos. ¿cómo puedo bloquear para que no se puedan subir archivos de más de 1 mega al servidor? ¿Qué es lo que puedo realizar para que no suban ese tamaño de archivos?

Tengo este código para agregarlo:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
   $File = "/encargosweb/$Stimestamp-$filename";
    $File =~ s/ |-|://g;
    if (open (OUTFILE,"> $ENV{'DOCUMENT_ROOT'}$File")) {
        while ($bytesread=read($fh,$buffer,1024)) {
            print OUTFILE $buffer;
        }
        close OUTFILE;
    } else {
        print "ERROR"; exit 0;
    }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¿En qué parte del código podría agregar y en que parte para bloquear para que no lo suba al servidor?

Erika
Avatar de Usuario
kaeri
Perlero nuevo
Perlero nuevo
 
Mensajes: 44
Registrado: 2004-08-19 12:05 @545
Ubicación: México

Publicidad

Notapor explorer » 2007-10-09 13:13 @592

Si usas el módulo CGI (y si no, deberías), basta con definir un tamaño máximo en la variable global $CGI::POST_MAX.

Más información en la sección Avoiding Denial of Service Attacks.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor monoswim » 2007-10-09 15:08 @672

Si quieres hacerlo manualmente sabes que en cada iteración del bucle WHILE se aumenta el tamaño del archivo en 1024 bits, deberías hacer un contador y si lo supera eliminar el archivo y enviar el mensaje de error...

Pero como dijo explorer es mejor usar el módulo CGI...

Saludos
MonoSwim
Perl Programming Language
Avatar de Usuario
monoswim
Perlero nuevo
Perlero nuevo
 
Mensajes: 452
Registrado: 2003-11-18 16:13 @717
Ubicación: Buenos Aires

Notapor kaeri » 2007-10-09 15:10 @674

Gracias he colocado la varible de CGI y me ha funcionado :)
Avatar de Usuario
kaeri
Perlero nuevo
Perlero nuevo
 
Mensajes: 44
Registrado: 2004-08-19 12:05 @545
Ubicación: México


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados