summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:29:16 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 22:29:16 +0100
commit770c0ea8257fa9a866edde35e816d1493cda1eb3 (patch)
tree5e02bac33e8d8e5cf7034b798da4228b48f33605
parent572d6da287d3c2042174d7d8c4ddc67489d74e4f (diff)
Add an XML declaration to XML-RPC responses.
Ignore-this: ca190d4d2848cd3ca092cb935c9da1ec darcs-hash:766b50c05e953956d6ad7d679c663f5f55e302d3
-rw-r--r--main.lisp1
1 files changed, 1 insertions, 0 deletions
diff --git a/main.lisp b/main.lisp
index 9d0927f..239202b 100644
--- a/main.lisp
+++ b/main.lisp
@@ -335,6 +335,7 @@
(:xml-rpc (when (eq *method* :post)
(http-add-header "Content-Language" "de")
(http-send-headers "text/xml; charset=UTF-8")
+ (format t "~&<?xml version='1.0' encoding='utf-8'?>~%")
(write (let ((*xml-rpc-package*
(find-package '#:mulk.journal.xml-rpc)))
(s-xml-rpc::handle-xml-rpc-call *standard-input* 0))