Megatest

Check-in [2763433f17]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 2763433f17534dbf6103d1e486e2ec6a627d54de
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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)















This page was generated in about
0.116s by
Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00