[Improved startup script
clinton@unknownlamer.org**20080103171142] {
hunk ./start.lisp 1
-(in-package :com.tee-it-up-golf.user)
+(require :tee-it-up)
hunk ./start.lisp 3
-(setq ucw::*ucw-log-root-directory* #P"/home/clinton/local/var/log/ucw/")
-(setq ucw::*ucw-log-level* ucw::+dribble+)
+(in-package :com.tee-it-up-golf.user)
hunk ./start.lisp 7
+(setf ucw:*debug-on-error* t)
+(setf ucw::*inspect-components* nil)
+
+(defvar *golf-server* nil
+  "UCW Server for tee-it-up")
+
hunk ./start.lisp 16
-		 :www-roots (list '("dojo/"
-				    . #P"/home/clinton/src/ucw/darcs/ucw_ajax/wwwroot/dojo/"))))
+		 :www-roots (list '("static/"
+				    . #P"/home/clinton/local/var/wwwroot/"))))
hunk ./start.lisp 29
+(defentry-point "^(admin.ucw|)$" (:application *golf-test-app*
+					       :class regexp-dispatcher)
+    ()
+  (call 'golf-web::golf-admin-window))
+
hunk ./start.lisp 39
-		:type :vorbis
-		:data (file->bytes (open
-				    file
-				    :element-type 'unsigned-byte)))))
+		:type "application/ogg"
+		:data file)))
hunk ./start.lisp 42
-(defentry-point "dojo/dojo.js" (:application *golf-test-app*
-				:class url-dispatcher)
-    ()
-  (ucw::serve-file #p"/home/clinton/local/var/wwwroot/dojo/dojo.js"
-		   (context.request *context*)
-		   (context.response *context*)))
+;; (defentry-point "static/dojo/dojo.js" (:application *golf-test-app*
+;; 						    :class url-dispatcher)
+;;     ()
+;;   (ucw::serve-file #p"/home/clinton/local/var/wwwroot/dojo/dojo.js"))
hunk ./start.lisp 50
-  (ucw:create-server :backend '(:mod-lisp :port 3001
-					  :host "0.0.0.0")
-		     :applications (list *golf-test-app*)
-		     :log-level ucw::+dribble+))
+  (setq *golf-server*
+	(ucw:create-server :backend '(:httpd :port 3000
+				      :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/")))
+
+(defun stop-site ()
+  (disconnect)
+  (ucw:shutdown-server *golf-server*)
+  (if (eq *golf-server* *default-server*)
+      (setq *default-server* nil))
+  (setq *golf-server* nil))
+
+(defun restart-site ()
+  (stop-site)
+  (start-site))
}