Pass a stream to HANDLE-XML-RPC-CALL.

Ignore-this: 61430daaecf0a9f52adebe4e4b8cac70

darcs-hash:1da4f1edaf868d4edc92c710fc16ed4c8295bc4a

1 files changed, 8 insertions, 9 deletions

diff --git a/main.lisp b/main.lisp
index 9c29fe2..57aa72c 100644
--- a/main.lisp
+++ b/main.lisp
@@ -330,15 +330,14 @@
     (:view-comment-feed (show-comment-feed))
     (:view-debugging-page (show-debugging-page))
     (:xml-rpc (when (eq *method* :post)
-                (let ((xml-data (slurp-post-data)))
-                  (http-add-header "Content-Language" "de")
-                  (http-send-headers "text/xml; charset=UTF-8")
-                  (write (let ((*xml-rpc-package*
-                                (find-package '#:mulk.journal.xml-rpc)))
-                           (s-xml-rpc::handle-xml-rpc-call xml-data 0))
-                         :pretty nil
-                         :escape nil
-                         :stream *standard-output*))))
+                (http-add-header "Content-Language" "de")
+                (http-send-headers "text/xml; charset=UTF-8")
+                (write (let ((*xml-rpc-package*
+                              (find-package '#:mulk.journal.xml-rpc)))
+                         (s-xml-rpc::handle-xml-rpc-call *standard-input* 0))
+                       :pretty nil
+                       :escape nil
+                       :stream *standard-output*)))
     (otherwise (show-web-journal)))
   #.(restore-sql-reader-syntax-state))