summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:07:37 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:07:37 +0100
commit5d8043dfdbe33892896460073a166fb8900d814a (patch)
treea962a7dd9276aaba0d45e82e74389174f5d0dfb6
parente81388352e016a2526aa798ec1b259296d1960d5 (diff)
Accept “RPC2” as the action verb for XML-RPC calls.
Ignore-this: 6130ec6ff5cb0092a0be5a76b91a665c darcs-hash:48de815a44a8b4f7777276ba8298cee7cff29219
-rw-r--r--main.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/main.lisp b/main.lisp
index b8b9c20..8fce09d 100644
--- a/main.lisp
+++ b/main.lisp
@@ -45,7 +45,7 @@
((string= "moderate" (car (last *subpath*))) :moderate)
((string= "atom" (car (last *subpath*))) :view-atom-entry)
((string= "rebuild" (car (last *subpath*))) :rebuild)
- ((string= "rpc" (car (last *subpath*))) :xml-rpc)
+ ((member (car (last *subpath*)) '("rpc" "RPC2") :test #'string=) :xml-rpc)
(t nil))))
(*query* (if (eq *action* :view-atom-entry)
nil