summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 13:15:10 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-07 13:15:10 +0200
commit085ed27ad08096d1878d98b302caa06716f49e5a (patch)
tree24362dfd75846d72077213510fafb1ec1ca8edd1
parente8a3524a2c1c6ed3d7385a0c31825a3385d6bbf6 (diff)
On NFSN, determine the directory layout by inspecting the appropriate environment variables.
Ignore-this: b862483c845d9a652a4e0e38f907d7a4 darcs-hash:745e58921f76d7fb838e375c04f3bbf07bcdaf12
-rw-r--r--main.lisp8
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"