;;; Configuration file for INQUIR.
;;; Questions/comments to bug-inquir@lcs.mit.edu
;;; Add postdoc to the lab relationship

; version information should be the first thing in this file.
(inquir-current-version
 '(emacs . 2) '(xwn . 0))

(inquir-define
 "Username"
 :help "Username.  This is the database key."
 :tag "UNAME"
 :type :line
 :regexp "^[a-z0-9]+$")
(inquir-define
 "Name"
 :help "Full name, as in \"Luser, John Q., Jr.\" or \"John Q. Luser, Jr.\""
 :tag "NAME"
 :type :line)
(inquir-define
 "Nickname"
 :help "Nickname, what you like to be called, if not your name."
 :tag "NICK"
 :type :line)
(inquir-define
 "Birthday"
 :help "Your birthday, with no year, as in \"January 1\"."
 :tag "BIRTH"
 :type :birthday)
(inquir-define
 "Work Address"
 :help "Your MIT address, as in \"NE43-007\", or whatever seems appropriate."
 :tag "WRKAD"
 :type :line)
(inquir-define
 "Work Phone"
 :help "Your office phone, as in \"253-1000\" or \"(617) 253-1000\"."
 :tag "WRKTE"
 :type :line
 :regexp "^\\(([0-9][0-9][0-9]) +\\)?[0-9]?[0-9]?[0-9]?-?[0-9][0-9][0-9][0-9]$")
(inquir-define
 "Email Forwarding"
 :help "Your electronic mail address, as in \"user@foo.lcs.mit.edu\"."
 :tag "NETAD"
 :type :line
 :regexp "^[-a-z0-9._+!%$]+@[-a-z0-9._]+$")
(inquir-define
 "Project"
 :help "Project, fills in the blank in \"Hacking ____ for So-and-so\"."
 :tag "PROJE"
 :type :line)
(inquir-define
 "Supervisor"
 :help "Supervisor, fills in the blank in \"Hacking whatever for ____\"."
 :tag "SUPER"
 :type :line)
(inquir-define
 "Group"
 :help "Research or project group name."
 :tag "GROUP"
 :type :keyword 
 :keys '("Advanced Network Architecture"
"Clinical Decision Making"
"Computation Structures Group"
"Computer Architecture Group"
"Computer Resource Services"
"EECS Department"
"Headquarters"
"Information Mechanics Group"
"Large-scale Parallel Software"
"Library 2000"
"Supercomputer Technologies Group"
"MAC"
"Media Lab"
"Programming Methodology Group"
"Programming Systems Research"
"Reading Room"
"Research Lab of Electronics"
"Sloan School"
"Spoken Language Systems"
"Systematic Program Development"
"Telemedia, Networks and Systems"
"Theory of Computation"
"X Consortium"
"Guest"
"Other"))
(inquir-define
 "Relation"
 :help "Relation to group."
 :tag "RELAT"
 :type :keyword
 :keys '("Support staff" "Graduate student" "Research associate"
	 "Undergrad" "Faculty" "Collaborating researcher" "Guest" "Other"
	 "Research staff" "Lab Alum" "Postdoc" "Mail alias" "None"))
(inquir-define
 "Home Address"
 :help "Home address, all one one line."
 :tag "HOMAD"
 :type :line)
(inquir-define
 "Home Phone"
 :help "Home telephone number."
 :tag "HOMTE"
 :type :line)
(inquir-define
 "Remarks"
 :help "Anything you want to add to your entry."
 :tag "REMAR"
 :type :text)
(inquir-define
 "Modifiable by (Kerb)"
 :help "List of Kerberos principals who can alter this record.\nThe Kerberos principal UNAME is always allowed to change his own record.\nIf this field is blank, ANYONE can alter this record and you deserve whatever\nyou get."
 :tag "OWNER"
 :type :owner)
(inquir-define
 "UID"
 :help "Your user ID number.  Please frob only if absolutely necessary."
 :tag "UID"
 :type :line)
(inquir-define
 "Last altered by"
 :help "A (not necessarily reliable) record of who last changed this record.\nAutomagically kept, don't change it."
 :tag "ALTER"
 :type :line
 :regexp "^Don't alter this field$")