git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
generalize reading post input
[perl/plp/.git]
/
PLP
/
Apache.pm
diff --git
a/PLP/Apache.pm
b/PLP/Apache.pm
index fd2607bf13f0f5bd82901ceb90d2315cb6d52601..bc788811252a533e48457aca4529033cc1325b2a 100644
(file)
--- a/
PLP/Apache.pm
+++ b/
PLP/Apache.pm
@@
-26,14
+26,15
@@
sub init {
our $r = shift;
$PLP::print = 'PLP::Apache::print';
our $r = shift;
$PLP::print = 'PLP::Apache::print';
+ $PLP::read = \&read;
$ENV{PLP_FILENAME} = my $filename = $r->filename;
unless (-f $filename) {
$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 _) {
}
unless (-r _) {
- return MP2 ? Apache2::Const::FORBIDDEN() : Apache::Constants::FORBIDDEN();
+ return MP2 ? Apache2::Const::
HTTP_
FORBIDDEN() : Apache::Constants::FORBIDDEN();
}
$ENV{PLP_NAME} = $r->uri;
}
$ENV{PLP_NAME} = $r->uri;
@@
-49,6
+50,12
@@
sub init {
return 0; # OK
}
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, @_;
# FAST printing under mod_perl
sub print {
return unless grep length, @_;