From f02ddebb0c69e80f42ee95651a25c2c32521da1e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 14:05:13 +0200
Subject: Revert to the old CGI helper behaviour.

Ignore-this: b281d0b979d7679984a19b932d696ce5

darcs-hash:90286efc80b24a549a7a97f98f62f5932707223d
---
 main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index 8546a33..58f277d 100644
--- a/main.lisp
+++ b/main.lisp
@@ -356,4 +356,6 @@
             (<:pre (<:as-html (with-output-to-string (out)
                                 #+clisp (system::pretty-print-condition e out)
                                 #+clisp (system::print-backtrace :out out)))))))))
-    (journal-main :admin-mode admin-mode)))
+    (journal-main :admin-mode (member "--admin-mode"
+                                      (coerce (ext:argv) 'list)
+                                      :test #'string=))))
-- 
cgit v1.2.3