Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Output remote address and port in the example script |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
80136f0ceb6a0f2dc2360aa8c19d2dc8 |
| User & Date: | murphy 2015-05-04 14:58:40 |
Context
|
2015-05-04
| ||
| 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 | |
| 14:57 | Compression for suspensions check-in: c4ebab70b3 user: murphy tags: trunk | |
Changes
Changes to example.scm.
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
...
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
|
@,@(let ((getenv (resource-context-getenv (current-resource-context)))) `((tr (td "SCRIPT_NAME") (td (code ,(or (getenv "SCRIPT_NAME") "<unknown>")))) (tr (td "PATH_INFO") (td (code ,(or (getenv "PATH_INFO") "<unknown>")))) (tr (td "REQUEST_METHOD") (td (code ,(or (getenv "REQUEST_METHOD") "<unknown>")))))) } } } @div[(class "span8")]{ @h2{Present Parameters} @table[(class "zebra-striped")]{ @thead{ ................................................................................ @input[(type "reset") (class "btn") (value "Reset")] } } } } } @footer{@copy 2011-2013 by Thomas Chust} } @,@common-foot } })) (define numeric-parameter (cute |
|
>
>
>
>
|
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
...
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
@,@(let ((getenv (resource-context-getenv (current-resource-context)))) `((tr (td "SCRIPT_NAME") (td (code ,(or (getenv "SCRIPT_NAME") "<unknown>")))) (tr (td "PATH_INFO") (td (code ,(or (getenv "PATH_INFO") "<unknown>")))) (tr (td "REQUEST_METHOD") (td (code ,(or (getenv "REQUEST_METHOD") "<unknown>")))) (tr (td "REMOTE_ADDR") (td (code ,(or (getenv "REMOTE_ADDR") "<unknown>")))) (tr (td "REMOTE_PORT") (td (code ,(or (getenv "REMOTE_PORT") "<unknown>")))))) } } } @div[(class "span8")]{ @h2{Present Parameters} @table[(class "zebra-striped")]{ @thead{ ................................................................................ @input[(type "reset") (class "btn") (value "Reset")] } } } } } @footer{@copy 2011-2015 by Thomas Chust} } @,@common-foot } })) (define numeric-parameter (cute |