40 lines
1.4 KiB
Racket
40 lines
1.4 KiB
Racket
#lang web-server
|
|
(define interface-version 'stateless)
|
|
(provide start interface-version)
|
|
|
|
(define msg (make-web-parameter "unknown"))
|
|
(define printf void)
|
|
|
|
(define (gn)
|
|
(printf "gn ~a\n" (msg))
|
|
(let* ([req
|
|
(send/suspend/url
|
|
(lambda (k-url)
|
|
(printf "ssu ~S\n" (msg))
|
|
`(html (head (title ,(format "Get ~a number" (msg))))
|
|
(body
|
|
(form ([action ,(url->string k-url)]
|
|
[method "post"]
|
|
[enctype "application/x-www-form-urlencoded"])
|
|
,(format "Enter the ~a number to add: " (msg))
|
|
(input ([type "text"] [name "number"] [value ""]))
|
|
(input ([type "submit"])))))))]
|
|
[num (string->number
|
|
(bytes->string/utf-8
|
|
(binding:form-value
|
|
(bindings-assq #"number"
|
|
(request-bindings/raw req)))))])
|
|
(printf "gn ~a ~a\n" (msg) num)
|
|
num))
|
|
|
|
(define (start initial-request)
|
|
(printf "after s-s\n")
|
|
`(html (head (title "Final Page"))
|
|
(body
|
|
(h1 "Final Page")
|
|
(p ,(format "The answer is ~a"
|
|
(+ (web-parameterize ([msg "first"])
|
|
(gn))
|
|
(web-parameterize ([msg "second"])
|
|
(gn))))))))
|