Fix the handling of /RPC2 URIs.

Ignore-this: 66df8f7a4363e01f6b86bc8ae4e2537d

darcs-hash:63a4babf75cde3c06a80e401b6ad5f7b62110183

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*)