if ( $request->{bindRequest}->{name} =~ m{@} ) {
my $old = $request->{bindRequest}->{name};
$request->{bindRequest}->{name} =~ s/[@\.]/,dc=/g;
- $request->{bindRequest}->{name} =~ s/^/uid=/ unless $request->{bindRequest}->{name} =~ m/^uid=/;
+ $request->{bindRequest}->{name} =~ s/^/uid=/;
warn "rewrite bind cn $old -> ", $request->{bindRequest}->{name};
Convert::ASN1::asn_hexdump(\*STDOUT,$pdu) if $debug;
$pdu = $LDAPRequest->encode($request);