Manage special char \ in DN for LDAP groups (#351)

This commit is contained in:
Clément Oudot 2011-07-13 13:27:31 +00:00
parent 0c7ea54ade
commit ef5418ec1d

View File

@ -13,7 +13,7 @@ use Encode;
use strict; use strict;
our @EXPORT = qw(ldap); our @EXPORT = qw(ldap);
our $VERSION = '1.1.0'; our $VERSION = '1.1.1';
our $ppLoaded = 0; our $ppLoaded = 0;
BEGIN { BEGIN {
@ -425,6 +425,10 @@ sub searchGroups {
} }
$searchFilter .= "))"; $searchFilter .= "))";
# Escape some special chars in DN
# Special char: /
$searchFilter =~ s/\\/\\\\/;
$portal->lmLog( "Group search filter: $searchFilter", 'debug' ); $portal->lmLog( "Group search filter: $searchFilter", 'debug' );
# Search # Search