156 |
|
|
157 |
my $bind; |
my $bind; |
158 |
$bind->{dn} = $req->{name} if $req->{name}; |
$bind->{dn} = $req->{name} if $req->{name}; |
159 |
|
|
160 |
|
if ( $bind->{dn} =~ m{@} ) { |
161 |
|
|
162 |
|
$bind->{dn} =~ s/[@\.]/,dc=/g; |
163 |
|
$bind->{dn} =~ s/^/uid=/; |
164 |
|
|
165 |
|
} |
166 |
|
|
167 |
$bind->{password} = $req->{authentication}->{simple} if $req->{authentication}->{simple}; |
$bind->{password} = $req->{authentication}->{simple} if $req->{authentication}->{simple}; |
168 |
warn "# bind ",dump( $bind ); |
warn "# bind ",dump( $bind ); |
169 |
$msg = $self->{upstream}->bind( %$bind ); |
$msg = $self->{upstream}->bind( %$bind ); |