Module RAD_CP_CLD Ident "RAD_CP V02-03" !++TITLE: RAD_CP_CLD ! ! AUTHOR: Ruslan R. Laishev ! Copyright © 2000-2008, Ruslan R. Laishev ! ! MODIFICATION HISTORY: ! ! 6-APR-2000 RRL Initial coding. ! 8-APR-2000 RRL Added /NODE=(node,...) ! 2-MAY-2000 RRL Added HELP command. ! 5-AUG-2001 RRL Added EXIT/QUIT command. ! 14-MAR-2003 RRL RESET->RESTART ! 16-APR-2003 RRL Added LOOP verb. ! 6-NOV-2003 RRL Restore RESET command. ! 16-SEP-2005 RRL Added A12 LOAD/LIST command. ! 19-SEP-2005 RRL Added A12 MODIFY command. ! 15-NOV-2005 RRL Added A12 DELETE command. ! 13-SEP-2006 RRL Added SIP LOAD/LIST/DELETE/MODIFY/[NO]JOURNALING=AUTO,FORCE, ! SIP - Simple IP account ! 14-SEP-2006 RRL Removed /JOURNALING option. ! 11-MAR-2008 RRL Added /CLID option to the LOOP command. ! 27-JUN-2008 RRL Added stuff to performs RADIUS's DB operations; ! Retired A12; Removed SIP. ! 29-SEP-2008 RRL Commented /FLAGS options : RTT1X & EVDO ! 25-MAY-2010 RRL ! !-- define verb exit routine rad_cmd_exit synonym quit define verb shutdown routine rad_cmd_shut qualifier node,value (required,list) qualifier cluster disallow node and cluster define verb restart routine rad_cmd_rsta qualifier node,value (required,list) qualifier cluster disallow node and cluster define verb reset routine rad_cmd_rset qualifier node,value (required,list) qualifier cluster disallow node and cluster define verb help routine rad_cmd_help define type auth_proto_type keyword pap keyword chap define verb loop routine rad_cmd_loop parameter p1,label=host, value (type=$quoted_string,required) prompt "Host" qualifier port,value (type=$number,default=1645) parameter p2,label=user, value (type=$quoted_string,required) prompt "Username" parameter p3,label=pass, value (type=$quoted_string,required) prompt "Password" parameter p4,label=secret, value (type=$quoted_string,required) prompt "Shared Secret" qualifier clid,value (required,type=$quoted_string) qualifier timeout,value (type=$number,default=5) qualifier retry,value (type=$number,default=5) qualifier dump !++ ! DB !-- define verb db parameter p1,prompt="DB ", value (required,type=dbkwds) define type auths_type keyword sysuaf negatable keyword vms negatable keyword domain negatable keyword accept negatable keyword reject negatable keyword extern negatable keyword digest negatable keyword eapmd5 negatable define type primedays_type keyword monday negatable keyword tuesday negatable keyword wednesday negatable keyword thursday negatable keyword friday negatable keyword saturday negatable keyword sunday negatable define type hours_type keyword 0 nonnegatable keyword 1 nonnegatable keyword 2 nonnegatable keyword 3 nonnegatable keyword 4 nonnegatable keyword 5 nonnegatable keyword 6 nonnegatable keyword 7 nonnegatable keyword 8 nonnegatable keyword 9 nonnegatable keyword 10 nonnegatable keyword 11 nonnegatable keyword 12 nonnegatable keyword 13 nonnegatable keyword 14 nonnegatable keyword 15 nonnegatable keyword 16 nonnegatable keyword 17 nonnegatable keyword 18 nonnegatable keyword 19 nonnegatable keyword 20 nonnegatable keyword 21 nonnegatable keyword 22 nonnegatable keyword 23 nonnegatable keyword 24 nonnegatable define type timerange_type keyword start, value(type=hours_type) keyword end, value(type=hours_type) define type dbkwds keyword load, syntax=loaddb,nonnegatable keyword show, syntax=showdb,nonnegatable keyword modify syntax=moddb,nonnegatable keyword delete syntax=deldb,nonnegatable keyword add syntax=adddb,nonnegatable define type flags_type keyword ON, negatable keyword IROAMING, negatable keyword NROAMING, negatable keyword TRACE, negatable keyword A12 negatable keyword IPTEL negatable keyword MASK, value(type=$number,required),negatable define syntax loaddb routine rad_cmd_loaddb parameter p1, value (required,type=dbkwds) parameter p2, label=input, value (required,type=$file), prompt="Input file in RADIUS's USERS format " qualifier log, negatable qualifier auths, value (type=auths_type,list) qualifier flags, value (type=flags_type,list) qualifier pdays, value (type=primedays_type,list) qualifier primary, value (type=timerange_type,list) qualifier secondary, value (type=timerange_type,list) disallow primary.start and (not primary.end) disallow primary.end and (not primary.start) disallow secondary.start and (not secondary.end) disallow secondary.end and (not secondary.start) define syntax moddb routine rad_cmd_moddb parameter p1, value (required,type=dbkwds) parameter p2, label=nai, value (required,type=$quoted_string), prompt="Username/NAI (* and % are allowed) " qualifier log, negatable qualifier confirm, negatable qualifier auths, value (type=auths_type,list) qualifier flags, value (type=flags_type,list) qualifier password, value (required,type=$quoted_string) qualifier pdays, value (type=primedays_type,list) qualifier primary, value (type=timerange_type,list) qualifier secondary, value (type=timerange_type,list) disallow primary.start and (not primary.end) disallow primary.end and (not primary.start) disallow secondary.start and (not secondary.end) disallow secondary.end and (not secondary.start) qualifier add, value (required,type=$quoted_string) qualifier remove, value (required,type=$quoted_string) define syntax showdb routine rad_cmd_showdb parameter p1, value (required,type=dbkwds) parameter p2, label=nai, value (required,type=$quoted_string), prompt="Username/NAI (* and % are allowed) " qualifier full, negatable define syntax deldb routine rad_cmd_deldb parameter p1, value (required,type=dbkwds) parameter p2, label=nai, value (required,type=$quoted_string), prompt="Username/NAI (* and % are allowed) " qualifier log, negatable qualifier confirm, negatable define syntax adddb routine rad_cmd_adddb parameter p1, value (required,type=dbkwds) parameter p2, label=nai, value (required,type=$quoted_string), prompt="Username/NAI " qualifier log, negatable qualifier confirm, negatable qualifier auths, value (type=auths_type,list) qualifier flags, value (type=flags_type,list) qualifier password, value (required,type=$quoted_string) qualifier pdays, value (type=primedays_type,list) qualifier primary, value (type=timerange_type) qualifier secondary, value (type=timerange_type) disallow primary.start and (not primary.end) disallow primary.end and (not primary.start) disallow secondary.start and (not secondary.end) disallow secondary.end and (not secondary.start)