[Split database and web packages
clinton@unknownlamer.org**20070828225506] {
hunk ./src/golf.lisp 1
-(in-package :com.tee-it-up-golf.golf)
-
-;;; Interview Database
-
-;; Database
-
-(defvar *db-spec* '(:bdb #P"/home/clinton/misc/bdb/golf/")
-  "Location of the Elephant Database")
-
-(defvar *db-store* nil
-  "Connection to the Elephant database")
-
-(defun connect ()
-  (setq *db-store* (open-store *db-spec*)))
-
-(defun disconnect ()
-  (setq *db-store* (close-store *db-spec*)))
-
-;; Audio Files
-
-;; TODO: check content-type against list of known audio file types
-(defpclass audio-file ()
-  ((type :initarg :type :accessor content-type)
-   (data :initarg :data :accessor raw-audio-data)))
-
-(defmethod content-length ((file audio-file))
-  (length (raw-audio-data file)))
-
-(defmethod audio-file-stream ((file audio-file))
-  (make-in-memory-input-stream (raw-audio-data file)))
-
-;; Shows
-
-(defpclass radio-show ()
-  ((date :initarg :date :accessor show-date :index t :initform (get-universal-time))
-   (audio :initarg :audio :accessor audio-data
-	  :initform nil   :type (or nil audio-file))
-   (transcript :initarg :transcript :accessor transcript :initform "")))
+(in-package :com.tee-it-up-golf.web)
hunk ./start.lisp 1
-(in-package :com.tee-it-up-golf.golf-user)
+(in-package :com.tee-it-up-golf.user)
+
+(setq ucw::*ucw-log-root-directory* #P"/home/clinton/local/var/log/ucw/")
+(setq ucw::*ucw-log-level* ucw::+dribble+)
hunk ./tee-it-up.asd 12
-			 (:file "golf")
+			 (:file "database")
+			 (:file "web")
}