Stas Bekman wrote:

Do we have the same problem with Apache::Request?

I don't think so, but I'm not sure where the uploaded data gets spooled to by Apache::Request. (CGI.pm created "CGItemp<number>" files in my C:\Temp directory. Where does Apache::Request put this data?)


The script below, adapted from the one I posted previously that showed up the bug in CGI.pm, doesn't leave any files in any of my obvious "temp" directories.

===
use Apache;
use Apache::Request;
use CGI qw(); # just for HTML output
my $r = Apache->request();
my $apr = Apache::Request->new($r);
my $cgi = CGI->new('');
print    $cgi->header(),
   $cgi->start_html(),
   $cgi->start_multipart_form();
my $upl = $apr->upload('upload');
my $fh;
if (defined $upl) {
   $fh = $upl->fh();
   1 while <$fh>;
   print $cgi->p(sprintf("Read %d bytes", tell $fh));
}
else {
   print    $cgi->filefield({-name => 'upload'}),
       $cgi->submit();
}
print    $cgi->end_form(),
   $cgi->end_html();
===



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to