Re: Problem with Apache2 mod_perl uploading a file

[Volker Kroll]

On Mon, 2003-10-27 at 17:36, Stas Bekman wrote:
> Volker Kroll wrote:
> > Hi,
> > 
> > how do I enable File-uploads in mod_perl1.99 for Apache2?
> > In Apache 1.3 I had to change some variables in Apache::Request but
> > Apache::Request is not ported right now. How do I do it? I looked in the
> > documentation, but it was not mentioned there, so, perhaps you can help
> > me.
> 
> There is an alpha version of Apache::Request that you may want to try and help 
> testing it so it'll get released sooner. See: http://httpd.apache.org/apreq/
> 
> Meanwhile you can use CGI.pm or some other module to upload files.

Thanks Stas. 
I now use CGI.pm for the upload:

sub uploadFile  {
        my $cgi = new CGI;
        $CGI::POST_MAX= 60 * 1024 * 1024; # 24MB
        $CGI::DISABLE_UPLOADS = 0;
        my $request = shift;

        my $file = $cgi->upload('ImageName');
        my $filename = $cgi->param('ImageName');

        my $tempdir = $FILEPATH . $ProjectId . '/';
        $tempdir .= $params->{PageId}. '/';
        my $resultfile = $tempdir . $filename;

        open FILE, ">$resultfile" or log_error("Error while opening
ImageFile $!");

        my $fh = $file; #->fh;
        my $size = 0;
        my $oldsize = 0;
        my $i = 0;
        while (<$fh>) {
                print FILE $_;
        }
        close FILE or log_error("Error while closing ImageFile $!");

}

This works fine. Perhaps I will give Apache::Request a try in the next
week. 

Regards
Volker