package Apache::DumpHeaders;
use Apache ();

sub handler {
   my($r) = @_;
   my($k,$v);
   my $file = $r->dir_config("DumpHeadersFile") or return -1;
   local *OUT;
   open OUT, ">$file" or die "Failed to open $file";
   print OUT $r->as_string;
   close OUT;
   return -1;
}

1;

__END__

=head1 NAME

Apache::DumpHeaders - Watch HTTP transaction via headers

=head1 SYNOPSIS

#httpd.conf or some such
PerlLogHandler Apache::DumpHeaders
PerlSetVar     DumpHeadersFile -

=head1 DESCRIPTION

This module is used to watch an HTTP transaction, looking at client and
servers headers.  DumpHeadersFile may be a filename or `-' for STDOUT.
With Apache::ProxyPassThur configured, you are able to watch your browser
talk to any server besides the one with this module living inside.

=head1 SEE ALSO

mod_perl(3), Apache(3), Apache::ProxyPassThru(3)

=head1 AUTHOR

Doug MacEachern <[email protected]>

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.