16 lines
382 B
Scheme
16 lines
382 B
Scheme
|
(define-structure plugin plugin-interface
|
||
|
(open scsh
|
||
|
scheme
|
||
|
httpd-responses)
|
||
|
(begin
|
||
|
(define (main send/suspend)
|
||
|
(make-response
|
||
|
http-status/ok
|
||
|
(status-code->text http-status/ok)
|
||
|
(time)
|
||
|
"text/html"
|
||
|
'()
|
||
|
(make-writer-body
|
||
|
(lambda (out options)
|
||
|
(format out "<HTML><BODY><H1>THIS IS FROM SERVLET</H1></BODY></HTML>~%")))))))
|
||
|
|