Question

如何使用mod_perl的过滤器/处理程序修改发布请求内容？

我可以在PerlResponseHandler中读取请求内容，但如何将修改后的内容“附加”回请求？

另外，我不想在PerlResponseHandler中执行此操作，因为我希望请求的资源来处理响应生成部分。

任何帮助将不胜感激。

感谢。

Answer 1

如果您添加use Apache2::RequestIO，则可以my ($r) = @_; $r->print();

PerlResponseHandler无法修改请求数据，但即使它可能是重点。只有PerlInputFilterHandler可以做到这一点，因为它在获得响应之前过滤输入。

响应处理程序之后唯一的东西是输出过滤器，日志处理程序和清理处理程序。

package MyFilter;

use strict;

use base qw(Apache::Filter);
use Apache2::Const qw(OK);

sub handler: FilterRequestHandler {
  my ($f) = @_;
  while($f->read(my $buf, 1024)) {
    # do something with $buf
    $f->print($buf);
  }
  return OK;
}

1;

重要的是要知道，您将以块的形式获取数据。当您阅读时，您可能会或可能不会在一次通话中发布整个内容。

Answer 2

此代码也有效 -

  package MyApache2::Test7;

  use strict;
  use warnings;

  use base qw(Apache2::Filter);

  use Apache2::Connection ();
  use APR::Brigade ();
  use APR::Bucket ();

  use Apache2::Const -compile => 'OK';
  use APR::Const     -compile => ':common';

use Apache2::Log ();

  sub handler : FilterRequestHandler {

Apache2::ServerRec->log_error("f*** starts");


      my ($f, $bb, $mode, $block, $readbytes) = @_; 
      my $c = $f->c;
      my $bb_ctx = APR::Brigade->new($c->pool, $c->bucket_alloc);
      my $rv = $f->next->get_brigade($bb_ctx, $mode, $block, $readbytes);
      return $rv unless $rv == APR::Const::SUCCESS;

      while (!$bb_ctx->is_empty) {
          my $b = $bb_ctx->first;

          if ($b->is_eos) {
              $bb->insert_tail($b);
              last;
          }

          my $len = $b->read(my $data);

Apache2::ServerRec->log_error($len);

          #$b = APR::Bucket->new($bb->bucket_alloc, lc $data) if $len;

          #$b->remove;
          #$bb->insert_tail($b);

Apache2::ServerRec->log_error($data);

Apache2::ServerRec->log_error("f*** ends");

$bb_ctx->cleanup;

      }

      return Apache2::Const::OK;
  }

  1;

如何使用mod_perl修改发布请求内容

2 个答案: