Commit ea775949 authored by FX Deltombe's avatar FX Deltombe

Fix bug of incomplete request header cleaning with unprotect (#LEMONLDAP-728)



git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/branches/lemonldap-ng_version_1_4-bugfixes@3485 1dbb9719-a921-0410-b57f-c3a383c2c641
parent 1c37e5b1
......@@ -64,7 +64,15 @@ sub lmUnsetHeaderIn {
my ( $self, $r, @headers ) = splice @_;
foreach my $h (@headers) {
if ( MP() == 2 ) {
$r->headers_in->unset($h);
$h = lc $h;
$h =~ s/-/_/g;
$r->headers_in->do( sub {
my $h1 = shift;
my $h2 = lc $h1;
$h2 =~ s/-/_/g;
$r->headers_in->unset($h1) if ( $h eq $h2 );
return 1;
} );
}
elsif ( MP() == 1 ) {
$r->header_in( $h => "" )
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment