20 lines
569 B
Scheme
20 lines
569 B
Scheme
(module hod-0618 mzscheme
|
|
(require (lib "servlet.ss" "web-server"))
|
|
(provide (all-defined))
|
|
(define interface-version 'v1)
|
|
(define timeout 30)
|
|
(define (start _)
|
|
`(html
|
|
(body
|
|
,(extract-binding/single
|
|
'test:case
|
|
(request-bindings
|
|
(send/suspend
|
|
(lambda (k-url)
|
|
`(html
|
|
(body
|
|
(form ([method "POST"]
|
|
[action ,k-url])
|
|
(input ([type "text"] [name "test:case"]))
|
|
(input ([type "submit"])))))))))))))
|