DBA Data[Home] [Help]

APPS.HZ_HTTP_PKG dependencies on UTL_TCP

Line 57: c IN OUT NOCOPY utl_tcp.connection,

53: END disable_debug;
54: */
55:
56: PROCEDURE write(
57: c IN OUT NOCOPY utl_tcp.connection,
58: value VARCHAR2 := NULL)
59: IS
60: b pls_integer;
61: l_debug_prefix VARCHAR2(30) := '';

Line 63: b := utl_tcp.write_line(c, value);

59: IS
60: b pls_integer;
61: l_debug_prefix VARCHAR2(30) := '';
62: BEGIN
63: b := utl_tcp.write_line(c, value);
64: --enable_debug;
65: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
66: hz_utility_v2pub.debug(p_message=>'The text line transmitted :'|| substrb(value,1,200),
67: p_prefix =>l_debug_prefix,

Line 74: c IN OUT NOCOPY utl_tcp.connection,

70: --disable_debug;
71: END write;
72:
73: PROCEDURE write_header(
74: c IN OUT NOCOPY utl_tcp.connection,
75: name VARCHAR2,
76: value VARCHAR2)
77: IS
78: l_debug_prefix VARCHAR2(30) := '';

Line 131: -- utl_tcp

127: -- Gets an http-format response from the tcp socket and returns it into
128: -- resp. Non-http-formatted responses are returned into err_resp.
129: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
130: -- hz_utility_v2pub
131: -- utl_tcp
132: -- MODIFICATION HISTORY
133: -- 03-27-2002 J. del Callar Added err_resp parameter to get non-http
134: -- error messages for inclusion in log.
135: --------------------------------------

Line 137: c in OUT NOCOPY utl_tcp.connection,

133: -- 03-27-2002 J. del Callar Added err_resp parameter to get non-http
134: -- error messages for inclusion in log.
135: --------------------------------------
136: PROCEDURE get_response_from (
137: c in OUT NOCOPY utl_tcp.connection,
138: resp OUT NOCOPY VARCHAR2,
139: content_type OUT NOCOPY VARCHAR2,
140: err_resp OUT NOCOPY VARCHAR2
141: ) IS

Line 155: line := utl_tcp.get_line(c);

151: p_prefix=>l_debug_prefix,
152: p_msg_level=>fnd_log.level_procedure);
153: END IF;
154: WHILE success LOOP
155: line := utl_tcp.get_line(c);
156: IF firstline THEN
157: IF line NOT LIKE '%HTTP%200%OK%' THEN
158: success := FALSE;
159: err_resp := line || utl_tcp.get_text(c, 32767-LENGTHB(line));

Line 159: err_resp := line || utl_tcp.get_text(c, 32767-LENGTHB(line));

155: line := utl_tcp.get_line(c);
156: IF firstline THEN
157: IF line NOT LIKE '%HTTP%200%OK%' THEN
158: success := FALSE;
159: err_resp := line || utl_tcp.get_text(c, 32767-LENGTHB(line));
160: END IF;
161: firstline := FALSE;
162: ELSE
163: IF header THEN

Line 164: IF line = utl_tcp.crlf THEN

160: END IF;
161: firstline := FALSE;
162: ELSE
163: IF header THEN
164: IF line = utl_tcp.crlf THEN
165: header := false;
166: ELSE
167: IF UPPER(line) LIKE 'CONTENT-TYPE:%' THEN
168: content_type := RTRIM(RTRIM(RTRIM(LTRIM(SUBSTRB(line,14))),fnd_global.local_chr(10)),fnd_global.local_chr(13));

Line 192: WHEN utl_tcp.end_of_input THEN

188: END IF;
189:
190: --disable_debug;
191: EXCEPTION
192: WHEN utl_tcp.end_of_input THEN
193: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
194: hz_utility_v2pub.debug(p_message=>'The response is :' || SUBSTRB(resp, 1, 200),
195: p_prefix=>'ERROR',
196: p_msg_level=>fnd_log.level_error);

Line 217: -- utl_tcp

213: -- DESCRIPTION
214: -- Implements HTTP post functionality.
215: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
216: -- hz_utility_v2pub
217: -- utl_tcp
218: -- MODIFICATION HISTORY
219: -- 07-22-2002 J. del Callar Added for backward compatibility.
220: --------------------------------------
221: PROCEDURE post(

Line 264: -- utl_tcp

260: -- DESCRIPTION
261: -- Implements HTTP post functionality.
262: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
263: -- hz_utility_v2pub
264: -- utl_tcp
265: -- MODIFICATION HISTORY
266: -- 03-27-2002 J. del Callar Added err_resp parameter to get non-http
267: -- error messages for inclusion in log.
268: --------------------------------------

Line 289: c utl_tcp.connection;

285: line VARCHAR2(32767);
286: firstline BOOLEAN := TRUE;
287: head BOOLEAN := TRUE;
288: success BOOLEAN := TRUE;
289: c utl_tcp.connection;
290: l_debug_prefix VARCHAR2(30) := '';
291: BEGIN
292: --enable_debug;
293: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN

Line 299: c := utl_tcp.open_connection(host,port);

295: p_prefix=>l_debug_prefix,
296: p_msg_level=>fnd_log.level_procedure);
297: END IF;
298: sethostpostpath(url, proxyserver,proxyport, host, port, path);
299: c := utl_tcp.open_connection(host,port);
300: write(c, 'POST '|| path||' HTTP/1.0');
301: write_header(c, 'Content-Type', content_type);
302: write_header(c, 'Content-Length', lengthb(doc));
303: write(c);

