[Home] [Help]
1: package body fnd_ldap_user as
2: /* $Header: AFSCOLUB.pls 120.71 2012/04/12 20:13:54 ctilley ship $ */
3: --
4: -------------------------------------------------------------------------------
5: -- Start of Package Globals
5: -- Start of Package Globals
6:
7: G_CREATE constant pls_integer := 1;
8: G_UPDATE constant pls_integer := 2;
9: G_MODULE_SOURCE constant varchar2(80) := 'fnd.plsql.oid.fnd_ldap_user.';
10: G_OID_USER_EXISTS constant pls_integer := 2;
11:
12: -- End of Package Globals
13: --
15:
16: function delete_user_nodes(p_ldap_session in dbms_ldap.session, p_orclguid in fnd_user.user_guid%type) return pls_integer;
17: function delete_user_subscription(p_ldap_session in dbms_ldap.session, guid raw) return pls_integer;
18: function delete_uniquemember(p_ldap_session in dbms_ldap.session, p_orclguid in fnd_user.user_guid%type) return pls_integer;
19: procedure ProcessLoadedLpadUserRecord (p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type ,realmDN in varchar2 ,dn_z in varchar2 );
20: --function CanSync ( p_user_id in pls_integer, p_user_name in varchar2 ) return boolean;
21: function get_user_guid(p_ldap_session in dbms_ldap.session, p_user_name in varchar2, dn out nocopy varchar2) return raw ;
22: function isValueOf( u ldap_user_type, fld in varchar2, val in varchar2 ) return boolean;
23: function get_user_guid( p_user_name in varchar2) return raw ;
361: l_user_id fnd_user.user_id%type;
362: l_to_synch BOOLEAN;
363: ldap dbms_ldap.session;
364: flag pls_integer;
365: user_rec FND_LDAP_USER.ldap_user_type;
366: invalid_new_user_exp EXCEPTION;
367: no_such_user_exp EXCEPTION;
368: dn VARCHAR2(4000);
369: val varchar2(4000);
1557:
1558:
1559: l_orclisEnabled varchar2(256);
1560: -- usertype fnd_ldap_util.ldap_user_type;
1561: ldap_user fnd_ldap_user.ldap_user_type;
1562: l_module_source varchar2(256);
1563: no_such_user_exp exception;
1564: l_nickname varchar2(256);
1565:
1852: update_user(p_user_guid,p_user_name,p_password,p_start_date,p_end_date,p_description,p_email_address,p_fax,p_expire_password,x_password,x_result,FALSE);
1853: END update_user;
1854: --
1855: -------------------------------------------------------------------------------
1856: PROCEDURE ConverToNew(n in out nocopy fnd_ldap_user.ldap_user_type,
1857: o in out nocopy fnd_ldap_util.ldap_user_type )
1858: IS
1859: BEGIN
1860:
2388: ---
2389: --- FUTURE: it is possible to cache , seems that the user is looked up several times in some flows.
2390:
2391: FUNCTION SearchUser (ldap in out nocopy dbms_ldap.session ,
2392: p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type ,
2393: username_z in varchar2 default null,
2394: dn_z in varchar2 default null) return boolean
2395: IS
2396:
2521: --
2522: -- Wrapper to suply an ldapSession
2523: ---
2524: FUNCTION SearchUser ( username_z in varchar2,
2525: p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type) return boolean
2526: IS
2527: ret boolean;
2528: ldapSession dbms_ldap.session;
2529: flag pls_integer;
2562:
2563: PROCEDURE TrimPermited(
2564: p_entity pls_integer,
2565: p_operation pls_integer,
2566: l_user IN OUT nocopy fnd_ldap_user.ldap_user_type)
2567: IS
2568: attr varchar2(200);
2569: l_attr varchar2(200);
2570: x_oid pls_integer;
2602:
2603: END TrimPermited;
2604:
2605: FUNCTION pvt_create_user
2606: (p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type)
2607: RETURN pls_integer
2608: IS
2609: l_module_source VARCHAR2(256);
2610: retval pls_integer;
2949: x_password OUT nocopy VARCHAR2,
2950: x_result OUT nocopy pls_integer)
2951: IS
2952:
2953: l_usr fnd_ldap_user.ldap_user_type;
2954: l_module_source VARCHAR2(256) := G_MODULE_SOURCE || 'create_user: ';
2955: l_start_date VARCHAR2(256);
2956: l_end_date VARCHAR2(656);
2957: l_local_login VARCHAR2(100);
3558: END IF;
3559: return false;
3560: END isValueOf;
3561:
3562: PROCEDURE ProcessLoadedLpadUserRecord (p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type ,
3563: realmDN in varchar2 ,
3564: dn_z in varchar2 )
3565: IS
3566: realm pls_integer;
3741:
3742: END CanUpdate;
3743:
3744:
3745: end fnd_ldap_user;