eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FND_LDAP_UTIL dependencies on DBMS_LDAP

Line 16: g_common_ldap dbms_ldap.session;

12: g_das_base_url varchar2(1000) := NULL;
13: g_das_relative_base constant varchar2(100) := 'cn=OperationUrls,cn=DAS,cn=Products,cn=OracleContext';
14:
15:
16: g_common_ldap dbms_ldap.session;
17: g_common_counter pls_integer :=0;
18:
19:
20: -- End of Package Globals

Line 29: function get_oid_session return dbms_ldap.session is

25: r_init boolean := false;
26: d_realm varchar2(4000) := null;
27: --
28: -------------------------------------------------------------------------------
29: function get_oid_session return dbms_ldap.session is
30:
31: l_module_source varchar2(256);
32: l_retval pls_integer;
33: l_host varchar2(256);

Line 40: l_session dbms_ldap.session;

36: l_pwd varchar2(256);
37: l_ldap_auth varchar2(256);
38: l_db_wlt_url varchar2(256);
39: l_db_wlt_pwd varchar2(256);
40: l_session dbms_ldap.session;
41:
42: begin
43: l_module_source := G_MODULE_SOURCE || 'get_oid_session: ';
44: -- change it to FAILURE if open_ssl fails, else let the simple_bind_s

Line 46: l_retval := dbms_ldap.SUCCESS;

42: begin
43: l_module_source := G_MODULE_SOURCE || 'get_oid_session: ';
44: -- change it to FAILURE if open_ssl fails, else let the simple_bind_s
45: -- go through
46: l_retval := dbms_ldap.SUCCESS;
47:
48: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
49: then
50: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Begin');

Line 53: dbms_ldap.use_exception := TRUE;

49: then
50: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Begin');
51: end if;
52:
53: dbms_ldap.use_exception := TRUE;
54:
55: l_host := fnd_preference.get(G_INTERNAL, G_LDAP_SYNCH, G_HOST);
56: l_port := fnd_preference.get(G_INTERNAL, G_LDAP_SYNCH, G_PORT);
57: l_user := fnd_preference.get(G_INTERNAL, G_LDAP_SYNCH, G_USERNAME);

Line 63: l_session := DBMS_LDAP.init(l_host, l_port);

59: l_ldap_auth := fnd_preference.get(G_INTERNAL, G_LDAP_SYNCH, G_DBLDAPAUTHLEVEL);
60: l_db_wlt_url := fnd_preference.get(G_INTERNAL, G_LDAP_SYNCH, G_DBWALLETDIR);
61: l_db_wlt_pwd := fnd_preference.eget(G_INTERNAL, G_LDAP_SYNCH, G_DBWALLETPASS, G_LDAP_PWD);
62:
63: l_session := DBMS_LDAP.init(l_host, l_port);
64:
65: -- Elan, 04/27/2004, Not disclosing the password - gets saved to the database
66: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
67: then

Line 77: l_retval := dbms_ldap.open_ssl

73: end if;
74:
75: if ( l_ldap_auth > 0 )
76: then
77: l_retval := dbms_ldap.open_ssl
78: (l_session, 'file:'||l_db_wlt_url, l_db_wlt_pwd, l_ldap_auth);
79: end if;
80:
81: --dbms_ldap.use_exception := false;

Line 81: --dbms_ldap.use_exception := false;

77: l_retval := dbms_ldap.open_ssl
78: (l_session, 'file:'||l_db_wlt_url, l_db_wlt_pwd, l_ldap_auth);
79: end if;
80:
81: --dbms_ldap.use_exception := false;
82: --retval := dbms_ldap.open_ssl(my_session, ' ', ' ', 1);
83:
84: if (l_retval = dbms_ldap.SUCCESS) then
85: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);

Line 82: --retval := dbms_ldap.open_ssl(my_session, ' ', ' ', 1);

78: (l_session, 'file:'||l_db_wlt_url, l_db_wlt_pwd, l_ldap_auth);
79: end if;
80:
81: --dbms_ldap.use_exception := false;
82: --retval := dbms_ldap.open_ssl(my_session, ' ', ' ', 1);
83:
84: if (l_retval = dbms_ldap.SUCCESS) then
85: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);
86: else

Line 84: if (l_retval = dbms_ldap.SUCCESS) then

80:
81: --dbms_ldap.use_exception := false;
82: --retval := dbms_ldap.open_ssl(my_session, ' ', ' ', 1);
83:
84: if (l_retval = dbms_ldap.SUCCESS) then
85: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);
86: else
87: fnd_message.set_name ('FND', 'FND_SSO_SSL_ERROR');
88: raise_application_error(-20002, 'FND_SSO_SSL_ERROR');

Line 85: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);

81: --dbms_ldap.use_exception := false;
82: --retval := dbms_ldap.open_ssl(my_session, ' ', ' ', 1);
83:
84: if (l_retval = dbms_ldap.SUCCESS) then
85: l_retval := dbms_ldap.simple_bind_s(l_session, l_user, l_pwd);
86: else
87: fnd_message.set_name ('FND', 'FND_SSO_SSL_ERROR');
88: raise_application_error(-20002, 'FND_SSO_SSL_ERROR');
89: end if;

Line 99: when dbms_ldap.invalid_session then

95:
96: return l_session;
97:
98: exception
99: when dbms_ldap.invalid_session then
100: fnd_message.set_name ('FND', 'FND_SSO_INV_SESSION');
101: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
102: then
103: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 106: when dbms_ldap.invalid_ssl_wallet_loc then

102: then
103: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
104: end if;
105: raise;
106: when dbms_ldap.invalid_ssl_wallet_loc then
107: fnd_message.set_name ('FND', 'FND_SSO_WALLET_LOC');
108: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
109: then
110: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 113: when dbms_ldap.invalid_ssl_wallet_passwd then

