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")