Ticket #1838: client.scm
| File client.scm, 427 bytes (added by , 18 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)) |
