From e81388352e016a2526aa798ec1b259296d1960d5 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 30 Oct 2009 20:56:47 +0100 Subject: Add an XML-RPC action. Ignore-this: 9d8fa0a1eda45cc7796cf373ccb274 darcs-hash:d993a24ac6089dee8d89aaf438fa2e8a1f42a21d --- main.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/main.lisp b/main.lisp index 9b290a4..b8b9c20 100644 --- a/main.lisp +++ b/main.lisp @@ -45,6 +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) (t nil)))) (*query* (if (eq *action* :view-atom-entry) nil -- cgit v1.2.3