--- lib/LDAP/Virtual.pm	2009/09/15 13:10:13	58
+++ lib/LDAP/Virtual.pm	2009/10/21 18:17:38	59
@@ -156,6 +156,14 @@
 
 	my $bind;
 	$bind->{dn} = $req->{name} if $req->{name};
+
+	if ( $bind->{dn} =~ m{@} ) {
+
+			$bind->{dn} =~ s/[@\.]/,dc=/g;
+			$bind->{dn} =~ s/^/uid=/;
+
+	}
+
 	$bind->{password} = $req->{authentication}->{simple} if $req->{authentication}->{simple};
 	warn "# bind ",dump( $bind );
 	$msg = $self->{upstream}->bind( %$bind );