perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/docs/2.0/user/handlers filters.pod
Date Fri, 04 Jun 2004 09:30:38 GMT
stas        2004/06/04 02:30:38

  Modified:    src/docs/2.0/user/handlers filters.pod
  Log:
  various fixes
  
  Revision  Changes    Path
  1.42      +41 -19    modperl-docs/src/docs/2.0/user/handlers/filters.pod
  
  Index: filters.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/handlers/filters.pod,v
  retrieving revision 1.41
  retrieving revision 1.42
  diff -u -u -r1.41 -r1.42
  --- filters.pod	21 May 2004 22:03:51 -0000	1.41
  +++ filters.pod	4 Jun 2004 09:30:38 -0000	1.42
  @@ -1118,7 +1118,8 @@
     
     use Apache::RequestRec ();
     use Apache::RequestIO ();
  -  use APR::Table ();
  +  use APR::Brigade ();
  +  use APR::Bucket ();
     
     use Apache::Const -compile => qw(OK M_POST);
     
  @@ -1136,18 +1137,40 @@
         return Apache::OK;
     }
     
  +  use Apache::Const -compile => qw(MODE_READBYTES);
  +  use APR::Const    -compile => qw(SUCCESS BLOCK_READ);
  +  
  +  use constant IOBUFSIZE => 8192;
  +  
     sub content {
         my $r = shift;
     
  -      $r->setup_client_block;
  +      my $bb = APR::Brigade->new($r->pool, $r->connection->bucket_alloc);
  +  
  +      my $data = '';
  +      my $seen_eos = 0;
  +      do {
  +          $r->input_filters->get_brigade($bb,
  +              Apache::MODE_READBYTES, APR::BLOCK_READ, IOBUFSIZE);
  +  
  +          while (!$bb->is_empty) {
  +              my $b = $bb->first;
  +              $b->remove;
  +  
  +              if ($b->is_eos) {
  +                  $seen_eos++;
  +                  last;
  +              }
     
  -      return '' unless $r->should_client_block;
  +              my $buf = $b->read;
  +              $data .= $buf if length $buf;
  +          }
  +  
  +      } while (!$seen_eos);
     
  -      my $len = $r->headers_in->get('content-length');
  -      my $buf;
  -      $r->get_client_block($buf, $len);
  +      $bb->destroy;
     
  -      return $buf;
  +      return $data;
     }
     
    1;
  @@ -1222,9 +1245,7 @@
     
         my @data;
         for (my $b = $bb->first; $b; $b = $bb->next($b)) {
  -          my $data = $b->read;
  -          $bdata = '' unless defined $bdata;
  -          push @data, $b->type->name, $bdata;
  +          push @data, $b->type->name, $b->read;
         }
     
         # send the sniffed info to STDERR so not to interfere with normal
  @@ -1403,9 +1424,9 @@
     >>> connection output filter
         o bucket 1: HEAP
     [HTTP/1.1 200 OK
  -  Date: Tue, 19 Nov 2002 15:59:32 GMT
  -  Server: Apache/2.0.44-dev (Unix) mod_perl/1.99_08-dev 
  -  Perl/v5.8.0 mod_ssl/2.0.44-dev OpenSSL/0.9.6d DAV/2
  +  Date: Fri, 04 Jun 2004 09:13:26 GMT
  +  Server: Apache/2.0.50-dev (Unix) mod_perl/1.99_15-dev
  +  Perl/v5.8.4 mod_ssl/2.0.50-dev OpenSSL/0.9.7c DAV/2
     Connection: close
     Transfer-Encoding: chunked
     Content-Type: text/plain; charset=ISO-8859-1
  @@ -1595,9 +1616,11 @@
         return Apache::DECLINED;
     }
   
  -However, this can't be used with Apache 2.0.46 and lower, since it has
  +However, this can't be used with Apache 2.0.49 and lower, since it has
   a bug when trying to remove the edge connection filter (it doesn't
  -remove it). Don't know if it's going to be fixed in 2.0.47]
  +remove it). Most likely that problem will be not fixed in the 2.0
  +series due to design flows. I don't know if it's going to be fixed in
  +2.1 series.]
   
   If the job wasn't done yet, the filter calls C<get_brigade>, which
   populates the C<$bb> bucket brigade. Next, the filter steps through
  @@ -1765,7 +1788,7 @@
   then retrieved by the downstream filter when our handler returns.
   
   This filter doesn't need to know whether it was invoked for the first
  -time or whether it has already done something. It's state-less
  +time or whether it has already done something. It's a state-less
   handler, since it has to lower case everything that passes through
   it. Notice that this filter can't be used as the connection filter for
   HTTP requests, since it will invalidate the incoming request headers;
  @@ -2080,7 +2103,7 @@
     use APR::Bucket ();
     
     use Apache::Const -compile => 'OK';
  -  use APR::Const -compile => ':common';
  +  use APR::Const    -compile => ':common';
     
     sub handler : FilterRequestHandler {
         my($f, $bb) = @_;
  @@ -2098,8 +2121,7 @@
                 last;
             }
     
  -          my $data = $bucket->read;
  -          if ($data) {
  +          if (my $data = $bucket->read) {
                 $data = join "",
                     map {scalar(reverse $_), "\n"} split "\n", $data;
                 $bucket = APR::Bucket->new($data);
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message