63: l_module_source varchar2(1000) ;
64: BEGIN
65: l_module_source := G_MODULE_SOURCE || 'getAttribute: ';
66:
67: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
68: then
69: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
70: end if;
71:
65: l_module_source := G_MODULE_SOURCE || 'getAttribute: ';
66:
67: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
68: then
69: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
70: end if;
71:
72: l_attrs(0):= attrName;
73: result := dbms_ldap.search_s(ld => ldap
80: l_entry := dbms_ldap.first_entry(ldap, l_message);
81: if (l_entry is null ) then return null; end if;
82: l_attrs := dbms_ldap.get_values(ldap, l_entry, attrName);
83: l_result := l_attrs(0);
84: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
85: then
86: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'ldapsearch -b "'||dn||'" -s base "'||filterExp||'" '||attrName);
87: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
88: end if;
82: l_attrs := dbms_ldap.get_values(ldap, l_entry, attrName);
83: l_result := l_attrs(0);
84: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
85: then
86: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'ldapsearch -b "'||dn||'" -s base "'||filterExp||'" '||attrName);
87: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
88: end if;
89:
90: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
83: l_result := l_attrs(0);
84: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
85: then
86: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'ldapsearch -b "'||dn||'" -s base "'||filterExp||'" '||attrName);
87: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
88: end if;
89:
90: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
91: then
86: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'ldapsearch -b "'||dn||'" -s base "'||filterExp||'" '||attrName);
87: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
88: end if;
89:
90: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
91: then
92: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ');
93: end if;
94: return l_result;
88: end if;
89:
90: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
91: then
92: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ');
93: end if;
94: return l_result;
95:
96:
96:
97: exception
98:
99: when NO_DATA_FOUND then
100: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
101: then
102: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> NULL');
103: end if;
104: return null;
98:
99: when NO_DATA_FOUND then
100: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
101: then
102: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> NULL');
103: end if;
104: return null;
105:
106:
105:
106:
107: when dbms_ldap.general_error then
108:
109: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
110: then
111: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END no rows');
112: end if;
113: return null;
107: when dbms_ldap.general_error then
108:
109: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
110: then
111: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END no rows');
112: end if;
113: return null;
114:
115: when OTHERS then
112: end if;
113: return null;
114:
115: when OTHERS then
116: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
117: then
118: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> EXCEPTION '||sqlerrm);
119: end if;
120: l_result :=sqlerrm;
114:
115: when OTHERS then
116: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
117: then
118: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> EXCEPTION '||sqlerrm);
119: end if;
120: l_result :=sqlerrm;
121: raise;
122: END getAttribute;
130: l_module_source varchar2(1000) ;
131: BEGIN
132: l_module_source := G_MODULE_SOURCE || 'getRealmNickNameattr: ';
133:
134: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
135: then
136: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin realm='||realm);
137: end if;
138:
132: l_module_source := G_MODULE_SOURCE || 'getRealmNickNameattr: ';
133:
134: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
135: then
136: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin realm='||realm);
137: end if;
138:
139: ldap := fnd_ldap_util.c_get_oid_session(flag);
140: ret := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realm,'orclcommonnicknameattribute');
138:
139: ldap := fnd_ldap_util.c_get_oid_session(flag);
140: ret := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realm,'orclcommonnicknameattribute');
141: fnd_ldap_util.c_unbind(ldap,flag);
142: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
143: then
144: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END nicknameAttr='||ret);
145: end if;
146: return ret;
140: ret := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realm,'orclcommonnicknameattribute');
141: fnd_ldap_util.c_unbind(ldap,flag);
142: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
143: then
144: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END nicknameAttr='||ret);
145: end if;
146: return ret;
147: end getRealmNickNameattr;
148:
170: plugin_type := null ; -- bug 6164880
171:
172: l_module_source := G_MODULE_SOURCE || 'setPlugin: ';
173:
174: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
175: then
176: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin' );
177: end if;
178:
172: l_module_source := G_MODULE_SOURCE || 'setPlugin: ';
173:
174: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
175: then
176: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin' );
177: end if;
178:
179: if (plugin_name is not null) then
180: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_TYPE,G_DYNAMIC_DESC);
179: if (plugin_name is not null) then
180: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_TYPE,G_DYNAMIC_DESC);
181: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REALM,'begin :1 := '||plugin_name||'.Realm(:2); end;');
182: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REPOSITORY,'begin :1 := '||plugin_name||'.UserRepository(:2); end;');
183: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
184: then
185: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
186: end if;
187: return;
181: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REALM,'begin :1 := '||plugin_name||'.Realm(:2); end;');
182: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REPOSITORY,'begin :1 := '||plugin_name||'.UserRepository(:2); end;');
183: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
184: then
185: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
186: end if;
187: return;
188: else
189: ldap := fnd_ldap_util.c_get_oid_session(flag);
273: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REPOSITORY,g_user_repo);
274: fnd_ldap_util.c_unbind(ldap,flag);
275:
276: end if;
277: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
278: then
279: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
280: end if;
281: EXCEPTION
275:
276: end if;
277: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
278: then
279: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
280: end if;
281: EXCEPTION
282: when others then
283: rollback;
294: l_module_source varchar2(1000) ;
295: BEGIN
296: l_module_source := G_MODULE_SOURCE || 'upgrade_preferences: ';
297:
298: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
299: then
300: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
301: end if;
302: ldap := fnd_ldap_util.c_get_oid_session(flag);
296: l_module_source := G_MODULE_SOURCE || 'upgrade_preferences: ';
297:
298: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
299: then
300: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
301: end if;
302: ldap := fnd_ldap_util.c_get_oid_session(flag);
303: l_realm := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orclDefaultSubscriber');
304: l_repo := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
301: end if;
302: ldap := fnd_ldap_util.c_get_oid_session(flag);
303: l_realm := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orclDefaultSubscriber');
304: l_repo := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
305: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
306: then
307: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
308: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
309: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
303: l_realm := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orclDefaultSubscriber');
304: l_repo := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
305: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
306: then
307: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
308: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
309: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
310: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
311: end if;
304: l_repo := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
305: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
306: then
307: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
308: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
309: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
310: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
311: end if;
312:
305: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
306: then
307: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
308: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
309: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
310: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
311: end if;
312:
313: setPlugin( default_realm => l_realm ,default_user_repository=>l_repo,plugin_name =>null);
306: then
307: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
308: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
309: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
310: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
311: end if;
312:
313: setPlugin( default_realm => l_realm ,default_user_repository=>l_repo,plugin_name =>null);
314: fnd_ldap_util.c_unbind(ldap,flag);
312:
313: setPlugin( default_realm => l_realm ,default_user_repository=>l_repo,plugin_name =>null);
314: fnd_ldap_util.c_unbind(ldap,flag);
315:
316: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
317: then
318: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'end');
319: end if;
320:
314: fnd_ldap_util.c_unbind(ldap,flag);
315:
316: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
317: then
318: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'end');
319: end if;
320:
321:
322: exception when others then
319: end if;
320:
321:
322: exception when others then
323: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
324: then
325: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
326: end if;
327: raise;
321:
322: exception when others then
323: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
324: then
325: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
326: end if;
327: raise;
328: END upgrade_preferences;
329:
333: l_module_source varchar2(1000) ;
334: BEGIN
335: l_module_source := G_MODULE_SOURCE || 'pluginType: ';
336:
337: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
338: then
339: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
340: end if;
341: if (plugin_type is null)
335: l_module_source := G_MODULE_SOURCE || 'pluginType: ';
336:
337: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
338: then
339: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
340: end if;
341: if (plugin_type is null)
342: then
343: val := fnd_preference.get(G_PREF_USER,G_PREF_MODULE,L_TYPE);
344: if (val IS NULL) THEN
345: -- FIRST TIME CALLER, after patch application
346: -- make it compatible with new functionality
347: upgrade_preferences;
348: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
349: then
350: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END(1)');
351: end if;
352: return pluginType;
346: -- make it compatible with new functionality
347: upgrade_preferences;
348: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
349: then
350: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END(1)');
351: end if;
352: return pluginType;
353: elsif (val=G_STATIC_DESC) THEN
354: plugin_type:=G_STATIC;
363: g_realm:=fnd_preference.get(G_PREF_USER,G_PREF_MODULE,L_REALM);
364: g_user_repo:=fnd_preference.get(G_PREF_USER,G_PREF_MODULE,L_REPOSITORY);
365:
366: else
367: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
368: then
369: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'invalid deployment option/val='||val);
370: end if;
371: raise invalid_deployment;
365:
366: else
367: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
368: then
369: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'invalid deployment option/val='||val);
370: end if;
371: raise invalid_deployment;
372: end if;
373: end if;
370: end if;
371: raise invalid_deployment;
372: end if;
373: end if;
374: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
375: then
376: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
377: end if;
378: RETURN plugin_type;
372: end if;
373: end if;
374: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
375: then
376: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
377: end if;
378: RETURN plugin_type;
379: END pluginType;
380:
386: l_module_source varchar2(1000) ;
387: BEGIN
388: l_module_source := G_MODULE_SOURCE || 'sql_execute: ';
389:
390: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
391: then
392: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
393: end if;
394: c := dbms_sql.open_cursor;
388: l_module_source := G_MODULE_SOURCE || 'sql_execute: ';
389:
390: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
391: then
392: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
393: end if;
394: c := dbms_sql.open_cursor;
395: dbms_sql.parse(c, stmt, dbms_sql.NATIVE);
396: dbms_sql.bind_variable(c, ':2', param);
398: res := dbms_sql.execute(c);
399: dbms_sql.variable_value(c,':1',result);
400: dbms_sql.close_cursor(c);
401:
402: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
403: then
404: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
405: end if;
406: return result;
400: dbms_sql.close_cursor(c);
401:
402: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
403: then
404: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
405: end if;
406: return result;
407: END sql_execute;
408:
413: result varchar2(4000);
414: BEGIN
415: l_module_source := G_MODULE_SOURCE || 'getDN: ';
416:
417: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
418: then
419: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
420: end if;
421:
415: l_module_source := G_MODULE_SOURCE || 'getDN: ';
416:
417: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
418: then
419: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
420: end if;
421:
422:
423: if (plugin_type is null) then plugin_type:=pluginType; end if;
423: if (plugin_type is null) then plugin_type:=pluginType; end if;
424:
425: result := getRDN(username)||','||getUserRepository(username);
426:
427: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
428: then
429: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
430: end if;
431: return result;
425: result := getRDN(username)||','||getUserRepository(username);
426:
427: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
428: then
429: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
430: end if;
431: return result;
432:
433: END getDN;
439: l_module_source varchar2(1000) ;
440: BEGIN
441: l_module_source := G_MODULE_SOURCE || 'getRealmDN: ';
442:
443: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
444: then
445: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
446: end if;
447:
441: l_module_source := G_MODULE_SOURCE || 'getRealmDN: ';
442:
443: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
444: then
445: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
446: end if;
447:
448: if (plugin_type is null) then plugin_type:=pluginType; end if;
449: if (plugin_type=G_STATIC) then
451: else
452: result := sql_execute(g_realm,username);
453: end if;
454:
455: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
456: then
457: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
458: end if;
459:
453: end if;
454:
455: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
456: then
457: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
458: end if;
459:
460: return result;
461: END getRealmDN;
465: l_module_source varchar2(1000) ;
466: BEGIN
467: l_module_source := G_MODULE_SOURCE || 'getUserRepository: ';
468:
469: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
470: then
471: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
472: end if;
473:
467: l_module_source := G_MODULE_SOURCE || 'getUserRepository: ';
468:
469: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
470: then
471: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
472: end if;
473:
474: if (plugin_type is null) then plugin_type:=pluginType; end if;
475: if (plugin_type=G_STATIC) then
478: result := sql_execute(g_user_repo,username);
479: end if;
480:
481:
482: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
483: then
484: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
485: end if;
486:
480:
481:
482: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
483: then
484: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
485: end if;
486:
487:
488: return result;
496: l_module_source varchar2(1000) ;
497: BEGIN
498: l_module_source := G_MODULE_SOURCE || 'getNickNameattr: ';
499:
500: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
501: then
502: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
503: end if;
504:
498: l_module_source := G_MODULE_SOURCE || 'getNickNameattr: ';
499:
500: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
501: then
502: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
503: end if;
504:
505:
506: if (plugin_type is null) then plugin_type:=pluginType; end if;
512: fnd_ldap_util.c_unbind(ldap,dummy);
513: if (result is null) then result:='uid'; end if;
514: end if;
515:
516: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
517: then
518: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
519: end if;
520:
514: end if;
515:
516: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
517: then
518: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
519: end if;
520:
521:
522: return result;
528: l_module_source varchar2(1000) ;
529: BEGIN
530: l_module_source := G_MODULE_SOURCE || 'getRDN: ';
531:
532: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
533: then
534: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
535: end if;
536:
530: l_module_source := G_MODULE_SOURCE || 'getRDN: ';
531:
532: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
533: then
534: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
535: end if;
536:
537: if (plugin_type is null) then plugin_type:=pluginType; end if;
538: if (plugin_type=G_STATIC) then
540: else
541: result:= getNickNameattr(username)||'='||username;
542: end if;
543:
544: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
545: then
546: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
547: end if;
548:
542: end if;
543:
544: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
545: then
546: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
547: end if;
548:
549:
550: return result;
558: l_module_source varchar2(1000) ;
559: BEGIN
560: l_module_source := G_MODULE_SOURCE || 'getSearchBase: ';
561:
562: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
563: then
564: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
565: end if;
566:
560: l_module_source := G_MODULE_SOURCE || 'getSearchBase: ';
561:
562: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
563: then
564: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
565: end if;
566:
567: if (plugin_type is null) then plugin_type:=pluginType; end if;
568: if (plugin_type=G_STATIC) then
572: result:= getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||getRealmDN(username),'orclcommonusersearchbase');
573: fnd_ldap_util.c_unbind(ldap,dummy);
574: end if;
575:
576: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
577: then
578: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
579: end if;
580:
574: end if;
575:
576: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
577: then
578: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
579: end if;
580:
581:
582: return result;
587: l_module_source varchar2(1000) ;
588: BEGIN
589: l_module_source := G_MODULE_SOURCE || 'getSearchFilter: ';
590:
591: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
592: then
593: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
594: end if;
595:
589: l_module_source := G_MODULE_SOURCE || 'getSearchFilter: ';
590:
591: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
592: then
593: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
594: end if;
595:
596: if (plugin_type is null) then plugin_type:=pluginType; end if;
597: if (plugin_type=G_STATIC) then
599: else
600: result:=getRDN(username);
601: end if;
602:
603: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
604: then
605: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
606: end if;
607:
601: end if;
602:
603: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
604: then
605: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
606: end if;
607:
608:
609: return result;
619: l_module_source varchar2(1000) ;
620: BEGIN
621: l_module_source := G_MODULE_SOURCE || 'getNickNameAttributeFromRealm: ';
622:
623: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
624: then
625: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
626: end if;
627:
621: l_module_source := G_MODULE_SOURCE || 'getNickNameAttributeFromRealm: ';
622:
623: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
624: then
625: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
626: end if;
627:
628: ldap := fnd_ldap_util.c_get_oid_session(dummy);
629: result:= getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realmDn,'orclcommonnicknameattribute');
629: result:= getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realmDn,'orclcommonnicknameattribute');
630: fnd_ldap_util.c_unbind(ldap,dummy);
631: if (result is null) then result:='uid'; end if;
632: return result;
633: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
634: then
635: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
636: end if;
637:
631: if (result is null) then result:='uid'; end if;
632: return result;
633: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
634: then
635: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
636: end if;
637:
638:
639: return result;
647: l_module_source varchar2(1000) ;
648: BEGIN
649: l_module_source := G_MODULE_SOURCE || 'getUsernameFromEntry: ';
650:
651: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
652: then
653: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
654: end if;
655:
649: l_module_source := G_MODULE_SOURCE || 'getUsernameFromEntry: ';
650:
651: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
652: then
653: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
654: end if;
655:
656: if (attr_list is not null AND attr_list.count > 0)
657: then
659: loop
660:
661: if(upper(attr_list(j).attr_name) = 'ORCLGUID') then
662: result:= get_username_from_guid(attr_list(j).attr_value);
663: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
664: then
665: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
666: end if;
667:
661: if(upper(attr_list(j).attr_name) = 'ORCLGUID') then
662: result:= get_username_from_guid(attr_list(j).attr_value);
663: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
664: then
665: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
666: end if;
667:
668: return result;
669: end if;
668: return result;
669: end if;
670: end loop;
671: end if;
672: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
673: then
674: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> raise NO_DATA_FOUND');
675: end if;
676: raise no_data_found;
670: end loop;
671: end if;
672: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
673: then
674: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> raise NO_DATA_FOUND');
675: end if;
676: raise no_data_found;
677: end getUsernameFromEntry;
678:
687: l_module_source varchar2(1000) ;
688: BEGIN
689: l_module_source := G_MODULE_SOURCE || 'get_entry_dn: ';
690:
691: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
692: then
693: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
694: end if;
695:
689: l_module_source := G_MODULE_SOURCE || 'get_entry_dn: ';
690:
691: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
692: then
693: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
694: end if;
695:
696: l_attrs(0) := 'dn'; -- NO_ATTRS
697: result := dbms_ldap.search_s(ld => ldap
702: , attronly => 0
703: , res => l_message);
704: l_entry := dbms_ldap.first_entry(ldap, l_message);
705: entry_dn := dbms_ldap.get_dn(ldap,l_entry);
706: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
707: then
708: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||entry_dn);
709: end if;
710:
704: l_entry := dbms_ldap.first_entry(ldap, l_message);
705: entry_dn := dbms_ldap.get_dn(ldap,l_entry);
706: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
707: then
708: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||entry_dn);
709: end if;
710:
711: return entry_dn;
712:
726: l_module_source varchar2(1000) ;
727: BEGIN
728: l_module_source := G_MODULE_SOURCE || 'get_realm_from_user_dn: ';
729:
730: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
731: then
732: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
733: end if;
734: cn_list := dbms_ldap.explode_dn(user_dn,0);
728: l_module_source := G_MODULE_SOURCE || 'get_realm_from_user_dn: ';
729:
730: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
731: then
732: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
733: end if;
734: cn_list := dbms_ldap.explode_dn(user_dn,0);
735: len := cn_list.count;
736: i:= 0;
744: j:=j+1;
745: end loop;
746: g := getAttribute(ldap,dn,'orclguid','objectclass=orclSubscriber');
747: if (g is not null) then
748: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
749: then
750: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||dn);
751: end if;
752: return dn;
746: g := getAttribute(ldap,dn,'orclguid','objectclass=orclSubscriber');
747: if (g is not null) then
748: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
749: then
750: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||dn);
751: end if;
752: return dn;
753: end if;
754: i:=i+1;
752: return dn;
753: end if;
754: i:=i+1;
755: end loop;
756: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
757: then
758: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END NULL!');
759: end if;
760: return null;
754: i:=i+1;
755: end loop;
756: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
757: then
758: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END NULL!');
759: end if;
760: return null;
761: end get_realm_from_user_dn;
762:
773: l_module_source varchar2(1000) ;
774: BEGIN
775: l_module_source := G_MODULE_SOURCE || 'get_username_from_guid: ';
776:
777: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
778: then
779: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
780: end if;
781:
775: l_module_source := G_MODULE_SOURCE || 'get_username_from_guid: ';
776:
777: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
778: then
779: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
780: end if;
781:
782: ldap := fnd_ldap_util.c_get_oid_session(dummy);
783:
790: user_name := getAttribute(ldap,user_dn,nickNameAttr);
791: if user_dn is null then raise NO_DATA_FOUND ; end if;
792: fnd_ldap_util.c_unbind(ldap,dummy);
793:
794: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
795: then
796: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||user_name);
797: end if;
798:
792: fnd_ldap_util.c_unbind(ldap,dummy);
793:
794: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
795: then
796: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||user_name);
797: end if;
798:
799: return user_name;
800: EXCEPTION when NO_DATA_FOUND THEN
798:
799: return user_name;
800: EXCEPTION when NO_DATA_FOUND THEN
801: fnd_ldap_util.c_unbind(ldap,dummy);
802: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
803: then
804: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' Not found guid='||p_user_guid);
805: end if;
806: raise;
800: EXCEPTION when NO_DATA_FOUND THEN
801: fnd_ldap_util.c_unbind(ldap,dummy);
802: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
803: then
804: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' Not found guid='||p_user_guid);
805: end if;
806: raise;
807: end get_username_from_guid;
808:
816: l_module_source varchar2(1000) ;
817: BEGIN
818: l_module_source := G_MODULE_SOURCE || 'get_default_realm: ';
819:
820: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
821: then
822: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
823: end if;
824:
818: l_module_source := G_MODULE_SOURCE || 'get_default_realm: ';
819:
820: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
821: then
822: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
823: end if;
824:
825: if (plugin_type is null) then plugin_type:=pluginType; end if;
826: if (plugin_type=G_STATIC) then
831: ldap := fnd_ldap_util.c_get_oid_session(dummy);
832: result := getAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orcldefaultsubscriber');
833: fnd_ldap_util.c_unbind(ldap,dummy);
834: end if;
835: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
836: then
837: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
838: end if;
839: return result;
833: fnd_ldap_util.c_unbind(ldap,dummy);
834: end if;
835: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
836: then
837: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
838: end if;
839: return result;
840: END get_default_realm;
841:
848: l_module_source varchar2(1000) ;
849: BEGIN
850: l_module_source := G_MODULE_SOURCE || 'get_realm_dn: ';
851:
852: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
853: then
854: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
855: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
856: then
850: l_module_source := G_MODULE_SOURCE || 'get_realm_dn: ';
851:
852: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
853: then
854: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
855: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
856: then
857: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
858: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
851:
852: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
853: then
854: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
855: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
856: then
857: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
858: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
859: end if;
853: then
854: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
855: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
856: then
857: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
858: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
859: end if;
860: end if;
861:
854: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
855: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
856: then
857: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
858: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
859: end if;
860: end if;
861:
862: ldap := fnd_ldap_util.c_get_oid_session(flag);
862: ldap := fnd_ldap_util.c_get_oid_session(flag);
863: result := null;
864: if (p_user_guid is not null) then
865: result:=get_realm_from_user_dn(ldap,get_entry_dn(ldap,p_user_guid));
866: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
867: then
868: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Using guid, realm:'||result);
869: end if;
870: end if;
864: if (p_user_guid is not null) then
865: result:=get_realm_from_user_dn(ldap,get_entry_dn(ldap,p_user_guid));
866: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
867: then
868: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Using guid, realm:'||result);
869: end if;
870: end if;
871: if (result is null and p_user_name is not null) then
872: result:= getRealmDN(p_user_name);
869: end if;
870: end if;
871: if (result is null and p_user_name is not null) then
872: result:= getRealmDN(p_user_name);
873: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
874: then
875: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Using username, realm:'||result);
876: end if;
877: end if;
871: if (result is null and p_user_name is not null) then
872: result:= getRealmDN(p_user_name);
873: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
874: then
875: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Using username, realm:'||result);
876: end if;
877: end if;
878: if (result is null) then
879: result := get_default_realm;
876: end if;
877: end if;
878: if (result is null) then
879: result := get_default_realm;
880: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
881: then
882: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'fallback to default realm:'||result);
883: end if;
884: end if;
878: if (result is null) then
879: result := get_default_realm;
880: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
881: then
882: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'fallback to default realm:'||result);
883: end if;
884: end if;
885: fnd_ldap_util.c_unbind(ldap,flag);
886:
883: end if;
884: end if;
885: fnd_ldap_util.c_unbind(ldap,flag);
886:
887: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
888: then
889: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
890: end if;
891: return result;
885: fnd_ldap_util.c_unbind(ldap,flag);
886:
887: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
888: then
889: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
890: end if;
891: return result;
892: end get_realm_dn;
893:
903: l_module_source varchar2(4000);
904: begin
905: l_module_source := G_MODULE_SOURCE || 'count_attributes: ';
906:
907: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
908: then
909: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
910: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
911: then
905: l_module_source := G_MODULE_SOURCE || 'count_attributes: ';
906:
907: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
908: then
909: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
910: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
911: then
912: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
913: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
906:
907: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
908: then
909: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
910: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
911: then
912: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
913: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
914: end if;
908: then
909: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
910: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
911: then
912: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
913: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
914: end if;
915: end if;
916: l_attrs(0):= attName;
909: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
910: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
911: then
912: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
913: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
914: end if;
915: end if;
916: l_attrs(0):= attName;
917: l_result := dbms_ldap.search_s(ld => ldap
922: , attronly => 0
923: , res => l_message);
924: l_entry := dbms_ldap.first_entry(ldap, l_message);
925: if (l_entry is null ) then
926: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
927: then
928: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End(not found)');
929: end if;
930: return 0;
924: l_entry := dbms_ldap.first_entry(ldap, l_message);
925: if (l_entry is null ) then
926: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
927: then
928: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End(not found)');
929: end if;
930: return 0;
931: end if;
932: l_attrs := dbms_ldap.get_values(ldap, l_entry, attName);
930: return 0;
931: end if;
932: l_attrs := dbms_ldap.get_values(ldap, l_entry, attName);
933: l_result := l_attrs.count;
934: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
935: then
936: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
937: end if;
938: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
932: l_attrs := dbms_ldap.get_values(ldap, l_entry, attName);
933: l_result := l_attrs.count;
934: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
935: then
936: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
937: end if;
938: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
939: then
940: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
934: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
935: then
936: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
937: end if;
938: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
939: then
940: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
941: end if;
942: return l_result;
936: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
937: end if;
938: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
939: then
940: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
941: end if;
942: return l_result;
943:
944: EXCEPTION when others then
941: end if;
942: return l_result;
943:
944: EXCEPTION when others then
945: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
946: then
947: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
948: end if;
949: raise;
943:
944: EXCEPTION when others then
945: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
946: then
947: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
948: end if;
949: raise;
950: end count_attributes;
951: