Differences From Artifact [83732ef8d7]:
- File testhttp/example-client.scm — part of check-in [dae2c48a5c] at 2013-01-14 20:21:07 on branch http-transport — example client and server for http (user: matt, size: 98) [annotate] [blame] [check-ins using]
To Artifact [57afe37838]:
- File testhttp/example-client.scm — part of check-in [0d7a6d510a] at 2013-01-14 22:17:25 on branch http-transport — first pass implemenation using http (user: matt, size: 233) [annotate] [blame] [check-ins using] [more...]
|
| | | > > > | 1 2 3 4 5 6 |
(use regex http-client)
(print (with-input-from-request "http://localhost:8083/?foo=1" #f
(lambda ()
(let ((match (string-search (regexp "<body>(.*)<.body>") (caddr (string-split (read-string) "\n")))))
(cadr match)))))
|