summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 20:56:47 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 20:56:47 +0100
commite81388352e016a2526aa798ec1b259296d1960d5 (patch)
treed71ee600039c800266fc5c8ff6804eb525164eff
parentc0bcd6871d4c7f1af7371aae4fdc24243303a281 (diff)
Add an XML-RPC action.
Ignore-this: 9d8fa0a1eda45cc7796cf373ccb274 darcs-hash:d993a24ac6089dee8d89aaf438fa2e8a1f42a21d
-rw-r--r--main.lisp1
1 files changed, 1 insertions, 0 deletions
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