| Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/Apache/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
| Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/Apache/RedirectLogFix.pm |
package Apache::RedirectLogFix;
use Apache::Constants qw(OK DECLINED REDIRECT);
sub handler {
my $r = shift->last;
return DECLINED unless $r->handler && ($r->handler eq "perl-script");
if(my $loc = $r->header_out("Location")) {
if($r->status == 200 and substr($loc, 0, 1) ne "/") {
$r->status(REDIRECT);
return OK
}
}
return DECLINED;
}
1;
__END__
=head1 NAME
Apache::RedirectLogFix - Properly set redirect status for loggers
=head1 SYNOPSIS
PerlLogHandler Apache::RedirectLogFix
=head1 DESCRIPTION
Due the nature of how mod_perl handles redirects, the status code
is not properly logged. This module works around that bug until
mod_perl can deal with this.