(in-package :com.tee-it-up-golf.config) (defun update-database-pathnames () (setf (logical-pathname-translations "golf") `(("bdb;*" ,(format nil "~A~A" *golf-data-root* "bdb/*")) ("audio;*" ,(format nil "~A~A" *golf-data-root* "audio-files/*"))))) (defvar *golf-dev-mode* t "Flag if application is in developer mode (enable debugging)") (defvar *golf-data-root* "/home/clinton/local/var/tee-it-up/" "Parent of wwwroot/ and log/") (defvar *golf-server-port* 50004 "Port to run server on") (defvar *golf-server-host* "127.0.0.1" "Host to bind port on") (defvar *golf-db-spec* "bdb/" "Location of the Elephant Database") (defvar *golf-request-length-limit* (* 50 1024 1024) "Maximum request length in bytes") (defvar *golf-file-upload-root* "uploads" "Subdirectory beneath *golf-data-root* to place uploaded files") (update-database-pathnames)