summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:19:53 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:19:53 +0100
commit77ab32bf3f25ed4e4611de1e3119404654c580c2 (patch)
tree6e5d8cb44a36942369cafd773681bc4c2471b7a1
parent5e4c0344d3ed5941745bad6175221405788bfd21 (diff)
Pass a stream to HANDLE-XML-RPC-CALL.
Ignore-this: 61430daaecf0a9f52adebe4e4b8cac70 darcs-hash:1da4f1edaf868d4edc92c710fc16ed4c8295bc4a
-rw-r--r--main.lisp17
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))