[Home] [Help]
1138: *
1139: * CALCULATION steps
1140: * 1- If the user exists in FND_USER and has a GUID return get_realm_from_guid
1141: * If guid is incorrec raise an error
1142: * 2- IF user does not exist in FND_USER user FND_LDAP_USER.Search(username,ouy guid)
1143: * This function can be costly, but worst. It is possible on multiples realms
1144: * to have NON-UNIQUE usernames (non-wide uniqeu attributes, or differet nna ).
1145: * In that case ANY of those will be returned.
1146: *
1149: function getRealmDN(username varchar2) return varchar2 AS
1150: result varchar2(4000);
1151: l_module_source varchar2(1000) ;
1152: l_guid FND_USER.user_guid%type;
1153: user_rec FND_LDAP_USER.ldap_user_type;
1154: BEGIN
1155: validateVersion;
1156:
1157: l_module_source := G_MODULE_SOURCE || 'getRealmDN: ';
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
1197: fnd_log.string(fnd_log.LEVEL_STATEMENT, l_module_source, 'FOUND!! dn: '||user_rec.dn);
1198: end if;
1219: end if;
1220: raise;
1221: END getRealmDN;
1222:
1223: function getUserRepository(p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type ) return varchar2 AS
1224: result varchar2(4000);
1225: l_module_source varchar2(1000) ;
1226: opt option_type_rec;
1227: baseList dbms_ldap.string_collection;
1283: l_module_source varchar2(1000) ;
1284: BEGIN
1285: validateVersion;
1286: l_module_source := G_MODULE_SOURCE || 'getNickNameattr: ';
1287: return FND_LDAP_USER.getnicknameattr(username);
1288: END getNickNameattr;
1289:
1290:
1291: PROCEDURE getRDN
2013: end if;
2014: return ret;
2015: END getRealmCommonNameAttribute;
2016:
2017: function getDN(p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type) return varchar2
2018: is
2019: l_module_source varchar2(1000) ;
2020: name varchar2(200);
2021: val VARCHAR2(2000);
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);
2068:
2069: p_ldap_user.RDN_ATT_NAME := name;
2070: p_ldap_user.RDN_VALUE := val;
2071:
2079: end if;
2080:
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);
2127: end loop;
2128: end copyData;
2129:
2130:
2131: Procedure completeForCreate(ldap in dbms_ldap.session ,p_ldap_user IN OUT nocopy fnd_ldap_user.ldap_user_type )
2132: is
2133: replaceFlag boolean;
2134: rdn varchar2(200);
2135: val varchar2(4000);
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:
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;
2231:
2232: END getRealmList;
2233:
2234:
2235: PROCEDURE FixupLDAPUser(p_ldap_user IN OUT nocopy FND_LDAP_USER.ldap_user_type, operation pls_integer) IS
2236: opt option_type_rec;
2237: l_module_source varchar2(400):=G_MODULE_SOURCE||'FixupLDAPUser';
2238: BEGIN
2239: -- DataCreationFixup