On Fri, 18 Jul 2003 at 12:03, Mike Harrison opined:

MH:I have a perl program that allows a user to upload a file (either .jpg or
MH:.gif) to the server, and returns a message if it exceeds a specified size
MH:(in my case 100kB).  Currently (and don't laugh - I am new to perl), I go
MH:through the motions of uploading the file in 1024-byte blocks (in binary
MH:mode), and increment a counter with each block.  If the counter exceeds 100
MH:(i.e. greater than 100kB), then it exits the loop, displays a warning
MH:message and deletes the file.
MH: 
MH:I am sure there would have to be an easier and more efficient way of doing
MH:this - that is, somehow finding out how large the file is without having to
MH:download it first.
MH: 
MH:Does perl have a module that can check the size of the file?  And for that
MH:matter, its type (.jpg, .gif etc.)?

hi mike - CGI provides a way to indicate if an form post exceeds a
pre-determined size limit.  it's the $CGI::POST_MAX variable, and if you
wanted to limit uploads to 100kbytes (for example), you'd do something
like this:

use CGI;
$CGI::POST_MAX = 100 * 1024;

my $cgi = new CGI;

if ($cgi->cgi_error) {
  # alert the user their post exceeded the limit
  exit();
}

you can find out more information by reading

perldoc CGI


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to