}
require Apache2::RequestIO;
require Apache2::RequestRec;
+ use Apache2::Log;
require Apache2::RequestUtil;
eval 'use Apache2::Const -compile => qw/REDIRECT/;'; # -compile 4 no import
require APR::URI;
my ($package, $line) = (caller)[0,2];
my $ar = $self->parent ? $self->parent->{ar} : $self->{ar};
if ( $args[0] and ref $self ) {
+ my @lines = split /\n/, (join '', @args);
+ $ar->warn("[$package line $line] ".shift(@lines));
+ foreach(@lines) {
+ next unless $_;
+ $ar->warn(" $_");
+ }
$ar->warn("[$package line $line] ", @args) ;
} else {
- print "warn called by ", caller, " with ", @_, "\n";
+ print STDERR "warn called by ", caller, " with ", @_, "\n";
}
return;
}
sub redirect_request {
my $r = shift;
my $redirect_url = $_[0];
- my $status = $MODPERL2 ? eval 'Apache2::Const::REDIRECT;' :
- eval 'Apache::Constants::REDIRECT;'; # why have to eval this?
+ my $status = $MODPERL2 ? eval 'Apache2::Const::REDIRECT;' : eval 'Apache::Constants::REDIRECT;';
if ($_[1]) {
my %args = @_;
if ($args{url}) {
$r->ar->status($status);
$r->ar->headers_out->set('Location' => $redirect_url);
+ $r->output('<html><head><title>redirecting...</title></head><body><h2>redirecting..</h2></body></html>') unless ($r->output);
return OK;
}