[bknr-cvs] r2381 - branches/bos/projects/bos/web

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Mon Jan 21 12:30:43 2008
New Revision: 2381

Added:
   branches/bos/projects/bos/web/allocation-cache-handlers.lisp
Modified:
   branches/bos/projects/bos/web/bos.web.asd
   branches/bos/projects/bos/web/webserver.lisp
Log:
added basic allocation-cache handler
pre output not very meaningful yet due to missing linebreaks (?)


Added: branches/bos/projects/bos/web/allocation-cache-handlers.lisp
==============================================================================
--- (empty file)
+++ branches/bos/projects/bos/web/allocation-cache-handlers.lisp	Mon Jan 21 12:30:43 2008
@@ -0,0 +1,15 @@
+(in-package :bos.web)
+
+(enable-interpol-syntax)
+
+(defclass allocation-cache-handler (admin-only-handler page-handler)
+  ())
+
+(defmethod handle ((handler allocation-cache-handler) req)
+  (with-bos-cms-page (req :title "Allocation Cache")
+    (html     
+     (:p (:i "not yet very meaningful..."))
+     (:pre (:princ-safe
+	    (with-output-to-string (*standard-output*)
+	      (bos.m2.allocation-cache:pprint-cache)))))))
+

Modified: branches/bos/projects/bos/web/bos.web.asd
==============================================================================
--- branches/bos/projects/bos/web/bos.web.asd	(original)
+++ branches/bos/projects/bos/web/bos.web.asd	Mon Jan 21 12:30:43 2008
@@ -33,6 +33,7 @@
 	       (:file "sponsor-handlers" :depends-on ("web-utils"))
 	       (:file "news-handlers" :depends-on ("web-utils"))
 	       (:file "allocation-area-handlers" :depends-on ("web-utils"))
+	       (:file "allocation-cache-handlers" :depends-on ("web-utils"))
 	       (:file "languages-handler" :depends-on ("web-utils"))
 	       (:file "tags" :depends-on ("web-utils"))
 	       (:file "news-tags" :depends-on ("web-utils"))

Modified: branches/bos/projects/bos/web/webserver.lisp
==============================================================================
--- branches/bos/projects/bos/web/webserver.lisp	(original)
+++ branches/bos/projects/bos/web/webserver.lisp	Mon Jan 21 12:30:43 2008
@@ -210,6 +210,7 @@
 					("/create-allocation-area" create-allocation-area-handler)
 					("/allocation-area" allocation-area-handler)
 					("/allocation-area-gfx" allocation-area-gfx-handler)
+					("/allocation-cache" allocation-cache-handler)
 					("/contract-image" contract-image-handler)
 					("/certificate" certificate-handler)
 					("/cert-regen" cert-regen-handler)
@@ -239,7 +240,8 @@
 			       ("logout" . "logout"))
 		 :admin-navigation '(("user" . "user/")
 				     ("languages" . "languages")
-				     ("allocation area" . "allocation-area/"))
+				     ("allocation area" . "allocation-area/")
+				     ("allocation cache" . "allocation-cache"))
 		 :authorizer (make-instance 'bos-authorizer)
 		 :site-logo-url "/images/bos-logo.gif"
 		 :style-sheet-urls '("/static/cms.css")