DBA Data[Home] [Help]

APPS.FND_SSO_REGISTRATION dependencies on FND_LDAP_UTIL

Line 24: ldap_data FND_LDAP_UTIL.ldap_record_type

20: dn varchar2(4000) ,
21: loaded boolean,
22: appsToOiD permited_operation,
23: oidToApps permited_operation,
24: ldap_data FND_LDAP_UTIL.ldap_record_type
25: )
26: ;
27:
28: type realm_table_type is table of realm_type index by binary_integer;

Line 208: ldap := fnd_ldap_util.c_get_oid_session(flag);

204: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
205: then
206: fnd_log.string(fnd_log.LEVEL_PROCEDURe, l_module_source, 'BEGIN' );
207: end if;
208: ldap := fnd_ldap_util.c_get_oid_session(flag);
209: l_session_flag := true; /* fix for bug 8271359 */
210: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
211: then
212: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'DN='||r.dn );

Line 217: IF NOT FND_LDAP_UTIL.loadldaprecord(ldap,r.ldap_data.data,r.ldap_data.dn,'cn=Common,cn=Products,cn=OracleContext,'||r.dn,FND_LDAP_UTIL.G_DN_KEY) THEN

213: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
214: end if;
215:
216: r.guid := getAttribute(ldap,r.dn,'orclGuid');
217: IF NOT FND_LDAP_UTIL.loadldaprecord(ldap,r.ldap_data.data,r.ldap_data.dn,'cn=Common,cn=Products,cn=OracleContext,'||r.dn,FND_LDAP_UTIL.G_DN_KEY) THEN
218: -- cannot find the specified REalm
219: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
220: then
221: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, 'FND_SSO_REGISTRATION.load_realm', 'Requested Realm not found dn="'||r.dn||'"');

Line 229: appdn := fnd_ldap_util.get_orclappname;

225:
226: if (r.guid is null) then
227: raise no_data_found;
228: end if;
229: appdn := fnd_ldap_util.get_orclappname;
230: appguid :=fnd_ldap_util.get_guid_for_dn(ldap,appdn);
231: provProfileDn := 'orclODIPProfileName='||r.guid||'_'||appguid||',cn=Provisioning Profiles, cn=Changelog Subscriber, cn=Oracle Internet Directory';
232: -- does the provisioning profile exists
233: provStatus := getAttribute(ldap,provProfileDn,'orclStatus','objectclass=orclODIPProvisioningIntegrationProfileV2');

Line 230: appguid :=fnd_ldap_util.get_guid_for_dn(ldap,appdn);

226: if (r.guid is null) then
227: raise no_data_found;
228: end if;
229: appdn := fnd_ldap_util.get_orclappname;
230: appguid :=fnd_ldap_util.get_guid_for_dn(ldap,appdn);
231: provProfileDn := 'orclODIPProfileName='||r.guid||'_'||appguid||',cn=Provisioning Profiles, cn=Changelog Subscriber, cn=Oracle Internet Directory';
232: -- does the provisioning profile exists
233: provStatus := getAttribute(ldap,provProfileDn,'orclStatus','objectclass=orclODIPProvisioningIntegrationProfileV2');
234: if (provStatus is null or provStatus<>'ENABLED')

Line 256: fnd_ldap_util.c_unbind(ldap,flag);

252: else
253: r.appsToOiD := parse_ops(ldap, 'cn=ApplicationToOID,'||provProfileDn, 'orclodipprovisioningeventpermittedoperations');
254: end if;
255: end if;
256: fnd_ldap_util.c_unbind(ldap,flag);
257: l_session_flag := false;
258: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
259: then
260: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );

Line 282: fnd_ldap_util.c_unbind(ldap,flag);

278: then
279: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
280: end if;
281:
282: fnd_ldap_util.c_unbind(ldap,flag);
283:
284: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
285: then
286: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');

Line 425: function get_realm_data ( realm_idx in pls_integer ) return FND_LDAP_UTIL.ldap_record_type

421: END IF;
422:
423: end find_realm;
424:
425: function get_realm_data ( realm_idx in pls_integer ) return FND_LDAP_UTIL.ldap_record_type
426: is
427: BEGIN
428: if (realm_table.exists(realm_idx) ) then
429: return realm_table(realm_idx).ldap_data;

Line 438: l FND_LDAP_UTIL.ldap_record_type;

