____
package
httpd::FilterCaptureResponse;
use strict;
use warnings FATAL =>
'all';
use base qw(Apache2::Filter);
use Apache2::RequestRec ();
use APR::Table ();
use APR::Bucket ();
use
APR::Brigade ();
use Apache2::Const -compile => qw(OK);
use
APR::Const -compile => ':common';
sub handler {
my ($filter,
$bb) = @_;
my $ctx = $filter->ctx;
my $data = exists
$ctx->{data} ? $ctx->{data} : '';
$ctx->{invoked}++;
my ($bdata, $seen_eos) =
flatten_bb($bb);
# $bdata =~ s/-//g;
$data .= $bdata if $bdata;
if ($seen_eos)
{
my $r_headers =
$filter->r->headers_out;
use
Data::Dumper; # DEBUG
warn
"Dumping Apache response headers:\n"; #
DEBUG
warn Dumper($r_headers); #
DEBUG
if ($data)
{
if (open(CAPTION,
">/tmp/ApacheResponse.txt"))
{
print
CAPTION
$data;
close CAPTION;
}
else { warn "Unable
to open caption file: $!\n"
}
$filter->print($data);
}
}
else
{
# store context for all but the
last invocation
$ctx->{data} =
$data;
$filter->ctx($ctx);
}
return
Apache2::Const::OK;
}
sub flatten_bb {
my ($bb) =
shift;
my $seen_eos = 0;
my
@data;
for (my $b = $bb->first; $b; $b =
$bb->next($b)) {
$seen_eos++,
last if $b->is_eos;
$b->read(my $bdata);
push
@data, $bdata;
}
return (join('',
@data), $seen_eos);
}
1;
-----
It works fine for the response body, but
doesn't get the headers. The document I mentioned says that headers can
only be seen by connection filters, so apparently the log contains the empty
hash
$VAR1 = bless( {},
'APR::Table' );
I wonder if there is a workaround for this
without adding a connection filter?
Another question is what the best way would be to
pass on arguments to the filter so that we could tell it where to store the
response?
Thank you in advance.
