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 |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
80136f0ceb6a0f2dc2360aa8c19d2dc8 |
| User & Date: | murphy 2015-05-04 14:58:40.976 |
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 | @,@(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") | | > > > > | 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
@,@(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{
|
| ︙ | ︙ | |||
221 222 223 224 225 226 227 | @input[(type "reset") (class "btn") (value "Reset")] } } } } } | | | 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 |
@input[(type "reset") (class "btn")
(value "Reset")]
}
}
}
}
}
@footer{@copy 2011-2015 by Thomas Chust}
}
@,@common-foot
}
}))
(define numeric-parameter
(cute
|
| ︙ | ︙ |