set	verify		on
set	termout		on
set	feedback	on
set     serveroutput on size 400000 format wrapped

--
--++
--
--
----
--

--
--++
---------------------------------------------------------------------------------
---------------------------------------------------------------------------------
---------------------------------------------------------------------------------
---------------------------------------------------------------------------------
---------------------------------------------------------------------------------
----
--

create	or replace package radauth as
	function authorize	(
				username	in varchar,
				client		in varchar,
				sess_tmo	in out integer
				) return integer;

	function init		return integer;
	function cleanup	return integer;

end;
/

create	or replace package body radauth as

-- ++
-- ------------------------------------------------------------------------------
-- The main function, called from external procedure, to performs data loading.
-- ------------------------------------------------------------------------------
-- --

function	authorize	(
				username	in varchar,
				client		in varchar,
				sess_tmo	in out integer
				) return integer is

start_date	date;
end_date	date;

begin                      
	sess_tmo := -1;
	return 0;
end;

-- ++
-- ------------------------------------------------------------------------------
-- This function supposed to be called before using any other
-- operations
-- ------------------------------------------------------------------------------
-- --

function	init		return integer is
begin
	return	0;
end;

-- ++
-- ------------------------------------------------------------------------------
-- This function supposed to be called at end of session
-- ------------------------------------------------------------------------------
-- --

function	cleanup		return integer is
begin
	return	0;
end;

end;
/