Re: $r->status no correct

[Michael Peters]

Adam Prime wrote:

You should package that up and put it on CPAN.

Attached is a version that works on mod_perl 1.

--
Michael Peters
Plus Three, LP


package Apache::Trace;
use strict;
use Apache::Log();
use Apache::Constants ':common';

our @Phases = qw(
  PerlPostReadRequestHandler
  PerlTransHandler
  PerlMapToStorageHandler
  PerlHeaderParserHandler
  PerlAccessHandler
  PerlAuthenHandler
  PerlAuthzHandler
  PerlTypeHandler
  PerlFixupHandler
  PerlResponseHandler
  PerlLogHandler
  PerlCleanupHandler
);

sub handler($$) {
  my ($pkg_name, $r) = @_;
  _add_http_phase_tracers($r);
  DECLINED;
}

sub _add_http_phase_tracers {
  my $r = shift;
  for (@Phases) {
    my $phase_name = $_;
    $r->push_handlers($_, sub($) {
      my $r = shift;
      my $s = $r->server;
      $s->warn(sprintf('phase=%s, status=%s, uri=%s, filename=%s',
        $phase_name,
        $r->status,
        $r->uri,
        $r->filename,
      ));
      return DECLINED;
    });
  }
}

1;

__END__

=pod:summary Trace mod_perl server events

=pod:synopsis

In your Apache configuration file:

  PerlPostReadRequestHandler Apache2::Trace->http_phases

Will produce output (C<error_log>) for each http request, e.g.:

  ... [warn] phase=PerlPostReadRequestHandler, status=200, uri=/, filename=
  ... [warn] phase=PerlTransHandler, status=200, uri=/, filename=
  ... [warn] phase=PerlMapToStorageHandler, status=200, uri=/, 
filename=/var/www/vhosts/example.com/htdocs/
  ... [warn] phase=PerlHeaderParserHandler, status=200, uri=/, 
filename=/var/www/vhosts/example.com/htdocs/
  ... [warn] phase=PerlAccessHandler, status=200, uri=/, 
filename=/var/www/vhosts/example.com/htdocs/
  ... [warn] phase=PerlTypeHandler, status=200, uri=/, 
filename=/var/www/vhosts/example.com/htdocs/
  ... [warn] phase=PerlFixupHandler, status=200, uri=/, 
filename=/var/www/vhosts/example.com/htdocs/
  ... [warn] phase=PerlLogHandler, status=304, uri=/index.html, 
filename=/var/www/vhosts/example.com/htdocs/index.html
  ... [warn] phase=PerlCleanupHandler, status=304, uri=/index.html, 
filename=/var/www/vhosts/example.com/htdocs/index.html

=cut