create or replace procedure publish_cinema_even
is
  req utl_http.req;
  res utl_http.resp;
  url varchar2(4000) := 'https://alsytto.onlyoffice.eu/api/2.0/authentication.xml?userName=email@mail.ru&password=password';
  name varchar2(4000);
  buffer varchar2(4000);
  content varchar2(4000) := '{}';

begin
  utl_http.set_wallet ('file:c:appwallet2','test1234');
  utl_http.set_detailed_excp_support (true);
  req := utl_http.begin_request(url, 'POST',' HTTP/1.1');

  --UTL_HTTP.set_wallet('file:/c:apporaUserproduct12.1.0dbhome_1BINwallets', 'test1234');
  --utl_http.set_header(req, 'user-agent', 'mozilla/4.0');
  --utl_http.set_header(req, 'content-type', 'application/json');
  utl_http.set_header(req, 'Content-Length', length(content));

  utl_http.write_text(req, content);
  res := utl_http.get_response(req);
  -- process the response from the HTTP call
  begin
    loop
      utl_http.read_line(res, buffer);
      dbms_output.put_line(buffer);
    end loop;
    utl_http.end_response(res);
  exception
    when utl_http.end_of_body
    then
      utl_http.end_response(res);
  end;
end publish_cinema_even;