ACL注册

利用Oracle数据库里的API，调用Webservice，需要授权ACL控制权限，如下：
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
acl => ‘ws_login_permission.xml’,
description => ‘Enables network permissions for the image server’,
principal => ‘QLTEST’,
is_grant => TRUE,
privilege => ‘connect’);
END;
/
BEGIN
DBMS_NETWORK_ACL_ADMIN.assign_acl (
acl => ‘ws_login_permission.xml’,
host => ‘localhost’,
lower_port => 8888,
upper_port => NULL);
COMMIT;
END;
/
hls_ws_request_pkg

procedure ws_login(p_user_name varchar2,p_passwd varchar2,p_rsp_code out varchar2,p_rsp_msg out varchar2);

–移动审批登录接口
procedure ws_login(p_user_name varchar2,p_passwd varchar2,p_rsp_code out varchar2,p_rsp_msg out varchar2) is
v_request_xml varchar2(4000);
v_response_xml sys.xmltype;
begin

 v_request_x