LDAP - Free unused Connections

Question

Hi,
I am very new to work with Active Directory. I have got a PL/SQL script from net to communicate with LDAP and it is working fine.
My task is to check the user names against the LDAP.
But am getting "DBMS_LDAP: Cannot open more than 63 LDAP connections" error.
I have gone through so many sites to resolve this issue. Everyone is suggesting to close the connection after the executing the script.
I already have a closing statement in my script.
"l_retval := DBMS_LDAP.unbind_s(l_session); "
Please help me to resolve this issue.
Thanks,
Rajesh.B

Answer 1

Here is the script.
create or replace
FUNCTION GET_LDAP_STATUS 
(acct in varchar2)
RETURN number AS
BEGIN
DECLARE
  -- Adjust as necessary.
  output PLS_INTEGER;
  l_ldap_host VARCHAR2(256) := ;
  l_ldap_port VARCHAR2(256) := ;
  l_ldap_user VARCHAR2(256) := ;
  l_ldap_passwd VARCHAR2(256) := ;
  l_ldap_base VARCHAR2(256) :=;
  l_retval       PLS_INTEGER;
  l_session      DBMS_LDAP.session;
  l_attrs        DBMS_LDAP.string_collection;
  l_message      DBMS_LDAP.message;
  l_entry        DBMS_LDAP.message;
  l_attr_name    VARCHAR2(256);
  l_ber_element  DBMS_LDAP.ber_element;
  l_vals         DBMS_LDAP.string_collection;
BEGIN
  -- Choose to raise exceptions.
  DBMS_LDAP.USE_EXCEPTION := TRUE;
  -- Connect to the LDAP server.
  l_session := DBMS_LDAP.init(hostname => l_ldap_host,
                              portnum  => l_ldap_port);
  l_retval := DBMS_LDAP.simple_bind_s(ld     => l_session,
                                      dn     => l_ldap_user,
                                      passwd => l_ldap_passwd);
  -- Get all attributes
  l_attrs(1) := 'sAMAccountName'; -- retrieve all attributes
  l_retval := DBMS_LDAP.search_s(ld       => l_session,
                                 base     => l_ldap_base,
                                 scope    => DBMS_LDAP.SCOPE_SUBTREE,
                                 filter   => 'sAMAccountName='||acct,
                                 attrs    => l_attrs,
                                 attronly => 0,
                                 res      => l_message);
  IF DBMS_LDAP.count_entries(ld => l_session, msg => l_message) > 0 THEN
    -- Get all the entries returned by our search.
    l_entry := DBMS_LDAP.first_entry(ld  => l_session,
                                     msg => l_message);
    << entry_loop >>
    WHILE l_entry IS NOT NULL LOOP
      -- Get all the attributes for this entry.
      DBMS_OUTPUT.PUT_LINE('---------------------------------------');
      l_attr_name := DBMS_LDAP.first_attribute(ld        => l_session,
                                               ldapentry => l_entry,
                                               ber_elem  => l_ber_element);
      << attributes_loop >>
      WHILE l_attr_name IS NOT NULL LOOP
        -- Get all the values for this attribute.
        l_vals := DBMS_LDAP.get_values (ld        => l_session,
                                        ldapentry => l_entry,
                                        attr      => l_attr_name);
        << values_loop >>
        FOR i IN l_vals.FIRST .. l_vals.LAST LOOP
          DBMS_OUTPUT.PUT_LINE('ATTIBUTE_NAME: ' || l_attr_name || ' = ' || SUBSTR(l_vals(i),1,200));
          l_retval := l_retval+1;
        END LOOP values_loop;
        l_attr_name := DBMS_LDAP.next_attribute(ld        => l_session,
                                                ldapentry => l_entry,
                                                ber_elem  => l_ber_element);
      END LOOP attibutes_loop;
      l_entry := DBMS_LDAP.next_entry(ld  => l_session,
                                      msg => l_entry);
    END LOOP entry_loop;   
  END IF;
  -- Disconnect from the LDAP server. 
  DBMS_OUTPUT.PUT_LINE('L_RETVAL: ' || l_retval);
  return l_retval;
  l_retval := DBMS_LDAP.unbind_s(l_session); 
END;
END GET_LDAP_STATUS;Edited by: BluShadow on 05-Jan-2012 14:15
added {noformat}{noformat} tags for readability of the code. Please read: {message:id=9360002} and learn to do this yourself.