[Cedarvalley] upload problem

Stephen D. Wells wells at cedarnet.org
Wed Dec 17 11:10:27 CST 2003


I'm back home now and can email again... for some reason the web-based
mailer I was using wasn't sending out - I'm back to evolution now though
and things are back to normal.  Is this still an issue?

STEVE

On Thu, 2003-12-11 at 13:52, Aaron Thompson wrote:
> I have been looking and found that I get different data when
> using mozilla 1.5 or Netscape 4... it seems like I don't get 
> everything...  well... back to reading.
> 
> Netscape:
> 
> $VAR1 = bless( {
>                  '.charset' => 'ISO-8859-1',
>                  'upload-me' => [
>                                   bless( \*{'Fh::fh00001new_gallery.zip'}, 'Fh' )
>                                 ],
>                  'submit' => [
>                                'submit'
>                              ],
>                  'option' => [
>                                'add-galleries'
>                              ],
>                  'gallery' => [
>                                 'New_Gallery'
>                               ],
>                  'function' => [
>                                  'upload-gallery'
>                                ],
>                  '.tmpfiles' => {
>                                   '6' => {
>                                            'info' => {
>                                                        'Content-Disposition' => 'form-data; name="upload-me"; filename="new_gallery.zip"',
>                                                        'Content-Type' => 'application/x-zip-compressed'
>                                                      },
>                                            'name' => bless( do{\(my $o = '/var/tmp/CGItemp443')}, 'TempFile' )
>                                          }
>                                 },
>                  '.parameters' => [
>                                     'option',
>                                     'function',
>                                     'gallery',
>                                     'upload-me',
>                                     'submit'
>                                   ],
>                  '.fieldnames' => {}
>                }, 'CGI' );
> 
> Mozilla 1.5:
> 
> $VAR1 = bless( {
>                  '.charset' => 'ISO-8859-1',
>                  'upload-me' => [
>                                   'new_gallery.zip'
>                                 ],
>                  'submit' => [
>                                'submit'
>                              ],
>                  'option' => [
>                                'add-galleries'
>                              ],
>                  'gallery' => [
>                                 'New_Gallery'
>                               ],
>                  'function' => [
>                                  'upload-gallery'
>                                ],
>                  '.parameters' => [
>                                     'option',
>                                     'function',
>                                     'gallery',
>                                     'upload-me',
>                                     'submit'
>                                   ],
>                  '.fieldnames' => {}
>                }, 'CGI' );
> 
> 
> On Thu, Dec 11, 2003 at 10:54:13AM -0600, Aaron Thompson wrote:
> > I'm using CGI to upload a file... the file box is 'upload-me' and the code
> > below works for Netscape 4, but not Mozilla 1.5 or IE 6.  Anyone have
> > experience with this and can point me in the right direction?
> > 
> > Error message (from apache error log):
> >  Use of uninitialized value in <HANDLE> at /home/httpd/photos/admin/index.cgi line 59.
> >  readline() on unopened filehandle at /home/httpd/photos/admin/index.cgi line 59.
> > 
> > 
> > the offending code:
> > ---<snip>---
> > use CGI;
> > ...
> > 
> > $query = new CGI:
> > ...
> > 
> > ######################################################################
> > sub upload_file{
> >   my $overwrite = "0"; #overwrite files on upload (yes = 1, no = 0)
> >   my %valid_mime = ("zip" => "1");
> >   my $length = 0;
> >   my $file = $query->param("upload-me");
> >   my $local_file_name = "";
> >   my $uploadFH; 
> >   my $mime;
> >   my $save_flag;
> > 
> >   $file =~ s/.*[\/\\](.*)/$1/;
> >   if($file =~ /.*[\.](.*)/){$mime = $1;}#fi
> >   $local_file_name = $tmp_dir . "/" .$file;
> >   print "<p>File Upload...<br>This may take some time, please wait...</p>";
> >   print "<p>Attempting to upload: $file</p>";
> >   if ($valid_mime{$mime}){
> >     $save_flag = 1;
> >     if(! $overwrite){if( -e $local_file_name ){$save_flag = 0;}}#fi
> >     if($save_flag){
> >       $uploadFH = $query->upload("upload-me");
> >       open UPLOADFILE, ">$local_file_name" or
> >         html_die("Could not open $local_file_name for writing!");
> >         binmode UPLOADFILE;
> >         while ( <$uploadFH> ){
> >           print UPLOADFILE;
> >           $length += length($_);
> >         }#elihw
> >       close UPLOADFILE;
> >       print "<p><b>$file</b> of size <b>$length bytes</b> was uploaded.</p>";
> >     }else{
> >       print "<p><b>$file</b> already exists on the server - not uploaded. </p>";
> >     }#fi
> >   }
> >   else{
> >     print "<p>File not saved... unallowed file time: $mime</p>";
> >   }#fi
> > }
> > 
> > ---<snip>---
> > 
> > Thanks for your help.
> > 
> > @
> > 
> > 
> > -- 
> > Aaron Thompson   Unix Systems Administrator, College of Natural Science
> > University of Northern Iowa                      Cedar Falls, IA  50614
> > 
> > "Because as we know, there are known knowns, there are things we know we
> > know. We also know there are known unknowns; that is to say we know there are
> > some things we do not know. But there are also unknown unknowns - the ones we
> > don't know we don't know." - Donald Rumsfeld
> > _______________________________________________
> > Cedarvalley mailing list
> > Cedarvalley at mail.pm.org
> > http://mail.pm.org/mailman/listinfo/cedarvalley
-- 
Stephen D. Wells <wells at cedarnet.org>




More information about the Cedarvalley mailing list