Overview
| Comment: | Added basic client/server example using spiffy instead of awful |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | http-transport |
| Files: | files | file ages | folders |
| SHA1: |
2763433f17534dbf6103d1e486e2ec6a |
| User & Date: | matt on 2013-01-17 01:04:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-01-17
| ||
| 12:05 | http sucks version. well, my implementation using spiffy and http-client sucks. check-in: f7d6060988 user: mrwellan tags: http-transport | |
| 01:04 | Added basic client/server example using spiffy instead of awful check-in: 2763433f17 user: matt tags: http-transport | |
|
2013-01-16
| ||
| 22:59 | trying various angles to understand why some calls fail check-in: 6fd2156085 user: matt tags: http-transport | |
Changes
Added testhttp/testclient.scm version [4aba6dc5d5].
> > > > > > > > | 1 2 3 4 5 6 7 8 |
(use http-client)
(with-input-from-request "http://localhost:12345/hey"
;; #f
;; msg
(list (cons 'dat "Testing eh"))
read-string)
|
Added testhttp/testserver.scm version [732291ecba].
> > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
(use spiffy uri-common intarweb spiffy-request-vars)
(root-path "/var/www")
(vhost-map `(((* any) . ,(lambda (continue)
(let (($ (request-vars source: 'both)))
(print ($ 'dat))
(if (equal? (uri-path (request-uri (current-request)))
'(/ "hey"))
(send-response body: "hey there!\n"
headers: '((content-type text/plain)))
(continue)))))))
(start-server port: 12345)
|