104: END IF;
105: END IF;
106: return found;
107: EXCEPTION WHEN OTHERS THEN
108: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
109: then
110: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
111: end if;
112: raise;
106: return found;
107: EXCEPTION WHEN OTHERS THEN
108: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
109: then
110: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
111: end if;
112: raise;
113:
114: END loadOption;
131: if (g_option.exists(name)) then
132: g_option.delete(name); --cancel the cache
133: end if;
134: EXCEPTION WHEN OTHERS THEN
135: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
136: then
137: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
138: end if;
139: raise;
133: end if;
134: EXCEPTION WHEN OTHERS THEN
135: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
136: then
137: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
138: end if;
139: raise;
140:
141: END saveOption;
162: return true;
163: else return loadOption(name,opt);
164: END IF;
165: EXCEPTION WHEN OTHERS THEN
166: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
167: then
168: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
169: end if;
170: raise;
164: END IF;
165: EXCEPTION WHEN OTHERS THEN
166: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
167: then
168: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
169: end if;
170: raise;
171:
172: END getOption;
338: l_module_source varchar2(1000) ;
339: BEGIN
340: l_module_source := G_MODULE_SOURCE || 'getRealmNickNameattr: ';
341:
342: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
343: then
344: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin realm='||realm);
345: end if;
346:
340: l_module_source := G_MODULE_SOURCE || 'getRealmNickNameattr: ';
341:
342: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
343: then
344: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin realm='||realm);
345: end if;
346:
347: ret:= FND_SSO_REGISTRATION.get_realm_attribute(realm,'orclCommonNickNameAttribute');
348:
345: end if;
346:
347: ret:= FND_SSO_REGISTRATION.get_realm_attribute(realm,'orclCommonNickNameAttribute');
348:
349: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
350: then
351: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END nicknameAttr='||ret);
352: end if;
353: return ret;
347: ret:= FND_SSO_REGISTRATION.get_realm_attribute(realm,'orclCommonNickNameAttribute');
348:
349: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
350: then
351: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END nicknameAttr='||ret);
352: end if;
353: return ret;
354: EXCEPTION WHEN OTHERS THEN
355: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
351: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END nicknameAttr='||ret);
352: end if;
353: return ret;
354: EXCEPTION WHEN OTHERS THEN
355: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
356: then
357: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
358: end if;
359: raise;
353: return ret;
354: EXCEPTION WHEN OTHERS THEN
355: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
356: then
357: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
358: end if;
359: raise;
360:
361: end getRealmNickNameattr;
370: l_module_source varchar2(1000);
371: BEGIN
372: l_module_source := G_MODULE_SOURCE || 'PluginVersion';
373:
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, 'Begin');
377: end if;
378:
372: l_module_source := G_MODULE_SOURCE || 'PluginVersion';
373:
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, 'Begin');
377: end if;
378:
379: l_version := FND_PREFERENCE.get('#INTERNAL','OID_CONF','PLUGIN_VERSION');
380:
377: end if;
378:
379: l_version := FND_PREFERENCE.get('#INTERNAL','OID_CONF','PLUGIN_VERSION');
380:
381: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
382: then
383: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Retrieved PLUGIN_VERSION preference');
384: end if;
385:
379: l_version := FND_PREFERENCE.get('#INTERNAL','OID_CONF','PLUGIN_VERSION');
380:
381: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
382: then
383: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Retrieved PLUGIN_VERSION preference');
384: end if;
385:
386: if (l_version is not null) THEN
387:
384: end if;
385:
386: if (l_version is not null) THEN
387:
388: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
389: then
390: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'plugin version is: '||l_version);
391: end if;
392:
386: if (l_version is not null) THEN
387:
388: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
389: then
390: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'plugin version is: '||l_version);
391: end if;
392:
393: -- Converting to force NLS numeric format regardless of user preference.
394: -- Reference bug 9358444
393: -- Converting to force NLS numeric format regardless of user preference.
394: -- Reference bug 9358444
395: l_plug_ver := to_number(l_version,'9D9','NLS_NUMERIC_CHARACTERS=''.,''');
396:
397: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
398: then
399: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'Converted value: '||to_char(l_plug_ver));
400: end if;
401:
395: l_plug_ver := to_number(l_version,'9D9','NLS_NUMERIC_CHARACTERS=''.,''');
396:
397: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
398: then
399: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'Converted value: '||to_char(l_plug_ver));
400: end if;
401:
402: return l_plug_ver;
403:
402: return l_plug_ver;
403:
404: ELSIF FND_PREFERENCE.exists('#INTERNAL','OID_CONF','CREATE_BASE') THEN
405:
406: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
407: then
408: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'CREATE_BASE exists - PLUGIN_VERSION did not - return 1.0');
409: end if;
410:
404: ELSIF FND_PREFERENCE.exists('#INTERNAL','OID_CONF','CREATE_BASE') THEN
405:
406: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
407: then
408: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'CREATE_BASE exists - PLUGIN_VERSION did not - return 1.0');
409: end if;
410:
411: return 1.0;
412: ELSE
410:
411: return 1.0;
412: ELSE
413:
414: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
415: then
416: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'Neither preference exists - return 0.9');
417: end if;
418:
412: ELSE
413:
414: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
415: then
416: fnd_log.string(fnd_log.LEVEL_STATEMENT,l_module_source,'Neither preference exists - return 0.9');
417: end if;
418:
419: return 0.9;
420: END IF;
418:
419: return 0.9;
420: END IF;
421:
422: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
423: then
424: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
425: end if;
426:
420: END IF;
421:
422: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
423: then
424: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
425: end if;
426:
427: END PluginVersion;
428: /*
448:
449:
450: BEGIN
451:
452: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
453: then
454: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN' );
455: end if;
456: version := PluginVersion;
450: BEGIN
451:
452: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
453: then
454: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN' );
455: end if;
456: version := PluginVersion;
457: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
458: then
453: then
454: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN' );
455: end if;
456: version := PluginVersion;
457: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
458: then
459: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'current version:'||version );
460: end if;
461:
455: end if;
456: version := PluginVersion;
457: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
458: then
459: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'current version:'||version );
460: end if;
461:
462: if (version > 1.0 ) THEN
463: -- no changes needed this time
460: end if;
461:
462: if (version > 1.0 ) THEN
463: -- no changes needed this time
464: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
465: then
466: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END(no changes)' );
467: end if;
468: return ;
462: if (version > 1.0 ) THEN
463: -- no changes needed this time
464: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
465: then
466: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END(no changes)' );
467: end if;
468: return ;
469: END IF;
470: if (version=1.0) THEN
467: end if;
468: return ;
469: END IF;
470: if (version=1.0) THEN
471: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
472: then
473: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'upgrading from 1.0');
474: end if;
475: params := list_t('CN_ATT_CACHED','CREATE_BASE','NICK_ATT_CACHED','REALM','SEARCH_BASE_CACHED','TYPE');
469: END IF;
470: if (version=1.0) THEN
471: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
472: then
473: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'upgrading from 1.0');
474: end if;
475: params := list_t('CN_ATT_CACHED','CREATE_BASE','NICK_ATT_CACHED','REALM','SEARCH_BASE_CACHED','TYPE');
476: for p in params.first .. params.last loop
477: old_val(params(p)) := FND_PREFERENCE.GET('#INTERNAL','OID_CONF',params(p));
474: end if;
475: params := list_t('CN_ATT_CACHED','CREATE_BASE','NICK_ATT_CACHED','REALM','SEARCH_BASE_CACHED','TYPE');
476: for p in params.first .. params.last loop
477: old_val(params(p)) := FND_PREFERENCE.GET('#INTERNAL','OID_CONF',params(p));
478: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
479: then
480: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'old '||params(p)||'='||old_val(params(p)) );
481: end if;
482: end loop;
476: for p in params.first .. params.last loop
477: old_val(params(p)) := FND_PREFERENCE.GET('#INTERNAL','OID_CONF',params(p));
478: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
479: then
480: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'old '||params(p)||'='||old_val(params(p)) );
481: end if;
482: end loop;
483:
484: ELSE
481: end if;
482: end loop;
483:
484: ELSE
485: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
486: then
487: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'very old or non existent registration');
488: end if;
489: old_val('REALM') := fnd_sso_registration.getdefaultrealm;
483:
484: ELSE
485: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
486: then
487: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'very old or non existent registration');
488: end if;
489: old_val('REALM') := fnd_sso_registration.getdefaultrealm;
490: old_val('CREATE_BASE') := FND_SSO_REGISTRATION.get_realm_attribute(old_val('REALM') ,'orclCommonUserCreatebase');
491: old_val('CN_ATT_CACHED') := FND_SSO_REGISTRATION.get_realm_attribute(old_val('REALM') ,'orclCommonNamingAttribute');
497: END IF;
498:
499:
500: -- remove all
501: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
502: then
503: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'removing previous preferences');
504: end if;
505: FND_PREFERENCE.DELETE_ALL('#INTERNAL','OID_CONF');
499:
500: -- remove all
501: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
502: then
503: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'removing previous preferences');
504: end if;
505: FND_PREFERENCE.DELETE_ALL('#INTERNAL','OID_CONF');
506:
507: if NOT old_val.exists('REALM') THEN
520: saveOption('DEFAULT_CREATE_BASE',G_STATIC,old_val('CREATE_BASE'));
521: saveOption('CREATE_BASE',G_STATIC,old_val('CREATE_BASE'));
522: saveOption('RDN',G_STATIC,old_val('CN_ATT_CACHED') );
523: FND_PREFERENCE.put('#INTERNAL','OID_CONF','PLUGIN_VERSION','1.1');
524: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
525: then
526: params := list_t('DEFAULT_REALM','REALM','DEFAULT_CREATE_BASE','CREATE_BASE','RDN','PLUGIN_VERSION');
527: for p in params.first .. params.last loop
528: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,' pref set : '||params(p)||'='||FND_PREFERENCE.GET('#INTERNAL','OID_CONF',params(p)));
524: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
525: then
526: params := list_t('DEFAULT_REALM','REALM','DEFAULT_CREATE_BASE','CREATE_BASE','RDN','PLUGIN_VERSION');
527: for p in params.first .. params.last loop
528: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,' pref set : '||params(p)||'='||FND_PREFERENCE.GET('#INTERNAL','OID_CONF',params(p)));
529: end loop;
530: end if;
531: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
532: then
527: for p in params.first .. params.last loop
528: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,' pref set : '||params(p)||'='||FND_PREFERENCE.GET('#INTERNAL','OID_CONF',params(p)));
529: end loop;
530: end if;
531: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
532: then
533: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN' );
534: end if;
535: EXCEPTION WHEN OTHERS THEN
529: end loop;
530: end if;
531: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
532: then
533: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN' );
534: end if;
535: EXCEPTION WHEN OTHERS THEN
536: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
537: then
532: then
533: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN' );
534: end if;
535: EXCEPTION WHEN OTHERS THEN
536: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
537: then
538: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
539: end if;
540: raise;
534: end if;
535: EXCEPTION WHEN OTHERS THEN
536: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
537: then
538: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
539: end if;
540: raise;
541:
542: END UpgradePlugin;
585: UpgradePlugin;
586: ldap:= FND_LDAP_UTIl.c_get_oid_session(flag);
587: l_session_flag := true; /* fix for bug 8271359 */
588:
589: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
590: then
591: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
592: end if;
593:
587: l_session_flag := true; /* fix for bug 8271359 */
588:
589: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
590: then
591: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
592: end if;
593:
594: if (plugin_name is not null ) THEN
595: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
591: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
592: end if;
593:
594: if (plugin_name is not null ) THEN
595: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
596: then
597: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'plugin_name is: '||plugin_name);
598: end if;
599: n:= upper(plugin_name);
593:
594: if (plugin_name is not null ) THEN
595: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
596: then
597: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'plugin_name is: '||plugin_name);
598: end if;
599: n:= upper(plugin_name);
600: i:= instr(plugin_name,'.');
601: IF (i=0) THEN
598: end if;
599: n:= upper(plugin_name);
600: i:= instr(plugin_name,'.');
601: IF (i=0) THEN
602: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
603: then
604: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Verify plugin package is valid ' );
605: end if;
606:
600: i:= instr(plugin_name,'.');
601: IF (i=0) THEN
602: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
603: then
604: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Verify plugin package is valid ' );
605: end if;
606:
607: select count(*) into c from user_objects where object_name=n
608: and object_type in ('PACKAGE','PACKAGE BODY') and status='VALID';
609: IF (c<>2) THEN
610: raise_application_error(-20100,'Check existence and validity of '||plugin_name||' body and specs');
611: END IF;
612: ELSE
613: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
614: then
615: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Verify plugin package for owner is valid ' );
616: end if;
617: o:= substr(upper(plugin_name),0,i-1);
611: END IF;
612: ELSE
613: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
614: then
615: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Verify plugin package for owner is valid ' );
616: end if;
617: o:= substr(upper(plugin_name),0,i-1);
618: n:= substr(upper(plugin_name),i+1);
619: select count(*) into c from dba_objects where
625: raise_application_error(-20100,'Check existence and validity of '||plugin_name||' body and specs');
626: END IF;
627: END IF;
628: usePlugin:=true;
629: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
630: then
631: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'usePlugin set to true');
632: end if;
633: ELSE
627: END IF;
628: usePlugin:=true;
629: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
630: then
631: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'usePlugin set to true');
632: end if;
633: ELSE
634: usePlugin :=false;
635: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
631: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'usePlugin set to true');
632: end if;
633: ELSE
634: usePlugin :=false;
635: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
636: then
637: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'usePlugin set to false');
638: end if;
639: END IF;
633: ELSE
634: usePlugin :=false;
635: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
636: then
637: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'usePlugin set to false');
638: end if;
639: END IF;
640:
641: -- DEPLOY WHAT PACKAGE PROVIDES
803: saveOption('FIXUP',G_STATIC,'NONE');
804: END IF;
805: FND_LDAP_UTIl.c_unbind(ldap,flag);
806: l_session_flag := false;
807: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
808: then
809: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
810: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
811: end if;
805: FND_LDAP_UTIl.c_unbind(ldap,flag);
806: l_session_flag := false;
807: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
808: then
809: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
810: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
811: end if;
812:
813: EXCEPTION WHEN OTHERS THEN
806: l_session_flag := false;
807: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
808: then
809: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
810: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
811: end if;
812:
813: EXCEPTION WHEN OTHERS THEN
814: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
810: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
811: end if;
812:
813: EXCEPTION WHEN OTHERS THEN
814: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
815: then
816: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
817: end if;
818: /* Fix for 8271359*/
812:
813: EXCEPTION WHEN OTHERS THEN
814: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
815: then
816: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
817: end if;
818: /* Fix for 8271359*/
819: if l_session_flag = true then
820: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
816: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
817: end if;
818: /* Fix for 8271359*/
819: if l_session_flag = true then
820: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
821: then
822: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
823: end if;
824: fnd_ldap_util.c_unbind(ldap,flag);
818: /* Fix for 8271359*/
819: if l_session_flag = true then
820: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
821: then
822: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
823: end if;
824: fnd_ldap_util.c_unbind(ldap,flag);
825:
826: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
822: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
823: end if;
824: fnd_ldap_util.c_unbind(ldap,flag);
825:
826: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
827: then
828: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
829: end if;
830: end if;
824: fnd_ldap_util.c_unbind(ldap,flag);
825:
826: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
827: then
828: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
829: end if;
830: end if;
831:
832: raise;
849: l_session_flag boolean := false;
850: BEGIN
851: l_module_source := G_MODULE_SOURCE || 'setPlugin: ';
852:
853: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
854: then
855: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin' );
856: end if;
857: /*
851: l_module_source := G_MODULE_SOURCE || 'setPlugin: ';
852:
853: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
854: then
855: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin' );
856: end if;
857: /*
858: if (plugin_name is not null) then
859: -- if ( validateTemplate('FND_OID_PLUG.getRDN',plugin_name||'.getRDN',msg) )THEN
859: -- if ( validateTemplate('FND_OID_PLUG.getRDN',plugin_name||'.getRDN',msg) )THEN
860: -- fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_RDN,'begin '||plugin_name||'.getRDN(:1,:2,:3:,:4,:5); end;');
861: -- isDynamic := true;
862: -- ELSE
863: -- if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
864: -- then
865: -- fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'getRDN setup failed: '|| msg );
866: -- msg:=null;
867: -- end if;
861: -- isDynamic := true;
862: -- ELSE
863: -- if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
864: -- then
865: -- fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'getRDN setup failed: '|| msg );
866: -- msg:=null;
867: -- end if;
868: -- END IF;
869:
881:
882: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_TYPE,G_DYNAMIC_DESC);
883: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REALM,'begin :1 := '||plugin_name||'.Realm(:2); end;');
884: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REPOSITORY,'begin :1 := '||plugin_name||'.UserRepository(:2); end;');
885: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
886: then
887: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
888: end if;
889: return;
883: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REALM,'begin :1 := '||plugin_name||'.Realm(:2); end;');
884: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REPOSITORY,'begin :1 := '||plugin_name||'.UserRepository(:2); end;');
885: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
886: then
887: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
888: end if;
889: return;
890: else
891: */
891: */
892: ldap := fnd_ldap_util.c_get_oid_session(flag);
893: l_session_flag := true; /* fix for bug 8271359 */
894:
895: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
896: then
897: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
898: end if;
899:
893: l_session_flag := true; /* fix for bug 8271359 */
894:
895: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
896: then
897: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
898: end if;
899:
900: if (default_realm is not null) then
901: g_realm := default_realm;
939: fnd_preference.put(G_PREF_USER,G_PREF_MODULE,L_REPOSITORY,g_user_repo);
940:
941: fnd_ldap_util.c_unbind(ldap,flag);
942: l_session_flag := false;
943: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
944: then
945: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
946: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
947: end if;
941: fnd_ldap_util.c_unbind(ldap,flag);
942: l_session_flag := false;
943: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
944: then
945: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
946: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
947: end if;
948:
949: -- end if;
942: l_session_flag := false;
943: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
944: then
945: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
946: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
947: end if;
948:
949: -- end if;
950:
947: end if;
948:
949: -- end if;
950:
951: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
952: then
953: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
954: end if;
955: EXCEPTION WHEN OTHERS THEN
949: -- end if;
950:
951: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
952: then
953: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End' );
954: end if;
955: EXCEPTION WHEN OTHERS THEN
956: /* Fix for 8271359*/
957: if l_session_flag = true then
954: end if;
955: EXCEPTION WHEN OTHERS THEN
956: /* Fix for 8271359*/
957: if l_session_flag = true then
958: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
959: then
960: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
961: end if;
962: fnd_ldap_util.c_unbind(ldap,flag);
956: /* Fix for 8271359*/
957: if l_session_flag = true then
958: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
959: then
960: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
961: end if;
962: fnd_ldap_util.c_unbind(ldap,flag);
963:
964: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
960: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
961: end if;
962: fnd_ldap_util.c_unbind(ldap,flag);
963:
964: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
965: then
966: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
967: end if;
968: end if;
962: fnd_ldap_util.c_unbind(ldap,flag);
963:
964: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
965: then
966: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
967: end if;
968: end if;
969:
970: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
966: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
967: end if;
968: end if;
969:
970: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
971: then
972: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
973: end if;
974: raise;
968: end if;
969:
970: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
971: then
972: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
973: end if;
974: raise;
975:
976: END setPlugin_old;
985: l_session_flag boolean := false;
986: BEGIN
987: l_module_source := G_MODULE_SOURCE || 'upgrade_preferences: ';
988:
989: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
990: then
991: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
992: end if;
993: ldap := fnd_ldap_util.c_get_oid_session(flag);
987: l_module_source := G_MODULE_SOURCE || 'upgrade_preferences: ';
988:
989: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
990: then
991: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
992: end if;
993: ldap := fnd_ldap_util.c_get_oid_session(flag);
994: l_session_flag := true; /* fix for bug 8271359 */
995:
992: end if;
993: ldap := fnd_ldap_util.c_get_oid_session(flag);
994: l_session_flag := true; /* fix for bug 8271359 */
995:
996: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
997: then
998: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
999: end if;
1000: l_realm := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orclDefaultSubscriber');
994: l_session_flag := true; /* fix for bug 8271359 */
995:
996: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
997: then
998: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
999: end if;
1000: l_realm := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orclDefaultSubscriber');
1001: l_repo := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
1002: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
998: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
999: end if;
1000: l_realm := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orclDefaultSubscriber');
1001: l_repo := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
1002: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1003: then
1004: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
1005: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
1006: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
1000: l_realm := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','orclDefaultSubscriber');
1001: l_repo := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
1002: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1003: then
1004: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
1005: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
1006: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
1007: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
1008: end if;
1001: l_repo := FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||l_realm,'orclcommondefaultusercreatebase');
1002: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1003: then
1004: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
1005: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
1006: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
1007: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
1008: end if;
1009:
1002: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1003: then
1004: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
1005: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
1006: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
1007: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
1008: end if;
1009:
1010: setPlugin_old( default_realm => l_realm ,default_user_repository=>l_repo,plugin_name =>null);
1003: then
1004: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'AUTO UPGRADE');
1005: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, '=============');
1006: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm);
1007: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'user creation base:'||l_repo);
1008: end if;
1009:
1010: setPlugin_old( default_realm => l_realm ,default_user_repository=>l_repo,plugin_name =>null);
1011: fnd_ldap_util.c_unbind(ldap,flag);
1009:
1010: setPlugin_old( default_realm => l_realm ,default_user_repository=>l_repo,plugin_name =>null);
1011: fnd_ldap_util.c_unbind(ldap,flag);
1012: l_session_flag := false;
1013: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1014: then
1015: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1016: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1017: end if;
1011: fnd_ldap_util.c_unbind(ldap,flag);
1012: l_session_flag := false;
1013: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1014: then
1015: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1016: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1017: end if;
1018:
1019: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1012: l_session_flag := false;
1013: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1014: then
1015: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1016: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1017: end if;
1018:
1019: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1020: then
1015: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1016: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1017: end if;
1018:
1019: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1020: then
1021: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'end');
1022: end if;
1023:
1017: end if;
1018:
1019: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1020: then
1021: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'end');
1022: end if;
1023:
1024:
1025: EXCEPTION WHEN OTHERS THEN
1024:
1025: EXCEPTION WHEN OTHERS THEN
1026: /* Fix for 8271359*/
1027: if l_session_flag = true then
1028: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1029: then
1030: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1031: end if;
1032: fnd_ldap_util.c_unbind(ldap,flag);
1026: /* Fix for 8271359*/
1027: if l_session_flag = true then
1028: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1029: then
1030: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1031: end if;
1032: fnd_ldap_util.c_unbind(ldap,flag);
1033:
1034: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1030: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1031: end if;
1032: fnd_ldap_util.c_unbind(ldap,flag);
1033:
1034: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1035: then
1036: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1037: end if;
1038: end if;
1032: fnd_ldap_util.c_unbind(ldap,flag);
1033:
1034: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1035: then
1036: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1037: end if;
1038: end if;
1039:
1040: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1036: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1037: end if;
1038: end if;
1039:
1040: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1041: then
1042: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
1043: end if;
1044:
1038: end if;
1039:
1040: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1041: then
1042: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
1043: end if;
1044:
1045: raise;
1046: END upgrade_preferences;
1051: l_module_source varchar2(1000) ;
1052: BEGIN
1053: l_module_source := G_MODULE_SOURCE || 'pluginType: ';
1054:
1055: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1056: then
1057: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1058: end if;
1059: return null;
1053: l_module_source := G_MODULE_SOURCE || 'pluginType: ';
1054:
1055: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1056: then
1057: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1058: end if;
1059: return null;
1060: END pluginType_old;
1061:
1067: l_module_source varchar2(1000) ;
1068: BEGIN
1069: l_module_source := G_MODULE_SOURCE || 'sql_execute: ';
1070:
1071: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1072: then
1073: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1074: end if;
1075: c := dbms_sql.open_cursor;
1069: l_module_source := G_MODULE_SOURCE || 'sql_execute: ';
1070:
1071: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1072: then
1073: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1074: end if;
1075: c := dbms_sql.open_cursor;
1076: dbms_sql.parse(c, stmt, dbms_sql.NATIVE);
1077: dbms_sql.bind_variable(c, ':2', param);
1079: res := dbms_sql.execute(c);
1080: dbms_sql.variable_value(c,':1',result);
1081: dbms_sql.close_cursor(c);
1082:
1083: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1084: then
1085: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
1086: end if;
1087: return result;
1081: dbms_sql.close_cursor(c);
1082:
1083: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1084: then
1085: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
1086: end if;
1087: return result;
1088: EXCEPTION WHEN OTHERS THEN
1089: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1085: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
1086: end if;
1087: return result;
1088: EXCEPTION WHEN OTHERS THEN
1089: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1090: then
1091: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1092: end if;
1093: raise;
1087: return result;
1088: EXCEPTION WHEN OTHERS THEN
1089: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1090: then
1091: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1092: end if;
1093: raise;
1094:
1095: END sql_execute;
1122: ELSE
1123: raise configuration_error;
1124: END CASE;
1125: EXCEPTION WHEN OTHERS THEN
1126: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1127: then
1128: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1129: end if;
1130: raise;
1124: END CASE;
1125: EXCEPTION WHEN OTHERS THEN
1126: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1127: then
1128: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1129: end if;
1130: raise;
1131:
1132:
1156:
1157: l_module_source := G_MODULE_SOURCE || 'getRealmDN: ';
1158: result := null;
1159:
1160: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1161: then
1162: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin '||username);
1163: end if;
1164:
1158: result := null;
1159:
1160: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1161: then
1162: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin '||username);
1163: end if;
1164:
1165: BEGIN
1166: select user_guid into l_guid from FND_USER
1164:
1165: BEGIN
1166: select user_guid into l_guid from FND_USER
1167: where user_name=username;
1168: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1169: then
1170: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Found on FND_USER guid: '||NVL(l_guid,'**NULL*'));
1171: end if;
1172:
1166: select user_guid into l_guid from FND_USER
1167: where user_name=username;
1168: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1169: then
1170: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Found on FND_USER guid: '||NVL(l_guid,'**NULL*'));
1171: end if;
1172:
1173: EXCEPTION WHEN NO_DATA_FOUND THEN
1174: l_guid:=null;
1178: result := FND_SSO_REGISTRATION.getGuidRealm(l_guid);
1179:
1180: if (result is null ) THEN
1181:
1182: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1183: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Invalid GUID guid: '||l_guid);
1184: END IF;
1185:
1186: raise NO_DATA_FOUND;
1179:
1180: if (result is null ) THEN
1181:
1182: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1183: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Invalid GUID guid: '||l_guid);
1184: END IF;
1185:
1186: raise NO_DATA_FOUND;
1187: END IF;
1186: raise NO_DATA_FOUND;
1187: END IF;
1188:
1189: END IF;
1190: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1191: then
1192: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Looking at LDAP for the user '||username);
1193: end if;
1194: IF FND_LDAP_USER.SearchUser(username,user_rec) THEN
1188:
1189: END IF;
1190: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1191: then
1192: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Looking at LDAP for the user '||username);
1193: end if;
1194: IF FND_LDAP_USER.SearchUser(username,user_rec) THEN
1195: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1196: then
1191: then
1192: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Looking at LDAP for the user '||username);
1193: end if;
1194: IF FND_LDAP_USER.SearchUser(username,user_rec) THEN
1195: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1196: then
1197: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'FOUND!! dn: '||user_rec.dn);
1198: end if;
1199: result := user_rec.realmDN;
1193: end if;
1194: IF FND_LDAP_USER.SearchUser(username,user_rec) THEN
1195: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1196: then
1197: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'FOUND!! dn: '||user_rec.dn);
1198: end if;
1199: result := user_rec.realmDN;
1200: ELSE
1201: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1197: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'FOUND!! dn: '||user_rec.dn);
1198: end if;
1199: result := user_rec.realmDN;
1200: ELSE
1201: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1202: then
1203: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'NOT FOUND, will retrun real for new user then');
1204: end if;
1205: result := getNewUserRealm(username);
1199: result := user_rec.realmDN;
1200: ELSE
1201: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1202: then
1203: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'NOT FOUND, will retrun real for new user then');
1204: end if;
1205: result := getNewUserRealm(username);
1206: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
1207: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN:'||result);
1202: then
1203: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'NOT FOUND, will retrun real for new user then');
1204: end if;
1205: result := getNewUserRealm(username);
1206: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
1207: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN:'||result);
1208: end if;
1209: END IF;
1210: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1203: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'NOT FOUND, will retrun real for new user then');
1204: end if;
1205: result := getNewUserRealm(username);
1206: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
1207: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN:'||result);
1208: end if;
1209: END IF;
1210: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1211: then
1206: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
1207: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN:'||result);
1208: end if;
1209: END IF;
1210: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1211: then
1212: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1213: end if;
1214: return result;
1208: end if;
1209: END IF;
1210: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1211: then
1212: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1213: end if;
1214: return result;
1215: EXCEPTION WHEN OTHERS THEN
1216: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1212: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1213: end if;
1214: return result;
1215: EXCEPTION WHEN OTHERS THEN
1216: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1217: then
1218: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'ERROR:'||sqlerrm);
1219: end if;
1220: raise;
1214: return result;
1215: EXCEPTION WHEN OTHERS THEN
1216: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1217: then
1218: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'ERROR:'||sqlerrm);
1219: end if;
1220: raise;
1221: END getRealmDN;
1222:
1226: opt option_type_rec;
1227: baseList dbms_ldap.string_collection;
1228: BEGIN
1229: l_module_source := G_MODULE_SOURCE || 'getUserRepository: ';
1230: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1231: then
1232: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin ');
1233: end if;
1234:
1228: BEGIN
1229: l_module_source := G_MODULE_SOURCE || 'getUserRepository: ';
1230: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1231: then
1232: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin ');
1233: end if;
1234:
1235: IF (p_ldap_user.parent_DN is not null) THEN
1236: result:=p_ldap_user.parent_DN ;
1261: return null;
1262: END IF;
1263: result := fnd_sso_registration.get_realm_attribute(p_ldap_user.realmDN ,'orclCommonUserCreateBase',0);
1264: END IF;
1265: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1266: then
1267: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END-> '||result);
1268: end if;
1269:
1263: result := fnd_sso_registration.get_realm_attribute(p_ldap_user.realmDN ,'orclCommonUserCreateBase',0);
1264: END IF;
1265: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1266: then
1267: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END-> '||result);
1268: end if;
1269:
1270: return result;
1271: EXCEPTION WHEN OTHERS THEN
1268: end if;
1269:
1270: return result;
1271: EXCEPTION WHEN OTHERS THEN
1272: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1273: then
1274: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'ERROR:'||sqlerrm);
1275: end if;
1276: raise;
1270: return result;
1271: EXCEPTION WHEN OTHERS THEN
1272: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1273: then
1274: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'ERROR:'||sqlerrm);
1275: end if;
1276: raise;
1277:
1278: END getUserRepository;
1304: idx pls_integer;
1305:
1306: BEGIN
1307: l_module_source := G_MODULE_SOURCE || 'getRDN: ';
1308: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1309: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1310: END IF;
1311: IF (NOT getOption('RDN',opt) )THEN
1312: opt.opt_mode:=G_STATIC;
1305:
1306: BEGIN
1307: l_module_source := G_MODULE_SOURCE || 'getRDN: ';
1308: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1309: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1310: END IF;
1311: IF (NOT getOption('RDN',opt) )THEN
1312: opt.opt_mode:=G_STATIC;
1313: opt.val := FND_SSO_REGISTRATION.get_Realm_Attribute( FND_SSO_REGISTRATION.getdefaultrealm,'orclCommonNamingAttribute');
1329: END ;
1330: WHEN G_DYNAMIC THEN
1331: BEGIN
1332: q := opt.val;
1333: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1334: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Testing dynamic');
1335: END IF;
1336: EXECUTE immediate q USING IN username,
1337: IN userid,
1330: WHEN G_DYNAMIC THEN
1331: BEGIN
1332: q := opt.val;
1333: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1334: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Testing dynamic');
1335: END IF;
1336: EXECUTE immediate q USING IN username,
1337: IN userid,
1338: IN OUT rdn_att,
1338: IN OUT rdn_att,
1339: IN OUT rdn_val,
1340: OUT aux;
1341: replaceFlag := (AUX=1);
1342: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1343: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RND:'||rdn_att||'='||rdn_val);
1344: END IF;
1345: END;
1346: ELSE BEGIN
1339: IN OUT rdn_val,
1340: OUT aux;
1341: replaceFlag := (AUX=1);
1342: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1343: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RND:'||rdn_att||'='||rdn_val);
1344: END IF;
1345: END;
1346: ELSE BEGIN
1347:
1347:
1348: raise FND_OID_PLUG.CONFIGURATION_ERROR;
1349: END;
1350: END CASE;
1351: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1352: fnd_log.
1353: string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1354: END IF;
1355: RETURN ;
1348: raise FND_OID_PLUG.CONFIGURATION_ERROR;
1349: END;
1350: END CASE;
1351: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1352: fnd_log.
1353: string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1354: END IF;
1355: RETURN ;
1356: EXCEPTION
1349: END;
1350: END CASE;
1351: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1352: fnd_log.
1353: string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1354: END IF;
1355: RETURN ;
1356: EXCEPTION
1357: WHEN OTHERS THEN
1354: END IF;
1355: RETURN ;
1356: EXCEPTION
1357: WHEN OTHERS THEN
1358: IF (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1359: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1360: END IF;
1361: raise;
1362: END getRDN;
1355: RETURN ;
1356: EXCEPTION
1357: WHEN OTHERS THEN
1358: IF (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1359: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1360: END IF;
1361: raise;
1362: END getRDN;
1363:
1370: l_module_source varchar2(1000) ;
1371: BEGIN
1372: l_module_source := G_MODULE_SOURCE || 'getSearchBase: ';
1373:
1374: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1375: then
1376: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1377: end if;
1378:
1372: l_module_source := G_MODULE_SOURCE || 'getSearchBase: ';
1373:
1374: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1375: then
1376: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1377: end if;
1378:
1379: if (plugin_type is null) then plugin_type:=pluginType; end if;
1380: if (plugin_type=G_STATIC) then
1384: result:= FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||getRealmDN(username),'orclcommonusersearchbase');
1385: fnd_ldap_util.c_unbind(ldap,dummy);
1386: end if;
1387:
1388: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1389: then
1390: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1391: end if;
1392:
1386: end if;
1387:
1388: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1389: then
1390: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1391: end if;
1392:
1393:
1394: return result;
1392:
1393:
1394: return result;
1395: EXCEPTION WHEN OTHERS THEN
1396: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1397: then
1398: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1399: end if;
1400: raise;
1394: return result;
1395: EXCEPTION WHEN OTHERS THEN
1396: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1397: then
1398: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1399: end if;
1400: raise;
1401:
1402: END getSearchBase;
1407: l_module_source varchar2(1000) ;
1408: BEGIN
1409: l_module_source := G_MODULE_SOURCE || 'getSearchFilter: ';
1410:
1411: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1412: then
1413: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1414: end if;
1415:
1409: l_module_source := G_MODULE_SOURCE || 'getSearchFilter: ';
1410:
1411: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1412: then
1413: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1414: end if;
1415:
1416: if (plugin_type is null) then plugin_type:=pluginType; end if;
1417: if (plugin_type=G_STATIC) then
1419: else
1420: result:=g_nicknameatt||'='||username;
1421: end if;
1422:
1423: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1424: then
1425: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1426: end if;
1427:
1421: end if;
1422:
1423: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1424: then
1425: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1426: end if;
1427:
1428:
1429: return result;
1427:
1428:
1429: return result;
1430: EXCEPTION WHEN OTHERS THEN
1431: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1432: then
1433: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1434: end if;
1435: raise;
1429: return result;
1430: EXCEPTION WHEN OTHERS THEN
1431: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1432: then
1433: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1434: end if;
1435: raise;
1436:
1437: END getSearchFilter;
1447: l_session_flag boolean := false;
1448: BEGIN
1449: l_module_source := G_MODULE_SOURCE || 'getNickNameAttributeFromRealm: ';
1450:
1451: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1452: then
1453: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1454: end if;
1455:
1449: l_module_source := G_MODULE_SOURCE || 'getNickNameAttributeFromRealm: ';
1450:
1451: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1452: then
1453: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1454: end if;
1455:
1456: ldap := fnd_ldap_util.c_get_oid_session(dummy);
1457: l_session_flag := true; /* fix for bug 8271359 */
1455:
1456: ldap := fnd_ldap_util.c_get_oid_session(dummy);
1457: l_session_flag := true; /* fix for bug 8271359 */
1458:
1459: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1460: then
1461: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
1462: end if;
1463:
1457: l_session_flag := true; /* fix for bug 8271359 */
1458:
1459: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1460: then
1461: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
1462: end if;
1463:
1464: result:= FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realmDn,'orclcommonnicknameattribute');
1465: fnd_ldap_util.c_unbind(ldap,dummy);
1464: result:= FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realmDn,'orclcommonnicknameattribute');
1465: fnd_ldap_util.c_unbind(ldap,dummy);
1466:
1467: l_session_flag := false;
1468: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1469: then
1470: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1471: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1472: end if;
1466:
1467: l_session_flag := false;
1468: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1469: then
1470: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1471: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1472: end if;
1473:
1474: if (result is null) then result:='uid'; end if;
1467: l_session_flag := false;
1468: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1469: then
1470: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1471: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1472: end if;
1473:
1474: if (result is null) then result:='uid'; end if;
1475:
1472: end if;
1473:
1474: if (result is null) then result:='uid'; end if;
1475:
1476: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1477: then
1478: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1479: end if;
1480:
1474: if (result is null) then result:='uid'; end if;
1475:
1476: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1477: then
1478: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1479: end if;
1480:
1481:
1482: return result;
1480:
1481:
1482: return result;
1483: EXCEPTION WHEN OTHERS THEN
1484: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1485: then
1486: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
1487: end if;
1488: /* Fix for 8271359*/
1482: return result;
1483: EXCEPTION WHEN OTHERS THEN
1484: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1485: then
1486: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
1487: end if;
1488: /* Fix for 8271359*/
1489: if l_session_flag = true then
1490: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1486: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
1487: end if;
1488: /* Fix for 8271359*/
1489: if l_session_flag = true then
1490: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1491: then
1492: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1493: end if;
1494: fnd_ldap_util.c_unbind(ldap,dummy);
1488: /* Fix for 8271359*/
1489: if l_session_flag = true then
1490: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1491: then
1492: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1493: end if;
1494: fnd_ldap_util.c_unbind(ldap,dummy);
1495:
1496: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1492: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1493: end if;
1494: fnd_ldap_util.c_unbind(ldap,dummy);
1495:
1496: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1497: then
1498: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1499: end if;
1500: end if;
1494: fnd_ldap_util.c_unbind(ldap,dummy);
1495:
1496: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1497: then
1498: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1499: end if;
1500: end if;
1501:
1502: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1498: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1499: end if;
1500: end if;
1501:
1502: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1503: then
1504: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1505: end if;
1506: raise;
1500: end if;
1501:
1502: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1503: then
1504: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1505: end if;
1506: raise;
1507:
1508: END getNickNameAttributeFromRealm;
1514: l_module_source varchar2(1000) ;
1515: BEGIN
1516: l_module_source := G_MODULE_SOURCE || 'getUsernameFromEntry: ';
1517:
1518: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1519: then
1520: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1521: end if;
1522:
1516: l_module_source := G_MODULE_SOURCE || 'getUsernameFromEntry: ';
1517:
1518: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1519: then
1520: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1521: end if;
1522:
1523: if (attr_list is not null AND attr_list.count > 0)
1524: then
1526: loop
1527:
1528: if(upper(attr_list(j).attr_name) = 'ORCLGUID') then
1529: result:= get_username_from_guid(attr_list(j).attr_value);
1530: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1531: then
1532: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1533: end if;
1534:
1528: if(upper(attr_list(j).attr_name) = 'ORCLGUID') then
1529: result:= get_username_from_guid(attr_list(j).attr_value);
1530: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1531: then
1532: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1533: end if;
1534:
1535: return result;
1536: end if;
1535: return result;
1536: end if;
1537: end loop;
1538: end if;
1539: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1540: then
1541: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> raise NO_DATA_FOUND');
1542: end if;
1543: raise no_data_found;
1537: end loop;
1538: end if;
1539: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1540: then
1541: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> raise NO_DATA_FOUND');
1542: end if;
1543: raise no_data_found;
1544: EXCEPTION WHEN OTHERS THEN
1545: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1541: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END -> raise NO_DATA_FOUND');
1542: end if;
1543: raise no_data_found;
1544: EXCEPTION WHEN OTHERS THEN
1545: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1546: then
1547: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1548: end if;
1549: raise;
1543: raise no_data_found;
1544: EXCEPTION WHEN OTHERS THEN
1545: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1546: then
1547: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1548: end if;
1549: raise;
1550:
1551: end getUsernameFromEntry;
1561: l_module_source varchar2(1000) ;
1562: BEGIN
1563: l_module_source := G_MODULE_SOURCE || 'get_entry_dn: ';
1564:
1565: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1566: then
1567: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1568: end if;
1569:
1563: l_module_source := G_MODULE_SOURCE || 'get_entry_dn: ';
1564:
1565: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1566: then
1567: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1568: end if;
1569:
1570: l_attrs(0) := 'dn'; -- NO_ATTRS
1571: result := dbms_ldap.search_s(ld => ldap
1576: , attronly => 0
1577: , res => l_message);
1578: l_entry := dbms_ldap.first_entry(ldap, l_message);
1579: entry_dn := dbms_ldap.get_dn(ldap,l_entry);
1580: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1581: then
1582: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||entry_dn);
1583: end if;
1584:
1578: l_entry := dbms_ldap.first_entry(ldap, l_message);
1579: entry_dn := dbms_ldap.get_dn(ldap,l_entry);
1580: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1581: then
1582: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||entry_dn);
1583: end if;
1584:
1585: return entry_dn;
1586: EXCEPTION WHEN OTHERS THEN
1583: end if;
1584:
1585: return entry_dn;
1586: EXCEPTION WHEN OTHERS THEN
1587: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1588: then
1589: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1590: end if;
1591: raise;
1585: return entry_dn;
1586: EXCEPTION WHEN OTHERS THEN
1587: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1588: then
1589: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1590: end if;
1591: raise;
1592:
1593: end get_entry_dn;
1610: validateVersion;
1611:
1612: l_module_source := G_MODULE_SOURCE || 'get_realm_from_user_dn: ';
1613:
1614: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1615: then
1616: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin '||dev_version);
1617: end if;
1618:
1612: l_module_source := G_MODULE_SOURCE || 'get_realm_from_user_dn: ';
1613:
1614: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1615: then
1616: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin '||dev_version);
1617: end if;
1618:
1619: if (dev_version>=1.0 and dev_version<2.0) THEN
1620: cn_list := dbms_ldap.explode_dn(user_dn,0);
1640: WHEN OTHERS THEN
1641: g:=null;
1642: END;
1643: if (g is not null) then
1644: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1645: then
1646: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||dn);
1647: end if;
1648: return dn;
1642: END;
1643: if (g is not null) then
1644: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1645: then
1646: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||dn);
1647: end if;
1648: return dn;
1649: end if;
1650: i:=i+1;
1653: ELSIF dev_version=2.0 THEN
1654: l_realm_idx := fnd_sso_registration.getUserRealmIndex(dn);
1655: if (l_realm_idx is not null) then
1656: dn := fnd_sso_registration.find_realm(l_realm_idx);
1657: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1658: then
1659: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END->'||dn);
1660: end if;
1661: return dn;
1655: if (l_realm_idx is not null) then
1656: dn := fnd_sso_registration.find_realm(l_realm_idx);
1657: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1658: then
1659: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END->'||dn);
1660: end if;
1661: return dn;
1662: end if;
1663: else
1662: end if;
1663: else
1664: raise NO_DATA_FOUND;
1665: END IF;
1666: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1667: then
1668: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END NULL!');
1669: end if;
1670: return null;
1664: raise NO_DATA_FOUND;
1665: END IF;
1666: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1667: then
1668: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END NULL!');
1669: end if;
1670: return null;
1671: EXCEPTION WHEN OTHERS THEN
1672: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1668: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END NULL!');
1669: end if;
1670: return null;
1671: EXCEPTION WHEN OTHERS THEN
1672: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1673: then
1674: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1675: end if;
1676: raise;
1670: return null;
1671: EXCEPTION WHEN OTHERS THEN
1672: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1673: then
1674: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1675: end if;
1676: raise;
1677:
1678: end get_realm_from_user_dn;
1691: l_session_flag boolean := false;
1692: BEGIN
1693: l_module_source := G_MODULE_SOURCE || 'get_username_from_guid: ';
1694:
1695: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1696: then
1697: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1698: end if;
1699: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1693: l_module_source := G_MODULE_SOURCE || 'get_username_from_guid: ';
1694:
1695: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1696: then
1697: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1698: end if;
1699: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1700: then
1701: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid='||p_user_guid);
1695: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1696: then
1697: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1698: end if;
1699: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1700: then
1701: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid='||p_user_guid);
1702: end if;
1703:
1697: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1698: end if;
1699: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1700: then
1701: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid='||p_user_guid);
1702: end if;
1703:
1704: ldap := fnd_ldap_util.c_get_oid_session(dummy);
1705: l_session_flag := true; /* fix for bug 8271359 */
1703:
1704: ldap := fnd_ldap_util.c_get_oid_session(dummy);
1705: l_session_flag := true; /* fix for bug 8271359 */
1706:
1707: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1708: then
1709: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
1710: end if;
1711:
1705: l_session_flag := true; /* fix for bug 8271359 */
1706:
1707: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1708: then
1709: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
1710: end if;
1711:
1712: user_dn := get_entry_dn(ldap,p_user_guid);
1713: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1709: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
1710: end if;
1711:
1712: user_dn := get_entry_dn(ldap,p_user_guid);
1713: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1714: then
1715: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid=>DN:'||user_dn);
1716: end if;
1717: if user_dn is null then
1711:
1712: user_dn := get_entry_dn(ldap,p_user_guid);
1713: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1714: then
1715: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid=>DN:'||user_dn);
1716: end if;
1717: if user_dn is null then
1718:
1719: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1715: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid=>DN:'||user_dn);
1716: end if;
1717: if user_dn is null then
1718:
1719: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1720: then
1721: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'DN not found , invalid GUID ');
1722: end if;
1723: fnd_message.set_name ('FND', 'FND_SSO_USER_NOT_FOUND');
1717: if user_dn is null then
1718:
1719: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1720: then
1721: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'DN not found , invalid GUID ');
1722: end if;
1723: fnd_message.set_name ('FND', 'FND_SSO_USER_NOT_FOUND');
1724: raise NO_DATA_FOUND ;
1725: end if;
1724: raise NO_DATA_FOUND ;
1725: end if;
1726:
1727: realm_dn := get_realm_from_user_dn(ldap,user_dn);
1728: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1729: then
1730: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN=>RealmDN:'||realm_dn);
1731: end if;
1732: if realm_dn is null then
1726:
1727: realm_dn := get_realm_from_user_dn(ldap,user_dn);
1728: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1729: then
1730: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN=>RealmDN:'||realm_dn);
1731: end if;
1732: if realm_dn is null then
1733: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1734: then
1729: then
1730: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN=>RealmDN:'||realm_dn);
1731: end if;
1732: if realm_dn is null then
1733: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1734: then
1735: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Cannot locate Realm for DN:'||user_dn);
1736: end if;
1737: fnd_message.set_name ('FND', 'FND-9903'); -- cannot find realm for user
1731: end if;
1732: if realm_dn is null then
1733: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1734: then
1735: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Cannot locate Realm for DN:'||user_dn);
1736: end if;
1737: fnd_message.set_name ('FND', 'FND-9903'); -- cannot find realm for user
1738: raise NO_DATA_FOUND ;
1739: end if;
1739: end if;
1740:
1741:
1742: realm_idx := FND_SSO_REGISTRATION.find_realm_index(realm_dn);
1743: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1744: then
1745: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN=>idx:'||realm_idx);
1746: end if;
1747:
1741:
1742: realm_idx := FND_SSO_REGISTRATION.find_realm_index(realm_dn);
1743: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1744: then
1745: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN=>idx:'||realm_idx);
1746: end if;
1747:
1748: if realm_idx < 0 then
1749: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1745: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN=>idx:'||realm_idx);
1746: end if;
1747:
1748: if realm_idx < 0 then
1749: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1750: then
1751: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Realm not loaded: Realm:'||realm_dn);
1752: end if;
1753: fnd_message.set_name ('FND', 'FND-9903'); -- cannot find realm idx
1747:
1748: if realm_idx < 0 then
1749: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1750: then
1751: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Realm not loaded: Realm:'||realm_dn);
1752: end if;
1753: fnd_message.set_name ('FND', 'FND-9903'); -- cannot find realm idx
1754: raise NO_DATA_FOUND ;
1755: end if;
1755: end if;
1756:
1757: --nickNameAttr:=FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realm_dn,'orclCommonNicknameAttribute');
1758: nickNameAttr := FND_SSO_REGISTRATION.get_realm_attribute(realm_idx,'orclCommonNicknameAttribute');
1759: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1760: then
1761: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Realm=>NickNameAttrubute:'||nickNameAttr);
1762: end if;
1763:
1757: --nickNameAttr:=FND_LDAP_UTIL.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext,'||realm_dn,'orclCommonNicknameAttribute');
1758: nickNameAttr := FND_SSO_REGISTRATION.get_realm_attribute(realm_idx,'orclCommonNicknameAttribute');
1759: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1760: then
1761: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Realm=>NickNameAttrubute:'||nickNameAttr);
1762: end if;
1763:
1764: if nickNameAttr is null then
1765: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1761: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Realm=>NickNameAttrubute:'||nickNameAttr);
1762: end if;
1763:
1764: if nickNameAttr is null then
1765: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1766: then
1767: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Cannot read Realm nickname attribute, Realm:'||realm_dn);
1768: end if;
1769:
1763:
1764: if nickNameAttr is null then
1765: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1766: then
1767: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Cannot read Realm nickname attribute, Realm:'||realm_dn);
1768: end if;
1769:
1770: fnd_message.set_name ('FND', 'FND-9903'); -- cannot find nickname attribute specification
1771: raise NO_DATA_FOUND ;
1771: raise NO_DATA_FOUND ;
1772: end if;
1773:
1774: user_name := FND_LDAP_UTIL.getLDAPAttribute(ldap,user_dn,nickNameAttr);
1775: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1776: then
1777: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN+NickNameAttrubute=>user_name:'||user_name);
1778: end if;
1779:
1773:
1774: user_name := FND_LDAP_UTIL.getLDAPAttribute(ldap,user_dn,nickNameAttr);
1775: if (fnd_log.LEVEL_STATEMENT>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1776: then
1777: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN+NickNameAttrubute=>user_name:'||user_name);
1778: end if;
1779:
1780: if user_name is null then
1781: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1777: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN+NickNameAttrubute=>user_name:'||user_name);
1778: end if;
1779:
1780: if user_name is null then
1781: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1782: then
1783: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Record does not have '||nickNameAttr||' attribute DN:'||user_dn);
1784: end if;
1785: fnd_message.set_name ('FND', 'FND_SSO_USER_NOT_FOUND'); --user has no nickname
1779:
1780: if user_name is null then
1781: if (fnd_log.LEVEL_EXCEPTION>= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1782: then
1783: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'Record does not have '||nickNameAttr||' attribute DN:'||user_dn);
1784: end if;
1785: fnd_message.set_name ('FND', 'FND_SSO_USER_NOT_FOUND'); --user has no nickname
1786: raise NO_DATA_FOUND ;
1787: end if;
1786: raise NO_DATA_FOUND ;
1787: end if;
1788: fnd_ldap_util.c_unbind(ldap,dummy);
1789: l_session_flag := false;
1790: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1791: then
1792: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1793: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1794: end if;
1788: fnd_ldap_util.c_unbind(ldap,dummy);
1789: l_session_flag := false;
1790: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1791: then
1792: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1793: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1794: end if;
1795:
1796: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1789: l_session_flag := false;
1790: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1791: then
1792: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1793: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1794: end if;
1795:
1796: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1797: then
1792: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1793: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1794: end if;
1795:
1796: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1797: then
1798: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||user_name);
1799: end if;
1800:
1794: end if;
1795:
1796: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1797: then
1798: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||user_name);
1799: end if;
1800:
1801: return user_name;
1802: EXCEPTION when NO_DATA_FOUND THEN
1800:
1801: return user_name;
1802: EXCEPTION when NO_DATA_FOUND THEN
1803: fnd_ldap_util.c_unbind(ldap,dummy);
1804: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1805: then
1806: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' Not found guid='||p_user_guid);
1807: end if;
1808: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1802: EXCEPTION when NO_DATA_FOUND THEN
1803: fnd_ldap_util.c_unbind(ldap,dummy);
1804: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1805: then
1806: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' Not found guid='||p_user_guid);
1807: end if;
1808: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1809: then
1810: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->EXCEPTION');
1804: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1805: then
1806: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' Not found guid='||p_user_guid);
1807: end if;
1808: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1809: then
1810: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->EXCEPTION');
1811: end if;
1812:
1806: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, ' Not found guid='||p_user_guid);
1807: end if;
1808: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1809: then
1810: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->EXCEPTION');
1811: end if;
1812:
1813: raise;
1814: end get_username_from_guid;
1824: BEGIN
1825: validateVersion;
1826: l_module_source := G_MODULE_SOURCE || 'get_default_realm: ';
1827:
1828: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1829: then
1830: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1831: end if;
1832: result := FND_SSO_REGISTRATION.getDefaultRealm;
1826: l_module_source := G_MODULE_SOURCE || 'get_default_realm: ';
1827:
1828: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1829: then
1830: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1831: end if;
1832: result := FND_SSO_REGISTRATION.getDefaultRealm;
1833: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1834: then
1829: then
1830: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1831: end if;
1832: result := FND_SSO_REGISTRATION.getDefaultRealm;
1833: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1834: then
1835: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1836: end if;
1837: return result;
1831: end if;
1832: result := FND_SSO_REGISTRATION.getDefaultRealm;
1833: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1834: then
1835: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1836: end if;
1837: return result;
1838: EXCEPTION WHEN OTHERS THEN
1839: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1835: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1836: end if;
1837: return result;
1838: EXCEPTION WHEN OTHERS THEN
1839: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1840: then
1841: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1842: end if;
1843: raise;
1837: return result;
1838: EXCEPTION WHEN OTHERS THEN
1839: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1840: then
1841: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
1842: end if;
1843: raise;
1844:
1845: END get_default_realm;
1861: BEGIN
1862: validateVersion;
1863: l_module_source := G_MODULE_SOURCE || 'get_realm_dn: ';
1864:
1865: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1866: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1867: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1868: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
1869: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
1862: validateVersion;
1863: l_module_source := G_MODULE_SOURCE || 'get_realm_dn: ';
1864:
1865: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1866: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1867: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1868: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
1869: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
1870: END IF;
1863: l_module_source := G_MODULE_SOURCE || 'get_realm_dn: ';
1864:
1865: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1866: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1867: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1868: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
1869: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
1870: END IF;
1871: END IF;
1864:
1865: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1866: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1867: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1868: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
1869: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
1870: END IF;
1871: END IF;
1872:
1865: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1866: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1867: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1868: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'guid:'||p_user_guid);
1869: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'username:'||p_user_name);
1870: END IF;
1871: END IF;
1872:
1873: IF (p_user_guid IS NULL AND p_user_name IS NULL) THEN
1870: END IF;
1871: END IF;
1872:
1873: IF (p_user_guid IS NULL AND p_user_name IS NULL) THEN
1874: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1875: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'No guid or username=> returning the default realm');
1876: END IF;
1877: result:= FND_OID_PLUG.get_default_realm;
1878: ELSE
1871: END IF;
1872:
1873: IF (p_user_guid IS NULL AND p_user_name IS NULL) THEN
1874: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1875: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'No guid or username=> returning the default realm');
1876: END IF;
1877: result:= FND_OID_PLUG.get_default_realm;
1878: ELSE
1879: ldap := fnd_ldap_util.c_get_oid_session(flag);
1878: ELSE
1879: ldap := fnd_ldap_util.c_get_oid_session(flag);
1880: l_session_flag := true; /* fix for bug 8271359 */
1881:
1882: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1883: then
1884: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
1885: end if;
1886:
1880: l_session_flag := true; /* fix for bug 8271359 */
1881:
1882: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1883: then
1884: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
1885: end if;
1886:
1887: result := NULL;
1888:
1886:
1887: result := NULL;
1888:
1889: IF (p_user_guid IS NOT NULL) THEN
1890: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1891: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Attempt to retreive the actual realm for that guid');
1892: END IF;
1893: l_dn := get_entry_dn(ldap,p_user_guid);
1894: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1887: result := NULL;
1888:
1889: IF (p_user_guid IS NOT NULL) THEN
1890: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1891: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Attempt to retreive the actual realm for that guid');
1892: END IF;
1893: l_dn := get_entry_dn(ldap,p_user_guid);
1894: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1895: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN:'||l_dn);
1890: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1891: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Attempt to retreive the actual realm for that guid');
1892: END IF;
1893: l_dn := get_entry_dn(ldap,p_user_guid);
1894: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1895: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN:'||l_dn);
1896: END IF;
1897: result :=get_realm_from_user_dn(ldap,l_dn);
1898: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1891: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Attempt to retreive the actual realm for that guid');
1892: END IF;
1893: l_dn := get_entry_dn(ldap,p_user_guid);
1894: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1895: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN:'||l_dn);
1896: END IF;
1897: result :=get_realm_from_user_dn(ldap,l_dn);
1898: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1899: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'GUID: realm:'||result);
1894: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1895: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN:'||l_dn);
1896: END IF;
1897: result :=get_realm_from_user_dn(ldap,l_dn);
1898: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1899: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'GUID: realm:'||result);
1900: END IF;
1901: END IF;
1902: IF (result IS NULL AND p_user_name IS NOT NULL) THEN
1895: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN:'||l_dn);
1896: END IF;
1897: result :=get_realm_from_user_dn(ldap,l_dn);
1898: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1899: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'GUID: realm:'||result);
1900: END IF;
1901: END IF;
1902: IF (result IS NULL AND p_user_name IS NOT NULL) THEN
1903: result := getRealmDN(p_user_name);
1900: END IF;
1901: END IF;
1902: IF (result IS NULL AND p_user_name IS NOT NULL) THEN
1903: result := getRealmDN(p_user_name);
1904: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1905: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Using username, realm:'||result);
1906: END IF;
1907: END IF;
1908: IF (result IS NULL) THEN
1901: END IF;
1902: IF (result IS NULL AND p_user_name IS NOT NULL) THEN
1903: result := getRealmDN(p_user_name);
1904: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1905: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Using username, realm:'||result);
1906: END IF;
1907: END IF;
1908: IF (result IS NULL) THEN
1909: result := get_default_realm;
1906: END IF;
1907: END IF;
1908: IF (result IS NULL) THEN
1909: result := get_default_realm;
1910: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1911: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'fallback to default realm:'||result);
1912: END IF;
1913: END IF;
1914: fnd_ldap_util.c_unbind(ldap,flag);
1907: END IF;
1908: IF (result IS NULL) THEN
1909: result := get_default_realm;
1910: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1911: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'fallback to default realm:'||result);
1912: END IF;
1913: END IF;
1914: fnd_ldap_util.c_unbind(ldap,flag);
1915: l_session_flag := false;
1912: END IF;
1913: END IF;
1914: fnd_ldap_util.c_unbind(ldap,flag);
1915: l_session_flag := false;
1916: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1917: then
1918: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1919: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1920: end if;
1914: fnd_ldap_util.c_unbind(ldap,flag);
1915: l_session_flag := false;
1916: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1917: then
1918: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1919: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1920: end if;
1921:
1922: END IF;
1915: l_session_flag := false;
1916: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1917: then
1918: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
1919: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1920: end if;
1921:
1922: END IF;
1923: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1919: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
1920: end if;
1921:
1922: END IF;
1923: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1924: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1925: END IF;
1926: RETURN result;
1927: EXCEPTION WHEN OTHERS THEN
1920: end if;
1921:
1922: END IF;
1923: IF (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1924: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END ->'||result);
1925: END IF;
1926: RETURN result;
1927: EXCEPTION WHEN OTHERS THEN
1928: if l_session_flag = true then
1925: END IF;
1926: RETURN result;
1927: EXCEPTION WHEN OTHERS THEN
1928: if l_session_flag = true then
1929: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1930: then
1931: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1932: end if;
1933: fnd_ldap_util.c_unbind(ldap,flag);
1927: EXCEPTION WHEN OTHERS THEN
1928: if l_session_flag = true then
1929: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1930: then
1931: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1932: end if;
1933: fnd_ldap_util.c_unbind(ldap,flag);
1934:
1935: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1931: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
1932: end if;
1933: fnd_ldap_util.c_unbind(ldap,flag);
1934:
1935: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1936: then
1937: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1938: end if;
1939: end if;
1933: fnd_ldap_util.c_unbind(ldap,flag);
1934:
1935: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1936: then
1937: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1938: end if;
1939: end if;
1940: IF (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1941: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'END ->'||sqlerrm);
1936: then
1937: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1938: end if;
1939: end if;
1940: IF (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1941: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'END ->'||sqlerrm);
1942: END IF;
1943: raise;
1944: END get_realm_dn;
1937: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
1938: end if;
1939: end if;
1940: IF (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
1941: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'END ->'||sqlerrm);
1942: END IF;
1943: raise;
1944: END get_realm_dn;
1945:
1953: l_module_source varchar2(4000);
1954: begin
1955: l_module_source := G_MODULE_SOURCE || 'count_attributes: ';
1956:
1957: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1958: then
1959: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1960: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1961: then
1955: l_module_source := G_MODULE_SOURCE || 'count_attributes: ';
1956:
1957: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1958: then
1959: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1960: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1961: then
1962: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
1963: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
1956:
1957: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1958: then
1959: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1960: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1961: then
1962: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
1963: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
1964: end if;
1958: then
1959: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1960: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1961: then
1962: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
1963: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
1964: end if;
1965: end if;
1966: l_attrs(0):= attName;
1959: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
1960: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1961: then
1962: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn:'||dn);
1963: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'attribute:'||attName);
1964: end if;
1965: end if;
1966: l_attrs(0):= attName;
1967: l_result := dbms_ldap.search_s(ld => ldap
1972: , attronly => 0
1973: , res => l_message);
1974: l_entry := dbms_ldap.first_entry(ldap, l_message);
1975: if (l_entry is null ) then
1976: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1977: then
1978: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End(not found)');
1979: end if;
1980: return 0;
1974: l_entry := dbms_ldap.first_entry(ldap, l_message);
1975: if (l_entry is null ) then
1976: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1977: then
1978: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End(not found)');
1979: end if;
1980: return 0;
1981: end if;
1982: l_attrs := dbms_ldap.get_values(ldap, l_entry, attName);
1980: return 0;
1981: end if;
1982: l_attrs := dbms_ldap.get_values(ldap, l_entry, attName);
1983: l_result := l_attrs.count;
1984: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1985: then
1986: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
1987: end if;
1988: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1982: l_attrs := dbms_ldap.get_values(ldap, l_entry, attName);
1983: l_result := l_attrs.count;
1984: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1985: then
1986: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
1987: end if;
1988: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1989: then
1990: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
1984: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1985: then
1986: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
1987: end if;
1988: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1989: then
1990: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
1991: end if;
1992: return l_result;
1986: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'result:'||l_result);
1987: end if;
1988: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1989: then
1990: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END');
1991: end if;
1992: return l_result;
1993:
1994: EXCEPTION when others then
1991: end if;
1992: return l_result;
1993:
1994: EXCEPTION when others then
1995: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1996: then
1997: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
1998: end if;
1999: raise;
1993:
1994: EXCEPTION when others then
1995: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
1996: then
1997: fnd_log.string(fnd_log.LEVEL_UNEXPECTED , l_module_source, 'Error '||sqlerrm);
1998: end if;
1999: raise;
2000: end count_attributes;
2001:
2023: i pls_integer;
2024: BEGIN
2025: l_module_source := G_MODULE_SOURCE || 'getDN: ';
2026:
2027: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2028: then
2029: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
2030: end if;
2031: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2025: l_module_source := G_MODULE_SOURCE || 'getDN: ';
2026:
2027: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2028: then
2029: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
2030: end if;
2031: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2032: then
2033: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Caculating all for "'||p_ldap_user.user_name||'"');
2027: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2028: then
2029: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
2030: end if;
2031: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2032: then
2033: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Caculating all for "'||p_ldap_user.user_name||'"');
2034: end if;
2035:
2029: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
2030: end if;
2031: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2032: then
2033: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Caculating all for "'||p_ldap_user.user_name||'"');
2034: end if;
2035:
2036: p_ldap_user.realmDN:= getRealmDN(p_ldap_user.user_name);
2037: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2033: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Caculating all for "'||p_ldap_user.user_name||'"');
2034: end if;
2035:
2036: p_ldap_user.realmDN:= getRealmDN(p_ldap_user.user_name);
2037: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2038: then
2039: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Realm "'||p_ldap_user.realmDN||'"');
2040: end if;
2041:
2035:
2036: p_ldap_user.realmDN:= getRealmDN(p_ldap_user.user_name);
2037: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2038: then
2039: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Realm "'||p_ldap_user.realmDN||'"');
2040: end if;
2041:
2042:
2043:
2042:
2043:
2044: p_ldap_user.parent_DN := getUserRepository(p_ldap_user);
2045:
2046: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2047: then
2048: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' User repository "'||p_ldap_user.parent_DN||'"');
2049: end if;
2050:
2044: p_ldap_user.parent_DN := getUserRepository(p_ldap_user);
2045:
2046: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2047: then
2048: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' User repository "'||p_ldap_user.parent_DN||'"');
2049: end if;
2050:
2051: name:= getRealmCommonNameAttribute(p_ldap_user.realmDN);
2052: val := p_ldap_user.user_name;
2050:
2051: name:= getRealmCommonNameAttribute(p_ldap_user.realmDN);
2052: val := p_ldap_user.user_name;
2053:
2054: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2055: then
2056: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' CommonName(realm) Attribute "'||name||'"');
2057: end if;
2058:
2052: val := p_ldap_user.user_name;
2053:
2054: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2055: then
2056: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' CommonName(realm) Attribute "'||name||'"');
2057: end if;
2058:
2059: FND_OID_PLUG.getRDN(p_ldap_user.user_name,p_ldap_user.user_id,name,val,replaceFlag);
2060:
2057: end if;
2058:
2059: FND_OID_PLUG.getRDN(p_ldap_user.user_name,p_ldap_user.user_id,name,val,replaceFlag);
2060:
2061: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2062: then
2063: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Custom RDN: '||name||'='||val);
2064: end if;
2065:
2059: FND_OID_PLUG.getRDN(p_ldap_user.user_name,p_ldap_user.user_id,name,val,replaceFlag);
2060:
2061: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2062: then
2063: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Custom RDN: '||name||'='||val);
2064: end if;
2065:
2066:
2067: FND_LDAP_USER.setAttribute(p_ldap_user,name,val,replaceFlag);
2072: p_ldap_user.dn := name||'='||val||','||p_ldap_user.parent_DN ;
2073:
2074: p_ldap_user.NickName_ATT_NAME := getRealmNickNameattr(p_ldap_user.realmDN);
2075:
2076: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2077: then
2078: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Nicknameattribute : '|| p_ldap_user.NickName_ATT_NAME);
2079: end if;
2080:
2074: p_ldap_user.NickName_ATT_NAME := getRealmNickNameattr(p_ldap_user.realmDN);
2075:
2076: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2077: then
2078: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' Nicknameattribute : '|| p_ldap_user.NickName_ATT_NAME);
2079: end if;
2080:
2081: name:=p_ldap_user.NickName_ATT_NAME;
2082: val :=p_ldap_user.user_name;
2081: name:=p_ldap_user.NickName_ATT_NAME;
2082: val :=p_ldap_user.user_name;
2083: FND_LDAP_USER.setAttribute(p_ldap_user,name,val,true);
2084:
2085: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2086: then
2087: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' replaced '|| p_ldap_user.NickName_ATT_NAME||'='||p_ldap_user.user_name);
2088: end if;
2089: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2083: FND_LDAP_USER.setAttribute(p_ldap_user,name,val,true);
2084:
2085: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2086: then
2087: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' replaced '|| p_ldap_user.NickName_ATT_NAME||'='||p_ldap_user.user_name);
2088: end if;
2089: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2090: then
2091: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END->'||p_ldap_user.dn);
2085: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2086: then
2087: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' replaced '|| p_ldap_user.NickName_ATT_NAME||'='||p_ldap_user.user_name);
2088: end if;
2089: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2090: then
2091: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END->'||p_ldap_user.dn);
2092: end if;
2093: return p_ldap_user.dn;
2087: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, ' replaced '|| p_ldap_user.NickName_ATT_NAME||'='||p_ldap_user.user_name);
2088: end if;
2089: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2090: then
2091: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'END->'||p_ldap_user.dn);
2092: end if;
2093: return p_ldap_user.dn;
2094:
2095: EXCEPTION WHEN OTHERS THEN
2092: end if;
2093: return p_ldap_user.dn;
2094:
2095: EXCEPTION WHEN OTHERS THEN
2096: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2097: then
2098: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, sqlerrm);
2099: end if;
2100: raise;
2094:
2095: EXCEPTION WHEN OTHERS THEN
2096: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2097: then
2098: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, sqlerrm);
2099: end if;
2100: raise;
2101: END getDN;
2102:
2138:
2139: begin
2140: l_module_source := G_MODULE_SOURCE || 'completeForCreate: ';
2141:
2142: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2143: then
2144: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN:'||p_ldap_user.dn);
2145: end if;
2146:
2140: l_module_source := G_MODULE_SOURCE || 'completeForCreate: ';
2141:
2142: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2143: then
2144: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'BEGIN:'||p_ldap_user.dn);
2145: end if;
2146:
2147: validateVersion;
2148:
2147: validateVersion;
2148:
2149: if (p_ldap_user.realmDN is null) THEN
2150: p_ldap_user.realmDN := getNewUserRealm(p_ldap_user.user_name);
2151: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2152: then
2153: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN set to:'||p_ldap_user.realmDN);
2154: end if;
2155: END IF;
2149: if (p_ldap_user.realmDN is null) THEN
2150: p_ldap_user.realmDN := getNewUserRealm(p_ldap_user.user_name);
2151: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2152: then
2153: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RealmDN set to:'||p_ldap_user.realmDN);
2154: end if;
2155: END IF;
2156: if (p_ldap_user.parent_DN is null) THEN
2157: p_ldap_user.parent_DN :=getUserRepository(p_ldap_user);
2154: end if;
2155: END IF;
2156: if (p_ldap_user.parent_DN is null) THEN
2157: p_ldap_user.parent_DN :=getUserRepository(p_ldap_user);
2158: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2159: then
2160: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'parent_DN set to:'||p_ldap_user.parent_DN);
2161: end if;
2162:
2156: if (p_ldap_user.parent_DN is null) THEN
2157: p_ldap_user.parent_DN :=getUserRepository(p_ldap_user);
2158: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2159: then
2160: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'parent_DN set to:'||p_ldap_user.parent_DN);
2161: end if;
2162:
2163: END IF ;
2164: if (p_ldap_user.NickName_ATT_NAME is null ) THEN
2162:
2163: END IF ;
2164: if (p_ldap_user.NickName_ATT_NAME is null ) THEN
2165: p_ldap_user.NickName_ATT_NAME :=FND_SSO_REGISTRATION.get_realm_attribute(p_ldap_user.realmDN,'orclCommonNickNameAttribute');
2166: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2167: then
2168: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'NickName_ATT_NAME set to:'||p_ldap_user.NickName_ATT_NAME);
2169: end if;
2170: END IF;
2164: if (p_ldap_user.NickName_ATT_NAME is null ) THEN
2165: p_ldap_user.NickName_ATT_NAME :=FND_SSO_REGISTRATION.get_realm_attribute(p_ldap_user.realmDN,'orclCommonNickNameAttribute');
2166: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2167: then
2168: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'NickName_ATT_NAME set to:'||p_ldap_user.NickName_ATT_NAME);
2169: end if;
2170: END IF;
2171: iF (p_ldap_user.RDN_ATT_NAME is null or p_ldap_user.RDN_VALUE is null ) THEN
2172: getRDN(p_ldap_user.user_name,p_ldap_user.user_id,
2172: getRDN(p_ldap_user.user_name,p_ldap_user.user_id,
2173: rdn,val, replaceFlag );
2174: p_ldap_user.RDN_ATT_NAME:= rdn;
2175: p_ldap_user.RDN_VALUE:=val;
2176: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2177: then
2178: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RND set to:'||p_ldap_user.RDN_ATT_NAME||'='||p_ldap_user.RDN_VALUE);
2179: end if;
2180:
2174: p_ldap_user.RDN_ATT_NAME:= rdn;
2175: p_ldap_user.RDN_VALUE:=val;
2176: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2177: then
2178: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'RND set to:'||p_ldap_user.RDN_ATT_NAME||'='||p_ldap_user.RDN_VALUE);
2179: end if;
2180:
2181: FND_LDAP_USER.setAttribute(p_ldap_user, rdn,val,replaceFlag);
2182:
2182:
2183: END IF;
2184: p_ldap_user.dn := p_ldap_user.RDN_ATT_NAME||'='||p_ldap_user.RDN_VALUE
2185: ||','|| p_ldap_user.parent_DN;
2186: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2187: then
2188: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn set to:'||p_ldap_user.dn);
2189: end if;
2190:
2184: p_ldap_user.dn := p_ldap_user.RDN_ATT_NAME||'='||p_ldap_user.RDN_VALUE
2185: ||','|| p_ldap_user.parent_DN;
2186: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2187: then
2188: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'dn set to:'||p_ldap_user.dn);
2189: end if;
2190:
2191:
2192: EXCEPTION WHEN OTHERS THEN
2189: end if;
2190:
2191:
2192: EXCEPTION WHEN OTHERS THEN
2193: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2194: then
2195: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, sqlerrm);
2196: end if;
2197: raise;
2191:
2192: EXCEPTION WHEN OTHERS THEN
2193: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2194: then
2195: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, sqlerrm);
2196: end if;
2197: raise;
2198: end completeForCreate;
2199:
2222: ELSE
2223: raise NO_DATA_FOUND;
2224: END IF;
2225: EXCEPTION WHEN OTHERS THEN
2226: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2227: then
2228: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
2229: end if;
2230: raise;
2224: END IF;
2225: EXCEPTION WHEN OTHERS THEN
2226: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
2227: then
2228: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION:'||sqlerrm);
2229: end if;
2230: raise;
2231:
2232: END getRealmList;
2238: BEGIN
2239: -- DataCreationFixup
2240: IF getOption('FIXUP',opt ) THEN
2241: IF opt.opt_mode=G_DYNAMIC THEN
2242: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
2243: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Calling Dynamic Fixup:'||opt.val);
2244: END IF;
2245: copyData(p_ldap_user.user_data,user_data);
2246: EXECUTE immediate opt.val USING IN p_ldap_user.user_id, IN p_ldap_user.user_name,
2239: -- DataCreationFixup
2240: IF getOption('FIXUP',opt ) THEN
2241: IF opt.opt_mode=G_DYNAMIC THEN
2242: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
2243: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Calling Dynamic Fixup:'||opt.val);
2244: END IF;
2245: copyData(p_ldap_user.user_data,user_data);
2246: EXECUTE immediate opt.val USING IN p_ldap_user.user_id, IN p_ldap_user.user_name,
2247: IN operation;
2246: EXECUTE immediate opt.val USING IN p_ldap_user.user_id, IN p_ldap_user.user_name,
2247: IN operation;
2248: copyData(user_data,p_ldap_user.user_data);
2249:
2250: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
2251: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Returned from Fixup');
2252: END IF;
2253: END IF;
2254: END IF;
2247: IN operation;
2248: copyData(user_data,p_ldap_user.user_data);
2249:
2250: IF (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
2251: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Returned from Fixup');
2252: END IF;
2253: END IF;
2254: END IF;
2255: END FixupLDAPUser;