From 085ed27ad08096d1878d98b302caa06716f49e5a Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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(-) (limited to 'main.lisp') 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