I'm working on a site under Apache 2.0.47 with modperl 1.99.09. I've got most everything working right in my server setup, I can get and set cookies, get input variables from forms/etc., and all that jazz. I'm having a problem with form uploads however.
Here's a test script/form and the output:
FORM ---------------- <html> <body> <form action="test.cgi" enctype="multipart/form-data"> <input type="file" name="upload_file" /> <input type="submit" /> </form> </body> </html> ----------------
SCRIPT ---------------- #!/usr/bin/perl -w
use CGI::Simple; use strict;
my $query = new CGI::Simple; my $files = $query->upload(); my @files = $query->upload(); my $filename = $query->param('upload_file'); my $size = $query->upload_info($filename, 'size'); my $mime = $query->upload_info($filename, 'mime');
print "Content-Type: text/plain\n\n"; print "upload() as scalar: ", $files, "\n"; print "upload() as list: ", join(', ', @files), "\n"; print "param('upload_file'): ", $filename, "\n"; print "upload_info(..., 'size'): ", $size, "\n"; print "upload_info(..., 'mime'): ", $mime, "\n";
exit; ---------------
RESULTS --------------- upload() as scalar: upload() as list: param('upload_file'): ancient_wisdom.jpg upload_info(..., 'size'): upload_info(..., 'mime'): ---------------
Is there a reason the uploaded file isn't coming through. I'd be more specific if I knew what the cause might be, but I'm just at a loss.
CGI::Simple v0.071 Perl 5.8.0
Thanks in advance,
Jacob Fugal