In the CGI.pm documentation, it shows the following example:

   $file = $query->upload('uploaded_file');
   if (!$file && $query->cgi_error) {
      print $query->header(-status=>$query->cgi_error);
      exit 0;
   }

[download]

This lets you do a check on the MIME type of a file being uploaded, provided that the browser passes this type of info for the file. I've tried using this syntax with both Netscape 4.7 and IE 5.5, but neither seems to pass the information. With fatalstobrowser enabled, I receive:

Can't use an undefined value as a HASH reference at /path/to/search-ho
+wto.cgi line 185.

[download]

My code verbatim, is:

sub upload_image {

  ## pull the file in a variable
  my $fh = $query->upload('upload');

  ## determine the file type via the headers
  my $type = $query->uploadInfo($fh)->{'Content-Type'};

  ## take action based on type
  if ($type eq 'text/html') {

    ## hash of file names to write to
    my %destination = ( 'match' => "match.html", 'no_match' => "no_mat
+ch.html");

    ## open the file to be written
    open(HTML, ">/www/$destination{$formdata{filename}}")
      or die "Cant open HTML file for writing : $!\n";

    ## if file is determined to be text/html write contents to appropr
+iate location
    while(<$fh>) {
      print HTML "$_\n";
    }

    close(HTML);

  ## otherwise set error for later notification within html
  } else {
    $error = "on";

  }

}

[download]

When I remove the uploadInfo line, the file gets uploaded properly, however its not worth it for me to remove this line. Can someone point out what I am missing?

-c

In reply to using uploadInfo from CGI.pm by c

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.