> - removed:
>
> remaining - this method is not needed if the deprecated
> $r->client_block methods aren't used, (use $r->read
> $r->instead)
>
> This violates the compatibility with Apache::ParseFormData, which becomes
> unusable. Currently this module is the only alternative to libapreq2,
> which is still in development phase.
>
> Would be good if you undo the removal until libapreq2 release comes out.
Try this patch on ParseFormData instead. Works for me using the suggested
implementation in the docs. No sense in backtracking...
--- ParseFormData.pm.orig 2004-09-02 14:15:17.827899688 -0400
+++ ParseFormData.pm 2004-09-02 14:13:37.898091328 -0400
@@ -131,8 +131,6 @@
my $args = shift;
my $buf = "";
- $r->setup_client_block;
- $r->should_client_block or return '';
my $ct = $r->headers_in->get('content-type');
if($args->{'disable_uploads'} && index($ct, "multipart/form-data")
> -1) {
@@ -152,7 +150,7 @@
if($ct =~ /^multipart\/form-data; boundary=(.+)$/) {
my $boundary = $1;
my $lenbdr = length("--$boundary");
- $r->get_client_block($buf, $lenbdr+2);
+ $r->read($buf, $lenbdr+2);
$buf = substr($buf, $lenbdr);
$buf =~ s/[\n\r]+//;
my $iter = -1;
@@ -193,7 +191,7 @@
$r->pnotes('upload' => \%uploads);
} else {
my $len = $r->headers_in->get('content-length');
- $r->get_client_block($buf, $len);
+ $r->read($buf, $len);
&_parse_query($r, $buf) if($buf);
}
return(Apache::OK);
@@ -253,7 +251,7 @@
my $buff = shift;
my ($part, $content) = ($buff, "");
- while($r->get_client_block($buff, $len)) {
+ while($r->read($buff, $len)) {
$part .= $buff;
if($h) {
if($part =~ /\r?\n\r?\n/) {
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
