Module	RADIUS_CLD
Ident	"RADIUS V02-04"

!++TITLE:	RADIUS_CLD
!
!  AUTHOR:	Ruslan R. Laishev
!		Copyright © 1999-2004, Ruslan R. Laishev
!
!  MODIFICATION HISTORY:
!
!	11-SEP-1999	RRL	Initial coding.
!	16-SEP-1999	RRL	SECRET -> type=$quoted_string
!	 4-OCT-1999	RRL	Add /SESSION_LIMIT_CHECK
!	20-DEC-1999	RRL	Add DEFINE/SHOW HOME definition clause
!	 1-FEB-2000	RRL	Add /NAS option.
!	27-AUG-2000	RRL	Add define domain clause.
!	 4-OCT-2000	RRL	Add /CONNECTION_INFO_OFFSET
!	10-NOV-2000	RRL	Add /BDC_HOST
!	27-NOV-2000	RRL	Add /SESSION_LIMIT to the realm clause.
!	12-JAN-2001	RRL	Add /RECEIVE_BUFFER_SIZE to the home clause.
!	 9-AUG-2002	RRL	Added /BACKUP_AUTH_HOST,/BACKUP_ACCT_HOST
!	22-AUG-2002	RRL	Added /IMSI qualifier to realm definition.
!	21-OCT-2003	RRL	Added client's options: /ACCEPT_REALM /REJECT_REALM
!	10-NOV-2003	RRL	Commented out option combination check in the REALM difiniton.
!	25-NOV-2003	RRL	/BACKUP_AUTH_HOST -> /BAUTH_HOST,/BACKUP_ACCT_HOST -> /BACCT_HOST
!	31-MAY-2004	RRL	Added INCLUDE directive.
!	26-AUG-2004	RRL	Retired /CONNECTION_INFO option.
!	 8-SEP-2004	RRL	Added /GROUP=<group_name> option to the CLIENT definition.
!	20-MAY-2005	RRL	GROUP -> from string to number
!	10-DEC-2008	RRL	Removed "qualifier	session_limit_check,negatable"

!
!--

define	syntax	defdomain
	routine		rad_defdomain
	parameter p1,	label=defkwd,prompt="DEFINE option",
			value (required,type=defkwds)

	parameter p2	label=domain,prompt="DOMAIN name",
			value (required)

	qualifier	dc_host,value (required)
	qualifier	bdc_host,value (required)

define	syntax	defclient
	routine		rad_defclient
	parameter p1,	label=defkwd,prompt="DEFINE option",
			value (required,type=defkwds)

	parameter p2	label=client,prompt="CLIENT name",
			value (required)

	qualifier	secret,value (required,type=$quoted_string)
	qualifier	reject_id,value (required,list)
	qualifier	accept_id,value (required,list)
	qualifier	nas,negatable
	qualifier	reject_realm,value (required,list)
	qualifier	accept_realm,value (required,list)
	qualifier	group,value (required,type=$number)

	disallow	reject_realm and accept_realm

define	syntax	defrealm
	routine		rad_defrealm
	parameter p1,	label=defkwd,prompt="DEFINE option",
			value (required,type=defkwds)
			
	parameter p2	label=realm,prompt="REALM name/IMSI prefix",
			value (required)

	qualifier	imsi,negatable
	qualifier	clid,label=imsi,negatable
	qualifier	reject_id,value (required,list)
	qualifier	accept_id,value (required,list)
	qualifier	auth_host,value (required,type=$quoted_string)
	qualifier	acct_host,value (required,type=$quoted_string)
	qualifier	bauth_host,value (required,type=$quoted_string)
	qualifier	bacct_host,value (required,type=$quoted_string)
	qualifier	account,value (required)

!	disallow	reject_id and (auth_host or acct_host or backup_auth_host or backup_acct_host)
!	disallow	accept_id and (auth_host or acct_host or backup_auth_host or backup_acct_host)

define	syntax	defhome
	routine		rad_defhome
	parameter p1,	label=defkwd,prompt="DEFINE option",
			value (required,type=defkwds)

	parameter p2	label=home,prompt="IP name/address",
			value (required)
	qualifier	auth_port,value (required,type=$number),nonnegatable
	qualifier	acct_port,value (required,type=$number),nonnegatable
	qualifier	receive_buffer_size,value (required,type=$number),nonnegatable

define	syntax	shodomain
	routine		rad_shodomain
	parameter p1,	label=shokwd,prompt="SHOW option",
			value (required,type=shokwds)
			
	parameter p2	label=domain,prompt="DOMAIN name",
			value (default=*)


define	syntax	shoclient
	routine		rad_shoclient
	parameter p1,	label=shokwd,prompt="SHOW option",
			value (required,type=shokwds)
			
	parameter p2	label=client,prompt="CLIENT name",
			value (default=*)


define	syntax	shorealm
	routine		rad_shorealm
	parameter p1,	label=shokwd,prompt="SHOW option",
			value (required,type=shokwds)
			
	parameter p2	label=realm,prompt="REALM name",
			value (default=*)

define	syntax	shohome
	routine		rad_shohome
	parameter p1,	label=shokwd,prompt="SHOW option",
			value (required,type=shokwds)

define	type	defkwds
	keyword	client,syntax=defclient,nonnegatable
	keyword	realm,syntax=defrealm,nonnegatable
	keyword	home,syntax=defhome,nonnegatable
	keyword	domain,syntax=defdomain,nonnegatable



define	type	shokwds
	keyword	realm,syntax=shorealm,nonnegatable
	keyword	client,syntax=shoclient,nonnegatable
	keyword	home,syntax=shohome,nonnegatable
	keyword	domain,syntax=shodomain,nonnegatable


define	verb	define
	parameter	p1,label=defkwd,prompt="DEFINE option [CLIENT/REALM/HOME/DOMAIN]",
			value (required,type=defkwds)


define	verb	show
	parameter	p1,label=shokwd,prompt="SHOW option [CLIENT/REALM/HOME/DOMAIN]",
			value (required,type=shokwds)

define	verb	include
	routine		rad_confincl
	parameter	p1,label=include,
			value (required,type=$file)