From 5d8043dfdbe33892896460073a166fb8900d814a Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 30 Oct 2009 21:07:37 +0100 Subject: =?UTF-8?q?Accept=20=E2=80=9CRPC2=E2=80=9D=20as=20the=20action=20v?= =?UTF-8?q?erb=20for=20XML-RPC=20calls.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Ignore-this: 6130ec6ff5cb0092a0be5a76b91a665c darcs-hash:48de815a44a8b4f7777276ba8298cee7cff29219 --- main.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3