[Make start.lisp usable to start the site in other location
clinton@unknownlamer.org**20080114211301] {
hunk ./start.lisp 1
-(require :tee-it-up)
+(in-package :cl-user)
+
+;; Ugly, but neccessary to make the logical pathname stuff work for now
+
+(defvar *golf-data-root* "/home/clinton/local/var/tee-it-up/"
+  "Parent of wwwroot/ and log/")
+
+(setf (logical-pathname-translations "golf")
+      `(("bdb;*"   ,(format nil "~A~A" *golf-data-root* "bdb/*"))
+	("audio;*" ,(format nil "~A~A" *golf-data-root* "audio-files/*"))))
+
+(asdf:operate 'asdf:load-op :tee-it-up)
hunk ./start.lisp 18
-(setf ucw:*debug-on-error* t)
-(setf ucw::*inspect-components* nil)
+(defvar *golf-dev-mode* t
+  "Flag if application is in developer mode (enable debugging)")
+
+(defvar *golf-data-root* cl-user::*golf-data-root*
+  "Parent of wwwroot/ and log/")
hunk ./start.lisp 27
-(defvar *golf-test-app*
+(setf ucw:*debug-on-error* *golf-dev-mode*)
+(setf ucw::*inspect-components* nil)
+
+(defvar *golf-app*
hunk ./start.lisp 34
-				    . #P"/home/clinton/local/var/wwwroot/"))))
+				    . (format nil "~A~A"
+				       *golf-data-root* "wwwroot/")))
+		 
+		 :javascript-log-level nil))
hunk ./start.lisp 39
-(defentry-point "^(admin.ucw|)$" (:application *golf-test-app*
+(defentry-point "^(admin.ucw|)$" (:application *golf-app*
hunk ./start.lisp 44
-(defentry-point "^(user.ucw|)$" (:application *golf-test-app*
-					       :class regexp-dispatcher)
+(defentry-point "^(user.ucw|)$" (:application *golf-app*
+					      :class regexp-dispatcher)
hunk ./start.lisp 49
-(defentry-point "^(audio.ucw|)$" (:application *golf-test-app*
-				  :class regexp-dispatcher)
+(defentry-point "^(audio.ucw|)$" (:application *golf-app*
+					       :class regexp-dispatcher)
hunk ./start.lisp 57
-;; (defentry-point "static/dojo/dojo.js" (:application *golf-test-app*
+;; (defentry-point "static/dojo/dojo.js" (:application *golf-app*
hunk ./start.lisp 66
-	(ucw:create-server :backend '(:iolib :port 50004
-				      :host "0.0.0.0")
-			   ;; '(:mod-lisp :port 3001
-;; 				      :host "127.0.0.1")
-			   :applications (list *golf-test-app*)
-			   :log-level ucw::+debug+
-			   :log-root-directory #P"/home/clinton/local/var/log/ucw/")))
+	(ucw:create-server
+	 :backend '(:iolib :port 50004
+		    :host "0.0.0.0"
+		    :request-content-length-limit (* 10 1024 1024))
+	 ;; '(:mod-lisp :port 3001
+	 ;; 				      :host "127.0.0.1")
+	 :applications (list *golf-app*)
+	 :log-level (if *golf-dev-mode* ucw::+debug+ ucw::+warn+)
+	 :log-root-directory (format nil "~A~A" *golf-data-root* "log/"))))
}