109: then
110: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
111: end if;
112: raise;
113: when dbms_ldap.invalid_ssl_wallet_passwd then
114: fnd_message.set_name ('FND', 'FND_SSO_WALLET_PWD');
115: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
116: then
117: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 120: when dbms_ldap.invalid_ssl_auth_mode then

116: then
117: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
118: end if;
119: raise;
120: when dbms_ldap.invalid_ssl_auth_mode then
121: fnd_message.set_name ('FND', 'FND_SSO_INV_AUTH_MODE');
122: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
123: then
124: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 137: function unbind(p_session in out nocopy dbms_ldap.session) return pls_integer

133:
134: end get_oid_session;
135: --
136: -------------------------------------------------------------------------------
137: function unbind(p_session in out nocopy dbms_ldap.session) return pls_integer
138: is
139: retval pls_integer;
140: l_module_source varchar2(256);
141: begin

Line 150: retval := dbms_ldap.unbind_s(p_session);

146: then
147: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Begin');
148: end if;
149:
150: retval := dbms_ldap.unbind_s(p_session);
151:
152: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
153: then
154: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'End');

Line 251: -- function get_users_nodes return dbms_ldap.string_collection

247: end get_orclappname;
248: --
249: -------------------------------------------------------------------------------
250: -- DELETED
251: -- function get_users_nodes return dbms_ldap.string_collection
252: --
253: -------------------------------------------------------------------------------
254: function get_dn_for_guid(p_orclguid in fnd_user.user_guid%type) return varchar2 is
255:

Line 260: l_message dbms_ldap.message := NULL;

256: l_module_source varchar2(256);
257: result pls_integer;
258: l_dn varchar2(1000);
259: l_base varchar2(1000);
260: l_message dbms_ldap.message := NULL;
261: l_entry dbms_ldap.message := NULL;
262: l_attrs dbms_ldap.string_collection;
263: l_ldap_session dbms_ldap.session;
264:

Line 261: l_entry dbms_ldap.message := NULL;

257: result pls_integer;
258: l_dn varchar2(1000);
259: l_base varchar2(1000);
260: l_message dbms_ldap.message := NULL;
261: l_entry dbms_ldap.message := NULL;
262: l_attrs dbms_ldap.string_collection;
263: l_ldap_session dbms_ldap.session;
264:
265: begin

Line 262: l_attrs dbms_ldap.string_collection;

258: l_dn varchar2(1000);
259: l_base varchar2(1000);
260: l_message dbms_ldap.message := NULL;
261: l_entry dbms_ldap.message := NULL;
262: l_attrs dbms_ldap.string_collection;
263: l_ldap_session dbms_ldap.session;
264:
265: begin
266:

Line 263: l_ldap_session dbms_ldap.session;

259: l_base varchar2(1000);
260: l_message dbms_ldap.message := NULL;
261: l_entry dbms_ldap.message := NULL;
262: l_attrs dbms_ldap.string_collection;
263: l_ldap_session dbms_ldap.session;
264:
265: begin
266:
267: l_module_source := G_MODULE_SOURCE || 'get_dn_for_GUID: ';

Line 277: result := dbms_ldap.search_s(ld => l_ldap_session

273:
274: l_base := '';
275: l_ldap_session := get_oid_session;
276:
277: result := dbms_ldap.search_s(ld => l_ldap_session
278: , base => l_base
279: , scope => dbms_ldap.SCOPE_SUBTREE
280: , filter => 'orclguid='||p_orclguid
281: , attrs => l_attrs

Line 279: , scope => dbms_ldap.SCOPE_SUBTREE

275: l_ldap_session := get_oid_session;
276:
277: result := dbms_ldap.search_s(ld => l_ldap_session
278: , base => l_base
279: , scope => dbms_ldap.SCOPE_SUBTREE
280: , filter => 'orclguid='||p_orclguid
281: , attrs => l_attrs
282: , attronly => 0
283: , res => l_message);

Line 284: l_entry := dbms_ldap.first_entry(l_ldap_session, l_message);

280: , filter => 'orclguid='||p_orclguid
281: , attrs => l_attrs
282: , attronly => 0
283: , res => l_message);
284: l_entry := dbms_ldap.first_entry(l_ldap_session, l_message);
285:
286: if (l_entry is null) then
287: l_dn := null;
288: else

Line 289: l_dn := dbms_ldap.get_dn(l_ldap_session, l_entry);

285:
286: if (l_entry is null) then
287: l_dn := null;
288: else
289: l_dn := dbms_ldap.get_dn(l_ldap_session, l_entry);
290: end if;
291:
292: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
293: then

Line 329: p_ldap_session in dbms_ldap.session) return varchar2 is

325: end get_dn_for_GUID;
326: --
327: -------------------------------------------------------------------------------
328: function get_dn_for_guid(p_orclguid in fnd_user.user_guid%type,
329: p_ldap_session in dbms_ldap.session) return varchar2 is
330:
331: l_module_source varchar2(256);
332: result pls_integer;
333: l_dn varchar2(1000);

Line 335: l_message dbms_ldap.message := NULL;

331: l_module_source varchar2(256);
332: result pls_integer;
333: l_dn varchar2(1000);
334: l_base varchar2(1000);
335: l_message dbms_ldap.message := NULL;
336: l_entry dbms_ldap.message := NULL;
337: l_attrs dbms_ldap.string_collection;
338:
339: begin

Line 336: l_entry dbms_ldap.message := NULL;

332: result pls_integer;
333: l_dn varchar2(1000);
334: l_base varchar2(1000);
335: l_message dbms_ldap.message := NULL;
336: l_entry dbms_ldap.message := NULL;
337: l_attrs dbms_ldap.string_collection;
338:
339: begin
340:

Line 337: l_attrs dbms_ldap.string_collection;

