Hello world/Web server: Difference between revisions
Content added Content deleted
(added ol) |
|||
| Line 1,000: | Line 1,000: | ||
let _ = |
let _ = |
||
Unix.handle_unix_error server ()</lang> |
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}}== |
=={{header|Opa}}== |
||