From 885f08e4eb78ce0ad6c2a86a33f89483a30018e0 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 30 Oct 2009 21:32:15 +0100 Subject: Fix the handling of /RPC2 URIs. Ignore-this: 66df8f7a4363e01f6b86bc8ae4e2537d darcs-hash:63a4babf75cde3c06a80e401b6ad5f7b62110183 --- main.lisp | 11 +++++++---- 1 file 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*) -- cgit v1.2.3