Artifact 57afe378388102678fbac956a6000d8c981962e3:
- 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...]
(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)))))