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

(limited to 'main.lisp')

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