16 lines
336 B
Scheme
16 lines
336 B
Scheme
(define count 1)
|
|
|
|
(display "Starting fcgi server")
|
|
(newline)
|
|
|
|
(handle-request
|
|
'((port . "3002"))
|
|
(lambda (request headers parameters cookies body files)
|
|
(display "Content-type: text/html")
|
|
(display "\r\n")
|
|
(display "\r\n")
|
|
(display "Hello")
|
|
(display "Count: ")
|
|
(display count)
|
|
(set! count (+ count 1))))
|