Line 305: utl_tcp.flush(c);

301: write_header(c, 'Content-Type', content_type);
302: write_header(c, 'Content-Length', lengthb(doc));
303: write(c);
304: write(c, doc);
305: utl_tcp.flush(c);
306: get_response_from(c, resp, resp_content_type, err_resp);
307: utl_tcp.close_connection(c);
308: -- Debug info.
309: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN

Line 307: utl_tcp.close_connection(c);

303: write(c);
304: write(c, doc);
305: utl_tcp.flush(c);
306: get_response_from(c, resp, resp_content_type, err_resp);
307: utl_tcp.close_connection(c);
308: -- Debug info.
309: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
310: hz_utility_v2pub.debug(p_message=>'post (-)',
311: p_prefix=>l_debug_prefix,

Line 318: utl_tcp.close_connection(c);

314: --disable_debug;
315: EXCEPTION
316: WHEN OTHERS THEN
317: IF c.remote_host IS NOT NULL THEN
318: utl_tcp.close_connection(c);
319: END IF;
320: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
321: fnd_message.set_token('ERROR' ,SQLERRM);
322: fnd_msg_pub.add;

Line 333: -- utl_tcp

329: -- DESCRIPTION
330: -- Implements HTTP post functionality.
331: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
332: -- hz_utility_v2pub
333: -- utl_tcp
334: -- MODIFICATION HISTORY
335: -- 07-22-2002 J. del Callar Added for backward compatibility.
336: --------------------------------------
337: PROCEDURE get(

Line 376: -- utl_tcp

372: -- DESCRIPTION
373: -- Implements HTTP get functionality.
374: -- EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
375: -- hz_utility_v2pub
376: -- utl_tcp
377: -- MODIFICATION HISTORY
378: -- 03-27-2002 J. del Callar Added err_resp parameter to get non-http
379: -- error messages for inclusion in log.
380: --------------------------------------

Line 396: c utl_tcp.connection;

392: port NUMBER := 80;
393: host VARCHAR2(400);
394: path VARCHAR2(400);
395: msg VARCHAR2(32767);
396: c utl_tcp.connection;
397: l_debug_prefix VARCHAR2(30) := '';
398: BEGIN
399: --enable_debug;
400: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN

Line 406: c := utl_tcp.open_connection(host, port);

402: p_prefix=>l_debug_prefix,
403: p_msg_level=>fnd_log.level_procedure);
404: END IF;
405: sethostpostpath( url, proxyserver, proxyport, host, port, port);
406: c := utl_tcp.open_connection(host, port);
407: write(c, 'GET '||path||' HTTP/1.0');
408: write(c);
409: utl_tcp.flush(c);
410: get_response_from(c, resp, resp_content_type, err_resp);

Line 409: utl_tcp.flush(c);

405: sethostpostpath( url, proxyserver, proxyport, host, port, port);
406: c := utl_tcp.open_connection(host, port);
407: write(c, 'GET '||path||' HTTP/1.0');
408: write(c);
409: utl_tcp.flush(c);
410: get_response_from(c, resp, resp_content_type, err_resp);
411: utl_tcp.close_connection(c);
412: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
413: hz_utility_v2pub.debug(p_message=>'get (-)',

Line 411: utl_tcp.close_connection(c);

407: write(c, 'GET '||path||' HTTP/1.0');
408: write(c);
409: utl_tcp.flush(c);
410: get_response_from(c, resp, resp_content_type, err_resp);
411: utl_tcp.close_connection(c);
412: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
413: hz_utility_v2pub.debug(p_message=>'get (-)',
414: p_prefix=>l_debug_prefix,
415: p_msg_level=>fnd_log.level_procedure);

Line 421: utl_tcp.close_connection(c);

417: --disable_debug;
418: EXCEPTION
419: WHEN OTHERS THEN
420: IF c.remote_host IS NOT NULL THEN
421: utl_tcp.close_connection(c);
422: END IF;
423: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
424: fnd_message.set_token('ERROR' ,SQLERRM);
425: fnd_msg_pub.add;