From 77ab32bf3f25ed4e4611de1e3119404654c580c2 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 30 Oct 2009 21:19:53 +0100 Subject: Pass a stream to HANDLE-XML-RPC-CALL. Ignore-this: 61430daaecf0a9f52adebe4e4b8cac70 darcs-hash:1da4f1edaf868d4edc92c710fc16ed4c8295bc4a --- main.lisp | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'main.lisp') 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)) -- cgit v1.2.3