projects
/
virtual-ldap
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
correctly construct bind arguments
[virtual-ldap]
/
lib
/
VLDAP
/
Server.pm
diff --git
a/lib/VLDAP/Server.pm
b/lib/VLDAP/Server.pm
index
7084080
..
9e497ea
100644
(file)
--- a/
lib/VLDAP/Server.pm
+++ b/
lib/VLDAP/Server.pm
@@
-158,10
+158,11
@@
sub bind {
#$msg = $self->{upstream}->unbind;
#warn "# unbind msg = ",dump( $msg );
#$msg = $self->{upstream}->unbind;
#warn "# unbind msg = ",dump( $msg );
- $msg = $self->{upstream}->bind(
- dn => $req->{name},
- password => $req->{authentication}->{simple}
- );
+ my $bind;
+ $bind->{dn} = $req->{name} if $req->{name};
+ $bind->{password} = $req->{authentication}->{simple} if $req->{authentication}->{simple};
+ warn "# bind ",dump( $bind );
+ $msg = $self->{upstream}->bind( %$bind );
#warn "# bind msg = ",dump( $msg );
if ( $msg->code != LDAP_SUCCESS ) {
#warn "# bind msg = ",dump( $msg );
if ( $msg->code != LDAP_SUCCESS ) {