Ticket #1838: client.scm

File client.scm, 427 bytes (added by Woodrow E Douglass, 5 months ago)
Line 
1(import http-client uri-common intarweb (chicken io))
2
3(let* ((uri (make-uri
4               scheme: 'http
5               path: '(/ "p" "6zvs2bzefnudso9s" "post")
6               port: 8080
7               host: "localhost"))
8       (req (make-request
9             method: 'PUT
10             uri: uri))
11       (response (with-input-from-request req `((file file: ,(open-input-string "MESSAGE"))) read-string)))
12  (print response))