[Cleaned up entry points
clinton@unknownlamer.org**20080117010306] {
hunk ./src/web.lisp 174
+(defmethod update-url ((c golf-admin-window) url)
+  (setf (ucw::uri.path url) "/admin.ucw")
+  url)
hunk ./src/web-frontend.lisp 82
+(defmethod update-url ((c golf-frontend-window) url)
+  (setf (ucw::uri.path url) "/index.ucw")
+  url)
+
hunk ./start.lisp 39
-		 :url-prefix "/golf/"
+		 :url-prefix "/"
hunk ./start.lisp 48
-(defentry-point "^(admin.ucw|)$" (:application *golf-app*
-					       :class regexp-dispatcher)
+(defentry-point "^()$" (:application *golf-app*
+				   :class regexp-dispatcher)
hunk ./start.lisp 51
-  (call 'golf-web:golf-admin-window))
+  (call 'golf-web:golf-frontend-window))
hunk ./start.lisp 53
-(defentry-point "^(user.ucw|)$" (:application *golf-app*
+(defentry-point "^(index.ucw)$" (:application *golf-app*
hunk ./start.lisp 58
-(defentry-point "^(audio.ucw|)$" (:application *golf-app*
+(defentry-point "^(admin.ucw)$" (:application *golf-app*
+					       :class regexp-dispatcher)
+    ()
+  (call 'golf-web:golf-admin-window))
+
+(defentry-point "^(audio.ucw)$" (:application *golf-app*
hunk ./start.lisp 71
+(defentry-point "^archive/(\\d{4})/(\\d{1,2})/(\\d{1,2})$"
+    (:application *golf-app* :class regexp-dispatcher)
+    ()
+  (let ((year  (parse-integer (aref *dispatcher-registers* 0)))
+	(month (parse-integer (aref *dispatcher-registers* 1)))
+	(day   (parse-integer (aref *dispatcher-registers* 2))))
+    (call 'full-show-viewer
+	  :show (car (get-shows-by 'show-date
+				   (encode-universal-time 0 0 0 day month year)
+				   nil
+				   :limit 1)))))
+
}