Can you post the uploadInfo code?

Here's the subroutine for storing the file:

#stores uploaded files
sub storeFiles{
  my($filename, $directory, $mime) = @_; #name subroutine variables
    my $data;
    my $mime = uploadInfo($filename)->{'Content-Type'};
    open (STORAGE, ">$directory/$filename") or die "Error: $directory/
+$filename: $!\n";
    if($mime !~ /text/){
        binmode ($filename);
        binmode (STORAGE);
    }
    while( read($filename, $data, 1024) ){ print STORAGE $data;}
    close STORAGE;
}
[download]

I'm using the following subroutine to get the filename from the form:

sub Get_File_Name{
    if($ENV{HTTP_USER_AGENT} =~ /win/i){ 
        fileparse_set_fstype("MSWin32");  #changed from MSDOS to try a
+nd fix the A:\ problem
    } 
    elsif($ENV{HTTP_USER_AGENT} =~ /mac/i) {
        fileparse_set_fstype("MacOS");
    }
    my $full_name =  shift;
    $full_name    =  basename($full_name);
    $full_name    =~ s!\s!\_!g;          # Replace whitespace with _
    return($full_name);
}
[download]

As for the submit button. It just has a generic name of 'submit' which is not used by the script in any way to identify anything.

I'd take a guess that Firefox is setting the content-type of the form to 'multipart/form-data' when it sees the upload field whereas IE is not - you should put the enctype attribute of the form element ie.:

   <form method="post" action="whatever" enctype="multipart/form-data"
+>
[download]

/J\

The form is already set that way. Thanks for the suggestion.

I'm playing my novice card here, but when you ask for the source of uploadInfo, what are you asking for? The code for that function? uploadInfo is from CGI.pm, so you want the source from the CGI module?

In the form, the field for the file to upload is
<input type="FILE" name="filename">
The script then gets the filename:


$File_Name = Get_File_Name(param('filename'));

sub Get_File_Name{
    if($ENV{HTTP_USER_AGENT} =~ /win/i){ 
        fileparse_set_fstype("MSWin32");  #changed from MSDOS to try a
+nd fix the A:\ problem
    } 
    elsif($ENV{HTTP_USER_AGENT} =~ /mac/i) {
        fileparse_set_fstype("MacOS");
    }
    my $full_name =  shift;
    $full_name    =  basename($full_name);
    $full_name    =~ s!\s!\_!g;          # Replace whitespace with _
    return($full_name);
}
[download]

and calls sub to store the file ($Directory is a path and is already defined):


storeFiles($File_Name, $Directory);

#stores uploaded files
sub storeFiles{
  my($filename, $directory) = @_; #name subroutine variables
    my $data;
    my $mime = uploadInfo($filename)->{'Content-Type'};
    open (STORAGE, ">$directory/$filename") or die "Error: $directory/
+$filename: $!\n";
    if($mime !~ /text/){
        binmode ($filename);
        binmode (STORAGE);
    }
    while( read($filename, $data, 1024) ){ print STORAGE $data;}
    close STORAGE;
}
[download]

I'm guessing the content-type isn't being passed correctly from IE, but I'm not what to change since I've already set the form type as a multipart-form.

uploadInfo is from CGI.pm, so you want the source from the CGI module?

That would be the relevant code, yes. Not being a frequent CGI programmer, myself, I didn't recognize that it was a CGI function. So here's the source:

sub uploadInfo {
    my($self,$filename) = self_or_default(@_);
    return $self->{'.tmpfiles'}->{$filename}->{info};
}
[download]

It's a method, and you're calling it as an ordinary sub.

Update: as dragonchild points out, that's not the problem. So the critical issue looks like: what is the value of $filename? It may require some exploration and dumping of data to see what value it should have in order to work.

---

Caution: Contents may have been coded under pressure.