From 120da283d4235f63c203db9871e6428b4541b1ec Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 10:58:53 +0200
Subject: Make the CGI script helpers more tolerant against changes in the
 directory structure.

Ignore-this: 638485b221bc02ad39979f21204019b1

darcs-hash:f69800ac33d4b21f0856bc809dce5dcf399bf3df
---
 journal-admin.cgi | 2 +-
 journal.cgi       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/journal-admin.cgi b/journal-admin.cgi
index bbff8a3..5fa1272 100755
--- a/journal-admin.cgi
+++ b/journal-admin.cgi
@@ -5,7 +5,7 @@ if test -e /home/mulk; then
     LISPINIT_DIR="$DIR"
 else
     # NearlyFreeSpeech.NET.
-    LISPINIT_DIR=/home/protected/journal
+    LISPINIT_DIR="$NFSN_SITE_ROOT/protected/journal"
 fi
 
 exec env LC_ALL=de_DE.UTF-8 clisp -M "$LISPINIT_DIR/lispinit.mem.gz" "$DIR/run.lisp" --admin-mode
diff --git a/journal.cgi b/journal.cgi
index 0d6208f..bbec698 100755
--- a/journal.cgi
+++ b/journal.cgi
@@ -5,7 +5,7 @@ if test -e /home/mulk; then
     LISPINIT_DIR="$DIR"
 else
     # NearlyFreeSpeech.NET.
-    LISPINIT_DIR=/home/protected/journal
+    LISPINIT_DIR="$NFSN_SITE_ROOT/protected/journal"
 fi
 
 exec env LC_ALL=de_DE.UTF-8 clisp -M "$LISPINIT_DIR/lispinit.mem.gz" "$DIR/run.lisp"
-- 
cgit v1.2.3