On NFSN, determine the directory layout by inspecting the appropriate environment variables.

Ignore-this: b862483c845d9a652a4e0e38f907d7a4

darcs-hash:745e58921f76d7fb838e375c04f3bbf07bcdaf12

1 files changed, 7 insertions, 1 deletions

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"