From 3c31d317fa77b4f0f55b89fb07a63c65b3843cdf Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 2 Oct 2007 10:35:35 +0200
Subject: Add a debugging page.

darcs-hash:e4f4c096e3e20e6e8de59a4466e891fab8005a80
---
 main.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index d8ae683..a16e1ed 100644
--- a/main.lisp
+++ b/main.lisp
@@ -48,6 +48,7 @@
          (*action*          (or (keywordify (getf *query* :action))
                                 (cond (*post-number*                      :view)
                                       ((string= "feed" (first *subpath*)) :view-atom-feed)
+                                      ((string= "debug" (first *subpath*)) :view-debugging-page)
                                       (t                                  nil))))
          (*method*          (keywordify (gethash "REQUEST_METHOD" *http-env*)))
          (*script-filename* (pathname-as-file
@@ -102,6 +103,7 @@
                                (update-records-from-instance entry)))
                            (show-web-journal))
           (:view-atom-feed (show-atom-feed))
+          (:view-debugging-page (show-debugging-page))
           (otherwise       (show-web-journal)))))))
 
 
-- 
cgit v1.2.3