No necesitas ningún commit
, ya que no se realizan operaciones DML explícitas para estas operaciones. Y usando begin..end
tampoco se necesitan bloques para cada método invocado.
Su problema surge del hecho de que es necesario invocar Dbms_Network_Acl_Admin.Add_Privilege
método con privilege => 'connect'
opción también. Así que puedes usar lo siguiente:
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL(
acl => 'apex_user.xml',
description => 'access to apex email',
principal => 'DBUSER',
is_grant => TRUE,
privilege => 'connect',
start_date => SYSTIMESTAMP,
end_date =>Null
);
DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(
acl => 'apex_user.xml',
principal => 'DBUSER',
is_grant => true,
privilege => 'connect'
);
DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE(
acl => 'apex_user.xml',
principal => 'DBUSER',
is_grant => true,
privilege => 'resolve'
);
DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL(
acl => 'apex_user.xml',
host => 'smtp.gmail.com',
lower_port =>587,
upper_port =>587
);
END;
Con la siguiente consulta se pueden verificar todos los accesos privilegiados (a través de esquemas SYS o SYSTEM ):
select a.host,p.*
from dba_network_acl_privileges p
join dba_network_acls a on a.aclid = p.aclid
order by a.host, p.principal, p.privilege;