in reply to Re: Re: using uploadInfo from CGI.pm
in thread using uploadInfo from CGI.pm

If $info->{'Content-Type'} is coming up undef, try 
    my $info = uploadInfo($fname);
    print "uploadInfo:<br>";
    map {print "  $_: " . $info->{$_} . "<br>\n" } sort keys %$info;

[download]
to see what you are getting.

Replies are listed 'Best First'.
Re: Re: Re: Re: using uploadInfo from CGI.pm
by Anonymous Monk on Oct 18, 2002 at 14:54 UTC
    Hi. I have the same uploadInfo problem. And if I print the resultant hash of uploadInfo, I print nothing. How come ? Anyone has solved this mystery ?? -- Michel Marcon Sysadmin Unix & WNT michel.marcon@equipement.gouv.fr
[reply]

      Well well. Never too late is it?

      I tried the same code, and encountered the same problem. It was solved by adding the cgi object to access the upload-member.

      my $cgi = new CGI;
my $info = $cgi->uploadInfo( $filename );
print "uploadInfo:<br>";
map {print "  $_: " . $info->{$_} . "<br>\n" } sort keys %$info;

      [download]
      Which in my case gives: 
      uploadInfo: 
  Content-Disposition: form-data; name="file";filename="C:\cool\file.t
+xt"
  Content-Type: text/plain

      [download]

      Elegant use of map in the original snippet, though.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom