Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Default to HTTP header lookup through getenv, even without HTTP_ prefix for soup driver |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
35c35fb8b541cff0cd763dff9a5881dc |
User & Date: | murphy 2015-05-04 15:17:41.042 |
Context
2015-05-04
| ||
19:13 | Use bundled suspension with protobuf by default, install separately, also allow external version check-in: ef5e410c61 user: murphy tags: trunk | |
15:17 | Default to HTTP header lookup through getenv, even without HTTP_ prefix for soup driver check-in: 35c35fb8b5 user: murphy tags: trunk | |
14:58 | Output remote address and port in the example script check-in: 80136f0ceb user: murphy tags: trunk | |
Changes
Changes to webgate-soup.scm.
︙ | ︙ | |||
134 135 136 137 138 139 140 | (error 'soup-main-loop "Failed to create server" host port)) (soup-server-add-handler server #f (lambda (server client message path) (handle-request (lambda (name) (cond | < < > > < > | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 | (error 'soup-main-loop "Failed to create server" host port)) (soup-server-add-handler server #f (lambda (server client message path) (handle-request (lambda (name) (cond ((string=? name "REQUEST_METHOD") (soup-message-method message)) ((string=? name "PATH_INFO") path) ((string=? name "QUERY_STRING") (soup-message-query message)) ((or (string=? name "REMOTE_ADDR") (string=? name "REMOTE_HOST")) (soup-client-address client)) ((string=? name "REMOTE_PORT") (cond ((soup-client-port client) => number->string) (else #f))) ((string-prefix? "HTTP_" name) (soup-request-header-ref message (string-translate (substring/shared name 5) #\_ #\-))) (else (soup-request-header-ref message (string-translate name #\_ #\-))))) (open-input-string (soup-request-body message)) (cut soup-response-set! message <>)))) (soup-server-run server))) |