our $r = shift;
$PLP::print = 'PLP::Apache::print';
+ $PLP::read = \&read;
$ENV{PLP_FILENAME} = my $filename = $r->filename;
unless (-f $filename) {
- return MP2 ? Apache2::Const::NOT_FOUND() : Apache::Constants::NOT_FOUND();
+ return MP2 ? Apache2::Const::HTTP_NOT_FOUND() : Apache::Constants::NOT_FOUND();
}
unless (-r _) {
- return MP2 ? Apache2::Const::FORBIDDEN() : Apache::Constants::FORBIDDEN();
+ return MP2 ? Apache2::Const::HTTP_FORBIDDEN() : Apache::Constants::FORBIDDEN();
}
$ENV{PLP_NAME} = $r->uri;
return 0; # OK
}
+sub read ($) {
+ my ($bytes) = @_;
+ $r->read(my $data, $bytes);
+ return $data;
+}
+
# FAST printing under mod_perl
sub print {
return unless grep length, @_;