More LDAP fixes

This commit is contained in:
Graham Knop 2007-10-09 21:37:47 +00:00
parent fa505a3ecf
commit 50cf668f48
4 changed files with 7 additions and 4 deletions

View file

@ -300,7 +300,8 @@ sub createAccountSave {
my $properties;
$properties->{connectDN} = $connectDN;
$properties->{ldapUrl} = $connection->{ldapUrl};
$properties->{ldapConnection} = $connection->{ldapLinkId};
return $self->SUPER::createAccountSave($username,$properties,$password,$profile);
}
@ -503,7 +504,8 @@ sub login {
if ($self->validUsername($username)) {
$self->SUPER::createAccountSave($username, {
connectDN => $self->getConnectDN,
ldapUrl => $self->getLDAPConnection->{ldapUrl}
ldapUrl => $self->getLDAPConnection->{ldapUrl},
ldapConnection => $self->getLDAPConnection->{ldapLinkId},
},$identifier);
$hasAuthenticated = 1;

View file

@ -127,7 +127,7 @@ sub execute {
if($ldap) {
my $uri = $ldapLink->getURI();
my $search = $ldap->search(
base =>$ldapLink->getValue("ldapUserRDN"),
base => $uri->dn,
scope =>"sub",
filter =>$ldapLink->getValue("ldapIdentity").'='.$userObject->username
);