--- LdapPlugin.pm	2005-10-04 03:53:00.000000000 +0200
+++ LdapPlugin-new.pm	2006-02-06 14:34:55.000000000 +0100
@@ -106,11 +106,17 @@
     $host .= ":$LDAP_Port";
 
     # Use $host to make connection.  Bail out with error if no connect.
-    if (! ($ldap = Net::LDAP->new ($host))) {
+    if (! ($ldap = Net::LDAP->new ($host, version => 3))) {
                 # Connection failed!
                 return ("<b> LDAP Connect Failure </b>");
     }
 
+    $mesg = $ldap->bind("uid=donttell", password => "censored");
+    if ($mesg->code) {
+        # Bind failed!
+        return ("<b> LDAP Bind Failure </b>");
+    }
+
     # filter from parameter or CgiQuery
     my $cgi = &TWiki::Func::getCgiQuery();
     my $cgiFilter = "";