333: l_dn varchar2(1000);
334: l_base varchar2(1000);
335: l_message dbms_ldap.message := NULL;
336: l_entry dbms_ldap.message := NULL;
337: l_attrs dbms_ldap.string_collection;
338:
339: begin
340:
341: l_module_source := G_MODULE_SOURCE || 'get_dn_for_GUID: ';

Line 350: result := dbms_ldap.search_s(ld => p_ldap_session

346: end if;
347:
348: l_base := '';
349:
350: result := dbms_ldap.search_s(ld => p_ldap_session
351: , base => l_base
352: , scope => dbms_ldap.SCOPE_SUBTREE
353: , filter => 'orclguid='||p_orclguid
354: , attrs => l_attrs

Line 352: , scope => dbms_ldap.SCOPE_SUBTREE

348: l_base := '';
349:
350: result := dbms_ldap.search_s(ld => p_ldap_session
351: , base => l_base
352: , scope => dbms_ldap.SCOPE_SUBTREE
353: , filter => 'orclguid='||p_orclguid
354: , attrs => l_attrs
355: , attronly => 0
356: , res => l_message);

Line 357: l_entry := dbms_ldap.first_entry(p_ldap_session, l_message);

353: , filter => 'orclguid='||p_orclguid
354: , attrs => l_attrs
355: , attronly => 0
356: , res => l_message);
357: l_entry := dbms_ldap.first_entry(p_ldap_session, l_message);
358:
359: if (l_entry is null) then
360: l_dn := null;
361: else

Line 362: l_dn := dbms_ldap.get_dn(p_ldap_session, l_entry);

358:
359: if (l_entry is null) then
360: l_dn := null;
361: else
362: l_dn := dbms_ldap.get_dn(p_ldap_session, l_entry);
363: end if;
364:
365: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
366: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'GUID::'||p_orclguid||' DN::'||l_dn);

Line 412: ** DATA_NOT_FOUND if search_s raise DBMS_LDAP.GENERAL_EXCEPTION

408: ** Returns :
409: ** Its orclguid
410: ** If it is NULL then the DN does not have a orcGuild attribute
411: ** Exceptions:
412: ** DATA_NOT_FOUND if search_s raise DBMS_LDAP.GENERAL_EXCEPTION
413: ** NOte that this DBMS_LDAP exception maybe risen by other reasons
414: **
415: */
416: function get_guid_for_dn(ldapSession in dbms_ldap.session,p_dn in varchar2) return varchar2

Line 413: ** NOte that this DBMS_LDAP exception maybe risen by other reasons

409: ** Its orclguid
410: ** If it is NULL then the DN does not have a orcGuild attribute
411: ** Exceptions:
412: ** DATA_NOT_FOUND if search_s raise DBMS_LDAP.GENERAL_EXCEPTION
413: ** NOte that this DBMS_LDAP exception maybe risen by other reasons
414: **
415: */
416: function get_guid_for_dn(ldapSession in dbms_ldap.session,p_dn in varchar2) return varchar2
417: is

Line 416: function get_guid_for_dn(ldapSession in dbms_ldap.session,p_dn in varchar2) return varchar2

412: ** DATA_NOT_FOUND if search_s raise DBMS_LDAP.GENERAL_EXCEPTION
413: ** NOte that this DBMS_LDAP exception maybe risen by other reasons
414: **
415: */
416: function get_guid_for_dn(ldapSession in dbms_ldap.session,p_dn in varchar2) return varchar2
417: is
418:
419: result pls_integer;
420: l_message dbms_ldap.message := null; -- the query result set

Line 420: l_message dbms_ldap.message := null; -- the query result set

416: function get_guid_for_dn(ldapSession in dbms_ldap.session,p_dn in varchar2) return varchar2
417: is
418:
419: result pls_integer;
420: l_message dbms_ldap.message := null; -- the query result set
421: l_entry dbms_ldap.message := null; -- the entry
422: l_attrs dbms_ldap.string_collection; -- lookup attributes
423: l_guid varchar2(100); -- returning guid
424: err varchar2(1000);

Line 421: l_entry dbms_ldap.message := null; -- the entry

417: is
418:
419: result pls_integer;
420: l_message dbms_ldap.message := null; -- the query result set
421: l_entry dbms_ldap.message := null; -- the entry
422: l_attrs dbms_ldap.string_collection; -- lookup attributes
423: l_guid varchar2(100); -- returning guid
424: err varchar2(1000);
425: l_module_source varchar2(256);

Line 422: l_attrs dbms_ldap.string_collection; -- lookup attributes

418:
419: result pls_integer;
420: l_message dbms_ldap.message := null; -- the query result set
421: l_entry dbms_ldap.message := null; -- the entry
422: l_attrs dbms_ldap.string_collection; -- lookup attributes
423: l_guid varchar2(100); -- returning guid
424: err varchar2(1000);
425: l_module_source varchar2(256);
426: begin

Line 437: result := dbms_ldap.search_s(ld => ldapSession,

433: end if;
434:
435: l_attrs(0) := 'orclGuid';
436: begin
437: result := dbms_ldap.search_s(ld => ldapSession,
438: base => p_dn,
439: scope => dbms_ldap.SCOPE_BASE,
440: filter => 'objectclass=*',
441: attrs => l_attrs,

Line 439: scope => dbms_ldap.SCOPE_BASE,

435: l_attrs(0) := 'orclGuid';
436: begin
437: result := dbms_ldap.search_s(ld => ldapSession,
438: base => p_dn,
439: scope => dbms_ldap.SCOPE_BASE,
440: filter => 'objectclass=*',
441: attrs => l_attrs,
442: attronly => 0,
443: res => l_message);

Line 445: when dbms_ldap.general_error then

441: attrs => l_attrs,
442: attronly => 0,
443: res => l_message);
444: exception
445: when dbms_ldap.general_error then
446: -- asume that DN not found
447: -- is not accurate, but better that nothing
448: err := SQLERRM;
449: if (instr(err,'No such object')>1) then

Line 460: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' from dbms_ldap.search_s, dn='||p_dn);

