Anonymous user
Hello world/Web server: Difference between revisions
added ol
(added ol) |
|||
Line 1,000:
let _ =
Unix.handle_unix_error server ()</lang>
=={{header|Ol}}==
This sample sends 200 OK on any request and echoes the request headers.
<lang ol>(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)
))
</lang>
=={{header|Opa}}==
| |||