declare
   dad varchar2( 100 ) :='Web Services for Public Access';
begin
   DBMS_EPG.Drop_DAD(dad); 
   DBMS_EPG.CREATE_DAD(dad, '/public_site1/*'); 
   DBMS_EPG.SET_DAD_ATTRIBUTE(dad, 'database-username', 'ANONYMOUS');
   DBMS_EPG.SET_DAD_ATTRIBUTE(dad, 'default-page', 'EPG_SITE.test');
   DBMS_EPG.SET_DAD_ATTRIBUTE(dad, 'nls-language', 'RUSSIAN_CIS.CL8MSWIN1251');
end;
/

CREATE OR REPLACE package tools.testhttpp as
procedure ppp;
end;
/
CREATE OR REPLACE package body tools.testhttpp as
procedure ppp is
begin
   htp.p('HTTP TEST PAGE<BR>');
   htp.p('USER: '||user||'<BR>');
   htp.p('CURRENT_SCHEMA: '||sys_context('userenv','CURRENT_SCHEMA')||'<BR>');
   htp.p('PROXY_USER: '||sys_context('userenv','PROXY_USER')||'<BR>');
   htp.p('SESSION_USER: '||sys_context('userenv','SESSION_USER')||'<BR>');
   htp.p('AUTHENTICATION_METHOD: '||sys_context('userenv','AUTHENTICATION_METHOD')||'<BR>');
end;
end;
/

HTTP TEST PAGE
USER: ANONYMOUS
CURRENT_SCHEMA: TOOLS
PROXY_USER: 
SESSION_USER: ANONYMOUS
AUTHENTICATION_METHOD: PASSWORD