--
1.創建訪問控制列表(ACLemail_server_permissions),
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
acl => ' email_server_permissions.xml ',
description => ' Enables network permissions for the e-mail server ',
principal => ' NC633 ', -- 此為將來要進行操作的用戶
is_grant => TRUE,
privilege => ' connect ');
END;
/
-- 2. 將此 ACL 與郵件服務器相關聯,
BEGIN
DBMS_NETWORK_ACL_ADMIN.assign_acl (
acl => ' email_server_permissions.xml ',
host => ' 10.10.0.200 ', -- SMTP服務器地址
lower_port => 25,
upper_port => 25);
COMMIT;
END;
/
-- 3.創建訪問控制列表(ACL)network_services,
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
acl => ' network_services.xml ',
description => ' Enables network permissions for the e-mail server ',
principal => ' NC633 ', -- 此為將來要進行操作的用戶
is_grant => TRUE,
privilege => ' connect ');
END;
/
-- 4. 將此 ACL 與郵件服務器相關聯,
BEGIN
DBMS_NETWORK_ACL_ADMIN.assign_acl (
acl => ' network_services.xml ',
host => ' * ', -- SMTP服務器地址
lower_port => NULL,
upper_port => NULL);
COMMIT;
END;
/
-- --查詢
SELECT host, lower_port, upper_port, acl FROM dba_network_acls;
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;
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
acl => ' email_server_permissions.xml ',
description => ' Enables network permissions for the e-mail server ',
principal => ' NC633 ', -- 此為將來要進行操作的用戶
is_grant => TRUE,
privilege => ' connect ');
END;
/
-- 2. 將此 ACL 與郵件服務器相關聯,
BEGIN
DBMS_NETWORK_ACL_ADMIN.assign_acl (
acl => ' email_server_permissions.xml ',
host => ' 10.10.0.200 ', -- SMTP服務器地址
lower_port => 25,
upper_port => 25);
COMMIT;
END;
/
-- 3.創建訪問控制列表(ACL)network_services,
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
acl => ' network_services.xml ',
description => ' Enables network permissions for the e-mail server ',
principal => ' NC633 ', -- 此為將來要進行操作的用戶
is_grant => TRUE,
privilege => ' connect ');
END;
/
-- 4. 將此 ACL 與郵件服務器相關聯,
BEGIN
DBMS_NETWORK_ACL_ADMIN.assign_acl (
acl => ' network_services.xml ',
host => ' * ', -- SMTP服務器地址
lower_port => NULL,
upper_port => NULL);
COMMIT;
END;
/
-- --查詢
SELECT host, lower_port, upper_port, acl FROM dba_network_acls;
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;
刪除ACL方法
--
刪除ACL
BEGIN
DBMS_NETWORK_ACL_ADMIN.drop_acl(acl => ' network_services.xml ');
COMMIT;
END;
/
BEGIN
DBMS_NETWORK_ACL_ADMIN.drop_acl(acl => ' network_services.xml ');
COMMIT;
END;
/