create or
replace procedure mailserver_acl(
aacl varchar2,
acomment varchar2,
aprincipal
varchar2,
aisgrant boolean,
aprivilege
varchar2,
aserver varchar2,
aport number)
is
begin
begin
DBMS_NETWORK_ACL_ADMIN.DROP_ACL(aacl);
dbms_output.put_line('ACL dropped.....');
exception
when
others then
dbms_output.put_line('Error dropping ACL: '||aacl);
dbms_output.put_line(sqlerrm);
end;
begin
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL(aacl,acomment,aprincipal,aisgrant,aprivilege);
dbms_output.put_line('ACL created.....');
exception
when
others then
dbms_output.put_line('Error creating ACL: '||aacl);
dbms_output.put_line(sqlerrm);
end;
begin
DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL(aacl,aserver,aport);
dbms_output.put_line('ACL
assigned.....');
exception
when
others then
dbms_output.put_line('Error assigning ACL: '||aacl);
dbms_output.put_line(sqlerrm);
end;
commit;
dbms_output.put_line('ACL commited.....');
end;
/
commit;
show error
begin
mailserver_acl(
'mailserver_acl.xml',
'ACL
for used Email Server to connect',
'APEX_030200',
TRUE,
'connect',
'mail_server',
25);
end;
/
commit;
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/763776/viewspace-617139/ ,如需转载,请注明出处,否则将追究法律责任。