CS101 -- Summer 2002 -- CGI Limits
$header = "reflectorHead.pl";
$body = "reflectorBody.pl";
use CGI qw/:standard/;
$CGI::POST_MAX = 1024 * 100; # limits size of POST to 100K
$CGI::DISABLE_UPLOADS = 1; # blocks uploads
$uploaded_file = param('upload');
if (cgi_error())
{
require $header;
require $body;
print "<p>POST size it too large!</p>\n";
exit(0);
}
elsif (!$uploaded_file && uc($ENV{'REQUEST_METHOD'}) eq "PUT")
{
require $header;
require $body;
print "<p>File upload is not supported!>/p>\n";
exit(0);
}