module mailuaf_table
	ident "V1.0"
	define type copy_types
		KEYWORD SEND
		KEYWORD REPLY
		KEYWORD NOSEND
		KEYWORD NOREPLY
                KEYWORD FORWARD
                KEYWORD NOFORWARD
	define verb add
		routine add_user
		parameter p1, label=user, prompt="User",value(required)
		qualifier AUTO_PURGE
                qualifier CC_PROMPT
		qualifier COPY_SELF,LABEL=COPY_SELF,VALUE(REQUIRED,LIST,IMPCAT,TYPE=COPY_TYPES),NONNEGATABLE
                qualifier EDITOR,LABEL=EDITOR,VALUE(REQUIRED)
                qualifier FORM,LABEL=FORM,VALUE(REQUIRED)
		qualifier MAIL_DIRECTORY,LABEL=MAIL_DIRECTORY,VALUE(REQUIRED,TYPE=$INFILE)
		qualifier PERSONAL_NAME,LABEL=PERSONAL_NAME,VALUE(REQUIRED)
		qualifier QUEUE,LABEL=QUEUE,VALUE(REQUIRED)
		qualifier FORWARD,LABEL=FORWARD,VALUE(REQUIRED)
	define verb exit
		routine done
	define verb help
		routine help_user
		parameter p1,label=topic,VALUE(type=$REST_OF_LINE)
	define verb modify
		routine modify_user
		parameter p1, label=user, prompt="User",value(required)
		qualifier AUTO_PURGE
                qualifier CC_PROMPT
		qualifier COPY_SELF,LABEL=COPY_SELF,VALUE(REQUIRED,LIST,IMPCAT,TYPE=COPY_TYPES),NONNEGATABLE
                qualifier EDITOR,LABEL=EDITOR,VALUE(REQUIRED)
                qualifier FORM,LABEL=FORM,VALUE(REQUIRED)
		qualifier MAIL_DIRECTORY,LABEL=MAIL_DIRECTORY,VALUE(REQUIRED,TYPE=$INFILE)
		qualifier PERSONAL_NAME,LABEL=PERSONAL_NAME,VALUE(REQUIRED)
		qualifier QUEUE,LABEL=QUEUE,VALUE(REQUIRED)
		qualifier FORWARD,LABEL=FORWARD,VALUE(REQUIRED)
	define verb remove
		routine remove_user
		parameter p1, label=user, prompt="User",value(required)
	define verb show
		routine show_user
		parameter p1, label=user, prompt="User",value(required)
		qualifier BRIEF,NONNEGATABLE
		qualifier FULL,NONNEGATABLE,DEFAULT
	define verb list
		routine list_users
		qualifier BRIEF,NONNEGATABLE
		qualifier FULL,NONNEGATABLE,DEFAULT