Нямате нужда от commit
, тъй като за тези операции не се изпълняват изрични DML операции. И използвайки begin..end
блокове също не са необходими за всяко извикване на метод.
Вашият проблем произтича от факта, че е необходимо да извиквате Dbms_Network_Acl_Admin.Add_Privilege
метод с privilege => 'connect'
опция също. Така че можете да използвате следното:
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;
Със следната заявка всички привилегировани достъпи могат да бъдат проверени ( чрез SYS или 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;