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