eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.WF_LDAP dependencies on DBMS_LDAP

Line 42: PROCEDURE dump_ldap_msg(p_session in out NOCOPY DBMS_LDAP.session,

38: ------------------------------------------------------------------------------
39: /*
40: ** dump_ldap_msg - write out the contents of an ldap message
41: */
42: PROCEDURE dump_ldap_msg(p_session in out NOCOPY DBMS_LDAP.session,
43: p_message in DBMS_LDAP.message) is
44: i pls_integer;
45: my_entry DBMS_LDAP.message;
46: my_ber_elmt DBMS_LDAP.ber_element;

Line 43: p_message in DBMS_LDAP.message) is

39: /*
40: ** dump_ldap_msg - write out the contents of an ldap message
41: */
42: PROCEDURE dump_ldap_msg(p_session in out NOCOPY DBMS_LDAP.session,
43: p_message in DBMS_LDAP.message) is
44: i pls_integer;
45: my_entry DBMS_LDAP.message;
46: my_ber_elmt DBMS_LDAP.ber_element;
47: my_vals DBMS_LDAP.STRING_COLLECTION;

Line 45: my_entry DBMS_LDAP.message;

41: */
42: PROCEDURE dump_ldap_msg(p_session in out NOCOPY DBMS_LDAP.session,
43: p_message in DBMS_LDAP.message) is
44: i pls_integer;
45: my_entry DBMS_LDAP.message;
46: my_ber_elmt DBMS_LDAP.ber_element;
47: my_vals DBMS_LDAP.STRING_COLLECTION;
48: my_attrname varchar2(256);
49: begin

Line 46: my_ber_elmt DBMS_LDAP.ber_element;

42: PROCEDURE dump_ldap_msg(p_session in out NOCOPY DBMS_LDAP.session,
43: p_message in DBMS_LDAP.message) is
44: i pls_integer;
45: my_entry DBMS_LDAP.message;
46: my_ber_elmt DBMS_LDAP.ber_element;
47: my_vals DBMS_LDAP.STRING_COLLECTION;
48: my_attrname varchar2(256);
49: begin
50: null;

Line 47: my_vals DBMS_LDAP.STRING_COLLECTION;

43: p_message in DBMS_LDAP.message) is
44: i pls_integer;
45: my_entry DBMS_LDAP.message;
46: my_ber_elmt DBMS_LDAP.ber_element;
47: my_vals DBMS_LDAP.STRING_COLLECTION;
48: my_attrname varchar2(256);
49: begin
50: null;
51:

Line 56: to_char(dbms_ldap.count_entries(p_session,p_message))||

52: /******************** uncomment if needed *********************************
53:
54: dbms_output.put_line('-------------------------');
55: dbms_output.put_line('This LDAP message contains '||
56: to_char(dbms_ldap.count_entries(p_session,p_message))||
57: ' entries');
58: my_entry := dbms_ldap.first_entry(p_session, p_message);
59: while my_entry IS NOT NULL loop
60: dbms_output.put_line('-------------------------');

Line 58: my_entry := dbms_ldap.first_entry(p_session, p_message);

54: dbms_output.put_line('-------------------------');
55: dbms_output.put_line('This LDAP message contains '||
56: to_char(dbms_ldap.count_entries(p_session,p_message))||
57: ' entries');
58: my_entry := dbms_ldap.first_entry(p_session, p_message);
59: while my_entry IS NOT NULL loop
60: dbms_output.put_line('-------------------------');
61: dbms_output.put_line('dn: '||dbms_ldap.get_dn(p_session, my_entry));
62:

Line 61: dbms_output.put_line('dn: '||dbms_ldap.get_dn(p_session, my_entry));

57: ' entries');
58: my_entry := dbms_ldap.first_entry(p_session, p_message);
59: while my_entry IS NOT NULL loop
60: dbms_output.put_line('-------------------------');
61: dbms_output.put_line('dn: '||dbms_ldap.get_dn(p_session, my_entry));
62:
63: my_attrname := dbms_ldap.first_attribute(p_session,my_entry,my_ber_elmt);
64: while my_attrname IS NOT NULL loop
65: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);

Line 63: my_attrname := dbms_ldap.first_attribute(p_session,my_entry,my_ber_elmt);

59: while my_entry IS NOT NULL loop
60: dbms_output.put_line('-------------------------');
61: dbms_output.put_line('dn: '||dbms_ldap.get_dn(p_session, my_entry));
62:
63: my_attrname := dbms_ldap.first_attribute(p_session,my_entry,my_ber_elmt);
64: while my_attrname IS NOT NULL loop
65: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);
66: if my_vals.COUNT > 0 then
67: FOR i in my_vals.FIRST..my_vals.LAST loop

Line 65: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);

61: dbms_output.put_line('dn: '||dbms_ldap.get_dn(p_session, my_entry));
62:
63: my_attrname := dbms_ldap.first_attribute(p_session,my_entry,my_ber_elmt);
64: while my_attrname IS NOT NULL loop
65: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);
66: if my_vals.COUNT > 0 then
67: FOR i in my_vals.FIRST..my_vals.LAST loop
68: dbms_output.put_line(my_attrname||' : '||SUBSTR(my_vals(i),1,200));
69: end loop;

Line 71: my_attrname := DBMS_LDAP.next_attribute(p_session,my_entry,my_ber_elmt);

67: FOR i in my_vals.FIRST..my_vals.LAST loop
68: dbms_output.put_line(my_attrname||' : '||SUBSTR(my_vals(i),1,200));
69: end loop;
70: end if;
71: my_attrname := DBMS_LDAP.next_attribute(p_session,my_entry,my_ber_elmt);
72: end loop;
73: my_entry := DBMS_LDAP.next_entry(p_session, my_entry);
74: end loop;
75: *************************************************************************/

Line 73: my_entry := DBMS_LDAP.next_entry(p_session, my_entry);

69: end loop;
70: end if;
71: my_attrname := DBMS_LDAP.next_attribute(p_session,my_entry,my_ber_elmt);
72: end loop;
73: my_entry := DBMS_LDAP.next_entry(p_session, my_entry);
74: end loop;
75: *************************************************************************/
76: end dump_ldap_msg;
77: ------------------------------------------------------------------------------

Line 81: PROCEDURE setsizelimit(p_session in out NOCOPY dbms_ldap.session,

77: ------------------------------------------------------------------------------
78: /*
79: ** setsizelimit - set the orclsizelimit parameter value
80: */
81: PROCEDURE setsizelimit(p_session in out NOCOPY dbms_ldap.session,
82: p_size in varchar2 default '1000')
83: is
84: mod_array DBMS_LDAP.MOD_ARRAY;
85: mod_vals DBMS_LDAP.STRING_COLLECTION;

Line 84: mod_array DBMS_LDAP.MOD_ARRAY;

80: */
81: PROCEDURE setsizelimit(p_session in out NOCOPY dbms_ldap.session,
82: p_size in varchar2 default '1000')
83: is
84: mod_array DBMS_LDAP.MOD_ARRAY;
85: mod_vals DBMS_LDAP.STRING_COLLECTION;
86: retval pls_integer;
87: begin
88: mod_vals(1) := p_size;

Line 85: mod_vals DBMS_LDAP.STRING_COLLECTION;

81: PROCEDURE setsizelimit(p_session in out NOCOPY dbms_ldap.session,
82: p_size in varchar2 default '1000')
83: is
84: mod_array DBMS_LDAP.MOD_ARRAY;
85: mod_vals DBMS_LDAP.STRING_COLLECTION;
86: retval pls_integer;
87: begin
88: mod_vals(1) := p_size;
89: mod_array := DBMS_LDAP.create_mod_array(1);

Line 89: mod_array := DBMS_LDAP.create_mod_array(1);

85: mod_vals DBMS_LDAP.STRING_COLLECTION;
86: retval pls_integer;
87: begin
88: mod_vals(1) := p_size;
89: mod_array := DBMS_LDAP.create_mod_array(1);
90:
91: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
92: 'orclsizelimit', mod_vals);
93: retval := DBMS_LDAP.modify_s(p_session, ' ', mod_array);

Line 91: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,

87: begin
88: mod_vals(1) := p_size;
89: mod_array := DBMS_LDAP.create_mod_array(1);
90:
91: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
92: 'orclsizelimit', mod_vals);
93: retval := DBMS_LDAP.modify_s(p_session, ' ', mod_array);
94: dbms_ldap.free_mod_array(mod_array);
95: exception

Line 93: retval := DBMS_LDAP.modify_s(p_session, ' ', mod_array);

89: mod_array := DBMS_LDAP.create_mod_array(1);
90:
91: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
92: 'orclsizelimit', mod_vals);
93: retval := DBMS_LDAP.modify_s(p_session, ' ', mod_array);
94: dbms_ldap.free_mod_array(mod_array);
95: exception
96: when others then
97: wf_core.context('wf_ldap', 'setsizelimit',

Line 94: dbms_ldap.free_mod_array(mod_array);

90:
91: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
92: 'orclsizelimit', mod_vals);
93: retval := DBMS_LDAP.modify_s(p_session, ' ', mod_array);
94: dbms_ldap.free_mod_array(mod_array);
95: exception
96: when others then
97: wf_core.context('wf_ldap', 'setsizelimit',
98: 'Error code: '||to_char(sqlcode),

Line 106: PROCEDURE setLastChangeNumber(p_session in out NOCOPY dbms_ldap.session,

102: ------------------------------------------------------------------------------
103: /*
104: ** setLastChangeNumber - set the lastchangenum for our subscription
105: */
106: PROCEDURE setLastChangeNumber(p_session in out NOCOPY dbms_ldap.session,
107: p_cnum in varchar2)
108: is
109: mod_array DBMS_LDAP.MOD_ARRAY;
110: mod_vals DBMS_LDAP.STRING_COLLECTION;

Line 109: mod_array DBMS_LDAP.MOD_ARRAY;

105: */
106: PROCEDURE setLastChangeNumber(p_session in out NOCOPY dbms_ldap.session,
107: p_cnum in varchar2)
108: is
109: mod_array DBMS_LDAP.MOD_ARRAY;
110: mod_vals DBMS_LDAP.STRING_COLLECTION;
111: retval pls_integer;
112: begin
113: mod_vals(1) := p_cnum;

Line 110: mod_vals DBMS_LDAP.STRING_COLLECTION;

106: PROCEDURE setLastChangeNumber(p_session in out NOCOPY dbms_ldap.session,
107: p_cnum in varchar2)
108: is
109: mod_array DBMS_LDAP.MOD_ARRAY;
110: mod_vals DBMS_LDAP.STRING_COLLECTION;
111: retval pls_integer;
112: begin
113: mod_vals(1) := p_cnum;
114: mod_array := DBMS_LDAP.create_mod_array(1);

Line 114: mod_array := DBMS_LDAP.create_mod_array(1);

110: mod_vals DBMS_LDAP.STRING_COLLECTION;
111: retval pls_integer;
112: begin
113: mod_vals(1) := p_cnum;
114: mod_array := DBMS_LDAP.create_mod_array(1);
115:
116: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
117: 'orclLastAppliedChangeNumber', mod_vals);
118: retval := DBMS_LDAP.modify_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);

Line 116: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,

112: begin
113: mod_vals(1) := p_cnum;
114: mod_array := DBMS_LDAP.create_mod_array(1);
115:
116: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
117: 'orclLastAppliedChangeNumber', mod_vals);
118: retval := DBMS_LDAP.modify_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);
119: dbms_ldap.free_mod_array(mod_array);
120: exception

Line 118: retval := DBMS_LDAP.modify_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);

114: mod_array := DBMS_LDAP.create_mod_array(1);
115:
116: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
117: 'orclLastAppliedChangeNumber', mod_vals);
118: retval := DBMS_LDAP.modify_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);
119: dbms_ldap.free_mod_array(mod_array);
120: exception
121: when others then
122: wf_core.context('wf_ldap', 'setLastChangeNumber',

Line 119: dbms_ldap.free_mod_array(mod_array);

115:
116: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_REPLACE,
117: 'orclLastAppliedChangeNumber', mod_vals);
118: retval := DBMS_LDAP.modify_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);
119: dbms_ldap.free_mod_array(mod_array);
120: exception
121: when others then
122: wf_core.context('wf_ldap', 'setLastChangeNumber',
123: 'Error code: '||to_char(sqlcode),

Line 131: FUNCTION search(p_session in out NOCOPY dbms_ldap.session,

127: ------------------------------------------------------------------------------
128: /*
129: ** search - Perform an LDAP query
130: */
131: FUNCTION search(p_session in out NOCOPY dbms_ldap.session,
132: p_base in varchar2,
133: p_results in out NOCOPY dbms_ldap.message,
134: p_scope in pls_integer default DBMS_LDAP.SCOPE_SUBTREE,
135: p_filter in varchar2 default 'objectclass=*',

Line 133: p_results in out NOCOPY dbms_ldap.message,

129: ** search - Perform an LDAP query
130: */
131: FUNCTION search(p_session in out NOCOPY dbms_ldap.session,
132: p_base in varchar2,
133: p_results in out NOCOPY dbms_ldap.message,
134: p_scope in pls_integer default DBMS_LDAP.SCOPE_SUBTREE,
135: p_filter in varchar2 default 'objectclass=*',
136: p_attr in varchar2 default '*')
137: return pls_integer is

Line 134: p_scope in pls_integer default DBMS_LDAP.SCOPE_SUBTREE,

130: */
131: FUNCTION search(p_session in out NOCOPY dbms_ldap.session,
132: p_base in varchar2,
133: p_results in out NOCOPY dbms_ldap.message,
134: p_scope in pls_integer default DBMS_LDAP.SCOPE_SUBTREE,
135: p_filter in varchar2 default 'objectclass=*',
136: p_attr in varchar2 default '*')
137: return pls_integer is
138: retval pls_integer := -1;

Line 139: my_attrs dbms_ldap.string_collection;

135: p_filter in varchar2 default 'objectclass=*',
136: p_attr in varchar2 default '*')
137: return pls_integer is
138: retval pls_integer := -1;
139: my_attrs dbms_ldap.string_collection;
140: begin
141: my_attrs(1) := p_attr;
142:
143: return dbms_ldap.search_s(p_session,

Line 143: return dbms_ldap.search_s(p_session,

139: my_attrs dbms_ldap.string_collection;
140: begin
141: my_attrs(1) := p_attr;
142:
143: return dbms_ldap.search_s(p_session,
144: p_base,
145: p_scope,
146: p_filter,
147: my_attrs,

Line 161: FUNCTION get_cfg_val(p_session in out NOCOPY dbms_ldap.session,

157: ------------------------------------------------------------------------------
158: /*
159: ** get_cfg_val - Fetch a configuration value from the root base
160: */
161: FUNCTION get_cfg_val(p_session in out NOCOPY dbms_ldap.session,
162: p_name in varchar2) return varchar2
163: is
164: results DBMS_LDAP.message;
165: my_entry DBMS_LDAP.message;

Line 164: results DBMS_LDAP.message;

160: */
161: FUNCTION get_cfg_val(p_session in out NOCOPY dbms_ldap.session,
162: p_name in varchar2) return varchar2
163: is
164: results DBMS_LDAP.message;
165: my_entry DBMS_LDAP.message;
166: my_vals DBMS_LDAP.STRING_COLLECTION;
167: retval pls_integer;
168: begin

Line 165: my_entry DBMS_LDAP.message;

161: FUNCTION get_cfg_val(p_session in out NOCOPY dbms_ldap.session,
162: p_name in varchar2) return varchar2
163: is
164: results DBMS_LDAP.message;
165: my_entry DBMS_LDAP.message;
166: my_vals DBMS_LDAP.STRING_COLLECTION;
167: retval pls_integer;
168: begin
169: retval := WF_LDAP.search(p_session, ' ', results, DBMS_LDAP.SCOPE_BASE,

Line 166: my_vals DBMS_LDAP.STRING_COLLECTION;

162: p_name in varchar2) return varchar2
163: is
164: results DBMS_LDAP.message;
165: my_entry DBMS_LDAP.message;
166: my_vals DBMS_LDAP.STRING_COLLECTION;
167: retval pls_integer;
168: begin
169: retval := WF_LDAP.search(p_session, ' ', results, DBMS_LDAP.SCOPE_BASE,
170: 'objectclass=*', p_name);

Line 169: retval := WF_LDAP.search(p_session, ' ', results, DBMS_LDAP.SCOPE_BASE,

165: my_entry DBMS_LDAP.message;
166: my_vals DBMS_LDAP.STRING_COLLECTION;
167: retval pls_integer;
168: begin
169: retval := WF_LDAP.search(p_session, ' ', results, DBMS_LDAP.SCOPE_BASE,
170: 'objectclass=*', p_name);
171: my_entry := dbms_ldap.first_entry(p_session, results);
172:
173: if (my_entry is not null) then

Line 171: my_entry := dbms_ldap.first_entry(p_session, results);

167: retval pls_integer;
168: begin
169: retval := WF_LDAP.search(p_session, ' ', results, DBMS_LDAP.SCOPE_BASE,
170: 'objectclass=*', p_name);
171: my_entry := dbms_ldap.first_entry(p_session, results);
172:
173: if (my_entry is not null) then
174: my_vals := dbms_ldap.get_values(p_session, my_entry, p_name);
175: if (my_vals.COUNT > 0) then

Line 174: my_vals := dbms_ldap.get_values(p_session, my_entry, p_name);

170: 'objectclass=*', p_name);
171: my_entry := dbms_ldap.first_entry(p_session, results);
172:
173: if (my_entry is not null) then
174: my_vals := dbms_ldap.get_values(p_session, my_entry, p_name);
175: if (my_vals.COUNT > 0) then
176: return my_vals(my_vals.FIRST);
177: end if;
178: end if;

Line 188: FUNCTION getlastappliedchangenum(p_session in out NOCOPY dbms_ldap.session)

184: ------------------------------------------------------------------------------
185: /*
186: ** getlastappliedchangenum - self explanatory
187: */
188: FUNCTION getlastappliedchangenum(p_session in out NOCOPY dbms_ldap.session)
189: return varchar2
190: is
191: results DBMS_LDAP.message;
192: my_entry DBMS_LDAP.message;

Line 191: results DBMS_LDAP.message;

187: */
188: FUNCTION getlastappliedchangenum(p_session in out NOCOPY dbms_ldap.session)
189: return varchar2
190: is
191: results DBMS_LDAP.message;
192: my_entry DBMS_LDAP.message;
193: my_vals DBMS_LDAP.STRING_COLLECTION;
194: retval pls_integer;
195: begin

Line 192: my_entry DBMS_LDAP.message;

188: FUNCTION getlastappliedchangenum(p_session in out NOCOPY dbms_ldap.session)
189: return varchar2
190: is
191: results DBMS_LDAP.message;
192: my_entry DBMS_LDAP.message;
193: my_vals DBMS_LDAP.STRING_COLLECTION;
194: retval pls_integer;
195: begin
196: retval := wf_ldap.search(p_session, WF_LDAP_CHANGELOG_SUB, results,

Line 193: my_vals DBMS_LDAP.STRING_COLLECTION;

189: return varchar2
190: is
191: results DBMS_LDAP.message;
192: my_entry DBMS_LDAP.message;
193: my_vals DBMS_LDAP.STRING_COLLECTION;
194: retval pls_integer;
195: begin
196: retval := wf_ldap.search(p_session, WF_LDAP_CHANGELOG_SUB, results,
197: DBMS_LDAP.SCOPE_SUBTREE, 'objectclass=*',

Line 197: DBMS_LDAP.SCOPE_SUBTREE, 'objectclass=*',

193: my_vals DBMS_LDAP.STRING_COLLECTION;
194: retval pls_integer;
195: begin
196: retval := wf_ldap.search(p_session, WF_LDAP_CHANGELOG_SUB, results,
197: DBMS_LDAP.SCOPE_SUBTREE, 'objectclass=*',
198: 'orcllastappliedchangenumber');
199: my_entry := dbms_ldap.first_entry(p_session, results);
200:
201: if (my_entry is not null) then

Line 199: my_entry := dbms_ldap.first_entry(p_session, results);

195: begin
196: retval := wf_ldap.search(p_session, WF_LDAP_CHANGELOG_SUB, results,
197: DBMS_LDAP.SCOPE_SUBTREE, 'objectclass=*',
198: 'orcllastappliedchangenumber');
199: my_entry := dbms_ldap.first_entry(p_session, results);
200:
201: if (my_entry is not null) then
202: my_vals := dbms_ldap.get_values(p_session, my_entry,
203: 'orcllastappliedchangenumber');

Line 202: my_vals := dbms_ldap.get_values(p_session, my_entry,

198: 'orcllastappliedchangenumber');
199: my_entry := dbms_ldap.first_entry(p_session, results);
200:
201: if (my_entry is not null) then
202: my_vals := dbms_ldap.get_values(p_session, my_entry,
203: 'orcllastappliedchangenumber');
204: if (my_vals.COUNT > 0) then
205: return my_vals(my_vals.FIRST);
206: end if;

Line 217: PROCEDURE createSubscription(p_session in out NOCOPY dbms_ldap.session)

213: ------------------------------------------------------------------------------
214: /*
215: ** createSubscription - create our OID changelog subscription object
216: */
217: PROCEDURE createSubscription(p_session in out NOCOPY dbms_ldap.session)
218: is
219: lastclog varchar2(10);
220: mod_array DBMS_LDAP.MOD_ARRAY;
221: mod_vals DBMS_LDAP.STRING_COLLECTION;

Line 220: mod_array DBMS_LDAP.MOD_ARRAY;

216: */
217: PROCEDURE createSubscription(p_session in out NOCOPY dbms_ldap.session)
218: is
219: lastclog varchar2(10);
220: mod_array DBMS_LDAP.MOD_ARRAY;
221: mod_vals DBMS_LDAP.STRING_COLLECTION;
222: retval pls_integer;
223: begin
224: lastclog := wf_ldap.get_cfg_val(p_session, 'lastchangenumber');

Line 221: mod_vals DBMS_LDAP.STRING_COLLECTION;

217: PROCEDURE createSubscription(p_session in out NOCOPY dbms_ldap.session)
218: is
219: lastclog varchar2(10);
220: mod_array DBMS_LDAP.MOD_ARRAY;
221: mod_vals DBMS_LDAP.STRING_COLLECTION;
222: retval pls_integer;
223: begin
224: lastclog := wf_ldap.get_cfg_val(p_session, 'lastchangenumber');
225: if (lastclog is null) then

Line 229: mod_array := DBMS_LDAP.create_mod_array(5);

225: if (lastclog is null) then
226: lastclog := '0';
227: end if;
228:
229: mod_array := DBMS_LDAP.create_mod_array(5);
230:
231: mod_vals(1) := lastclog;
232: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
233: 'orclLastAppliedChangeNumber', mod_vals);

Line 232: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,

228:
229: mod_array := DBMS_LDAP.create_mod_array(5);
230:
231: mod_vals(1) := lastclog;
232: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
233: 'orclLastAppliedChangeNumber', mod_vals);
234: mod_vals(1) := 'WF_SYNCH26';
235: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
236: 'userpassword', mod_vals);

Line 235: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,

231: mod_vals(1) := lastclog;
232: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
233: 'orclLastAppliedChangeNumber', mod_vals);
234: mod_vals(1) := 'WF_SYNCH26';
235: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
236: 'userpassword', mod_vals);
237: mod_vals(1) := '0';
238: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
239: 'orclSubscriberDisable', mod_vals);

Line 238: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,

234: mod_vals(1) := 'WF_SYNCH26';
235: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
236: 'userpassword', mod_vals);
237: mod_vals(1) := '0';
238: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
239: 'orclSubscriberDisable', mod_vals);
240: mod_vals(1) := 'orclChangeSubscriber';
241: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
242: 'objectclass', mod_vals);

Line 241: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,

237: mod_vals(1) := '0';
238: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
239: 'orclSubscriberDisable', mod_vals);
240: mod_vals(1) := 'orclChangeSubscriber';
241: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
242: 'objectclass', mod_vals);
243: mod_vals(1) := 'top';
244: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
245: 'objectclass', mod_vals);

Line 244: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,

240: mod_vals(1) := 'orclChangeSubscriber';
241: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
242: 'objectclass', mod_vals);
243: mod_vals(1) := 'top';
244: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
245: 'objectclass', mod_vals);
246: dbms_ldap.use_exception := FALSE;
247: retval := DBMS_LDAP.add_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);
248: dbms_ldap.use_exception := TRUE;

Line 246: dbms_ldap.use_exception := FALSE;

242: 'objectclass', mod_vals);
243: mod_vals(1) := 'top';
244: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
245: 'objectclass', mod_vals);
246: dbms_ldap.use_exception := FALSE;
247: retval := DBMS_LDAP.add_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);
248: dbms_ldap.use_exception := TRUE;
249:
250: --

Line 247: retval := DBMS_LDAP.add_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);

243: mod_vals(1) := 'top';
244: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
245: 'objectclass', mod_vals);
246: dbms_ldap.use_exception := FALSE;
247: retval := DBMS_LDAP.add_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);
248: dbms_ldap.use_exception := TRUE;
249:
250: --
251: -- Update changenumber. Doesn't affect anything if subscription is new

Line 248: dbms_ldap.use_exception := TRUE;

244: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
245: 'objectclass', mod_vals);
246: dbms_ldap.use_exception := FALSE;
247: retval := DBMS_LDAP.add_s(p_session, WF_LDAP_CHANGELOG_SUB, mod_array);
248: dbms_ldap.use_exception := TRUE;
249:
250: --
251: -- Update changenumber. Doesn't affect anything if subscription is new
252: -- but desirable if old subscription with an outdated value already exists.

Line 259: dbms_ldap.free_mod_array(mod_array);

255:
256: --
257: -- grant access to the OID Change Log Object Container
258: --
259: dbms_ldap.free_mod_array(mod_array);
260: mod_array := DBMS_LDAP.create_mod_array(1);
261:
262: mod_vals(1) := WF_LDAP_CHANGELOG_SUB;
263: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,

Line 260: mod_array := DBMS_LDAP.create_mod_array(1);

256: --
257: -- grant access to the OID Change Log Object Container
258: --
259: dbms_ldap.free_mod_array(mod_array);
260: mod_array := DBMS_LDAP.create_mod_array(1);
261:
262: mod_vals(1) := WF_LDAP_CHANGELOG_SUB;
263: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
264: 'uniqueMember', mod_vals);

Line 263: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,

259: dbms_ldap.free_mod_array(mod_array);
260: mod_array := DBMS_LDAP.create_mod_array(1);
261:
262: mod_vals(1) := WF_LDAP_CHANGELOG_SUB;
263: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
264: 'uniqueMember', mod_vals);
265:
266: dbms_ldap.use_exception := FALSE; -- hide possible dup entry exception --
267: retval := DBMS_LDAP.modify_s(p_session,

Line 266: dbms_ldap.use_exception := FALSE; -- hide possible dup entry exception --

262: mod_vals(1) := WF_LDAP_CHANGELOG_SUB;
263: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
264: 'uniqueMember', mod_vals);
265:
266: dbms_ldap.use_exception := FALSE; -- hide possible dup entry exception --
267: retval := DBMS_LDAP.modify_s(p_session,
268: 'cn=odipgroup,cn=odi,cn=Oracle Internet Directory', mod_array);
269: dbms_ldap.use_exception := TRUE; -- end hide --
270:

Line 267: retval := DBMS_LDAP.modify_s(p_session,

263: DBMS_LDAP.populate_mod_array(mod_array, DBMS_LDAP.MOD_ADD,
264: 'uniqueMember', mod_vals);
265:
266: dbms_ldap.use_exception := FALSE; -- hide possible dup entry exception --
267: retval := DBMS_LDAP.modify_s(p_session,
268: 'cn=odipgroup,cn=odi,cn=Oracle Internet Directory', mod_array);
269: dbms_ldap.use_exception := TRUE; -- end hide --
270:
271: dbms_ldap.free_mod_array(mod_array);

Line 269: dbms_ldap.use_exception := TRUE; -- end hide --

265:
266: dbms_ldap.use_exception := FALSE; -- hide possible dup entry exception --
267: retval := DBMS_LDAP.modify_s(p_session,
268: 'cn=odipgroup,cn=odi,cn=Oracle Internet Directory', mod_array);
269: dbms_ldap.use_exception := TRUE; -- end hide --
270:
271: dbms_ldap.free_mod_array(mod_array);
272: exception
273: when others then

Line 271: dbms_ldap.free_mod_array(mod_array);

267: retval := DBMS_LDAP.modify_s(p_session,
268: 'cn=odipgroup,cn=odi,cn=Oracle Internet Directory', mod_array);
269: dbms_ldap.use_exception := TRUE; -- end hide --
270:
271: dbms_ldap.free_mod_array(mod_array);
272: exception
273: when others then
274: wf_core.context('WF_LDAP', 'createSubscription',
275: 'Error code: '||to_char(sqlcode),

Line 288: PROCEDURE walk_and_load(p_session in out NOCOPY dbms_ldap.session,

284: ** using the Entity Mgr. Entity Mgr will examine the attribute changes
285: ** and raise an event to let interested parties know when there is
286: ** new information. Returns the last key_value processed.
287: */
288: PROCEDURE walk_and_load(p_session in out NOCOPY dbms_ldap.session,
289: p_data in dbms_ldap.message,
290: p_mode in varchar2,
291: p_key_attr in varchar2,
292: p_entity in varchar2,

Line 289: p_data in dbms_ldap.message,

285: ** and raise an event to let interested parties know when there is
286: ** new information. Returns the last key_value processed.
287: */
288: PROCEDURE walk_and_load(p_session in out NOCOPY dbms_ldap.session,
289: p_data in dbms_ldap.message,
290: p_mode in varchar2,
291: p_key_attr in varchar2,
292: p_entity in varchar2,
293: p_delkey in varchar2 default null)

Line 295: my_entry DBMS_LDAP.message;

291: p_key_attr in varchar2,
292: p_entity in varchar2,
293: p_delkey in varchar2 default null)
294: is
295: my_entry DBMS_LDAP.message;
296: my_ber_elmt DBMS_LDAP.ber_element;
297: my_vals DBMS_LDAP.STRING_COLLECTION;
298: my_attrname varchar2(256);
299: new_val varchar2(4000);

Line 296: my_ber_elmt DBMS_LDAP.ber_element;

292: p_entity in varchar2,
293: p_delkey in varchar2 default null)
294: is
295: my_entry DBMS_LDAP.message;
296: my_ber_elmt DBMS_LDAP.ber_element;
297: my_vals DBMS_LDAP.STRING_COLLECTION;
298: my_attrname varchar2(256);
299: new_val varchar2(4000);
300: my_key_value varchar2(256);

Line 297: my_vals DBMS_LDAP.STRING_COLLECTION;

293: p_delkey in varchar2 default null)
294: is
295: my_entry DBMS_LDAP.message;
296: my_ber_elmt DBMS_LDAP.ber_element;
297: my_vals DBMS_LDAP.STRING_COLLECTION;
298: my_attrname varchar2(256);
299: new_val varchar2(4000);
300: my_key_value varchar2(256);
301: begin

Line 304: my_entry := dbms_ldap.first_entry(p_session, p_data);

300: my_key_value varchar2(256);
301: begin
302: if (p_mode <> 'DELETE') then
303:
304: my_entry := dbms_ldap.first_entry(p_session, p_data);
305: while (my_entry IS NOT NULL) loop
306: my_vals := DBMS_LDAP.get_values(p_session, my_entry, p_key_attr);
307: my_key_value := my_vals(my_vals.first);
308:

Line 306: my_vals := DBMS_LDAP.get_values(p_session, my_entry, p_key_attr);

302: if (p_mode <> 'DELETE') then
303:
304: my_entry := dbms_ldap.first_entry(p_session, p_data);
305: while (my_entry IS NOT NULL) loop
306: my_vals := DBMS_LDAP.get_values(p_session, my_entry, p_key_attr);
307: my_key_value := my_vals(my_vals.first);
308:
309: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);
310: while my_attrname IS NOT NULL loop

Line 309: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);

305: while (my_entry IS NOT NULL) loop
306: my_vals := DBMS_LDAP.get_values(p_session, my_entry, p_key_attr);
307: my_key_value := my_vals(my_vals.first);
308:
309: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);
310: while my_attrname IS NOT NULL loop
311:
312: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);
313: if (my_vals.COUNT > 0) then

Line 312: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);

308:
309: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);
310: while my_attrname IS NOT NULL loop
311:
312: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);
313: if (my_vals.COUNT > 0) then
314: new_val := wf_ldap.cs_convert(substr(my_vals(my_vals.FIRST),1,4000));
315: else
316: new_val := null;

Line 321: my_attrname := DBMS_LDAP.next_attribute(p_session,my_entry,my_ber_elmt);

317: end if;
318:
319: wf_entity_mgr.put_attribute_value(p_entity, my_key_value,
320: my_attrname, new_val);
321: my_attrname := DBMS_LDAP.next_attribute(p_session,my_entry,my_ber_elmt);
322: end loop;
323:
324: wf_entity_mgr.process_changes(p_entity, my_key_value, 'LDAP');
325: commit;

Line 327: my_entry := DBMS_LDAP.next_entry(p_session, my_entry);

323:
324: wf_entity_mgr.process_changes(p_entity, my_key_value, 'LDAP');
325: commit;
326:
327: my_entry := DBMS_LDAP.next_entry(p_session, my_entry);
328: end loop;
329:
330: else /* 'Delete' */
331:

Line 352: PROCEDURE get_ldap_session(p_session in out NOCOPY dbms_ldap.session) is

348: ------------------------------------------------------------------------------
349: /*
350: ** get_ldap_session - Setup up an LDAP session
351: */
352: PROCEDURE get_ldap_session(p_session in out NOCOPY dbms_ldap.session) is
353: retval pls_integer;
354: my_host varchar2(256);
355: my_port varchar2(256);
356: my_user varchar2(256);

Line 359: dbms_ldap.use_exception := TRUE;

355: my_port varchar2(256);
356: my_user varchar2(256);
357: my_pwd varchar2(256);
358: begin
359: dbms_ldap.use_exception := TRUE;
360:
361: my_host := fnd_preference.get('#INTERNAL', 'LDAP_SYNCH', 'HOST');
362: my_port := fnd_preference.get('#INTERNAL', 'LDAP_SYNCH', 'PORT');
363: my_user := fnd_preference.get('#INTERNAL', 'LDAP_SYNCH', 'USERNAME');

Line 366: p_session := DBMS_LDAP.init(my_host, my_port);

362: my_port := fnd_preference.get('#INTERNAL', 'LDAP_SYNCH', 'PORT');
363: my_user := fnd_preference.get('#INTERNAL', 'LDAP_SYNCH', 'USERNAME');
364: my_pwd := fnd_preference.eget('#INTERNAL','LDAP_SYNCH', 'EPWD', 'LDAP_PWD');
365:
366: p_session := DBMS_LDAP.init(my_host, my_port);
367: retval := dbms_ldap.simple_bind_s(p_session, my_user, my_pwd);
368: exception
369: when others then
370: wf_core.context('WF_LDAP', 'get_ldap_session',

Line 367: retval := dbms_ldap.simple_bind_s(p_session, my_user, my_pwd);

363: my_user := fnd_preference.get('#INTERNAL', 'LDAP_SYNCH', 'USERNAME');
364: my_pwd := fnd_preference.eget('#INTERNAL','LDAP_SYNCH', 'EPWD', 'LDAP_PWD');
365:
366: p_session := DBMS_LDAP.init(my_host, my_port);
367: retval := dbms_ldap.simple_bind_s(p_session, my_user, my_pwd);
368: exception
369: when others then
370: wf_core.context('WF_LDAP', 'get_ldap_session',
371: 'Error code: '||to_char(sqlcode),

Line 379: PROCEDURE unbind(p_session in out NOCOPY dbms_ldap.session)

375: ------------------------------------------------------------------------------
376: /*
377: ** unbind - Unbind the LDAP session
378: */
379: PROCEDURE unbind(p_session in out NOCOPY dbms_ldap.session)
380: is
381: retval pls_integer := -1;
382: begin
383: retval := DBMS_LDAP.unbind_s(p_session);

Line 383: retval := DBMS_LDAP.unbind_s(p_session);

379: PROCEDURE unbind(p_session in out NOCOPY dbms_ldap.session)
380: is
381: retval pls_integer := -1;
382: begin
383: retval := DBMS_LDAP.unbind_s(p_session);
384: exception
385: when others then null;
386: end unbind;
387: ------------------------------------------------------------------------------

Line 391: FUNCTION get_name_attr(p_session in out nocopy dbms_ldap.session)

387: ------------------------------------------------------------------------------
388: /*
389: ** get_name_attr
390: */
391: FUNCTION get_name_attr(p_session in out nocopy dbms_ldap.session)
392: return varchar2
393: is
394: retval pls_integer := -1;
395: results dbms_ldap.message;

Line 395: results dbms_ldap.message;

391: FUNCTION get_name_attr(p_session in out nocopy dbms_ldap.session)
392: return varchar2
393: is
394: retval pls_integer := -1;
395: results dbms_ldap.message;
396: my_entry DBMS_LDAP.message;
397: my_ber_elmt DBMS_LDAP.ber_element;
398: my_vals DBMS_LDAP.STRING_COLLECTION;
399: my_attrname varchar2(256);

Line 396: my_entry DBMS_LDAP.message;

392: return varchar2
393: is
394: retval pls_integer := -1;
395: results dbms_ldap.message;
396: my_entry DBMS_LDAP.message;
397: my_ber_elmt DBMS_LDAP.ber_element;
398: my_vals DBMS_LDAP.STRING_COLLECTION;
399: my_attrname varchar2(256);
400: new_val varchar2(256);

Line 397: my_ber_elmt DBMS_LDAP.ber_element;

393: is
394: retval pls_integer := -1;
395: results dbms_ldap.message;
396: my_entry DBMS_LDAP.message;
397: my_ber_elmt DBMS_LDAP.ber_element;
398: my_vals DBMS_LDAP.STRING_COLLECTION;
399: my_attrname varchar2(256);
400: new_val varchar2(256);
401: l_AttrFound number := 0;

Line 398: my_vals DBMS_LDAP.STRING_COLLECTION;

394: retval pls_integer := -1;
395: results dbms_ldap.message;
396: my_entry DBMS_LDAP.message;
397: my_ber_elmt DBMS_LDAP.ber_element;
398: my_vals DBMS_LDAP.STRING_COLLECTION;
399: my_attrname varchar2(256);
400: new_val varchar2(256);
401: l_AttrFound number := 0;
402: begin

Line 405: DBMS_LDAP.SCOPE_SUBTREE);

401: l_AttrFound number := 0;
402: begin
403:
404: retval := WF_LDAP.search(p_session, usernameAttrBase, results,
405: DBMS_LDAP.SCOPE_SUBTREE);
406:
407: my_entry := dbms_ldap.first_entry(p_session, results);
408: while (my_entry IS NOT NULL) loop
409: my_vals := DBMS_LDAP.get_values(p_session, my_entry, usernameAttr);

Line 407: my_entry := dbms_ldap.first_entry(p_session, results);

403:
404: retval := WF_LDAP.search(p_session, usernameAttrBase, results,
405: DBMS_LDAP.SCOPE_SUBTREE);
406:
407: my_entry := dbms_ldap.first_entry(p_session, results);
408: while (my_entry IS NOT NULL) loop
409: my_vals := DBMS_LDAP.get_values(p_session, my_entry, usernameAttr);
410:
411: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);

Line 409: my_vals := DBMS_LDAP.get_values(p_session, my_entry, usernameAttr);

405: DBMS_LDAP.SCOPE_SUBTREE);
406:
407: my_entry := dbms_ldap.first_entry(p_session, results);
408: while (my_entry IS NOT NULL) loop
409: my_vals := DBMS_LDAP.get_values(p_session, my_entry, usernameAttr);
410:
411: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);
412: while my_attrname IS NOT NULL loop
413:

Line 411: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);

407: my_entry := dbms_ldap.first_entry(p_session, results);
408: while (my_entry IS NOT NULL) loop
409: my_vals := DBMS_LDAP.get_values(p_session, my_entry, usernameAttr);
410:
411: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);
412: while my_attrname IS NOT NULL loop
413:
414: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);
415: if (my_vals.COUNT > 0) then

Line 414: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);

410:
411: my_attrname := dbms_ldap.first_attribute(p_session, my_entry, my_ber_elmt);
412: while my_attrname IS NOT NULL loop
413:
414: my_vals := dbms_ldap.get_values(p_session, my_entry, my_attrname);
415: if (my_vals.COUNT > 0) then
416: new_val := my_vals(my_vals.FIRST);
417: else
418: new_val := null;

Line 425: my_attrname := DBMS_LDAP.next_attribute(p_session,my_entry,my_ber_elmt);

421: if upper(my_attrname) = userNameAttr then
422: l_AttrFound := 1;
423: exit;
424: end if;
425: my_attrname := DBMS_LDAP.next_attribute(p_session,my_entry,my_ber_elmt);
426: end loop;
427: if l_AttrFound = 1 then
428: exit;
429: end if;

Line 430: my_entry := DBMS_LDAP.next_entry(p_session, my_entry);

426: end loop;
427: if l_AttrFound = 1 then
428: exit;
429: end if;
430: my_entry := DBMS_LDAP.next_entry(p_session, my_entry);
431: end loop;
432:
433: return(NVL(new_val,'cn'));
434:

Line 454: my_session dbms_ldap.session;

450: my_mode varchar2(20);
451: my_change_num varchar2(20);
452: my_uname varchar2(256);
453: my_key_att varchar2(256);
454: my_session dbms_ldap.session;
455: my_changelogs dbms_ldap.message;
456: my_user_data DBMS_LDAP.message;
457: my_entry DBMS_LDAP.message;
458: my_ber_elmt DBMS_LDAP.ber_element;

Line 455: my_changelogs dbms_ldap.message;

451: my_change_num varchar2(20);
452: my_uname varchar2(256);
453: my_key_att varchar2(256);
454: my_session dbms_ldap.session;
455: my_changelogs dbms_ldap.message;
456: my_user_data DBMS_LDAP.message;
457: my_entry DBMS_LDAP.message;
458: my_ber_elmt DBMS_LDAP.ber_element;
459: my_vals DBMS_LDAP.STRING_COLLECTION;

Line 456: my_user_data DBMS_LDAP.message;

452: my_uname varchar2(256);
453: my_key_att varchar2(256);
454: my_session dbms_ldap.session;
455: my_changelogs dbms_ldap.message;
456: my_user_data DBMS_LDAP.message;
457: my_entry DBMS_LDAP.message;
458: my_ber_elmt DBMS_LDAP.ber_element;
459: my_vals DBMS_LDAP.STRING_COLLECTION;
460: found boolean := FALSE;

Line 457: my_entry DBMS_LDAP.message;

453: my_key_att varchar2(256);
454: my_session dbms_ldap.session;
455: my_changelogs dbms_ldap.message;
456: my_user_data DBMS_LDAP.message;
457: my_entry DBMS_LDAP.message;
458: my_ber_elmt DBMS_LDAP.ber_element;
459: my_vals DBMS_LDAP.STRING_COLLECTION;
460: found boolean := FALSE;
461: fullbucket boolean := TRUE;

Line 458: my_ber_elmt DBMS_LDAP.ber_element;

454: my_session dbms_ldap.session;
455: my_changelogs dbms_ldap.message;
456: my_user_data DBMS_LDAP.message;
457: my_entry DBMS_LDAP.message;
458: my_ber_elmt DBMS_LDAP.ber_element;
459: my_vals DBMS_LDAP.STRING_COLLECTION;
460: found boolean := FALSE;
461: fullbucket boolean := TRUE;
462: begin

Line 459: my_vals DBMS_LDAP.STRING_COLLECTION;

455: my_changelogs dbms_ldap.message;
456: my_user_data DBMS_LDAP.message;
457: my_entry DBMS_LDAP.message;
458: my_ber_elmt DBMS_LDAP.ber_element;
459: my_vals DBMS_LDAP.STRING_COLLECTION;
460: found boolean := FALSE;
461: fullbucket boolean := TRUE;
462: begin
463: wf_ldap.get_ldap_session(my_session);

Line 478: dbms_ldap.use_exception := FALSE; -- to survive possible sizelimit excp --

474:
475: -- Get the last processed changelog# --
476: my_change_num := wf_ldap.getlastappliedchangenum(my_session);
477:
478: dbms_ldap.use_exception := FALSE; -- to survive possible sizelimit excp --
479: while (fullbucket) loop
480: -- fetch any new changelog entries since the last synch --
481: retval := WF_LDAP.search(
482: my_session, my_log_base, my_changelogs, DBMS_LDAP.SCOPE_ONELEVEL,

Line 482: my_session, my_log_base, my_changelogs, DBMS_LDAP.SCOPE_ONELEVEL,

478: dbms_ldap.use_exception := FALSE; -- to survive possible sizelimit excp --
479: while (fullbucket) loop
480: -- fetch any new changelog entries since the last synch --
481: retval := WF_LDAP.search(
482: my_session, my_log_base, my_changelogs, DBMS_LDAP.SCOPE_ONELEVEL,
483: '(&(objectclass=changelogentry)(changenumber>='||
484: to_char(to_number(my_change_num)+1)||'))');
485:
486: if (retval <> dbms_ldap.success AND

Line 486: if (retval <> dbms_ldap.success AND

482: my_session, my_log_base, my_changelogs, DBMS_LDAP.SCOPE_ONELEVEL,
483: '(&(objectclass=changelogentry)(changenumber>='||
484: to_char(to_number(my_change_num)+1)||'))');
485:
486: if (retval <> dbms_ldap.success AND
487: retval <> dbms_ldap.sizelimit_exceeded)
488: then
489: wf_core.context('wf_ldap', 'synch_changes');
490: wf_core.raise('WF_LDAP_SEARCH_FAIL');

Line 487: retval <> dbms_ldap.sizelimit_exceeded)

483: '(&(objectclass=changelogentry)(changenumber>='||
484: to_char(to_number(my_change_num)+1)||'))');
485:
486: if (retval <> dbms_ldap.success AND
487: retval <> dbms_ldap.sizelimit_exceeded)
488: then
489: wf_core.context('wf_ldap', 'synch_changes');
490: wf_core.raise('WF_LDAP_SEARCH_FAIL');
491: elsif (retval = dbms_ldap.sizelimit_exceeded) then

Line 491: elsif (retval = dbms_ldap.sizelimit_exceeded) then

487: retval <> dbms_ldap.sizelimit_exceeded)
488: then
489: wf_core.context('wf_ldap', 'synch_changes');
490: wf_core.raise('WF_LDAP_SEARCH_FAIL');
491: elsif (retval = dbms_ldap.sizelimit_exceeded) then
492: fullbucket := TRUE;
493: else
494: fullbucket := FALSE;
495: end if;

Line 502: my_entry := DBMS_LDAP.first_entry(my_session, my_changelogs);

498: -- Inspect each changelog entry to see if it looks like a user record.
499: -- All we reliably have is the targetdn, so look at that to see if it
500: -- includes the user base directory. If so, use it to query the user.
501: --
502: my_entry := DBMS_LDAP.first_entry(my_session, my_changelogs);
503: while my_entry IS NOT NULL loop
504: my_attrname :=DBMS_LDAP.first_attribute(my_session,my_entry,my_ber_elmt);
505: while my_attrname IS NOT NULL loop
506: my_vals := DBMS_LDAP.get_values(my_session, my_entry, my_attrname);

Line 504: my_attrname :=DBMS_LDAP.first_attribute(my_session,my_entry,my_ber_elmt);

500: -- includes the user base directory. If so, use it to query the user.
501: --
502: my_entry := DBMS_LDAP.first_entry(my_session, my_changelogs);
503: while my_entry IS NOT NULL loop
504: my_attrname :=DBMS_LDAP.first_attribute(my_session,my_entry,my_ber_elmt);
505: while my_attrname IS NOT NULL loop
506: my_vals := DBMS_LDAP.get_values(my_session, my_entry, my_attrname);
507:
508: if (my_attrname = 'targetdn') then

Line 506: my_vals := DBMS_LDAP.get_values(my_session, my_entry, my_attrname);

502: my_entry := DBMS_LDAP.first_entry(my_session, my_changelogs);
503: while my_entry IS NOT NULL loop
504: my_attrname :=DBMS_LDAP.first_attribute(my_session,my_entry,my_ber_elmt);
505: while my_attrname IS NOT NULL loop
506: my_vals := DBMS_LDAP.get_values(my_session, my_entry, my_attrname);
507:
508: if (my_attrname = 'targetdn') then
509: my_targetdn := substr(my_vals(my_vals.first),1,4000);
510: comp_TargetDN := lower(replace(my_targetdn, ' '));

