----------------------------------
  l_http_request  := UTL_HTTP.begin_request(l_url); 
  
  utl_http.set_header(l_http_request, 'Authorization', 'Basic ' || 
                                       utl_raw.cast_to_varchar2(utl_encode.base64_encode(
                                         utl_i18n.string_to_raw('userid:passwd', 'UTF8')
                                      ))
  );
  
  l_http_response := UTL_HTTP.get_response(l_http_request);
  -- Copy the response into the BLOB.
  BEGIN
    LOOP
        UTL_HTTP.read_raw(l_http_response, l_raw, 32767);
        DBMS_LOB.writeappend (v_http_response, UTL_RAW.length(l_raw), l_raw);
    END LOOP;
  EXCEPTION
    WHEN UTL_HTTP.end_of_body THEN
      UTL_HTTP.end_response(l_http_response);
  END;   
----------------------------------
  
   req := UTL_HTTP.begin_request('http://some.site.com/');
   UTL_HTTP.set_authentication(req, 'bob', 'swordfish');
   resp := UTL_HTTP.get_response(req);

create or replace procedure soap_test is
  l_userid         varchar2(100) := 'WebService';
  l_passwd         varchar2(100) := '';
  l_url            varchar2(1000) := 'http://'||l_userid||':'||l_passwd||'@192.168.0.68/ka_centr/ru_RU/ws/SuperMag.1cws?wsdl';
  --l_url            varchar2(1000) := 'http://localhost:8080/';
  v_http_response  CLOB;
  --l_xml            xmltype;
  l_http_request   UTL_HTTP.req;
  l_http_response  UTL_HTTP.resp;
  l_text           varchar2(32767);

  l_sqlerrm        varchar2(4000);

  l_name  VARCHAR2(256);
  l_value VARCHAR2(1024);

BEGIN
  UTL_HTTP.SET_PROXY('127.0.0.1:8080', '*');
  l_http_request  := UTL_HTTP.begin_request(l_url);

  utl_http.set_header(l_http_request, 'Header1', 'test_value');


  l_http_response := UTL_HTTP.get_response(l_http_request);

  DBMS_OUTPUT.PUT_LINE('response headers:');
  FOR i IN 1..UTL_HTTP.GET_HEADER_COUNT(l_http_response) LOOP
    UTL_HTTP.GET_HEADER(l_http_response, i, l_name, l_value);
    DBMS_OUTPUT.PUT_LINE(l_name || ': ' || l_value);
  END LOOP;

  -- Copy the response into the BLOB.
  DBMS_LOB.createtemporary(v_http_response, FALSE);
  BEGIN
    LOOP
        UTL_HTTP.read_text(l_http_response, l_text, 32767);
        DBMS_LOB.writeappend (v_http_response, length(l_text), l_text);
    END LOOP;
  EXCEPTION
    WHEN UTL_HTTP.end_of_body THEN
      UTL_HTTP.end_response(l_http_response);
  END;

  --v_http_response := HTTPURITYPE(l_url).getclob;

  insert into soap_log(text) values(v_http_response);
  commit;
  /*
  l_xml := XMLTYPE.createxml(v_http_response);
  select t.xml.extract('//definitions').getStringVal() vvv
   from
  (select xmltype(text) xml from soap_log) t;
  */

  DBMS_LOB.freetemporary(v_http_response);
EXCEPTION
  WHEN OTHERS THEN
    l_sqlerrm := sqlerrm ||chr(10)||DBMS_UTILITY.FORMAT_ERROR_BACKTRACE();
    DBMS_LOB.freetemporary(v_http_response);
    insert into soap_log(text) values(l_sqlerrm);
    commit;

end soap_test;