434:
435: function get_realm_attribute( realm_idx in pls_integer,
436: attName in varchar2, att_idx in pls_integer default 0 ) return varchar2
437: is
438: l FND_LDAP_UTIL.ldap_record_type;
439: BEGIN
440: l := get_realm_data(realm_idx);
441: if (l.data.exists(lower(attName)) ) THEN
442: return l.data(lower(attName))(att_idx);

Line 522: return fnd_ldap_util.G_SUCCESS;

518:
519: END if;
520:
521: if res then
522: return fnd_ldap_util.G_SUCCESS;
523: else
524: return fnd_ldap_util.G_FAILURE;
525: end if;
526:

Line 524: return fnd_ldap_util.G_FAILURE;

520:
521: if res then
522: return fnd_ldap_util.G_SUCCESS;
523: else
524: return fnd_ldap_util.G_FAILURE;
525: end if;
526:
527: END check_operation;
528: --

Line 545: return fnd_ldap_util.G_FAILURE;

541: begin
542: l_module_source := G_MODULE_SOURCE||'is_in_list';
543:
544: if (at_list is null) then
545: return fnd_ldap_util.G_FAILURE;
546: end if;
547:
548: if (at_list = '*') then
549: return fnd_ldap_util.G_SUCCESS;

Line 549: return fnd_ldap_util.G_SUCCESS;

545: return fnd_ldap_util.G_FAILURE;
546: end if;
547:
548: if (at_list = '*') then
549: return fnd_ldap_util.G_SUCCESS;
550: end if;
551:
552: -- Bug 8657894 - lowering attributes to ensure no case sensitivity
553: v_atr := lower(atr);

Line 566: return fnd_ldap_util.G_SUCCESS;

562: -- Bug 8764215 - return success when an attribute is found, else keep processing
563: -- the rest of the attributes in the list. Added additional logging.
564:
565: if (instr(v_at_list,v_atr) > 0) then
566: return fnd_ldap_util.G_SUCCESS;
567: else
568: return fnd_ldap_util.G_FAILURE;
569: end if;
570: else

Line 568: return fnd_ldap_util.G_FAILURE;

564:
565: if (instr(v_at_list,v_atr) > 0) then
566: return fnd_ldap_util.G_SUCCESS;
567: else
568: return fnd_ldap_util.G_FAILURE;
569: end if;
570: else
571: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
572: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'Multiple attributes passed: '||v_atr);

Line 591: return fnd_ldap_util.G_SUCCESS;

587: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
588: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'Attribute is in list '||s);
589: end if;
590:
591: return fnd_ldap_util.G_SUCCESS;
592: -- return fnd_ldap_util.G_FAILURE;
593: else
594: is_present := false;
595: end if;

Line 592: -- return fnd_ldap_util.G_FAILURE;

588: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'Attribute is in list '||s);
589: end if;
590:
591: return fnd_ldap_util.G_SUCCESS;
592: -- return fnd_ldap_util.G_FAILURE;
593: else
594: is_present := false;
595: end if;
596: exit when j =0;

Line 607: return fnd_ldap_util.G_SUCCESS;

603: end if;
604: end loop;
605: end if;
606: if (is_present) then
607: return fnd_ldap_util.G_SUCCESS;
608: else
609: return fnd_ldap_util.G_FAILURE;
610: end if;
611: END is_in_list;

Line 609: return fnd_ldap_util.G_FAILURE;

605: end if;
606: if (is_present) then
607: return fnd_ldap_util.G_SUCCESS;
608: else
609: return fnd_ldap_util.G_FAILURE;
610: end if;
611: END is_in_list;
612: --
613: -------------------------------------------------------------------------------

Line 675: x_fnd_user :=fnd_ldap_util.G_SUCCESS;

671: l_realm_dn varchar2(4000);
672: l_index pls_integer;
673: l_allowed permited_operation;
674: begin
675: x_fnd_user :=fnd_ldap_util.G_SUCCESS;
676: x_oid := fnd_ldap_util.G_FAILURE;
677: l_module_source := G_MODULE_SOURCE || 'is_operation_allowed: ';
678: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
679: then

Line 676: x_oid := fnd_ldap_util.G_FAILURE;

