Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Xavier Bachelot
lemonldap-ng
Commits
04ed7be6
Commit
04ed7be6
authored
Dec 10, 2009
by
Yadd
Browse files
exported vars are now asked to the LDAP server (instead of *)
parent
5499a042
Changes
1
Hide whitespace changes
Inline
Side-by-side
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBLDAP.pm
View file @
04ed7be6
...
...
@@ -5,6 +5,7 @@
# LDAP user database backend class
package
Lemonldap::NG::Portal::
UserDBLDAP
;
use
strict
;
use
Lemonldap::NG::Portal::
Simple
;
use
Lemonldap::NG::Portal::
_LDAP
'
ldap
';
#link protected ldap
...
...
@@ -57,20 +58,25 @@ sub search {
base
=>
$self
->
{
ldapBase
},
scope
=>
'
sub
',
filter
=>
$self
->
{
LDAPFilter
},
(
ref
(
$self
->
{
exportedVars
}
)
?
(
attrs
=>
values
(
%
{
$self
->
{
exportedVars
}
}
)
)
:
()
),
);
$self
->
lmLog
(
"
LDAP Search with base:
"
'
LDAP Search with base:
'
.
$self
->
{
ldapBase
}
.
"
and filter:
"
.
'
and filter:
'
.
$self
->
{
LDAPFilter
},
'
debug
'
);
if
(
$mesg
->
code
()
!=
0
)
{
$self
->
lmLog
(
"
LDAP Search error:
"
.
$mesg
->
error
,
'
error
'
);
$self
->
lmLog
(
'
LDAP Search error:
'
.
$mesg
->
error
,
'
error
'
);
return
PE_LDAPERROR
;
}
unless
(
$self
->
{
entry
}
=
$mesg
->
entry
(
0
)
)
{
$user
=
$self
->
{
mail
}
||
$self
->
{
user
};
my
$user
=
$self
->
{
mail
}
||
$self
->
{
user
};
$self
->
_sub
(
'
userError
',
"
$user
was not found in LDAP directory
"
);
return
PE_BADCREDENTIALS
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment