[Remove db connect/disconnect in favor of ucw-elephant-site
clinton@unknownlamer.org**20081203235423] {
hunk ./src/config.lisp 20
-(defvar *golf-db-spec* (list :bdb "golf:bdb;")
+(defvar *golf-db-spec* "bdb/"
hunk ./src/database.lisp 7
-(defvar *db-store* nil
-  "Connection to the Elephant database")
-
-(defun connect ()
-  (unless *db-store*
-    (setq *db-store* (open-store
-		      (let ((*golf-db-spec* (copy-list *golf-db-spec*)))
-			(if (eq (car *golf-db-spec*) :bdb)
-			    (setf (cadr *golf-db-spec*)
-				  (translate-logical-pathname (cadr *golf-db-spec*))))
-			*golf-db-spec*)
-		      :recover t :deadlock-detect t))))
-
-(defun disconnect ()
-  (when *db-store*
-    (db-bdb:checkpoint *db-store*)
-    (close-store *db-store*)
-    (if (eq *store-controller* *db-store*)
-	(setq *store-controller* nil))
-    (setq *db-store* nil)))
-
hunk ./src/packages.lisp 34
-   :connect
-   :disconnect
hunk ./src/site-control.lisp 6
-(defclass golf-site (ucw-site)
+(defclass golf-site (golgonooza-db:ucw-elephant-site ucw-site)
hunk ./src/site-control.lisp 8
-  (:default-initargs :data-root *golf-data-root*))
+  (:default-initargs
+    :data-root *golf-data-root*
+    :store-spec *golf-db-spec*))
hunk ./src/site-control.lisp 16
-  (connect)
hunk ./src/site-control.lisp 36
-(defmethod stop-site :after ((site golf-site))
-  (disconnect))
-
}