From e6b65cb7b6c16d1fb9ecb86260dddb1fc0c4b115 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 5 Oct 2007 15:24:00 +0200
Subject: Support posting and editing journal entries.

darcs-hash:e7a6041bdeeddcd098313a6c21491cefbaedbb21
---
 journal-admin.cgi | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 journal-admin.cgi

(limited to 'journal-admin.cgi')

diff --git a/journal-admin.cgi b/journal-admin.cgi
new file mode 100755
index 0000000..10ac2f5
--- /dev/null
+++ b/journal-admin.cgi
@@ -0,0 +1,11 @@
+#! /bin/sh
+DIR=`dirname "$0"`
+if test -e /home/mulk; then
+    # MST-plus.
+    LISPINIT_DIR="$DIR"
+else
+    # NearlyFreeSpeech.NET.
+    LISPINIT_DIR=/home/protected/journal
+fi
+
+exec clisp -M "$LISPINIT_DIR/lispinit.mem.gz" "$DIR/run.lisp" --admin-mode
-- 
cgit v1.2.3