I'm using CGI::Minimal version 1.09. I used ppm to install it, just tried reinstalling it - didn't help. My perl is ActiveState distribution (v5.6.1 built for MSWin32-x86-multi-thread). I'm using a Windows 2000 Professional system with IIS webserver installed on it.
I have just tried running the code you gave me - still doesn't finish. And below is the code I used for tests before:
To test file upload using CGI.pm - successful
# to test form upload using CGI.pm - works fine!
use strict;
use warnings;
use CGI;
my $cgi = CGI->new;
print "Content-Type: text/html\n\n";
print "<body><html>\n";
my $fh = $cgi->upload("file1");
print <$fh>;
print "</body></html>\n";
exit(0);
To test file upload using CGI::Minimal - does't work!
# to test form upload
use strict;
use warnings;
use CGI::Minimal;
my $cgi = CGI::Minimal->new;
print "Content-Type: text/html\n\n";
print "<body><html>\n";
print $cgi->param("file1");
print "</body></html>\n";
exit(0);
Below is html for the form
<html>
<head>
<title>CGI::Minimal test</title>
</head>
<body>
<form enctype="multipart/form-data" action="/cgi-bin/upload.pl" method
+="post">
<input type="file" name="file1">
<input type="submit" value="Submit">
</form>
</body>
</html>
|