(defvar consult-root-path "/afs/athena.mit.edu/astaff/project/eolcdev/")
(defvar consult-elisp-path (concat consult-root-path "Emacs19/"))
(defvar consult-elisp18-path (concat consult-root-path "Emacs18/"))
(defvar olcr-source-directory (concat consult-elisp-path "eolcr/"))
(defvar olcr-client-path (concat consult-root-path olcr-bindir))


(defvar cref-parent-directory "/afs/.athena.mit.edu/astaff/reference/cref/Ref")
(defvar olh-parent-directory "/mit/logos/olh/")


(defvar cref-rw-tree-file "/afs/.athena.mit.edu/contrib/consult/lib/cref/cref-tree.el")
(defvar cref-tree-file "/afs/athena.mit.edu/contrib/consult/lib/cref/cref-tree.el")
(defvar dig-special-mtgs-file (concat consult-root-path "lib/dig/default_meetings"))
(defvar olh-add-log-file (concat consult-elisp-path "LOGS/users.olh"))
(defvar olh-config-file "/mit/logos/lib/config.menu")
(defvar olh-rw-tree-file "/afs/.athena/contrib/consult/lib/olh/olh-tree.el")
(defvar olh-tree-file    "/afs/athena/contrib/consult/lib/olh/olh-tree.el")


;;; plus a lot of paths to binaries etc.



(defvar olcr-list-of-users
  "/afs/.athena.mit.edu/astaff/project/eolcdev/Emacs19/LOGS/users.3_4T-19"
  "File logging use of EOLCR.")
(defvar olcr-list-of-clients
  "/afs/.athena.mit.edu/astaff/project/eolcdev/Emacs19/LOGS/clients.3_4T-19"
  "File logging EOLCR platforms, or nil for no client logging.")

(defvar olcr-my-motd-file
  (concat "/afs/.athena.mit.edu/astaff/project/eolcdev/Emacs19/eolcr/motds/"
	  olcr-version))

(defvar olcr-my-new-user-motd-file (concat
   "/afs/.athena.mit.edu/astaff/project/eolcdev/Emacs19/eolcr/motds/NewUsers/"
   olcr-version))