in reply to Re: retrieving users input Form the keyboard while perl is running in the remote webserver
in thread retrieving users input from the keyboard while perl is running in the remote webserver
<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 } } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: retrieving users input Form the keyboard while perl is running in the remote webserver
by marto (Cardinal) on Apr 09, 2019 at 20:29 UTC | |
by SearchigPerl (Acolyte) on Apr 09, 2019 at 20:52 UTC | |
by marto (Cardinal) on Apr 09, 2019 at 21:23 UTC | |
by SearchigPerl (Acolyte) on Apr 09, 2019 at 21:43 UTC | |
by marto (Cardinal) on Apr 10, 2019 at 12:31 UTC |