From 085ed27ad08096d1878d98b302caa06716f49e5a Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 13:15:10 +0200
Subject: On NFSN, determine the directory layout by inspecting the appropriate
 environment variables.

Ignore-this: b862483c845d9a652a4e0e38f907d7a4

darcs-hash:745e58921f76d7fb838e375c04f3bbf07bcdaf12
---
 main.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/main.lisp b/main.lisp
index c8b489e..100bfd7 100644
--- a/main.lisp
+++ b/main.lisp
@@ -61,9 +61,15 @@
                                  "/home/mulk/Dokumente/Projekte/Mulkblog/journal.cgi")))
          (*script-dir*      (make-pathname
                              :directory (pathname-directory *script-filename*)))
+         (*site-root*		(ecase *site*
+                              (:mst-plus *script-dir*)
+                              (:nfs.net
+                               #+clisp (format nil "~A/" (ext:getenv "NFSN_SITE_ROOT"))
+                               #-clisp (error "Don't know where to look for stuff."))))
          (*data-dir*        (ecase *site*
                               (:mst-plus *script-dir*)
-                              (:nfs.net #p"/home/protected/journal/")))
+                              (:nfs.net (merge-pathnames #p"protected/journal/"
+                                                         *site-root*))))
          (*cache-dir*       (merge-pathnames #p"cache/" *data-dir*))
          (*wordpress-key*   (with-open-file (file (merge-pathnames
                                                    "wordpress-api-key.key"
-- 
cgit v1.2.3