456: else
457: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
458: then
459: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, SQLERRM);
460: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' from dbms_ldap.search_s, dn='||p_dn);
461: end if;
462: raise;
463: end if;
464: end;

Line 465: l_entry := dbms_ldap.first_entry(ldapSession, l_message);

461: end if;
462: raise;
463: end if;
464: end;
465: l_entry := dbms_ldap.first_entry(ldapSession, l_message);
466: l_attrs := dbms_ldap.get_values(ldapSession, l_entry, 'orclGuid');
467: begin
468: l_guid := l_attrs(0);
469: exception

Line 466: l_attrs := dbms_ldap.get_values(ldapSession, l_entry, 'orclGuid');

462: raise;
463: end if;
464: end;
465: l_entry := dbms_ldap.first_entry(ldapSession, l_message);
466: l_attrs := dbms_ldap.get_values(ldapSession, l_entry, 'orclGuid');
467: begin
468: l_guid := l_attrs(0);
469: exception
470: when NO_DATA_FOUND then

Line 499: l_message dbms_ldap.message := NULL;

495: l_module_source varchar2(256);
496: result pls_integer;
497: l_result varchar2(4000);
498: l_base varchar2(100);
499: l_message dbms_ldap.message := NULL;
500: l_entry dbms_ldap.message := NULL;
501: l_attrs dbms_ldap.string_collection;
502: l_ldap_session dbms_ldap.session;
503:

Line 500: l_entry dbms_ldap.message := NULL;

496: result pls_integer;
497: l_result varchar2(4000);
498: l_base varchar2(100);
499: l_message dbms_ldap.message := NULL;
500: l_entry dbms_ldap.message := NULL;
501: l_attrs dbms_ldap.string_collection;
502: l_ldap_session dbms_ldap.session;
503:
504: begin

Line 501: l_attrs dbms_ldap.string_collection;

497: l_result varchar2(4000);
498: l_base varchar2(100);
499: l_message dbms_ldap.message := NULL;
500: l_entry dbms_ldap.message := NULL;
501: l_attrs dbms_ldap.string_collection;
502: l_ldap_session dbms_ldap.session;
503:
504: begin
505:

Line 502: l_ldap_session dbms_ldap.session;

498: l_base varchar2(100);
499: l_message dbms_ldap.message := NULL;
500: l_entry dbms_ldap.message := NULL;
501: l_attrs dbms_ldap.string_collection;
502: l_ldap_session dbms_ldap.session;
503:
504: begin
505:
506: l_module_source := G_MODULE_SOURCE || 'get_default_realm ';

Line 537: -- function get_search_nodes return dbms_ldap.string_collection is

533: end get_default_realm;
534: --
535: -------------------------------------------------------------------------------
536: -- DELETED
537: -- function get_search_nodes return dbms_ldap.string_collection is
538:
539: --
540: -------------------------------------------------------------------------------
541: --

Line 543: procedure proxy_as_user(p_orclguid in fnd_user.user_guid%type, x_ldap_session out nocopy dbms_ldap.session) is

539: --
540: -------------------------------------------------------------------------------
541: --
542: -------------------------------------------------------------------------------
543: procedure proxy_as_user(p_orclguid in fnd_user.user_guid%type, x_ldap_session out nocopy dbms_ldap.session) is
544:
545: l_module_source varchar2(256);
546: l_retval pls_integer;
547: l_dn varchar2(512);

Line 564: dbms_ldap.use_exception := true;

560:
561: x_ldap_session := fnd_ldap_util.get_oid_session;
562: l_dn := get_dn_for_guid(p_orclguid => p_orclguid, p_ldap_session => x_ldap_session);
563:
564: dbms_ldap.use_exception := true;
565:
566: l_retval := dbms_ldap.simple_bind_s(x_ldap_session, l_dn, null);
567:
568: if (l_retval = dbms_ldap.SUCCESS) then

Line 566: l_retval := dbms_ldap.simple_bind_s(x_ldap_session, l_dn, null);

562: l_dn := get_dn_for_guid(p_orclguid => p_orclguid, p_ldap_session => x_ldap_session);
563:
564: dbms_ldap.use_exception := true;
565:
566: l_retval := dbms_ldap.simple_bind_s(x_ldap_session, l_dn, null);
567:
568: if (l_retval = dbms_ldap.SUCCESS) then
569: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
570: then

Line 568: if (l_retval = dbms_ldap.SUCCESS) then

564: dbms_ldap.use_exception := true;
565:
566: l_retval := dbms_ldap.simple_bind_s(x_ldap_session, l_dn, null);
567:
568: if (l_retval = dbms_ldap.SUCCESS) then
569: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
570: then
571: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Proxied Successfully for User DN:' ||
572: l_dn);

Line 591: when dbms_ldap.invalid_session then

587:
588: --return l_session;
589:
590: exception
591: when dbms_ldap.invalid_session then
592: fnd_message.set_name ('FND', 'FND_SSO_INV_SESSION');
593: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
594: then
595: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);

