view release on metacpan or  search on metacpan

lib/AnyEvent/HTTPD/HTTPConnection.pm  view on Meta::CPAN

      }
      $str = $obo;
   }
   $str
}

sub decode_part {
   my ($self, $hdr, $cont) = @_;

   $hdr = _parse_headers ($hdr);
   if ($hdr->{'content-disposition'} =~ /form-data|attachment/o) {
      my ($dat, @pars) = split /\s*;\s*/o, $hdr->{'content-disposition'};
      my @params;

      my %p;

      my @res;

      for my $name_para (@pars) {
         my ($name, $par) = split /\s*=\s*/o, $name_para;
         if ($par =~ /^".*"$/o) { $par = _unquote ($par) }

t/05_mp_param.t  view on Meta::CPAN

   $hdl =
      AnyEvent::Handle->new (
         fh => $fh,
         on_read => sub { $hdl->rbuf = '' });

   my $cont =
      "--AaB03x\015\012Content-Disposition: form-data; name=\"submit-name\"\015\012"
      . "\015\012Larry\015\012--AaB03x\015\012Content-Disposition: form-data; name=\"files\"; filename=\"file1.txt\"\015\012Content-Type: text/plain\015\012\015\012Test\015\012Test2\015\012"
      . "--AaB03x\015\012Content-Disposition: form-data; name=\"files2\"; filename=\"file2.txt\"\015\012Content-Type: text/plain\015\012\015\012Test 2\015\012Test2\015\012"
      . "--AaB03x\015\012Content-Disposition: form-data; name=\"files3\";\015\012Content-Type: multipart/mixed, boundary=BbC04y\015\012\015\012"
        . "--BbC04y\015\012Content-disposition: attachment; filename=\"fileX1.txt\"\015\012Content-Type: text/plain\015\012\015\012"
           . "BLABLABLA\015\012"
        . "--BbC04y\015\012Content-disposition: attachment; filename=\"fileX2.xml\"\015\012Content-type: image/gif\015\012\015\012"
           . "XXXXXXXXXXXXXXXXXXXX\015\012"
        ."--BbC04y--\015\012\015\012"
      . "--AaB03x--\015\012";

   $hdl->push_read (line => sub { $c->send });
   $hdl->push_write (
      "POST\040http://localhost:19090/test\040HTTP/1.0\015\012"
      . "Content-Type: multipart/form-data; boundary=AaB03x\015\012"
      . "Content-Length: " . length ($cont) . "\015\012\015\012$cont"