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,
68: p_msg_level=>fnd_log.level_statement);
69: END IF;
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,
68: p_msg_level=>fnd_log.level_statement);
69: END IF;
70: --disable_debug;
71: END write;
72:
78: l_debug_prefix VARCHAR2(30) := '';
79: BEGIN
80: --enable_debug;
81: write(c, name||': '||value);
82: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
83: hz_utility_v2pub.debug(p_message=>'The header is :'|| substrb(name||': '||value,1,200),
84: p_prefix =>l_debug_prefix,
85: p_msg_level=>fnd_log.level_statement);
86: END IF;
81: write(c, name||': '||value);
82: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
83: hz_utility_v2pub.debug(p_message=>'The header is :'|| substrb(name||': '||value,1,200),
84: p_prefix =>l_debug_prefix,
85: p_msg_level=>fnd_log.level_statement);
86: END IF;
87: --disable_debug;
88: END write_header;
89:
145: success BOOLEAN := TRUE;
146: l_debug_prefix VARCHAR2(30) := '';
147: BEGIN
148: --enable_debug;
149: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
150: hz_utility_v2pub.debug(p_message=>'get_response_from (+)',
151: p_prefix=>l_debug_prefix,
152: p_msg_level=>fnd_log.level_procedure);
153: END IF;
148: --enable_debug;
149: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
150: hz_utility_v2pub.debug(p_message=>'get_response_from (+)',
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
172: resp := resp || line;
173: END IF;
174: END IF;
175: END LOOP;
176: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
177: hz_utility_v2pub.debug(p_message=>'The response is :' || SUBSTRB(resp, 1, 200),
178: p_prefix =>l_debug_prefix,
179: p_msg_level=>fnd_log.level_statement);
180: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
175: END LOOP;
176: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
177: hz_utility_v2pub.debug(p_message=>'The response is :' || SUBSTRB(resp, 1, 200),
178: p_prefix =>l_debug_prefix,
179: p_msg_level=>fnd_log.level_statement);
180: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
181: p_prefix =>l_debug_prefix,
182: p_msg_level=>fnd_log.level_statement);
183: END IF;
178: p_prefix =>l_debug_prefix,
179: p_msg_level=>fnd_log.level_statement);
180: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
181: p_prefix =>l_debug_prefix,
182: p_msg_level=>fnd_log.level_statement);
183: END IF;
184: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
185: hz_utility_v2pub.debug(p_message=>'get_response_from (-)',
186: p_prefix=>l_debug_prefix,
180: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
181: p_prefix =>l_debug_prefix,
182: p_msg_level=>fnd_log.level_statement);
183: END IF;
184: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
185: hz_utility_v2pub.debug(p_message=>'get_response_from (-)',
186: p_prefix=>l_debug_prefix,
187: p_msg_level=>fnd_log.level_procedure);
188: END IF;
183: END IF;
184: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
185: hz_utility_v2pub.debug(p_message=>'get_response_from (-)',
186: p_prefix=>l_debug_prefix,
187: p_msg_level=>fnd_log.level_procedure);
188: END IF;
189:
190: --disable_debug;
191: EXCEPTION
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);
197: END IF;
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);
197: END IF;
198: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
199: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
200: p_prefix=>'ERROR',
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);
197: END IF;
198: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
199: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
200: p_prefix=>'ERROR',
201: p_msg_level=>fnd_log.level_error);
202: END IF;
197: END IF;
198: IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
199: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
200: p_prefix=>'ERROR',
201: p_msg_level=>fnd_log.level_error);
202: END IF;
203: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
204: hz_utility_v2pub.debug(p_message=>'get_response_from (-)',
205: p_prefix=>l_debug_prefix,
199: hz_utility_v2pub.debug(p_message=>'The error response is :' || SUBSTRB(err_resp, 1, 200),
200: p_prefix=>'ERROR',
201: p_msg_level=>fnd_log.level_error);
202: END IF;
203: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
204: hz_utility_v2pub.debug(p_message=>'get_response_from (-)',
205: p_prefix=>l_debug_prefix,
206: p_msg_level=>fnd_log.level_procedure);
207: END IF;
202: END IF;
203: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
204: hz_utility_v2pub.debug(p_message=>'get_response_from (-)',
205: p_prefix=>l_debug_prefix,
206: p_msg_level=>fnd_log.level_procedure);
207: END IF;
208: --disable_debug;
209: END get_response_from;
210:
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
294: hz_utility_v2pub.debug(p_message=>'post (+)',
295: p_prefix=>l_debug_prefix,
296: p_msg_level=>fnd_log.level_procedure);
297: END IF;
292: --enable_debug;
293: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
294: hz_utility_v2pub.debug(p_message=>'post (+)',
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');
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,
312: p_msg_level=>fnd_log.level_procedure);
313: END IF;
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,
312: p_msg_level=>fnd_log.level_procedure);
313: END IF;
314: --disable_debug;
315: EXCEPTION
316: WHEN OTHERS THEN
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
401: hz_utility_v2pub.debug(p_message=>'get (+)',
402: p_prefix=>l_debug_prefix,
403: p_msg_level=>fnd_log.level_procedure);
404: END IF;
399: --enable_debug;
400: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
401: hz_utility_v2pub.debug(p_message=>'get (+)',
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);
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);
416: END IF;
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);
416: END IF;
417: --disable_debug;
418: EXCEPTION
419: WHEN OTHERS THEN