Line 629: FUNCTION get_attribute(p_ldap_session IN dbms_ldap.SESSION, p_dn IN VARCHAR2, p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS l_module_source VARCHAR2(256);

625: **
626: */
627:
628:
629: FUNCTION get_attribute(p_ldap_session IN dbms_ldap.SESSION, p_dn IN VARCHAR2, p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS l_module_source VARCHAR2(256);
630: l_attrs dbms_ldap.string_collection;
631: l_result VARCHAR2(1000);
632: result pls_integer;
633: l_entry dbms_ldap.message := NULL;

Line 630: l_attrs dbms_ldap.string_collection;

626: */
627:
628:
629: FUNCTION get_attribute(p_ldap_session IN dbms_ldap.SESSION, p_dn IN VARCHAR2, p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS l_module_source VARCHAR2(256);
630: l_attrs dbms_ldap.string_collection;
631: l_result VARCHAR2(1000);
632: result pls_integer;
633: l_entry dbms_ldap.message := NULL;
634: l_message dbms_ldap.message := NULL;

Line 633: l_entry dbms_ldap.message := NULL;

629: FUNCTION get_attribute(p_ldap_session IN dbms_ldap.SESSION, p_dn IN VARCHAR2, p_attr_name IN VARCHAR2) RETURN VARCHAR2 IS l_module_source VARCHAR2(256);
630: l_attrs dbms_ldap.string_collection;
631: l_result VARCHAR2(1000);
632: result pls_integer;
633: l_entry dbms_ldap.message := NULL;
634: l_message dbms_ldap.message := NULL;
635: BEGIN
636: l_module_source := g_module_source || 'get_Attribute ';
637:

Line 634: l_message dbms_ldap.message := NULL;

630: l_attrs dbms_ldap.string_collection;
631: l_result VARCHAR2(1000);
632: result pls_integer;
633: l_entry dbms_ldap.message := NULL;
634: l_message dbms_ldap.message := NULL;
635: BEGIN
636: l_module_source := g_module_source || 'get_Attribute ';
637:
638: IF(fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN

Line 646: result := dbms_ldap.search_s(ld => p_ldap_session, base => p_dn,

642: fnd_log.string(fnd_log.level_statement, l_module_source, ' dn:' || p_dn || ' attr:' || p_attr_name);
643: END IF;
644:
645: l_attrs(0) := p_attr_name;
646: result := dbms_ldap.search_s(ld => p_ldap_session, base => p_dn,
647: scope => dbms_ldap.scope_base, filter => '(objectclass=*)',
648: attrs => l_attrs, attronly => 0, res => l_message);
649: l_entry := dbms_ldap.first_entry(p_ldap_session, l_message);
650: l_attrs := dbms_ldap.get_values(p_ldap_session, l_entry, p_attr_name);

Line 647: scope => dbms_ldap.scope_base, filter => '(objectclass=*)',

643: END IF;
644:
645: l_attrs(0) := p_attr_name;
646: result := dbms_ldap.search_s(ld => p_ldap_session, base => p_dn,
647: scope => dbms_ldap.scope_base, filter => '(objectclass=*)',
648: attrs => l_attrs, attronly => 0, res => l_message);
649: l_entry := dbms_ldap.first_entry(p_ldap_session, l_message);
650: l_attrs := dbms_ldap.get_values(p_ldap_session, l_entry, p_attr_name);
651: BEGIN

Line 649: l_entry := dbms_ldap.first_entry(p_ldap_session, l_message);

645: l_attrs(0) := p_attr_name;
646: result := dbms_ldap.search_s(ld => p_ldap_session, base => p_dn,
647: scope => dbms_ldap.scope_base, filter => '(objectclass=*)',
648: attrs => l_attrs, attronly => 0, res => l_message);
649: l_entry := dbms_ldap.first_entry(p_ldap_session, l_message);
650: l_attrs := dbms_ldap.get_values(p_ldap_session, l_entry, p_attr_name);
651: BEGIN
652: l_result := l_attrs(0);
653: EXCEPTION WHEN NO_DATA_FOUND THEN

Line 650: l_attrs := dbms_ldap.get_values(p_ldap_session, l_entry, p_attr_name);

646: result := dbms_ldap.search_s(ld => p_ldap_session, base => p_dn,
647: scope => dbms_ldap.scope_base, filter => '(objectclass=*)',
648: attrs => l_attrs, attronly => 0, res => l_message);
649: l_entry := dbms_ldap.first_entry(p_ldap_session, l_message);
650: l_attrs := dbms_ldap.get_values(p_ldap_session, l_entry, p_attr_name);
651: BEGIN
652: l_result := l_attrs(0);
653: EXCEPTION WHEN NO_DATA_FOUND THEN
654: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN

Line 666: WHEN dbms_ldap.general_error THEN

662: END IF;
663: return l_result;
664:
665: EXCEPTION
666: WHEN dbms_ldap.general_error THEN
667: BEGIN
668:
669: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
670: fnd_log.string(fnd_log.level_statement, l_module_source, 'END-> not found '||sqlerrm);

Line 710: FUNCTION get_das_base_url(p_ldap_session IN dbms_ldap.SESSION, p_realm_dn IN VARCHAR2) RETURN VARCHAR2 IS

706: ** THIS NEEDS TO BE FIXED for multiple realm support
707: */
708:
709:
710: FUNCTION get_das_base_url(p_ldap_session IN dbms_ldap.SESSION, p_realm_dn IN VARCHAR2) RETURN VARCHAR2 IS
711:
712: l_module_source VARCHAR2(256);
713: l_url VARCHAR2(2000);
714: l_attrs dbms_ldap.string_collection;

Line 714: l_attrs dbms_ldap.string_collection;

710: FUNCTION get_das_base_url(p_ldap_session IN dbms_ldap.SESSION, p_realm_dn IN VARCHAR2) RETURN VARCHAR2 IS
711:
712: l_module_source VARCHAR2(256);
713: l_url VARCHAR2(2000);
714: l_attrs dbms_ldap.string_collection;
715: l_result VARCHAR2(1000);
716: l_try VARCHAR2(1000);
717:
718: BEGIN

Line 807: l_ldap_session dbms_ldap.SESSION;

803:
804:
805: l_result VARCHAR2(4000) := NULL;
806: l_base VARCHAR2(4000) := NULL;
807: l_ldap_session dbms_ldap.SESSION;
808: l_module_source varchar2(2000);
809: result pls_integer;
810: BEGIN
811: l_module_source := g_module_source || 'get_das_operationurl ';

Line 873: procedure add_attribute_M(x_ldap in dbms_ldap.session, dn in varchar2, name in varchar2, value in varchar2 )

869:
870:
871: -------------------------------------------------------------------------------------------------
872: ---
873: procedure add_attribute_M(x_ldap in dbms_ldap.session, dn in varchar2, name in varchar2, value in varchar2 )
874: IS
875: modArray dbms_ldap.mod_array;
876: vals dbms_ldap.string_collection;
877: ret pls_integer;

Line 875: modArray dbms_ldap.mod_array;

871: -------------------------------------------------------------------------------------------------
872: ---
873: procedure add_attribute_M(x_ldap in dbms_ldap.session, dn in varchar2, name in varchar2, value in varchar2 )
874: IS
875: modArray dbms_ldap.mod_array;
876: vals dbms_ldap.string_collection;
877: ret pls_integer;
878: l_module_source varchar2(256):= G_MODULE_SOURCE || 'add_attribute_M: ';
879:

Line 876: vals dbms_ldap.string_collection;

872: ---
873: procedure add_attribute_M(x_ldap in dbms_ldap.session, dn in varchar2, name in varchar2, value in varchar2 )
874: IS
875: modArray dbms_ldap.mod_array;
876: vals dbms_ldap.string_collection;
877: ret pls_integer;
878: l_module_source varchar2(256):= G_MODULE_SOURCE || 'add_attribute_M: ';
879:
880: BEGIN

Line 891: modArray := dbms_ldap.create_mod_array(num => 1);

887: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn='||dn);
888: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute='||name||' value='||value);
889: end if;
890:
891: modArray := dbms_ldap.create_mod_array(num => 1);
892: vals(0) := value;
893: dbms_ldap.populate_mod_array(modptr=>modArray,mod_op=>dbms_ldap.mod_add,mod_type=>name,modval=>vals);
894: ret := dbms_ldap.modify_s(ld=>x_ldap,entrydn=>dn,modptr=>modArray);
895: dbms_ldap.free_mod_array(modptr => modArray);

Line 893: dbms_ldap.populate_mod_array(modptr=>modArray,mod_op=>dbms_ldap.mod_add,mod_type=>name,modval=>vals);

889: end if;
890:
891: modArray := dbms_ldap.create_mod_array(num => 1);
892: vals(0) := value;
893: dbms_ldap.populate_mod_array(modptr=>modArray,mod_op=>dbms_ldap.mod_add,mod_type=>name,modval=>vals);
894: ret := dbms_ldap.modify_s(ld=>x_ldap,entrydn=>dn,modptr=>modArray);
895: dbms_ldap.free_mod_array(modptr => modArray);
896: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
897: then

Line 894: ret := dbms_ldap.modify_s(ld=>x_ldap,entrydn=>dn,modptr=>modArray);

890:
891: modArray := dbms_ldap.create_mod_array(num => 1);
892: vals(0) := value;
893: dbms_ldap.populate_mod_array(modptr=>modArray,mod_op=>dbms_ldap.mod_add,mod_type=>name,modval=>vals);
894: ret := dbms_ldap.modify_s(ld=>x_ldap,entrydn=>dn,modptr=>modArray);
895: dbms_ldap.free_mod_array(modptr => modArray);
896: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
897: then
898: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');

Line 895: dbms_ldap.free_mod_array(modptr => modArray);

891: modArray := dbms_ldap.create_mod_array(num => 1);
892: vals(0) := value;
893: dbms_ldap.populate_mod_array(modptr=>modArray,mod_op=>dbms_ldap.mod_add,mod_type=>name,modval=>vals);
894: ret := dbms_ldap.modify_s(ld=>x_ldap,entrydn=>dn,modptr=>modArray);
895: dbms_ldap.free_mod_array(modptr => modArray);
896: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
897: then
898: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
899: end if;

Line 911: function c_get_oid_session(flag in out nocopy pls_integer) return dbms_ldap.session

907:
908: END add_attribute_M;
909:
910:
911: function c_get_oid_session(flag in out nocopy pls_integer) return dbms_ldap.session
912: is
913: l_module_source varchar2(256):= G_MODULE_SOURCE || 'c_get_oid_session: ';
914: BEGIN
915: /*

Line 974: procedure c_unbind(ldap in out nocopy dbms_ldap.session , flag in out nocopy pls_integer)

970: end if;
971: raise;
972: END c_get_oid_session;
973:
974: procedure c_unbind(ldap in out nocopy dbms_ldap.session , flag in out nocopy pls_integer)
975: is
976: l_module_source varchar2(256):= G_MODULE_SOURCE || 'c_unbind: ';
977: ret pls_integer;
978: begin

Line 1021: function getLDAPAttribute(ldap in out nocopy dbms_ldap.session,dn in varchar2, attrName in varchar2, filterExp in varchar2 default 'objectclass=*')

1017: raise;
1018: end c_unbind;
1019:
1020:
1021: function getLDAPAttribute(ldap in out nocopy dbms_ldap.session,dn in varchar2, attrName in varchar2, filterExp in varchar2 default 'objectclass=*')
1022: return varchar2
1023: is
1024: result pls_integer;
1025: l_attrs dbms_ldap.string_collection;

Line 1025: l_attrs dbms_ldap.string_collection;

1021: function getLDAPAttribute(ldap in out nocopy dbms_ldap.session,dn in varchar2, attrName in varchar2, filterExp in varchar2 default 'objectclass=*')
1022: return varchar2
1023: is
1024: result pls_integer;
1025: l_attrs dbms_ldap.string_collection;
1026: l_message dbms_ldap.message := NULL;
1027: l_entry dbms_ldap.message := NULL;
1028: l_result varchar2(4000);
1029: l_module_source varchar2(1000) ;

Line 1026: l_message dbms_ldap.message := NULL;

1022: return varchar2
1023: is
1024: result pls_integer;
1025: l_attrs dbms_ldap.string_collection;
1026: l_message dbms_ldap.message := NULL;
1027: l_entry dbms_ldap.message := NULL;
1028: l_result varchar2(4000);
1029: l_module_source varchar2(1000) ;
1030: BEGIN

Line 1027: l_entry dbms_ldap.message := NULL;

1023: is
1024: result pls_integer;
1025: l_attrs dbms_ldap.string_collection;
1026: l_message dbms_ldap.message := NULL;
1027: l_entry dbms_ldap.message := NULL;
1028: l_result varchar2(4000);
1029: l_module_source varchar2(1000) ;
1030: BEGIN
1031: l_module_source := G_MODULE_SOURCE || 'getAttribute: ';

Line 1039: result := dbms_ldap.search_s(ld => ldap

1035: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1036: end if;
1037:
1038: l_attrs(0):= attrName;
1039: result := dbms_ldap.search_s(ld => ldap
1040: , base => dn
1041: , scope => dbms_ldap.SCOPE_BASE
1042: , filter => filterExp
1043: , attrs => l_attrs

Line 1041: , scope => dbms_ldap.SCOPE_BASE

1037:
1038: l_attrs(0):= attrName;
1039: result := dbms_ldap.search_s(ld => ldap
1040: , base => dn
1041: , scope => dbms_ldap.SCOPE_BASE
1042: , filter => filterExp
1043: , attrs => l_attrs
1044: , attronly => 0
1045: , res => l_message);

Line 1046: l_entry := dbms_ldap.first_entry(ldap, l_message);

1042: , filter => filterExp
1043: , attrs => l_attrs
1044: , attronly => 0
1045: , res => l_message);
1046: l_entry := dbms_ldap.first_entry(ldap, l_message);
1047: if (l_entry is null ) then return null; end if;
1048: l_attrs := dbms_ldap.get_values(ldap, l_entry, attrName);
1049: l_result := l_attrs(0);
1050: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)

Line 1048: l_attrs := dbms_ldap.get_values(ldap, l_entry, attrName);

1044: , attronly => 0
1045: , res => l_message);
1046: l_entry := dbms_ldap.first_entry(ldap, l_message);
1047: if (l_entry is null ) then return null; end if;
1048: l_attrs := dbms_ldap.get_values(ldap, l_entry, attrName);
1049: l_result := l_attrs(0);
1050: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1051: then
1052: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'ldapsearch -b "'||dn||'" -s base "'||filterExp||'" '||attrName);

Line 1072: function loadLdapRecord( ldapSession in out nocopy dbms_ldap.session, rec in out nocopy ldap_record_values, dn out nocopy varchar2,

1068: return null;
1069: END getLDAPAttribute;
1070:
1071:
1072: function loadLdapRecord( ldapSession in out nocopy dbms_ldap.session, rec in out nocopy ldap_record_values, dn out nocopy varchar2,
1073: key in varchar2, key_type in pls_integer default G_DN_KEY ) return boolean
1074: is
1075: result pls_integer;
1076: attrs DBMS_LDAP.string_collection;

Line 1076: attrs DBMS_LDAP.string_collection;

1072: function loadLdapRecord( ldapSession in out nocopy dbms_ldap.session, rec in out nocopy ldap_record_values, dn out nocopy varchar2,
1073: key in varchar2, key_type in pls_integer default G_DN_KEY ) return boolean
1074: is
1075: result pls_integer;
1076: attrs DBMS_LDAP.string_collection;
1077: l_message DBMS_LDAP.message;
1078: l_entry DBMS_LDAP.message;
1079: atName varchar2(300);
1080: l_ber_elmt DBMS_LDAP.ber_element;

Line 1077: l_message DBMS_LDAP.message;

1073: key in varchar2, key_type in pls_integer default G_DN_KEY ) return boolean
1074: is
1075: result pls_integer;
1076: attrs DBMS_LDAP.string_collection;
1077: l_message DBMS_LDAP.message;
1078: l_entry DBMS_LDAP.message;
1079: atName varchar2(300);
1080: l_ber_elmt DBMS_LDAP.ber_element;
1081:

Line 1078: l_entry DBMS_LDAP.message;

1074: is
1075: result pls_integer;
1076: attrs DBMS_LDAP.string_collection;
1077: l_message DBMS_LDAP.message;
1078: l_entry DBMS_LDAP.message;
1079: atName varchar2(300);
1080: l_ber_elmt DBMS_LDAP.ber_element;
1081:
1082: BEGIN

Line 1080: l_ber_elmt DBMS_LDAP.ber_element;

1076: attrs DBMS_LDAP.string_collection;
1077: l_message DBMS_LDAP.message;
1078: l_entry DBMS_LDAP.message;
1079: atName varchar2(300);
1080: l_ber_elmt DBMS_LDAP.ber_element;
1081:
1082: BEGIN
1083: attrs(0):='*';
1084: attrs(1):='orclguid';

Line 1088: result := dbms_ldap.search_s(ld => ldapSession,

1084: attrs(1):='orclguid';
1085:
1086: if (key_type=G_GUID_KEY) THEN
1087:
1088: result := dbms_ldap.search_s(ld => ldapSession,
1089: base => '',
1090: scope => dbms_ldap.SCOPE_SUBTREE,
1091: filter => 'orclguid='||key,
1092: attrs => attrs,

Line 1090: scope => dbms_ldap.SCOPE_SUBTREE,

1086: if (key_type=G_GUID_KEY) THEN
1087:
1088: result := dbms_ldap.search_s(ld => ldapSession,
1089: base => '',
1090: scope => dbms_ldap.SCOPE_SUBTREE,
1091: filter => 'orclguid='||key,
1092: attrs => attrs,
1093: attronly => 0,
1094: res => l_message);

Line 1097: result:= dbms_ldap.search_s(ld => ldapSession,

1093: attronly => 0,
1094: res => l_message);
1095: ELSE -- default action
1096: BEGIN
1097: result:= dbms_ldap.search_s(ld => ldapSession,
1098: base => key,
1099: scope => dbms_ldap.SCOPE_BASE,
1100: filter => 'objectclass=*',
1101: attrs => attrs,

Line 1099: scope => dbms_ldap.SCOPE_BASE,

1095: ELSE -- default action
1096: BEGIN
1097: result:= dbms_ldap.search_s(ld => ldapSession,
1098: base => key,
1099: scope => dbms_ldap.SCOPE_BASE,
1100: filter => 'objectclass=*',
1101: attrs => attrs,
1102: attronly => 0,
1103: res => l_message);

Line 1104: EXCEPTION WHEN dbms_ldap.general_error THEN

1100: filter => 'objectclass=*',
1101: attrs => attrs,
1102: attronly => 0,
1103: res => l_message);
1104: EXCEPTION WHEN dbms_ldap.general_error THEN
1105: result := dbms_ldap.NO_SUCH_OBJECT;
1106: END;
1107: END IF;
1108: if (result=DBMS_LDAP.SUCCESS) THEN

Line 1105: result := dbms_ldap.NO_SUCH_OBJECT;

1101: attrs => attrs,
1102: attronly => 0,
1103: res => l_message);
1104: EXCEPTION WHEN dbms_ldap.general_error THEN
1105: result := dbms_ldap.NO_SUCH_OBJECT;
1106: END;
1107: END IF;
1108: if (result=DBMS_LDAP.SUCCESS) THEN
1109: l_entry := DBMS_LDAP.first_entry(ldapSession, l_message );

Line 1108: if (result=DBMS_LDAP.SUCCESS) THEN

1104: EXCEPTION WHEN dbms_ldap.general_error THEN
1105: result := dbms_ldap.NO_SUCH_OBJECT;
1106: END;
1107: END IF;
1108: if (result=DBMS_LDAP.SUCCESS) THEN
1109: l_entry := DBMS_LDAP.first_entry(ldapSession, l_message );
1110: if l_entry is not null then
1111: dn := DBMS_LDAP.get_dn(ldapSession,l_entry);
1112: atName := DBMS_LDAP.first_attribute(ldapSession,l_entry, l_ber_elmt);

Line 1109: l_entry := DBMS_LDAP.first_entry(ldapSession, l_message );

1105: result := dbms_ldap.NO_SUCH_OBJECT;
1106: END;
1107: END IF;
1108: if (result=DBMS_LDAP.SUCCESS) THEN
1109: l_entry := DBMS_LDAP.first_entry(ldapSession, l_message );
1110: if l_entry is not null then
1111: dn := DBMS_LDAP.get_dn(ldapSession,l_entry);
1112: atName := DBMS_LDAP.first_attribute(ldapSession,l_entry, l_ber_elmt);
1113: while atName is not null loop

Line 1111: dn := DBMS_LDAP.get_dn(ldapSession,l_entry);

1107: END IF;
1108: if (result=DBMS_LDAP.SUCCESS) THEN
1109: l_entry := DBMS_LDAP.first_entry(ldapSession, l_message );
1110: if l_entry is not null then
1111: dn := DBMS_LDAP.get_dn(ldapSession,l_entry);
1112: atName := DBMS_LDAP.first_attribute(ldapSession,l_entry, l_ber_elmt);
1113: while atName is not null loop
1114: rec(atName):= DBMS_LDAP.get_values (ldapSession, l_entry,atName);
1115: atName := DBMS_LDAP.next_attribute(ldapSession,l_entry,l_ber_elmt);

Line 1112: atName := DBMS_LDAP.first_attribute(ldapSession,l_entry, l_ber_elmt);

1108: if (result=DBMS_LDAP.SUCCESS) THEN
1109: l_entry := DBMS_LDAP.first_entry(ldapSession, l_message );
1110: if l_entry is not null then
1111: dn := DBMS_LDAP.get_dn(ldapSession,l_entry);
1112: atName := DBMS_LDAP.first_attribute(ldapSession,l_entry, l_ber_elmt);
1113: while atName is not null loop
1114: rec(atName):= DBMS_LDAP.get_values (ldapSession, l_entry,atName);
1115: atName := DBMS_LDAP.next_attribute(ldapSession,l_entry,l_ber_elmt);
1116: end loop;

Line 1114: rec(atName):= DBMS_LDAP.get_values (ldapSession, l_entry,atName);

1110: if l_entry is not null then
1111: dn := DBMS_LDAP.get_dn(ldapSession,l_entry);
1112: atName := DBMS_LDAP.first_attribute(ldapSession,l_entry, l_ber_elmt);
1113: while atName is not null loop
1114: rec(atName):= DBMS_LDAP.get_values (ldapSession, l_entry,atName);
1115: atName := DBMS_LDAP.next_attribute(ldapSession,l_entry,l_ber_elmt);
1116: end loop;
1117: end if;
1118: return true;

Line 1115: atName := DBMS_LDAP.next_attribute(ldapSession,l_entry,l_ber_elmt);

1111: dn := DBMS_LDAP.get_dn(ldapSession,l_entry);
1112: atName := DBMS_LDAP.first_attribute(ldapSession,l_entry, l_ber_elmt);
1113: while atName is not null loop
1114: rec(atName):= DBMS_LDAP.get_values (ldapSession, l_entry,atName);
1115: atName := DBMS_LDAP.next_attribute(ldapSession,l_entry,l_ber_elmt);
1116: end loop;
1117: end if;
1118: return true;
1119: ELSE

Line 1128: function loadLdapRecord( ldapSession in out nocopy dbms_ldap.session, rec in out nocopy ldap_record_type,

1124:
1125:
1126: END loadLdapRecord;
1127:
1128: function loadLdapRecord( ldapSession in out nocopy dbms_ldap.session, rec in out nocopy ldap_record_type,
1129: key in varchar2, key_type in pls_integer default G_DN_KEY ) return boolean
1130:
1131: IS
1132: ret boolean;