From 766b707106e052fc57a97b8dcd8b017475662317 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 11:51:31 +0200
Subject: Change the way admin mode is selected.

Ignore-this: 32655f3986da0817b1c78ad9d67a465e

darcs-hash:b7966307b4a3986747b022e188f980febacffac1
---
 journal-admin.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'journal-admin.cgi')

diff --git a/journal-admin.cgi b/journal-admin.cgi
index d8fdfc5..770ddf9 100755
--- a/journal-admin.cgi
+++ b/journal-admin.cgi
@@ -22,4 +22,4 @@ if ! [ -f "$FASL_FILE" -a \( `mtime_of "$FASL_FILE"` -gt $lisp_mtime \) ]; then
     find "$DIR" -name "*.fas" -print0 | xargs -0 cat > "$FASL_FILE"
 fi
 
-exec env LC_ALL=de_DE.UTF-8 clisp -q -q -M "$LISPINIT_DIR/lispinit.mem.gz" -x "(progn (load \"$FASL_FILE\") (cl-user::script-main))" --admin-mode
+exec env LC_ALL=de_DE.UTF-8 clisp -q -q -M "$LISPINIT_DIR/lispinit.mem.gz" -x "(progn (load \"$FASL_FILE\") (cl-user::script-main :admin-mode t))"
-- 
cgit v1.2.3