Hello,

I doubt this is specifically a modperl problem but if not, perhaps someone can 
point me to a better group to post this message with?

First, I am using:

modperl 2.0.x
perl 5.8.5
Linux

I have a page on a site where users can upload as many pictures as they like.  
I am using the cgi class and about every 3rd picture can not be uploaded.  A 
dump of the cgi object looks as follows:

Fri Mar 30 10:28:53 2007        $cgi = bless( {
                '.parameters' => [
                                   'file1',
                                   'file2',
                                   'file3',
                                   'file4'
                                 ],
                'file1' => [
                             bless( \*{'Fh::fh00001Seating Chart wout 
thrust.jpg'}, 'Fh' )
                           ],
                'file4' => [
                             ''
                           ],
                'file3' => [
                             bless( 
\*{'Fh::fh00003Sheridan_Opera_Hoise_Mani_Floor.gif'}, 'Fh' )
                           ],
                '.tmpfiles' => {
                                 '22' => {
                                           'info' => {
                                                       'Content-Type' => 
'image/gif',
                                                       'Content-Disposition' => 
'form-data; name="file3"; filename="Sheridan_Opera_Hoise_Mani_Floor.gif"'
                                                     },
                                           'name' => bless( do{\(my $o = 
'/usr/tmp/CGItemp5681')}, 'CGITempFile' ),
                                           'hndl' => $cgi->{'file3'}[0]
                                         },
                                 '16' => {
                                           'info' => {
                                                       'Content-Type' => 
'image/gif',
                                                       'Content-Disposition' => 
'form-data; name="file2"; filename="Sheridan_Opera_Hoise_Balcony.gif"'
                                                     },
                                           'name' => bless( do{\(my $o = 
'/usr/tmp/CGItemp5680')}, 'CGITempFile' ),
                                           'hndl' => bless( 
\*{'Fh::fh00002Sheridan_Opera_Hoise_Balcony.gif'}, 'Fh' )
                                         },
                                 '15' => {
                                           'info' => {
                                                       'Content-Type' => 
'image/jpeg',
                                                       'Content-Disposition' => 
'form-data; name="file1"; filename="Seating Chart wout thrust.jpg"'
                                                     },
                                           'name' => bless( do{\(my $o = 
'/usr/tmp/CGItemp5679')}, 'CGITempFile' ),
                                           'hndl' => $cgi->{'file1'}[0]
                                         }
                               },
                'file2' => [
                             $cgi->{'.tmpfiles'}{'16'}{'hndl'}
                           ],
                '.r' => bless( do{\(my $o = 138325528)}, 'Apache2::RequestRec' 
),
                '.charset' => 'ISO-8859-1',
                '.fieldnames' => {},
                'escape' => 1
              }, 'CGI' );


You can see that 'file2' does not seem be properly blessed to a Fh, even though 
the file is listed in the cgi tmpfiles hash.
 
Any ideas on how to debug the problem?  I don't know if this a perl, cgi, linux 
or isp problem.  Any ideas are greatly appreciated.

Thanks,

Mike




 
____________________________________________________________________________________
Looking for earth-friendly autos? 
Browse Top Cars by "Green Rating" at Yahoo! Autos' Green Center.
http://autos.yahoo.com/green_center/

Reply via email to