DBMS_LDAP Example. Пример кода работы с пакетом DBMS_LDAP

Как написать простейший код, работающий с LDAP-каталогом, с использованием пакета DBMS_LDAP

Наверно вам уже приходилось сталкиваться с ситуацией, когда надо напрямую из БД Oracle обратиться за данными, находящимися в LDAP-каталоге.

Для этого существует прекрасный стандартный пакет DBMS_LDAP.

Ниже приведу пример кода, где мы хотим получить cn пользователя, зная его DN.

Declare

  ldap_session DBMS_LDAP.session:=null;

  ErrorMsg VARCHAR2(4000);

-- значение атрибута

  my_attr_value varchar2(256);      

  entry_dn varchar2(256);

  my_vals DBMS_LDAP.STRING_COLLECTION;

  my_ber_elmt DBMS_LDAP.ber_element;

  my_attrs DBMS_LDAP.STRING_COLLECTION;

  my_attr_name varchar2(256);

  my_message DBMS_LDAP.message;

  my_entry DBMS_LDAP.message;

  ret_val PLS_INTEGER:=-1;

-- distinguished name пользователя

  userDN varchar2(2000):='uid=iivanov,ou=People,dc=maxcrc,dc=com';

BEGIN

  my_attrs(1):='cn';

 

-- создание LDAP session handle (адрес сервера, порт)

  ldap_session := DBMS_LDAP.init('asusnote','389');

 

-- админ, его пароль

  ret_val := DBMS_LDAP.simple_bind_s(ldap_session,'cn=Manager,dc=maxcrc,dc=com','secret');  

   

-- ищем пользователя

  ret_val := DBMS_LDAP.search_s(ldap_session,

                                userDN,

                                DBMS_LDAP.SCOPE_BASE,

                                'objectclass=inetorgperson',

                                my_attrs,

                                0,

                                my_message);

  dbms_output.put_line('Debug :: ret_Val expected is 0, found = '|| ret_val);

  dbms_output.put_line('Debug :: if ret_Val != 0 then ckeck dbms_ldap package for error code');

-- получить значение атрибута из результатов поиска

  my_entry := DBMS_LDAP.first_entry(ldap_session, my_message);

  my_attr_name := DBMS_LDAP.first_attribute(ldap_session,my_entry,my_ber_elmt);

  my_vals := DBMS_LDAP.get_values (ldap_session, my_entry, my_attr_name);

  my_attr_value := my_vals(0);

  dbms_output.put_line('Debug :: '|| my_attr_name || ' = ' || my_attr_value);

 

EXCEPTION

 WHEN others THEN

   ErrorMsg := SQLERRM;

   dbms_output.put_line('Error :: ' || ErrorMsg);

END;