Could there be a server setting to adjust or is there a problem with my code?
Server is NT4 SP6a$CGI::POST_MAX=1024*100000; my $q = new CGI; my $myFile = $q->upload('file'); binmode($myFile); if (!$myFile && cgi_error()) { print $q->header(-status=>cgi_error()); print $q->p("Error"); exit 0; } my $dir = "c:\\inetpub\\scripts\\perl\\uploads"; open (MYFILE,">$dir\\test_upload.txt") || die $!; binmode(MYFILE); while (<$myFile>) {print MYFILE $_; } close (MYFILE);
In reply to File upload limited to 1 M B by jiggs
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |