Re: CGI, Multi-Part Forms, and HTTP::Daemon

>Good day, all. I currently have some code that use HTTP::Daemon and CGI.pm
>in one script: the HTTP::Daemon portion listens for requests, and sends
>relevant GET or POST information off to CGI.pm, where it's used throughout
>the whole program, non-OOP. The shell is something like this:

Here's a reproducible mini-test:

 #!/usr/bin/perl -w
 use strict;
 use HTTP::Daemon;
 use CGI 2.50 qw/:standard :cgi-lib/;

 my $d = HTTP::Daemon->new || die;
 print "Please contact me at: <URL:", $d->url, ">\n";
 while (my $c = $d->accept) {
     while (my $r = $c->get_request) {

       my $form_parameters;
       if ( $r->uri =~ /\?/ ) {
         $form_parameters = $r->uri;
         $form_parameters =~ s/[^\?]+\?(.*)/$1/;
       } else { $form_parameters = $r->content; }
       $CGI::Q = new CGI($form_parameters);

       my $param = param("hello");
       print "Content-type: text/plain\n\n";
       print "I saw: $param\n";
       use Data::Dumper;
       print Dumper(\%ENV);

     }
     $c->close;
     undef($c);
 }

The first line printed will be the value of "hello".
The second is the environment, showing a lack of CONTENT_TYPE.
GET works fine. Creating your own HTML form with POST
(be sure to replace the action with the correct URL):

 <form action=" " method="post">
  <input type="input" name="hello" value="morbus">
  <input type="submit" name="go">
 </form>

works correctly, but the minute you add enctype, it doesn't:

 <form action=" " method="post" enctype="multipart/form-data">
  <input type="input" name="hello" value="morbus">
  <input type="submit" name="go">
 </form>


--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Spidering Hacks: http://amazon.com/exec/obidos/ASIN/0596005776/disobeycom
icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus