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
---
 journal.lisp | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index 2ca1919..fa56b3f 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -288,7 +288,8 @@
                              ("Query" . ,*query*)
                              ("Query string" . ,(http-get-query-string))
                              ("Subpath" . ,*subpath*)
-                             ("Environment" . ,(http-get-env-vars)))
+                             ("Environment" . ,(http-get-env-vars))
+                             #+clisp ("Environment #2" . ,(ext:getenv)))
          do (<:p
              (<:hr)
              (<:h2 (<:as-html x))
@@ -296,3 +297,23 @@
              (<:pre (<:as-html (prin1-to-string y)))))))
   #.(restore-sql-reader-syntax-state))
 
+
+(defun show-debugging-page ()
+  (http-add-header "Content-Language" "de")
+  (http-send-headers "text/html; charset=UTF-8")
+
+  (<xhtml :xmlns "http://www.w3.org/1999/xhtml"
+          :lang "de"
+    (when *debugging-p*
+      (loop for (x . y) in `(("Action" . ,*action*)
+                             ("Request method" . ,*method*)
+                             ("Query" . ,*query*)
+                             ("Query string" . ,(http-get-query-string))
+                             ("Subpath" . ,*subpath*)
+                             ("Environment" . ,(http-get-env-vars))
+                             #+clisp ("Environment #2" . ,(ext:getenv)))
+            do (<:p
+                 (<:hr)
+                 (<:h2 (<:as-html x))
+                 (<:p "Type " (<:em (<:as-html (type-of y))) ".")
+                 (<:pre (<:as-html (prin1-to-string y))))))))
-- 
cgit v1.2.3