}
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;
}
$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)
+ $r->output('<html><head><title>redirecting...</title></head><body><h2>redirecting..</h2></body></html>') unless ($r->output);
return OK;
}