CREATE OR REPLACE PACKAGE XDB_UTILITY as
 procedure SET_HTTP_PORT (PORT_NUMBER number);
 procedure SET_FTP_PORT (PORT_NUMBER number);
end XDB_UTILITY;
/
show errors
--
create or replace package body XDB_UTILITY as
--
FTP_XPATH varchar2(256) := '/xdbconfig/sysconfig/protocolconfig/ftpconfig/ftp-port';
HTTP_XPATH varchar2(256) := '/xdbconfig/sysconfig/protocolconfig/httpconfig/http-port';
--
procedure SET_XDB_PORT(PORT_XPATH varchar2, PORT_NUMBER number) as
   config XMLType;
begin
   config := dbms_xdb.cfg_get();
   select updateXML(config, PORT_XPATH, PORT_NUMBER)
   into config
   from dual;
   dbms_xdb.cfg_update(config);
   commit;
   dbms_xdb.cfg_refresh();
end;
----
-- ROTINAS PARA ALTERAR PORTAS
--
procedure SET_HTTP_PORT(PORT_NUMBER number) as
begin
  SET_XDB_PORT(HTTP_XPATH || '/text()', PORT_NUMBER);
end;
--
procedure SET_FTP_PORT(PORT_NUMBER number) as
begin
  SET_XDB_PORT(FTP_XPATH || '/text()', PORT_NUMBER);
end;
--
end XDB_UTILITY;
/
show errors
--
create or replace public synonym XDB_UTILITY for XDB_UTILITY
/
grant execute on XDB_UTILITY to XDBADMIN
/