don't duplicate uid=
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 21 Feb 2010 16:12:31 +0000 (16:12 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 21 Feb 2010 16:12:31 +0000 (16:12 +0000)
bin/ldap-rewrite.pl

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