File upload problem
[prev]
[thread]
[next]
[Date index for 2005/04/30]
Hi,
I'm have been running mod_perl for a while now.
Current situation is:
-Win 2000 SP2
-Apache 2.0.47
-mod_perl 1.999.22
-Perl 5.8.3
http conf:
Alias /mod_perl/ "C:/Program Files/Apache Group/Apache2/mod_perl/"
<Location /mod_perl>
SetHandler perl-script
PerlResponseHandler ModPerl::Registry
PerlOptions -ParseHeaders
Options +ExecCGI
</Location>
But all of the sudden I'm having problems with the file uploads from a form.
In the error.log file I find:
CGI open of tmpfile: No such file or directory
Note that those same forms gave no trouble before.
Don't know what switch did create the error.
My guess it is the installation of Perl5.8.3 (from a 5.8.1 version) and its
accompagning CGI v3.01.
Have also tried with the lastest 3.08 CGI module from CPAN
I have reduced the error to the following form and its brother mod_perl
script.
Note also that the script is running OK when placed in the cgi-bin folder
(no mod_perl). I know that is not a guarantee that it should work under
mod_perl, but still it is a nice indication.
Form
========
<html xmlns="http://www.w3.org/1999/xhtml" lang="en">
<head>
<title>Upload Test</title>
</head>
<body>
<h4>Upload:</h4>
<form method="post" action="/mod_perl/upload-test.pl"
enctype="multipart/form-data">
<br />
<input name="file" type="file" size="60" /><br />
<input type="button" value="Cancel" onclick="window.history.go(-3)"
/>
<input type="submit" value="Upload File" />
</p>
</form>
</body></html>
Script
==========
#!C:\Perl\bin\perl.exe
use CGI;
my $q = CGI->new();
print $q->header, $q->start_html('result'),$q->h1('the uploaded file');
my $filename = $q->upload('file');
print $q->p("filename: $filename");
print $q->p("content:");
print "<pre>";
while (<$filename>) { print; }
print "</pre>";
print $q->end_html;
Kind Regards
Bart Terryn
 |
File upload problem
Bart Terryn 09:42 on 30 Apr 2005
|