summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsjamaan <>2009-07-15 19:29:14 +0000
committersjamaan <>2009-07-15 19:29:14 +0000
commitf199a2dbbfe3d228504468309920dda0c6f50073 (patch)
tree385c18c505b02c3d10bc4da3321f983d64668a43
parentc6f5bc683cea9e5d26258f8e86693a4bcb72ed91 (diff)
downloadchicken-xml-rpc-f199a2dbbfe3d228504468309920dda0c6f50073.tar
chicken-xml-rpc-f199a2dbbfe3d228504468309920dda0c6f50073.tar.gz
chicken-xml-rpc-f199a2dbbfe3d228504468309920dda0c6f50073.tar.bz2
chicken-xml-rpc-f199a2dbbfe3d228504468309920dda0c6f50073.tar.lz
chicken-xml-rpc-f199a2dbbfe3d228504468309920dda0c6f50073.tar.xz
chicken-xml-rpc-f199a2dbbfe3d228504468309920dda0c6f50073.tar.zst
chicken-xml-rpc-f199a2dbbfe3d228504468309920dda0c6f50073.zip
Include the content-type: text/xml header in requests, for picky servers
-rw-r--r--xml-rpc-client.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/xml-rpc-client.scm b/xml-rpc-client.scm
index 9f37108..aa2415c 100644
--- a/xml-rpc-client.scm
+++ b/xml-rpc-client.scm
@@ -100,7 +100,8 @@
(sxml->string (xml-rpc-methodcall method-name args))))
(req (make-request
method: 'POST uri: uri
- headers: (headers `((content-length ,(string-length xml)))))))
+ headers: (headers `((content-length ,(string-length xml))
+ (content-type text/xml))))))
(xml-rpc-response->values
(call-with-input-request
req