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}->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 ) {