Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More consistent signature for make-redirect-response |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bc50958c55b1b13a1872fa4f0af53341 |
| User & Date: | murphy 2013-05-31 12:37:39.213 |
Context
|
2013-05-31
| ||
| 23:14 | Clean up tcp listener in webgate-main using dynamic wind check-in: 22158254d8 user: murphy tags: trunk | |
| 12:37 | More consistent signature for make-redirect-response check-in: bc50958c55 user: murphy tags: trunk | |
| 12:24 | make-redirect-response utility procedure check-in: e1670c701e user: murphy tags: trunk | |
Changes
Changes to example.scm.
| ︙ | ︙ | |||
19 20 21 22 23 24 25 | ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS ;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN ;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE ;; SOFTWARE. | < | | | > > > | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.
(require-library webgate)
;; Use -extend at-expr during compilation!
(eval-when (eval)
(import (only webgate-utils use-at-read-table))
(use-at-read-table #:list-arguments? #t))
(import
webgate (only webgate-utils base64-encode))
(define common-head
'@head{
@meta[(charset "utf-8")]
@meta[(name "viewport") (content "width=device-width, initial-scale=1.0")]
@title{WebGate}
@meta[(name "description") (content "CHICKEN WebGate example")]
@meta[(name "author") (content "Thomas Chust")]
@link[(rel "stylesheet") (href "/css/bootstrap.min.css")]
@link[(rel "stylesheet") (href "/css/bootstrap-responsive.min.css")]
@style[(type "text/css")]{body{padding-top:60px; padding-bottom:40px}}
})
(define common-foot
'@{
@script[(src "/js/jquery.min.js")]
@script[(src "/js/bootstrap.min.js")]
})
(define-resource (root* parameters)
(make-redirect-response 301 (resource-uri root)))
(define-resource (root "root" parameters)
(make-html-response
200
`@html{
@,common-head
@body{
@div[(class "navbar navbar-inverse navbar-fixed-top")]{
@div[(class "navbar-inner")]{
|
| ︙ | ︙ | |||
129 130 131 132 133 134 135 | `(span (span ((class "label notice")) "Image Content:") " " (img ((src ,(string-append | | | | 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 | `(span (span ((class "label notice")) "Image Content:") " " (img ((src ,(string-append "data:" type ";base64," (base64-encode (message-body msg)))))))) (else `(span (span ((class "label notice")) "Omitted Content:") " " |
| ︙ | ︙ |
Changes to webgate-core.scm.
| ︙ | ︙ | |||
199 200 201 202 203 204 205 |
(title ,status-line))
(body
(h1 ,status-line)
(p ,message))))
#:status-message status-message
#:headers headers))
| | > > | | | > > > > | 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 |
(title ,status-line))
(body
(h1 ,status-line)
(p ,message))))
#:status-message status-message
#:headers headers))
(define make-redirect-response
(case-lambda
((status target)
(make-error-response
status `(a ((href ,target)) ,target)
#:headers `(("Location" . ,target))))
((target)
(make-error-response
302 `(a ((href ,target)) ,target)
#:headers `(("Location" . ,target))))))
(define (write-response rsp #!optional (port (current-output-port)))
(fprintf
port "Status: ~a ~a\r\n"
(response-status rsp) (response-status-message rsp))
(write-message rsp port))
|
| ︙ | ︙ |