672: l_index pls_integer;
673: l_allowed permited_operation;
674: begin
675: x_fnd_user :=fnd_ldap_util.G_SUCCESS;
676: x_oid := fnd_ldap_util.G_FAILURE;
677: l_module_source := G_MODULE_SOURCE || 'is_operation_allowed: ';
678: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
679: then
680: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');

Line 706: x_oid := fnd_ldap_util.G_FAILURE;

702: end if;
703: raise case_not_found;
704: END CASE;
705: if (NOT l_allowed.enabled) then
706: x_oid := fnd_ldap_util.G_FAILURE;
707: else
708: if(p_entity = fnd_ldap_wrapper.G_IDENTITY) THEN
709: CASE p_operation
710: WHEN fnd_ldap_wrapper.G_ADD THEN l_list := l_allowed.identity_add;

Line 830: ldap := fnd_ldap_util.c_get_oid_session(flag);

826: realm varchar2(4000);
827: */
828: BEGIN
829: l_module_source := G_MODULE_SOURCE || 'getGuidRealm: ';
830: ldap := fnd_ldap_util.c_get_oid_session(flag);
831: l_session_flag := true; /* fix for bug 8271359 */
832: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
833: then
834: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );

Line 837: dn := FND_LDAP_UTIL.get_dn_for_guid(l_guid,ldap);

833: then
834: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
835: end if;
836:
837: dn := FND_LDAP_UTIL.get_dn_for_guid(l_guid,ldap);
838: realm_idx := getUserRealmIndex(dn);
839:
840: -- Bug 8661715 Potential ldap leak
841: fnd_ldap_util.c_unbind(ldap,flag);

Line 841: fnd_ldap_util.c_unbind(ldap,flag);

837: dn := FND_LDAP_UTIL.get_dn_for_guid(l_guid,ldap);
838: realm_idx := getUserRealmIndex(dn);
839:
840: -- Bug 8661715 Potential ldap leak
841: fnd_ldap_util.c_unbind(ldap,flag);
842: l_session_flag := false;
843: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
844: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
845: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );

Line 856: fnd_ldap_util.c_unbind(ldap,flag);

852: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
853: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
854: end if;
855:
856: fnd_ldap_util.c_unbind(ldap,flag);
857:
858: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
859: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
860: end if;

Line 883: ldap := fnd_ldap_util.c_get_oid_session(flag);

879:
880: IF (defaultRealm_cache is null) THEN
881:
882: if (ldap is null) then
883: ldap := fnd_ldap_util.c_get_oid_session(flag);
884: l_session_flag := true; /* fix for bug 8271359 */
885:
886: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
887: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );

Line 891: defaultRealm_cache := fnd_ldap_util.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','OrclDefaultSubscriber');

887: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
888: end if;
889: end if;
890:
891: defaultRealm_cache := fnd_ldap_util.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','OrclDefaultSubscriber');
892:
893: if (l_session_flag=true) then
894: fnd_ldap_util.c_unbind(ldap,flag);
895: l_session_flag := false;

Line 894: fnd_ldap_util.c_unbind(ldap,flag);

890:
891: defaultRealm_cache := fnd_ldap_util.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','OrclDefaultSubscriber');
892:
893: if (l_session_flag=true) then
894: fnd_ldap_util.c_unbind(ldap,flag);
895: l_session_flag := false;
896:
897: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
898: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );

Line 912: fnd_ldap_util.c_unbind(ldap,flag);

908: if l_session_flag = true then
909: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
910: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
911: end if;
912: fnd_ldap_util.c_unbind(ldap,flag);
913:
914: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
915: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
916: end if;

Line 939: ldap := fnd_ldap_util.c_get_oid_session(flag);

935: BEGIN
936: l_module_source := G_MODULE_SOURCE || 'getDefaultRealm: ';
937:
938: IF (defaultRealm_cache is null) THEN
939: ldap := fnd_ldap_util.c_get_oid_session(flag);
940: l_session_flag := true; /* fix for bug 8271359 */
941:
942: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
943: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );

Line 947: fnd_ldap_util.c_unbind(ldap,flag);

943: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
944: end if;
945:
946: defaultRealm_cache := getDefaultRealm(ldap);
947: fnd_ldap_util.c_unbind(ldap,flag);
948: l_session_flag := false;
949:
950: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
951: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );

Line 962: fnd_ldap_util.c_unbind(ldap,flag);

958: if l_session_flag = true then
959: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL) 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) then
965: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
966: end if;