Handler: correct Proxy bugs
This commit is contained in:
parent
f4a724b0b9
commit
857d421b1e
|
@ -7,10 +7,10 @@ package Lemonldap::NG::Handler::Proxy;
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
|
|
||||||
use Lemonldap::NG::Handler::Simple qw(:apache :headers);
|
use Lemonldap::NG::Handler::Simple qw(:apache :headers :traces);
|
||||||
use LWP::UserAgent;
|
use LWP::UserAgent;
|
||||||
|
|
||||||
our $VERSION = '0.41';
|
our $VERSION = '0.42';
|
||||||
|
|
||||||
##########################################
|
##########################################
|
||||||
# COMPATIBILITY WITH APACHE AND APACHE 2 #
|
# COMPATIBILITY WITH APACHE AND APACHE 2 #
|
||||||
|
@ -85,7 +85,7 @@ sub run($$) {
|
||||||
|
|
||||||
# copy POST data, if any
|
# copy POST data, if any
|
||||||
if ( $r->method eq "POST" ) {
|
if ( $r->method eq "POST" ) {
|
||||||
my $len = $r->header_in('Content-Length');
|
my $len = $r->headers_in->{'Content-Length'};
|
||||||
my $buf;
|
my $buf;
|
||||||
$r->read( $buf, $len );
|
$r->read( $buf, $len );
|
||||||
$request->content($buf);
|
$request->content($buf);
|
||||||
|
@ -142,7 +142,6 @@ sub headers {
|
||||||
1;
|
1;
|
||||||
}
|
}
|
||||||
);
|
);
|
||||||
$r->send_http_header;
|
|
||||||
$headers_set = 1;
|
$headers_set = 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -71,7 +71,7 @@ BEGIN {
|
||||||
lmSetHeaderOut lmSetErrHeaderOut $cookieName $https $port
|
lmSetHeaderOut lmSetErrHeaderOut $cookieName $https $port
|
||||||
)
|
)
|
||||||
],
|
],
|
||||||
traces => [qw( $whatToTrace $statusPipe $statusOut )],
|
traces => [qw( $whatToTrace $statusPipe $statusOut lmLog )],
|
||||||
apache => [qw( MP OK REDIRECT FORBIDDEN DONE DECLINED SERVER_ERROR )],
|
apache => [qw( MP OK REDIRECT FORBIDDEN DONE DECLINED SERVER_ERROR )],
|
||||||
post => [qw($transform)],
|
post => [qw($transform)],
|
||||||
cda => ['$cda'],
|
cda => ['$cda'],
|
||||||
|
|
Loading…
Reference in New Issue
Block a user