From 885f08e4eb78ce0ad6c2a86a33f89483a30018e0 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
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