158 |
#$msg = $self->{upstream}->unbind; |
#$msg = $self->{upstream}->unbind; |
159 |
#warn "# unbind msg = ",dump( $msg ); |
#warn "# unbind msg = ",dump( $msg ); |
160 |
|
|
161 |
$msg = $self->{upstream}->bind( |
my $bind; |
162 |
dn => $req->{name}, |
$bind->{dn} = $req->{name} if $req->{name}; |
163 |
password => $req->{authentication}->{simple} |
$bind->{password} = $req->{authentication}->{simple} if $req->{authentication}->{simple}; |
164 |
); |
warn "# bind ",dump( $bind ); |
165 |
|
$msg = $self->{upstream}->bind( %$bind ); |
166 |
|
|
167 |
#warn "# bind msg = ",dump( $msg ); |
#warn "# bind msg = ",dump( $msg ); |
168 |
if ( $msg->code != LDAP_SUCCESS ) { |
if ( $msg->code != LDAP_SUCCESS ) { |