From b33482c0608751d19c40bb724cc7dfff16c2cb0d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 30 Sep 2007 00:52:21 +0200
Subject: Make journal.cgi usable on NearlyFreeSpeech.NET.

darcs-hash:01e7640968def891b020f6e5cd216a605c474ce9
---
 journal.cgi | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/journal.cgi b/journal.cgi
index a23b433..675d117 100755
--- a/journal.cgi
+++ b/journal.cgi
@@ -1,3 +1,11 @@
 #! /bin/sh
 DIR=`dirname "$0"`
-exec clisp -M "$DIR/lispinit.mem.gz" "$DIR/run.lisp" "$@"
+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" "$@"
-- 
cgit v1.2.3