DBA Data[Home] [Help]

APPS.IBY_NETUTILS_PVT dependencies on UTL_TCP

Line 414: l_conn UTL_TCP.CONNECTION; -- TCP/IP connection to the Web server

410: l_pos NUMBER := 1;
411: l_len NUMBER;
412: l_html VARCHAR2(32767);
413:
414: l_conn UTL_TCP.CONNECTION; -- TCP/IP connection to the Web server
415: l_ret_val PLS_INTEGER;
416: l_content_len NUMBER := 0;
417: i NUMBER := 1;
418:

Line 472: l_conn := utl_tcp.open_connection(remote_host => l_host,

468: --dbms_output.put_line('l_host = ' || l_host);
469: --dbms_output.put_line('l_port = ' || l_port);
470: --dbms_output.put_line('POST BoDY Length = ' || DBMS_LOB.GETLENGTH(p_postbody));
471:
472: l_conn := utl_tcp.open_connection(remote_host => l_host,
473: remote_port => l_port);
474:
475: l_ret_val := utl_tcp.write_line(l_conn, l_post_info);
476: l_ret_val := utl_tcp.write_line(l_conn,'Accept: text/plain');

Line 475: l_ret_val := utl_tcp.write_line(l_conn, l_post_info);

471:
472: l_conn := utl_tcp.open_connection(remote_host => l_host,
473: remote_port => l_port);
474:
475: l_ret_val := utl_tcp.write_line(l_conn, l_post_info);
476: l_ret_val := utl_tcp.write_line(l_conn,'Accept: text/plain');
477: l_ret_val := utl_tcp.write_line(l_conn,'Content-type: application/x-www-form-urlencoded');
478:
479: -- get the length of the clob

Line 476: l_ret_val := utl_tcp.write_line(l_conn,'Accept: text/plain');

472: l_conn := utl_tcp.open_connection(remote_host => l_host,
473: remote_port => l_port);
474:
475: l_ret_val := utl_tcp.write_line(l_conn, l_post_info);
476: l_ret_val := utl_tcp.write_line(l_conn,'Accept: text/plain');
477: l_ret_val := utl_tcp.write_line(l_conn,'Content-type: application/x-www-form-urlencoded');
478:
479: -- get the length of the clob
480: l_postbody_length := DBMS_LOB.GETLENGTH(p_postbody);

Line 477: l_ret_val := utl_tcp.write_line(l_conn,'Content-type: application/x-www-form-urlencoded');

473: remote_port => l_port);
474:
475: l_ret_val := utl_tcp.write_line(l_conn, l_post_info);
476: l_ret_val := utl_tcp.write_line(l_conn,'Accept: text/plain');
477: l_ret_val := utl_tcp.write_line(l_conn,'Content-type: application/x-www-form-urlencoded');
478:
479: -- get the length of the clob
480: l_postbody_length := DBMS_LOB.GETLENGTH(p_postbody);
481: --l_content_len := 0 ;

Line 483: l_ret_val := utl_tcp.write_line(l_conn,'Content-length: '||l_content_len);

479: -- get the length of the clob
480: l_postbody_length := DBMS_LOB.GETLENGTH(p_postbody);
481: --l_content_len := 0 ;
482: l_content_len := l_postbody_length;
483: l_ret_val := utl_tcp.write_line(l_conn,'Content-length: '||l_content_len);
484: l_ret_val := utl_tcp.write_line(l_conn);
485:
486:
487:

Line 484: l_ret_val := utl_tcp.write_line(l_conn);

480: l_postbody_length := DBMS_LOB.GETLENGTH(p_postbody);
481: --l_content_len := 0 ;
482: l_content_len := l_postbody_length;
483: l_ret_val := utl_tcp.write_line(l_conn,'Content-length: '||l_content_len);
484: l_ret_val := utl_tcp.write_line(l_conn);
485:
486:
487:
488: -- splitting the clob into varchar2 and posting it.

Line 494: l_ret_val := utl_tcp.write_text(l_conn,l_buff,null);

490: l_len := 32767;
491: DBMS_LOB.READ(p_postbody,l_len,l_pos,l_buff);
492: l_pos := l_pos + length(l_buff);
493: --dbms_output.put_line('Read :' || l_buff);
494: l_ret_val := utl_tcp.write_text(l_conn,l_buff,null);
495: END LOOP;
496:
497:
498: BEGIN

Line 500: l_html := substr(utl_tcp.get_line(l_conn,TRUE),1,30000);

496:
497:
498: BEGIN
499: LOOP
500: l_html := substr(utl_tcp.get_line(l_conn,TRUE),1,30000);
501: l_html := LTRIM(RTRIM(l_html));
502: --dbms_output.put_line('Response length:' || length(x_htmldoc));
503: --dbms_output.put_line('Response frag : "' || l_html||'"');
504: --dbms_output.put_line('Response frag length: "' || length(l_html)||'"');

Line 507: raise utl_tcp.end_of_input;

503: --dbms_output.put_line('Response frag : "' || l_html||'"');
504: --dbms_output.put_line('Response frag length: "' || length(l_html)||'"');
505: if (length(l_html) is null) then
506: --dbms_output.put_line('Raising Exception...');
507: raise utl_tcp.end_of_input;
508: end if;
509: --x_htmldoc := x_htmldoc || l_html;
510:
511: --dbms_output.put_line('Response Param: "' || ltrim(rtrim(substr(l_html ,1,instr(l_html,':')-1)))||'"');

Line 519: WHEN utl_tcp.end_of_input THEN

515: i := i + 1;
516:
517: END LOOP;
518: EXCEPTION
519: WHEN utl_tcp.end_of_input THEN
520: NULL; -- end of input
521: END;
522:
523: --dbms_output.put_line('Final Response length :'|| length(x_htmldoc));

Line 524: utl_tcp.close_connection(l_conn);

520: NULL; -- end of input
521: END;
522:
523: --dbms_output.put_line('Final Response length :'|| length(x_htmldoc));
524: utl_tcp.close_connection(l_conn);
525:
526: EXCEPTION
527: WHEN OTHERS THEN
528: /* Return a status of -1 to the calling API to indicate