Hola Amigos, muy buenas Tardes a todos, mi duda es que como puedo validar dentro del codigo de upfile el tamaño maximo de una imagen que se quiera subir al servidor, el codigo para subir las imagenes es:
#!/usr/bin/perl
########### #!c:/perl/bin/perl.exe en windows...
use strict;
use CGI;
my $cgi = new CGI;
my %input_data = $cgi->Vars;
print "Content-type: text/html\n\n";
if ($input_data{'action'} eq 'process'){
my $file = $cgi->param('file');
print "action: $input_data{'action'}<br>
file: $file";
#sacamos el nombte
#my $file = $cgi->param('file');
my $fileName = "$file";
$fileName =~ s/ /_/gi;
$fileName =~ s!^.*(\\|\/)!!;
#guardamos la imagen solamente si es .jpg
if ($fileName =~ /.jpg/ or $fileName =~ /.gif/){
open (IMAGEN, ">l/fotos/$fileName") || die "No se pudo guardar la imagen";
binmode(IMAGEN);
while (my $bytesread = read($file, my $buffer, 1024)) {
print IMAGEN $buffer;
}
close (IMAGEN);
}
else {
print "<br><br>Formato no permitido<br><br>";
}
print '<br><a href="imagen.pl">Volver</a>';
}else{
print q~<form name="form1" enctype="multipart/form-data" method="post" action="upload3.cgi">
<input type="hidden" name="action" value="process">
<p>Formulario para subir imágenes al servidor...: <br></p>
<p>Archivo: <br>
<input type="file" name="file">
</p>
<input type="submit" name="Submit" value="Submit">
</form> ~;
}
exit(1);
Este codigo funciona muy bien, de hecho lo encontre aqui mismo, lo que no se es como especificar el tamaño maximo del archivo que van a subir (por ejemplo 100k).
De antemano Muchas Gracias :)