SELECT acl,
       principal,
       privilege,
       is_grant,
       TO_CHAR(start_date, 'DD-MON-YYYY') AS start_date,
       TO_CHAR(end_date, 'DD-MON-YYYY') AS end_date
FROM   dba_network_acl_privileges;

SELECT grantee , table_name , privilege
from dba_tab_privs
where table_name = 'UTL_HTTP'

-- Privilege to resolve a hostname (DNS lookup)
DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(
  acl       => l_acl_name,
  principal => 'user_utl',
  is_grant  => TRUE,
  privilege => 'connect',
  position  => null );

DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(
  acl       => l_acl_name,
  principal => 'user_utl',
  is_grant  => TRUE,
  privilege => 'resolve',          --> here!
  position  => null );

create user test_utl
  identified by test_utl
  default tablespace USERS
  temporary tablespace TEMP
  profile DEFAULT;
-- Grant/Revoke role privileges 
grant connect to test_utl;
grant resource to test_utl;

grant execute on utl_http to test_utl

create or replace function add_acl(url in String) return varchar2 is

l_acl_name varchar2(100) := 'utl_http.xml';
begin

       begin
        dbms_network_acl_admin.drop_acl(
          acl =>         l_acl_name
        );
--      exception  when others then null; -- ACL does not exist yet
      end;
     
        -- Privilege to connect to a host
        dbms_network_acl_admin.create_acl(
        acl =>         l_acl_name,
        description => 'HTTP Access',
        principal =>   'test_utl',
        is_grant =>    TRUE,
        privilege =>   'connect');

       -- Privilege to resolve a hostname (DNS lookup)
        DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(
          acl       => l_acl_name,
          principal => 'test_utl',
          is_grant  => TRUE,
          privilege => 'resolve',
          position  => null );

        commit;        

      dbms_network_acl_admin.assign_acl(
        acl =>         l_acl_name,
        host =>        '*yahoo.com*',
        lower_port => 80,
        upper_port => 10000 );

 commit;    

end add_acl;

create or replace procedure my_utl(pUrl VARCHAR2) is
  begin
  DECLARE
  l_url            VARCHAR2(50) := pUrl;
  l_http_request   UTL_HTTP.req;
  l_http_response  UTL_HTTP.resp;

BEGIN
  -- Make a HTTP request and get the response.
  l_http_request  := UTL_HTTP.begin_request(l_url);
  l_http_response := UTL_HTTP.get_response(l_http_request);
  UTL_HTTP.end_response(l_http_response);


END;

end ;

 32  commit;
 33* end add_acl;
orclz> /

Function created.

orclz> select add_acl('garb') from dual;
select add_acl('garb') from dual
       *
ERROR at line 1:
ORA-46238: Database user or role '"user_utl"' does not exist
ORA-06512: at "SYS.XS_ADMIN_UTIL", line 70
ORA-06512: at "SYS.XS_ACL_INT", line 114
ORA-01403: no data found
ORA-06512: at "SYS.DBMS_NETWORK_ACL_ADMIN", line 503
ORA-06512: at "SYS.ADD_ACL", line 12


orclz>