Line 517: my_attrname:=DBMS_LDAP.next_attribute(my_session,my_entry,my_ber_elmt);

513: elsif (my_attrname = 'changenumber') then
514: my_change_num := substr(my_vals(my_vals.first),1,20);
515: end if;
516:
517: my_attrname:=DBMS_LDAP.next_attribute(my_session,my_entry,my_ber_elmt);
518: end loop; /* attributes */
519:
520: -- dbms_output.put_line('-- debug -------------------');
521: -- dbms_output.put_line('TargetDN: '||my_TargetDN);

Line 533: DBMS_LDAP.SCOPE_SUBTREE,

529: -- dbms_output.put_line('Found potential User: '||my_uname);
530: found := TRUE;
531:
532: retval := WF_LDAP.search(my_session, my_user_base, my_user_data,
533: DBMS_LDAP.SCOPE_SUBTREE,
534: '(&(objectclass=person)(cn='||my_uname||'))');
535:
536: --start bug 3101137
537: my_key_att := fnd_preference.get('#INTERNAL','LDAP_SYNCH', 'KEYATT');

Line 548: my_entry := DBMS_LDAP.next_entry(my_session, my_entry);

544: wf_ldap.walk_and_load(my_session, my_user_data, my_mode, my_key_att,
545: 'USER', my_uname);
546: end if;
547:
548: my_entry := DBMS_LDAP.next_entry(my_session, my_entry);
549: end loop; /* entries */
550: wf_ldap.setLastChangeNumber(my_session, my_change_num);
551: end loop; /* changelogs */
552: dbms_ldap.use_exception := TRUE;

Line 552: dbms_ldap.use_exception := TRUE;

548: my_entry := DBMS_LDAP.next_entry(my_session, my_entry);
549: end loop; /* entries */
550: wf_ldap.setLastChangeNumber(my_session, my_change_num);
551: end loop; /* changelogs */
552: dbms_ldap.use_exception := TRUE;
553:
554: WF_LDAP.unbind(my_session);
555: commit;
556: return TRUE;

Line 570: results dbms_ldap.message;

566: ** synch_all -
567: */
568: FUNCTION synch_all return boolean is
569: retval pls_integer := -1;
570: results dbms_ldap.message;
571: my_session dbms_ldap.session;
572: my_user_base varchar2(256);
573: my_key_att varchar2(256);
574: lastclog varchar2(10);

Line 571: my_session dbms_ldap.session;

567: */
568: FUNCTION synch_all return boolean is
569: retval pls_integer := -1;
570: results dbms_ldap.message;
571: my_session dbms_ldap.session;
572: my_user_base varchar2(256);
573: my_key_att varchar2(256);
574: lastclog varchar2(10);
575: origsizelimit varchar2(10) := 'DUNNO';

Line 602: DBMS_LDAP.SCOPE_SUBTREE, 'objectclass=person');

598: --
599: -- fetch and process all of the users
600: --
601: retval := WF_LDAP.search(my_session, my_user_base, results,
602: DBMS_LDAP.SCOPE_SUBTREE, 'objectclass=person');
603: wf_entity_mgr.flush_cache('*ALL*', null);
604:
605: --start bug 3101137
606: my_key_att := fnd_preference.get('#INTERNAL','LDAP_SYNCH', 'KEYATT');

Line 638: my_session dbms_ldap.session;

634: p_change_source in varchar2,
635: p_change_type in varchar2,
636: p_user_base in varchar2)
637: is
638: my_session dbms_ldap.session;
639: emp_array DBMS_LDAP.MOD_ARRAY;
640: emp_vals DBMS_LDAP.STRING_COLLECTION;
641: emp_dn varchar2(256);
642: retval pls_integer := -1;

Line 639: emp_array DBMS_LDAP.MOD_ARRAY;

635: p_change_type in varchar2,
636: p_user_base in varchar2)
637: is
638: my_session dbms_ldap.session;
639: emp_array DBMS_LDAP.MOD_ARRAY;
640: emp_vals DBMS_LDAP.STRING_COLLECTION;
641: emp_dn varchar2(256);
642: retval pls_integer := -1;
643:

Line 640: emp_vals DBMS_LDAP.STRING_COLLECTION;

636: p_user_base in varchar2)
637: is
638: my_session dbms_ldap.session;
639: emp_array DBMS_LDAP.MOD_ARRAY;
640: emp_vals DBMS_LDAP.STRING_COLLECTION;
641: emp_dn varchar2(256);
642: retval pls_integer := -1;
643:
644: cursor attribute_data is

Line 666: -- dbms_ldap.modify(...)

662: -- update LDAP --
663: -- for atts in attribute_data loop need to join with list of
664: -- null; LDAP supported attributes
665: -- end loop;
666: -- dbms_ldap.modify(...)
667:
668: emp_dn := 'cn=EDDIE.LAWSON,'||p_user_base;
669:
670: -- Create and setup attribute array for the New entry

Line 671: emp_array := DBMS_LDAP.create_mod_array(2);

667:
668: emp_dn := 'cn=EDDIE.LAWSON,'||p_user_base;
669:
670: -- Create and setup attribute array for the New entry
671: emp_array := DBMS_LDAP.create_mod_array(2);
672:
673: emp_vals(1) := 'Try this out!';
674:
675: DBMS_LDAP.populate_mod_array(emp_array,DBMS_LDAP.MOD_REPLACE,

Line 675: DBMS_LDAP.populate_mod_array(emp_array,DBMS_LDAP.MOD_REPLACE,

671: emp_array := DBMS_LDAP.create_mod_array(2);
672:
673: emp_vals(1) := 'Try this out!';
674:
675: DBMS_LDAP.populate_mod_array(emp_array,DBMS_LDAP.MOD_REPLACE,
676: 'description',emp_vals);
677:
678: emp_vals(1) := '1231234';
679:

Line 680: DBMS_LDAP.populate_mod_array(emp_array,DBMS_LDAP.MOD_REPLACE,

676: 'description',emp_vals);
677:
678: emp_vals(1) := '1231234';
679:
680: DBMS_LDAP.populate_mod_array(emp_array,DBMS_LDAP.MOD_REPLACE,
681: 'telephonenumber',emp_vals);
682:
683: -- Modify entry in ldap directory
684: retval := DBMS_LDAP.modify_s(my_session,emp_dn,emp_array);

Line 684: retval := DBMS_LDAP.modify_s(my_session,emp_dn,emp_array);

680: DBMS_LDAP.populate_mod_array(emp_array,DBMS_LDAP.MOD_REPLACE,
681: 'telephonenumber',emp_vals);
682:
683: -- Modify entry in ldap directory
684: retval := DBMS_LDAP.modify_s(my_session,emp_dn,emp_array);
685: ************** NOT IMPLEMENTED *************************/
686: end update_ldap;
687: ------------------------------------------------------------------------------
688: /*