sunet/web-server/root/surflets/test.scm

16 lines
382 B
Scheme
Raw Normal View History

2002-09-13 03:21:19 -04:00
(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>~%")))))))