15 lines
403 B
Plaintext
15 lines
403 B
Plaintext
(import (lib http))
|
|
|
|
(http:run 8080 (lambda (fd request headers send close)
|
|
(send "HTTP/1.0 200 OK\n"
|
|
"Connection: close\n"
|
|
"Content-Type: text/html; charset=UTF-8\n"
|
|
"Server: " (car *version*) "/" (cdr *version*)
|
|
"\n\n"
|
|
|
|
"<h1>Goodbye, World!</h1>"
|
|
(ref request 1) ": " (ref request 2)
|
|
"<hr><small>" headers "</small>")
|
|
(close #t)
|
|
))
|