summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:32:15 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:32:15 +0100
commit885f08e4eb78ce0ad6c2a86a33f89483a30018e0 (patch)
tree5e322bd6fbe85079660f986f287cff71a92c971e
parent1eabb03185a08f4088d8fefba9c4137ea90c3e33 (diff)
Fix the handling of /RPC2 URIs.
Ignore-this: 66df8f7a4363e01f6b86bc8ae4e2537d darcs-hash:63a4babf75cde3c06a80e401b6ad5f7b62110183
-rw-r--r--main.lisp11
1 files changed, 7 insertions, 4 deletions
diff --git a/main.lisp b/main.lisp
index 891219e..9d0927f 100644
--- a/main.lisp
+++ b/main.lisp
@@ -26,10 +26,13 @@
(defun call-with-initialised-journal (func)
(let* ((*site* (if (file-exists-p #p"/home/mulk") :mst-plus :nfs.net))
(*debugging-p* (eq *site* :mst-plus))
- (*subpath-query* (subseq (http-getenv "REQUEST_URI")
- (length (ecase *site*
- (:mst-plus (http-getenv "SCRIPT_NAME"))
- (:nfs.net "/journal")))))
+ (*subpath-query* (let ((uri (http-getenv "REQUEST_URI")))
+ (if (string= uri "/RPC2")
+ "/RPC2"
+ (subseq uri
+ (length (ecase *site*
+ (:mst-plus (http-getenv "SCRIPT_NAME"))
+ (:nfs.net "/journal")))))))
(*subpath-string* (subseq *subpath-query*
0
(or (position #\? *subpath-query*)