Test content-length before reading socket (#338)
This commit is contained in:
parent
72ff01d6aa
commit
4be4780917
@ -10,7 +10,7 @@ use strict;
|
|||||||
use Lemonldap::NG::Handler::Simple qw(:apache :headers :traces);
|
use Lemonldap::NG::Handler::Simple qw(:apache :headers :traces);
|
||||||
use LWP::UserAgent;
|
use LWP::UserAgent;
|
||||||
|
|
||||||
our $VERSION = '1.0.0';
|
our $VERSION = '1.1.0';
|
||||||
|
|
||||||
##########################################
|
##########################################
|
||||||
# COMPATIBILITY WITH APACHE AND APACHE 2 #
|
# COMPATIBILITY WITH APACHE AND APACHE 2 #
|
||||||
@ -89,8 +89,10 @@ sub run($$) {
|
|||||||
if ( $r->method eq "POST" ) {
|
if ( $r->method eq "POST" ) {
|
||||||
my $len = $r->headers_in->{'Content-Length'};
|
my $len = $r->headers_in->{'Content-Length'};
|
||||||
my $buf;
|
my $buf;
|
||||||
$r->read( $buf, $len );
|
if ($len) {
|
||||||
$request->content($buf);
|
$r->read( $buf, $len );
|
||||||
|
$request->content($buf);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
$headers_set = 0;
|
$headers_set = 0;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user