! ! BULLCOM.CLD ! ! VERSION 9/7/90 ! MODULE BULLETIN_SUBCOMMANDS DEFINE VERB ADD PARAMETER P1, LABEL=FILESPEC, VALUE(TYPE=$FILE) QUALIFIER ALL, NONNEGATABLE QUALIFIER BELL, NONNEGATABLE QUALIFIER BROADCAST, NONNEGATABLE DISALLOW NOT BROADCAST AND ALL DISALLOW NOT BROADCAST AND BELL QUALIFIER CLUSTER, DEFAULT QUALIFIER EDIT, NEGATABLE QUALIFIER EXPIRATION, NONNEGATABLE, VALUE QUALIFIER EXTRACT, NONNEGATABLE QUALIFIER FOLDER, LABEL=SELECT_FOLDER, VALUE(REQUIRED,LIST) QUALIFIER NODES, LABEL=NODES, VALUE(REQUIRED,LIST) NONNEGATABLE QUALIFIER LOCAL, NONNEGATABLE DISALLOW LOCAL AND NOT BROADCAST DISALLOW NODES AND SELECT_FOLDER QUALIFIER NOINDENT, NONNEGATABLE DISALLOW NOINDENT AND NOT EXTRACT QUALIFIER PERMANENT, NONNEGATABLE QUALIFIER SHUTDOWN, NONNEGATABLE, VALUE DISALLOW PERMANENT AND SHUTDOWN QUALIFIER SUBJECT, NONNEGATABLE, VALUE(REQUIRED) QUALIFIER SYSTEM, NONNEGATABLE DISALLOW EXTRACT AND FILESPEC DEFINE VERB ATTACH PARAMETER P1, LABEL=PROCESS, VALUE(TYPE=$FILE) QUALIFIER PARENT DISALLOW NOT PARENT AND NOT PROCESS DISALLOW PARENT AND PROCESS DEFINE VERB BACK DEFINE VERB CHANGE PARAMETER P1, LABEL=FILESPEC, VALUE(TYPE=$FILE) QUALIFIER ALL QUALIFIER EDIT, NEGATABLE QUALIFIER EXPIRATION, NONNEGATABLE, VALUE QUALIFIER GENERAL, NONNEGATABLE QUALIFIER HEADER, NONNEGATABLE QUALIFIER SUBJECT, NONNEGATABLE, VALUE(REQUIRED) QUALIFIER NEW,NONNEGATABLE QUALIFIER NUMBER, VALUE(TYPE=$FILE,REQUIRED) QUALIFIER PERMANENT, NONNEGATABLE QUALIFIER SHUTDOWN, NONNEGATABLE, VALUE QUALIFIER SYSTEM,NONNEGATABLE QUALIFIER TEXT, NONNEGATABLE DISALLOW ALL AND NUMBER DISALLOW NEW AND NOT EDIT DISALLOW SYSTEM AND GENERAL DISALLOW PERMANENT AND SHUTDOWN DISALLOW PERMANENT AND EXPIRATION DISALLOW SHUTDOWN AND EXPIRATION DISALLOW SUBJECT AND HEADER DEFINE VERB COPY PARAMETER P1, LABEL=FOLDER, PROMPT="Folder" VALUE(REQUIRED) PARAMETER P2, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$FILE) QUALIFIER ALL QUALIFIER MERGE QUALIFIER ORIGINAL DISALLOW ALL AND BULLETIN_NUMBER DEFINE VERB CREATE QUALIFIER BRIEF, NONNEGATABLE QUALIFIER DESCRIPTION, NONNEGATABLE, VALUE(REQUIRED) QUALIFIER ID, NONNEGATABLE ! ! Make the following qualifier DEFAULT if you want CREATE to be ! a privileged command. NOTE: Make sure that BULL_DIR:BULLUSER.DAT ! has the following protection: (RWED,RWED,,) ! QUALIFIER NEEDPRIV, NONNEGATABLE QUALIFIER NODE, NONNEGATABLE, VALUE(REQUIRED) QUALIFIER NOTIFY, NONNEGATABLE QUALIFIER OWNER, NONNEGATABLE, VALUE(REQUIRED) QUALIFIER PRIVATE, NONNEGATABLE QUALIFIER READNEW, NONNEGATABLE QUALIFIER REMOTENAME, NONNEGATABLE, VALUE(REQUIRED) QUALIFIER SEMIPRIVATE, NONNEGATABLE QUALIFIER SHOWNEW, NONNEGATABLE QUALIFIER SYSTEM, NONNEGATABLE PARAMETER P1, LABEL=CREATE_FOLDER, PROMPT="Folder" VALUE(REQUIRED) DISALLOW ID AND NOT OWNER DISALLOW PRIVATE AND SEMIPRIVATE DISALLOW BRIEF AND READNEW DISALLOW SHOWNEW AND READNEW DISALLOW BRIEF AND SHOWNEW DISALLOW NODE AND (NOTIFY OR PRIVATE OR SEMIPRIVATE) DISALLOW REMOTENAME AND NOT NODE DEFINE VERB CURRENT QUALIFIER EDIT DEFINE VERB DELETE PARAMETER P1, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$FILE) QUALIFIER ALL QUALIFIER IMMEDIATE,NONNEGATABLE QUALIFIER FOLDER, LABEL=SELECT_FOLDER, VALUE(REQUIRED,LIST) QUALIFIER NODES, LABEL=NODES, VALUE(REQUIRED,LIST) QUALIFIER SUBJECT, VALUE(REQUIRED) DISALLOW NOT SUBJECT AND (NODES OR SELECT_FOLDER) DISALLOW NODES AND SELECT_FOLDER DEFINE VERB DIRECTORY PARAMETER P1, LABEL=SELECT_FOLDER QUALIFIER EXPIRATION QUALIFIER FOLDER, SYNTAX=DIRECTORY_FOLDER, NONNEGATABLE QUALIFIER NEW QUALIFIER START, VALUE(REQUIRED,TYPE=$NUMBER), NONNEGATABLE QUALIFIER SINCE,VALUE(DEFAULT="TODAY",TYPE=$DATETIME) QUALIFIER MARKED, NONNEGATABLE QUALIFIER REPLY, NONNEGATABLE QUALIFIER SEARCH, VALUE(REQUIRED), NONNEGATABLE QUALIFIER SUBJECT, VALUE(REQUIRED), NONNEGATABLE DISALLOW (SUBJECT AND SEARCH) OR (SEARCH AND REPLY) DISALLOW REPLY AND SUBJECT DISALLOW (REPLY OR SUBJECT OR SEARCH) AND MARKED DISALLOW (NEW AND SINCE) OR (START AND NEW) OR (START AND SINCE) DEFINE SYNTAX DIRECTORY_FOLDER QUALIFIER DESCRIBE QUALIFIER FOLDER, DEFAULT DEFINE VERB E ! EXIT command. DEFINE VERB EX ! EXIT command. DEFINE VERB EXIT ! EXIT command. DEFINE VERB EXTRACT PARAMETER P1, LABEL=FILESPEC, VALUE(TYPE=$FILE,REQUIRED), PROMPT="File" PARAMETER P2, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$FILE) QUALIFIER ALL QUALIFIER FF QUALIFIER HEADER, DEFAULT QUALIFIER NEW, NONNEGATABLE DISALLOW ALL AND BULLETIN_NUMBER DEFINE VERB FILE PARAMETER P1, LABEL=FILESPEC, VALUE(TYPE=$FILE,REQUIRED), PROMPT="File" PARAMETER P2, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$FILE) QUALIFIER ALL QUALIFIER FF QUALIFIER HEADER, DEFAULT QUALIFIER NEW, NONNEGATABLE DISALLOW ALL AND BULLETIN_NUMBER DEFINE VERB HELP PARAMETER P1, LABEL=HELP_FOLDER, VALUE(TYPE=$REST_OF_LINE) DEFINE VERB INDEX PARAMETER P1, LABEL=SELECT_FOLDER QUALIFIER EXPIRATION QUALIFIER MARKED QUALIFIER FOLDER, SYNTAX=DIRECTORY_FOLDER, NONNEGATABLE QUALIFIER NEW QUALIFIER REPLY, NONNEGATABLE QUALIFIER RESTART QUALIFIER SEARCH, VALUE(REQUIRED), NONNEGATABLE QUALIFIER SUBJECT, VALUE(REQUIRED), NONNEGATABLE QUALIFIER START, VALUE(REQUIRED,TYPE=$NUMBER), NONNEGATABLE QUALIFIER SINCE,VALUE(DEFAULT="TODAY",TYPE=$DATETIME) DISALLOW (NEW AND SINCE) OR (START AND NEW) OR (START AND SINCE) DEFINE VERB LAST DEFINE VERB MAIL PARAMETER P1, LABEL=RECIPIENTS, PROMPT="Recipients" VALUE(REQUIRED,IMPCAT,LIST) QUALIFIER HEADER, DEFAULT QUALIFIER SUBJECT, VALUE(REQUIRED) DEFINE VERB MODIFY QUALIFIER DESCRIPTION QUALIFIER ID, NONNEGATABLE QUALIFIER NAME, VALUE(REQUIRED) QUALIFIER OWNER, VALUE(REQUIRED) DISALLOW ID AND NOT OWNER DEFINE VERB MOVE PARAMETER P1, LABEL=FOLDER, PROMPT="Folder" VALUE(REQUIRED) PARAMETER P2, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$FILE) QUALIFIER ALL QUALIFIER MERGE QUALIFIER NODES QUALIFIER ORIGINAL QUALIFIER IMMEDIATE,NONNEGATABLE,DEFAULT DISALLOW ALL AND BULLETIN_NUMBER DISALLOW FOLDER AND NODES DEFINE VERB NEXT DEFINE VERB POST QUALIFIER CC, VALUE(LIST,REQUIRED) QUALIFIER EXTRACT QUALIFIER LIST, DEFAULT QUALIFIER SUBJECT, VALUE(REQUIRED) QUALIFIER NOINDENT, NONNEGATABLE DISALLOW NOINDENT AND NOT EXTRACT QUALIFIER EDIT DEFINE VERB PRINT PARAMETER P1, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$FILE) QUALIFIER HEADER, DEFAULT QUALIFIER NOTIFY, DEFAULT QUALIFIER QUEUE, VALUE(DEFAULT=SYS$PRINT), NONNEGATABLE QUALIFIER FORM, VALUE, NONNEGATABLE QUALIFIER ALL DISALLOW ALL AND BULLETIN_NUMBER DEFINE VERB QUIT DEFINE VERB READ PARAMETER P1, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$NUMBER) QUALIFIER EDIT QUALIFIER MARKED, NONNEGATABLE QUALIFIER NEW QUALIFIER PAGE, DEFAULT QUALIFIER SINCE,VALUE(DEFAULT="TODAY",TYPE=$DATETIME) DISALLOW NEW AND SINCE DEFINE VERB REPLY PARAMETER P1, LABEL=FILESPEC, VALUE(TYPE=$FILE) QUALIFIER ALL, NONNEGATABLE QUALIFIER BELL, NONNEGATABLE QUALIFIER BROADCAST, NONNEGATABLE DISALLOW NOT BROADCAST AND ALL DISALLOW NOT BROADCAST AND BELL QUALIFIER CLUSTER, DEFAULT QUALIFIER EDIT, NEGATABLE QUALIFIER EXPIRATION, NONNEGATABLE, VALUE QUALIFIER EXTRACT, NONNEGATABLE QUALIFIER FOLDER, LABEL=SELECT_FOLDER, VALUE(REQUIRED,LIST) QUALIFIER NODES, LABEL=NODES, VALUE(REQUIRED,LIST) NONNEGATABLE QUALIFIER LOCAL DISALLOW LOCAL AND NOT BROADCAST DISALLOW NODES AND SELECT_FOLDER QUALIFIER NOINDENT, NONNEGATABLE DISALLOW NOINDENT AND NOT EXTRACT QUALIFIER PERMANENT, NONNEGATABLE QUALIFIER SHUTDOWN, NONNEGATABLE, VALUE DISALLOW PERMANENT AND SHUTDOWN QUALIFIER SUBJECT, NONNEGATABLE, VALUE(REQUIRED) QUALIFIER SYSTEM, NONNEGATABLE DISALLOW EXTRACT AND FILESPEC DEFINE VERB REMOVE PARAMETER P1, LABEL=REMOVE_FOLDER, PROMPT="Folder" VALUE(REQUIRED) DEFINE VERB RESPOND QUALIFIER CC, VALUE(LIST,REQUIRED) QUALIFIER EXTRACT QUALIFIER LIST QUALIFIER SUBJECT, VALUE(REQUIRED) QUALIFIER NOINDENT, NONNEGATABLE DISALLOW NOINDENT AND NOT EXTRACT QUALIFIER EDIT DEFINE VERB SEARCH PARAMETER P1, LABEL=SEARCH_STRING QUALIFIER START, VALUE(TYPE=$NUMBER,REQUIRED) QUALIFIER REPLY, NONNEGATABLE QUALIFIER REVERSE QUALIFIER SUBJECT DISALLOW SEARCH_STRING AND REPLY DEFINE VERB SELECT PARAMETER P1, LABEL=SELECT_FOLDER QUALIFIER MARKED, NONNEGATABLE DEFINE VERB SET PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) QUALIFIER ID DEFINE TYPE SET_OPTIONS KEYWORD NODE, SYNTAX=SET_NODE KEYWORD NONODE, SYNTAX = SET_NONODE KEYWORD EXPIRE_LIMIT, SYNTAX=SET_EXPIRE KEYWORD NOEXPIRE_LIMIT KEYWORD GENERIC, SYNTAX=SET_GENERIC KEYWORD NOGENERIC, SYNTAX=SET_GENERIC KEYWORD LOGIN, SYNTAX=SET_LOGIN KEYWORD NOLOGIN, SYNTAX=SET_LOGIN KEYWORD NOBBOARD KEYWORD BBOARD, SYNTAX=SET_BBOARD KEYWORD NOBRIEF, SYNTAX=SET_NOFLAGS KEYWORD BRIEF, SYNTAX=SET_FLAGS KEYWORD NOSHOWNEW, SYNTAX=SET_NOFLAGS KEYWORD SHOWNEW, SYNTAX=SET_FLAGS KEYWORD NOREADNEW, SYNTAX=SET_NOFLAGS KEYWORD READNEW, SYNTAX=SET_FLAGS KEYWORD ACCESS, SYNTAX=SET_ACCESS KEYWORD NOACCESS, SYNTAX=SET_NOACCESS KEYWORD FOLDER, SYNTAX=SET_FOLDER KEYWORD NOTIFY, SYNTAX=SET_FLAGS KEYWORD NONOTIFY, SYNTAX=SET_NOFLAGS KEYWORD PRIVILEGES, SYNTAX=SET_PRIVILEGES KEYWORD DUMP KEYWORD NODUMP KEYWORD PAGE KEYWORD NOPAGE KEYWORD SYSTEM KEYWORD NOSYSTEM KEYWORD KEYPAD KEYWORD NOKEYPAD KEYWORD PROMPT_EXPIRE KEYWORD NOPROMPT_EXPIRE KEYWORD DEFAULT_EXPIRE, SYNTAX=SET_DEFAULT_EXPIRE KEYWORD STRIP KEYWORD NOSTRIP KEYWORD DIGEST KEYWORD NODIGEST KEYWORD CONTINUOUS_BRIEF KEYWORD NOCONTINUOUS_BRIEF DEFINE SYNTAX SET_NODE PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=NODENAME, VALUE(REQUIRED) PARAMETER P3, LABEL=REMOTENAME QUALIFIER FOLDER, VALUE(REQUIRED) DEFINE SYNTAX SET_NONODE QUALIFIER FOLDER, VALUE(REQUIRED) DEFINE SYNTAX SET_EXPIRE PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=EXPIRATION, VALUE(TYPE=$NUMBER,REQUIRED) DEFINE SYNTAX SET_GENERIC PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=USERNAME, VALUE(REQUIRED) QUALIFIER DAYS,VALUE(TYPE=$NUMBER,DEFAULT="7"),DEFAULT DEFINE SYNTAX SET_LOGIN PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=USERNAME, VALUE(REQUIRED) DEFINE SYNTAX SET_FLAGS PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) QUALIFIER DEFAULT, NONNEGATABLE QUALIFIER ALL, NONNEGATABLE QUALIFIER PERMANENT QUALIFIER NOPERMANENT QUALIFIER FOLDER, VALUE(REQUIRED) DEFINE SYNTAX SET_NOFLAGS PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) QUALIFIER DEFAULT, NONNEGATABLE QUALIFIER PERMANENT QUALIFIER NOPERMANENT QUALIFIER ALL, NONNEGATABLE QUALIFIER FOLDER, VALUE(REQUIRED) DEFINE SYNTAX SET_BBOARD PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=BB_USERNAME QUALIFIER EXPIRATION, VALUE(TYPE=$NUMBER) LABEL=EXPIRATION, DEFAULT QUALIFIER SPECIAL, NONNEGATABLE QUALIFIER VMSMAIL, NONNEGATABLE DISALLOW VMSMAIL AND NOT SPECIAL DISALLOW VMSMAIL AND NOT BB_USERNAME DEFINE SYNTAX SET_FOLDER PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=SELECT_FOLDER QUALIFIER MARKED, NONNEGATABLE DEFINE SYNTAX SET_NOACCESS PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=ACCESS_ID, VALUE(LIST) PARAMETER P3, LABEL=ACCESS_FOLDER QUALIFIER ALL, NONNEGATABLE QUALIFIER READONLY, NONNEGATABLE DISALLOW NOT ALL AND NOT ACCESS_ID DISALLOW ALL AND NOT READONLY DEFINE SYNTAX SET_ACCESS PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=ACCESS_ID, VALUE(LIST) PARAMETER P3, LABEL=ACCESS_FOLDER QUALIFIER READONLY, NONNEGATABLE QUALIFIER ALL, NONNEGATABLE DISALLOW NOT ALL AND NOT ACCESS_ID DEFINE SYNTAX SET_PRIVILEGES PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=PRIVILEGES, PROMPT="Privileges" VALUE (REQUIRED,LIST) DEFINE SYNTAX SET_DEFAULT_EXPIRE PARAMETER P1, LABEL=SET_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SET_OPTIONS) PARAMETER P2, LABEL=DEFAULT_EXPIRE, VALUE(TYPE=$NUMBER,REQUIRED) DEFINE VERB SHOW PARAMETER P1, LABEL=SHOW_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SHOW_OPTIONS) ! ! The following are defined to allow qualifiers to be specified ! directly after the SHOW command, i.e. SHOW/FULL FOLDER. ! Otherwise, the CLI routines will reject the command, because it ! first attempts to process the qualifier before process the parameter, ! so it has no information the qualifiers are valid. ! QUALIFIER FULL, SYNTAX=SHOW_FOLDER_FULL, NONNEGATABLE QUALIFIER ALL, SYNTAX=SHOW_USER QUALIFIER LOGIN, SYNTAX=SHOW_USER QUALIFIER NOLOGIN, SYNTAX=SHOW_USER QUALIFIER PRINT, SYNTAX=SHOW_KEYPAD_PRINT DEFINE TYPE SHOW_OPTIONS KEYWORD FOLDER, SYNTAX=SHOW_FOLDER KEYWORD NEW, SYNTAX=SHOW_FLAGS KEYWORD PRIVILEGES, SYNTAX=SHOW_FLAGS KEYWORD FLAGS, SYNTAX=SHOW_FLAGS KEYWORD KEYPAD, SYNTAX=SHOW_KEYPAD KEYWORD USER, SYNTAX=SHOW_USER KEYWORD VERSION DEFINE SYNTAX SHOW_FLAGS PARAMETER P1, LABEL=SHOW_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SHOW_OPTIONS) DEFINE SYNTAX SHOW_KEYPAD PARAMETER P1, LABEL=SHOW_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SHOW_OPTIONS) QUALIFIER PRINT DEFINE SYNTAX SHOW_KEYPAD_PRINT PARAMETER P1, LABEL=SHOW_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SHOW_OPTIONS) QUALIFIER PRINT,DEFAULT DEFINE SYNTAX SHOW_FOLDER PARAMETER P1, LABEL=SHOW_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SHOW_OPTIONS) PARAMETER P2, LABEL=SHOW_FOLDER DEFINE SYNTAX SHOW_USER PARAMETER P1, LABEL=SHOW_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SHOW_OPTIONS) PARAMETER P2, LABEL=USERNAME QUALIFIER ALL QUALIFIER LOGIN QUALIFIER NOLOGIN DISALLOW (NOLOGIN OR LOGIN OR ALL) AND USERNAME DISALLOW (LOGIN AND NOLOGIN) DEFINE SYNTAX SHOW_FOLDER_FULL QUALIFIER FULL, DEFAULT PARAMETER P1, LABEL=SHOW_PARAM1, PROMPT="What" VALUE(REQUIRED, TYPE=SHOW_OPTIONS) PARAMETER P2, LABEL=SHOW_FOLDER DEFINE VERB MARK PARAMETER P1, LABEL=NUMBER, VALUE(LIST,TYPE=$NUMBER) DEFINE VERB SPAWN PARAMETER P1, LABEL=COMMAND, VALUE(TYPE=$REST_OF_LINE) DEFINE VERB UNMARK PARAMETER P1, LABEL=NUMBER, VALUE(LIST,TYPE=$NUMBER) DEFINE VERB UNDELETE PARAMETER P1, LABEL=BULLETIN_NUMBER, VALUE(TYPE=$FILE)