<br> use CGI; use CGI::Carp qw ( fatalsToBrowser ); use File::Basename; $CGI::DISABLE_UPLOADS=0; # Allow file uploads my $query = new CGI; my $filename = $query->param("datei"); my $kunde = $query->param("kunde"); my $upload_dir =$query->param("ziel"); my $groesse = $query->param("groesse"); my $action ="upload ".$filename; undef $fehler; $CGI::POST_MAX = 1024 * $groesse; $content_length = $ENV{'CONTENT_LENGTH'}; if ($content_length > $CGI::POST_MAX){ erlaubnis(); if ($sonder ne 'xxx'){ $fehler =" Datei groesser als erlaubt!"; goto Meldung; # custom request entity too large error handling } } }
In reply to Re^2: retrieving users input Form the keyboard while perl is running in the remote webserver
by SearchigPerl
in thread retrieving users input from the keyboard while perl is running in the remote webserver
by SearchigPerl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |