[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