1 package body OWA_SEC is
2
3 /* NL_CHAR can be computed from a Unicode string in a portable manner. */
4 NL_CHAR constant varchar2(10) := owa_cx.nl_char;
5 /* Constant is set here instead of owachars to avoid invalid objects */
6 CR_CHAR constant varchar2(10) := chr(13);
7
8 /*******************************************************************/
9 /* Procedure to specify the PL/SQL Agent's authorization scheme */
10 /*******************************************************************/
11 procedure set_authorization(scheme in integer) is
12 begin
13 owa.auth_scheme := scheme;
14 end;
15
16 /*******************************************************************/
17 /* Functions to obtain the Web client's authentication information */
18 /*******************************************************************/
19 function get_user_id return varchar2 is
20 begin
21 return owa.user_id;
22 end;
23
24 function get_password return varchar2 is
25 begin
26 return owa.password;
27 end;
28
29 function get_client_ip return owa_util.ip_address is
30 begin
31 return owa.ip_address;
32 end;
33
34 function get_client_hostname return varchar2 is
35 begin
36 return owa.hostname;
37 end;
38
39 /*******************************************************************/
40 /* Procedure to specify the dynamic page's protection realm */
41 /*******************************************************************/
42 procedure set_protection_realm(realm in varchar2) is
43 l_realm varchar2(32767);
44 begin
45 -- validate argument
46 l_realm := owa_util.validate_arg(realm);
47 owa.protection_realm := l_realm;
48 end;
49
50 end;