Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | minor scgi fixes |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
0d8bb0bf165f5269259b8d8444b6182e |
User & Date: | aldo 2016-12-11 14:40:39 |
Context
2016-12-11
| ||
15:18 | added more useful scgi example check-in: 4c5a36a864 user: aldo tags: trunk | |
14:40 | minor scgi fixes check-in: 0d8bb0bf16 user: aldo tags: trunk | |
14:39 | minor scgi fixes check-in: 863850b1b1 user: aldo tags: trunk | |
Changes
Changes to scgi.sls.
115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 |
;CLIENT EXAMPLE:
(import (netstring)
(socket)
(scgi))
(define sock (socket 'inet 'stream '() 0))
(connect/inet sock "localhost" 8086)
(define h (scgi-headers->bytevector '(("CONTENT_LENGTH" . "10")
("SCGI" . "1")
("REQUEST_METHOD" . "POST")
("REQUEST_URI" . "/chez"))))
(write-netstring sock h)
(put-bytevector sock (bytevector 1 2 3 4 5 6 7 8 9 0))
(flush-output-port sock)
|
| |
115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 |
;CLIENT EXAMPLE:
(import (netstring)
(socket)
(scgi))
(define sock (socket 'inet 'stream '() 0))
(connect/inet sock "localhost" 8088)
(define h (scgi-headers->bytevector '(("CONTENT_LENGTH" . "10")
("SCGI" . "1")
("REQUEST_METHOD" . "POST")
("REQUEST_URI" . "/chez"))))
(write-netstring sock h)
(put-bytevector sock (bytevector 1 2 3 4 5 6 7 8 9 0))
(flush-output-port sock)
|