Retrieving User Details from OID: Portal 10.1.2

Question

I am trying to retrieve the user object from the OID when the person logs in to the portal. I would need to retrive the group name and some attributes from the OID for the person logged in.
Any ideas where I can get a snippet of code which does this? I am using Portal Version 10.1.2.

Answer 1

Hi Soumak
Use
s_email wwsec_oid.VC_ARR := wwsec_oid.get_user_attr_vals(p_username => p_user,p_attr =>'mail' ,p_base =>'cn=users,dc=my_company,dc=com');
s_nom wwsec_oid.VC_ARR := wwsec_oid.get_user_attr_vals(p_username => p_user,p_attr =>'sn' ,p_base =>'cn=users,dc=my_company,dc=com');
s_prenom wwsec_oid.VC_ARR := wwsec_oid.get_user_attr_vals(p_username => p_user,p_attr =>'givenname',p_base =>'cn=users,dc=my_company,dc=com');
or the dbms_ldap package :
ldap_host := 'your_host';
ldap_port := '4032';
ldap_user := 'cn=orcladmin';
ldap_passwd := 'orcladmin_pwd';
ldap_base := 'cn=users, dc=your_company,dc=com';
-- Choosing exceptions to be raised by DBMS_LDAP library.
DBMS_LDAP.use_exception := TRUE;
my_session := DBMS_LDAP.init (ldap_host, ldap_port);
-- bind to the directory
retval := DBMS_LDAP.simple_bind_s (my_session, ldap_user, ldap_passwd);
-- issue the search
my_attrs (1) := '*'; -- retrieve all attributes
my_selection := 'cn=' || p_cn;
retval :=
DBMS_LDAP.search_s (my_session,
ldap_base,
DBMS_LDAP.scope_subtree,
--'objectclass=*',
my_selection,
my_attrs,
0,
my_message
-- get the entry
my_entry := DBMS_LDAP.first_entry (my_session, my_message);
entry_index := 1;
p_mail := '';
p_tel := '';
p_sn := '';
p_givenname := '';
my_dn := DBMS_LDAP.get_dn (my_session, my_entry);
my_attr_name :=
DBMS_LDAP.first_attribute (my_session, my_entry, my_ber_elmt);
attr_index := 1;
WHILE my_attr_name IS NOT NULL
LOOP
my_vals := DBMS_LDAP.get_values (my_session, my_entry, my_attr_name);
IF my_vals.COUNT > 0
THEN
FOR i IN my_vals.FIRST .. my_vals.LAST
LOOP
IF my_attr_name = 'mail'
THEN
p_mail := SUBSTR (my_vals (i), 1, 200);
END IF;
IF my_attr_name = 'telephonenumber'
THEN
p_tel := SUBSTR (my_vals (i), 1, 200);
END IF;
IF my_attr_name = 'sn'
THEN
p_sn := SUBSTR (my_vals (i), 1, 200);
END IF;
IF my_attr_name = 'givenname'
THEN
p_givenname := SUBSTR (my_vals (i), 1, 200);
END IF;
END LOOP;
END IF;
my_attr_name :=
DBMS_LDAP.next_attribute (my_session, my_entry, my_ber_elmt);
END LOOP;
-- Free ber_element
DBMS_LDAP.ber_free (my_ber_elmt, 0);
-- free LDAP Message
retval := DBMS_LDAP.msgfree (my_message);
-- unbind from the directory
retval := DBMS_LDAP.unbind_s (my_session);