200: l_session_flag boolean := false;
201: begin
202: l_module_source := G_MODULE_SOURCE||'load_realm';
203:
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);
202: l_module_source := G_MODULE_SOURCE||'load_realm';
203:
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)
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 );
213: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag = true ' );
214: 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 );
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');
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 );
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
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||'"');
222: end if;
223: raise no_data_found;
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||'"');
222: end if;
223: raise no_data_found;
224: END IF;
225:
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 ' );
261: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
262: 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 ' );
261: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
262: end if;
263: r.loaded := true;
264: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
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 ' );
261: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
262: end if;
263: r.loaded := true;
264: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
265: then
260: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'l_session_flag : = false ' );
261: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
262: end if;
263: r.loaded := true;
264: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
265: then
266: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'END');
267: end if;
268: exception
262: end if;
263: r.loaded := true;
264: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
265: then
266: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'END');
267: end if;
268: exception
269: when others then
270: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
266: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'END');
267: end if;
268: exception
269: when others then
270: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
271: then
272: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
273: end if;
274: /* Fix for 8271359*/
268: exception
269: when others then
270: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
271: then
272: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, sqlerrm);
273: end if;
274: /* Fix for 8271359*/
275: if l_session_flag = true then
276:
273: end if;
274: /* Fix for 8271359*/
275: if l_session_flag = true then
276:
277: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
278: then
279: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closing in EXCEPTION BLOCK - START ' );
280: end if;
281:
275: if l_session_flag = true then
276:
277: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
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:
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 ');
287: end if;
288: end if;
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 ');
287: end if;
288: end if;
289: raise;
290: end load_realm;
500: WHEN fnd_ldap_wrapper.G_MODIFY THEN res:= (allowed_op.identity_update is not null ) and (allowed_op.subscription_update is not null) ;
501: WHEN fnd_ldap_wrapper.G_DELETE THEN res:= (allowed_op.identity_delete is not null ) and (allowed_op.subscription_delete is not null) ;
502: ELSE
503:
504: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
505: then
506: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation: op='||op);
507: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
508: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_CREATE ='||fnd_ldap_wrapper.G_CREATE );
502: ELSE
503:
504: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
505: then
506: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation: op='||op);
507: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
508: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_CREATE ='||fnd_ldap_wrapper.G_CREATE );
509: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
510: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
503:
504: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
505: then
506: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation: op='||op);
507: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
508: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_CREATE ='||fnd_ldap_wrapper.G_CREATE );
509: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
510: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
511: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
504: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
505: then
506: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation: op='||op);
507: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
508: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_CREATE ='||fnd_ldap_wrapper.G_CREATE );
509: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
510: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
511: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
512:
505: then
506: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation: op='||op);
507: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
508: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_CREATE ='||fnd_ldap_wrapper.G_CREATE );
509: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
510: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
511: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
512:
513: end if;
506: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation: op='||op);
507: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
508: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_CREATE ='||fnd_ldap_wrapper.G_CREATE );
509: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
510: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
511: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
512:
513: end if;
514: end if;
507: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
508: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_CREATE ='||fnd_ldap_wrapper.G_CREATE );
509: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
510: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
511: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
512:
513: end if;
514: end if;
515:
555:
556: i:= 1;
557: j:= instr(v_atr,',');
558: if (j=0) then
559: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
560: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'One attribute passed: '||v_atr);
561: end if;
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.
556: i:= 1;
557: j:= instr(v_atr,',');
558: if (j=0) then
559: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
560: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'One attribute passed: '||v_atr);
561: end if;
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:
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);
573: end if;
574:
575: s := substr(v_atr,i,j-i);
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);
573: end if;
574:
575: s := substr(v_atr,i,j-i);
576: loop
573: end if;
574:
575: s := substr(v_atr,i,j-i);
576: loop
577: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
578: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'Check for attribute '||s);
579: end if;
580:
581: -- Bug 8764215 - looking for the attribute in the list. May or may not be surrounded by commas
574:
575: s := substr(v_atr,i,j-i);
576: loop
577: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
578: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'Check for attribute '||s);
579: end if;
580:
581: -- Bug 8764215 - looking for the attribute in the list. May or may not be surrounded by commas
582: -- return success once an attribute is found, else keep processing the rest of the attributes
583: -- in the list. Added additional logging.
584:
585:
586: if (instr(','||v_at_list||',',','||s||',')>0) then
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;
584:
585:
586: if (instr(','||v_at_list||',',','||s||',')>0) then
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;
621: l_realm_dn varchar2(4000);
622: l_index pls_integer;
623: begin
624: l_module_source := G_MODULE_SOURCE || 'is_operation_allowed: ';
625: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
626: then
627: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
628: end if;
629:
623: begin
624: l_module_source := G_MODULE_SOURCE || 'is_operation_allowed: ';
625: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
626: then
627: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
628: end if;
629:
630: l_realm_dn := requestedRealm(p_user_name,p_realm_dn);
631: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
627: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
628: end if;
629:
630: l_realm_dn := requestedRealm(p_user_name,p_realm_dn);
631: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
632: then
633: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm_dn);
634: end if;
635:
629:
630: l_realm_dn := requestedRealm(p_user_name,p_realm_dn);
631: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
632: then
633: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm_dn);
634: end if;
635:
636: l_index := find_realm(l_realm_dn);
637:
638: x_fnd_user := check_operation(realm_table(l_index).appsToOiD,p_operation);
639: x_oid := check_operation(realm_table(l_index).oidToApps,p_operation);
640:
641:
642: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
643: then
644: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'out values x_fnd_user: '||x_fnd_user||' x_oid: '||x_oid);
645: end if;
646:
640:
641:
642: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
643: then
644: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'out values x_fnd_user: '||x_fnd_user||' x_oid: '||x_oid);
645: end if;
646:
647: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
648: then
643: then
644: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,'out values x_fnd_user: '||x_fnd_user||' x_oid: '||x_oid);
645: end if;
646:
647: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
648: then
649: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
650: end if;
651:
645: end if;
646:
647: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
648: then
649: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
650: end if;
651:
652: exception when others then
653: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
649: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
650: end if;
651:
652: exception when others then
653: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
654: then
655: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
656: end if;
657: raise;
651:
652: exception when others then
653: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
654: then
655: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
656: end if;
657: raise;
658: end is_operation_allowed;
659:
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');
681: end if;
682:
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');
681: end if;
682:
683: l_realm_dn := requestedRealm(p_user_name,p_realm_dn);
684: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
680: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Begin');
681: end if;
682:
683: l_realm_dn := requestedRealm(p_user_name,p_realm_dn);
684: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
685: then
686: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm_dn);
687: end if;
688:
682:
683: l_realm_dn := requestedRealm(p_user_name,p_realm_dn);
684: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
685: then
686: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'realm:'||l_realm_dn);
687: end if;
688:
689: l_index := find_realm(l_realm_dn);
690: CASE p_direction
690: CASE p_direction
691: WHEN fnd_ldap_wrapper.G_EBIZ_TO_OID then l_allowed := realm_table(l_index).appsToOiD;
692: WHEN fnd_ldap_wrapper.G_OID_TO_EBIZ then l_allowed := realm_table(l_index).OidToApps;
693: ELSE
694: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
695: then
696: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid direction:'||p_direction);
697: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
698: then
692: WHEN fnd_ldap_wrapper.G_OID_TO_EBIZ then l_allowed := realm_table(l_index).OidToApps;
693: ELSE
694: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
695: then
696: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid direction:'||p_direction);
697: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
698: then
699: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_EBIZ_TO_OID ='||fnd_ldap_wrapper.G_EBIZ_TO_OID );
700: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_OID_TO_EBIZ ='||fnd_ldap_wrapper.G_OID_TO_EBIZ );
693: ELSE
694: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
695: then
696: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid direction:'||p_direction);
697: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
698: then
699: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_EBIZ_TO_OID ='||fnd_ldap_wrapper.G_EBIZ_TO_OID );
700: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_OID_TO_EBIZ ='||fnd_ldap_wrapper.G_OID_TO_EBIZ );
701: end if;
695: then
696: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid direction:'||p_direction);
697: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
698: then
699: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_EBIZ_TO_OID ='||fnd_ldap_wrapper.G_EBIZ_TO_OID );
700: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_OID_TO_EBIZ ='||fnd_ldap_wrapper.G_OID_TO_EBIZ );
701: end if;
702: end if;
703: raise case_not_found;
696: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid direction:'||p_direction);
697: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
698: then
699: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_EBIZ_TO_OID ='||fnd_ldap_wrapper.G_EBIZ_TO_OID );
700: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid opertaion fnd_ldap_wrapper.G_OID_TO_EBIZ ='||fnd_ldap_wrapper.G_OID_TO_EBIZ );
701: end if;
702: end if;
703: raise case_not_found;
704: END CASE;
711: WHEN fnd_ldap_wrapper.G_UPDATE THEN l_list := l_allowed.identity_update;
712: WHEN fnd_ldap_wrapper.G_MODIFY THEN l_list := l_allowed.identity_update;
713: WHEN fnd_ldap_wrapper.G_DELETE THEN l_list := l_allowed.identity_delete;
714: ELSE
715: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
716: then
717: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
718: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
719: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
713: WHEN fnd_ldap_wrapper.G_DELETE THEN l_list := l_allowed.identity_delete;
714: ELSE
715: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
716: then
717: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
718: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
719: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
720: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
721: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
714: ELSE
715: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
716: then
717: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
718: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
719: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
720: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
721: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
722: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
715: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
716: then
717: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
718: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
719: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
720: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
721: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
722: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
723: end if;
716: then
717: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
718: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
719: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
720: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
721: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
722: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
723: end if;
724: end if;
717: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
718: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
719: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
720: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
721: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
722: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
723: end if;
724: end if;
725:
718: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
719: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
720: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
721: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
722: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
723: end if;
724: end if;
725:
726: raise case_not_found;
732: WHEN fnd_ldap_wrapper.G_UPDATE THEN l_list := l_allowed.subscription_update;
733: WHEN fnd_ldap_wrapper.G_MODIFY THEN l_list := l_allowed.subscription_update;
734: WHEN fnd_ldap_wrapper.G_DELETE THEN l_list := l_allowed.subscription_delete;
735: ELSE
736: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
737: then
738: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
739: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
740: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
734: WHEN fnd_ldap_wrapper.G_DELETE THEN l_list := l_allowed.subscription_delete;
735: ELSE
736: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
737: then
738: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
739: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
740: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
741: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
742: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
735: ELSE
736: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
737: then
738: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
739: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
740: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
741: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
742: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
743: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
736: if (fnd_log.LEVEL_UNEXPECTED >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
737: then
738: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
739: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
740: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
741: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
742: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
743: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
744: end if;
737: then
738: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
739: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
740: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
741: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
742: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
743: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
744: end if;
745: end if;
738: fnd_log.string(fnd_log.LEVEL_UNEXPECTED, l_module_source, 'Invalid operation:'||p_operation);
739: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
740: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
741: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
742: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
743: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
744: end if;
745: end if;
746:
739: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
740: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_ADD ='||fnd_ldap_wrapper.G_ADD );
741: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_UPDATE ='||fnd_ldap_wrapper.G_UPDATE );
742: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_MODIFY ='||fnd_ldap_wrapper.G_MODIFY );
743: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Valid direction fnd_ldap_wrapper.G_DELETE ='||fnd_ldap_wrapper.G_DELETE );
744: end if;
745: end if;
746:
747: raise case_not_found;
749:
750: ELSE
751: raise case_not_found;
752: END IF;
753: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
754: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Call is_in_list for: '||p_attribute);
755: end if;
756: x_oid := is_in_list(p_attribute, l_list);
757: end if;
750: ELSE
751: raise case_not_found;
752: END IF;
753: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
754: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'Call is_in_list for: '||p_attribute);
755: end if;
756: x_oid := is_in_list(p_attribute, l_list);
757: end if;
758:
755: end if;
756: x_oid := is_in_list(p_attribute, l_list);
757: end if;
758:
759: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
760: then
761: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
762: 'out values x_fnd_user: '||x_fnd_user||' x_oid: '||x_oid);
763: end if;
757: end if;
758:
759: if (fnd_log.LEVEL_STATEMENT >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
760: then
761: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source,
762: 'out values x_fnd_user: '||x_fnd_user||' x_oid: '||x_oid);
763: end if;
764:
765:
762: 'out values x_fnd_user: '||x_fnd_user||' x_oid: '||x_oid);
763: end if;
764:
765:
766: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
767: then
768: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
769: end if;
770:
764:
765:
766: if (fnd_log.LEVEL_PROCEDURE >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
767: then
768: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
769: end if;
770:
771: exception when others then
772: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
768: fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'End');
769: end if;
770:
771: exception when others then
772: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
773: then
774: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
775: end if;
776: raise;
770:
771: exception when others then
772: if (fnd_log.LEVEL_ERROR >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
773: then
774: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, sqlerrm);
775: end if;
776: raise;
777: end is_operation_allowed;
778:
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 ' );
835: end if;
836:
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 ' );
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);
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 : ' );
846: end if;
847:
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 : ' );
846: end if;
847:
848: return realm_table(realm_idx).dn;
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 : ' );
846: end if;
847:
848: return realm_table(realm_idx).dn;
849:
848: return realm_table(realm_idx).dn;
849:
850: EXCEPTION WHEN OTHERS THEN
851: if (l_session_flag = true) then
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);
849:
850: EXCEPTION WHEN OTHERS THEN
851: if (l_session_flag = true) then
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:
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;
861: end if;
862: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
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;
861: end if;
862: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
863: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'END -> EXCEPTION WHEN OTHERS');
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;
861: end if;
862: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
863: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'END -> EXCEPTION WHEN OTHERS');
864: end if;
865: END getGuidRealm;
866:
859: fnd_log.string(fnd_log.LEVEL_ERROR, l_module_source, 'LDAP SESSION closed in EXCEPTION BLOCK - END ');
860: end if;
861: end if;
862: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL) then
863: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'END -> EXCEPTION WHEN OTHERS');
864: end if;
865: END getGuidRealm;
866:
867:
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 ' );
888: end if;
889: end if;
890:
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 ' );
888: end if;
889: end if;
890:
891: defaultRealm_cache := fnd_ldap_util.getLDAPAttribute(ldap,'cn=Common,cn=Products,cn=OracleContext','OrclDefaultSubscriber');
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 ' );
899: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
900: end if;
901: end if;
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 ' );
899: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
900: end if;
901: end if;
902:
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 ' );
899: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
900: end if;
901: end if;
902:
903: END IF;
905: return defaultRealm_cache;
906:
907: EXCEPTION WHEN OTHERS THEN
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:
906:
907: EXCEPTION WHEN OTHERS THEN
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
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;
917: end if;
918: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
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;
917: end if;
918: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
919: then
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;
917: end if;
918: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
919: then
920: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION WHEN OTHERS');
921: end if;
922: raise;
916: end if;
917: end if;
918: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
919: then
920: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION WHEN OTHERS');
921: end if;
922: raise;
923: END getDefaultRealm;
924:
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 ' );
944: end if;
945:
946: defaultRealm_cache := getDefaultRealm(ldap);
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 ' );
944: end if;
945:
946: defaultRealm_cache := getDefaultRealm(ldap);
947: fnd_ldap_util.c_unbind(ldap,flag);
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 ' );
952: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
953: end if;
954: END IF;
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 ' );
952: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
953: end if;
954: END IF;
955:
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 ' );
952: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'LDAP SESSION CLOSED NORMALLY : ' );
953: end if;
954: END IF;
955:
956: return defaultRealm_cache;
955:
956: return defaultRealm_cache;
957: EXCEPTION WHEN OTHERS THEN
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:
956: return defaultRealm_cache;
957: EXCEPTION WHEN OTHERS THEN
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
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;
967: end if;
968: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
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;
967: end if;
968: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
969: then
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;
967: end if;
968: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
969: then
970: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION WHEN OTHERS');
971: end if;
972:
966: end if;
967: end if;
968: if (fnd_log.LEVEL_EXCEPTION >= fnd_log.G_CURRENT_RUNTIME_LEVEL)
969: then
970: fnd_log.string(fnd_log.LEVEL_EXCEPTION, l_module_source, 'EXCEPTION WHEN OTHERS');
971: end if;
972:
973: raise;
974: