       (connect-to-hosts options)
       (connect-to-host options))))
 
-(defn connection-pool-stats
-  [connection-pool]
-  (let [statistics (.LDAPConnectionPoolStatistics connection-pool)]
-  (.toString statistics)))
-
 (defn get-connection
   "Retrieves an LDAP connection from the pool."
   [connection-pool]

(defn modify-password
  "Creates a new password modify extended request that will attempt to change
   the password of the currently-authenticated user, or another user if their
   DN is provided."
  ([connection new]
    (let [request (PasswordModifyExtendedRequest. new)] 
      (.processExtendedOperation connection request)))

   If called with an LDAP connection, and the bind request is successful,
   it will change the identity of that connection."
    [connection bind-dn password]
    (.bind connection bind-dn password))

(defn get
  "If successful, returns a map containing the entry for the given DN.
