- Canopy improvements: no bower anymore , HTTP caching support (via etags) , listings now include dates , dates are now in big-endian (y-m-d)
- MirageOS call irclog from 2014-04-20
- blog article about naive authentication service using MirageOS
- OCaml 4.03 post
Our task is to build a small unikernel which provides a project website. On our way we will wade through various layers using code examples. The website itself contains a few paragraphs of text, some link lists, and our published papers in pdf form.
Spoiler alert final result can be seenhere, the full codehere.
A first idea
We could go all the way to use conduit for wrapping connections, and mirage-http (using cohttp , a very lightweight HTTP server). We'd just need to write routing code which in the end reads from a virtual file system, and some HTML and CSS for the actual site.
Turns out, the conduit library is already 1.7 MB in size and depends on 34 libraries, cohttp is another 3.7 MB and 40 dependent libraries. Both libraries are actively developed, combined there were 25 releases within the last year.
Let me state our demands more clearly:
- easy to maintain
- updates roughly 3 times a year
- reasonable performance
To achieve easy maintenance we keep build and run time dependencies small, use a single virtual machine image to ease deployment. We try to develop only little new code. Our general approach to performance is to do as little work as we can on each request, and precompute at compile time or once at startup as much as we can.
From the tyxml description : "Tyxml provides a set of combinators to build Html5 and Svg documents. These combinators use the OCaml type-system to ensure the validity of the generated Html5 and Svg." A tutorial is available.
You can plug elements (or attributes) inside each other only if the HTML specification allows this (no
inside of a
). An example that can be rendered to a
If you use
utop (as interactive read-eval-print-loop), you first need to load tyxml by
#require "tyxml" .
open Html5.M let mycontent = div ~a:[ a_class ["content"] ] [ pcdata "This is a fabulous content." ]
In the end, our web server will deliver the page as a string, tyxml provides the function
Html5.P.print : output:(string -> unit) -> doc -> unit . We use a temporary
Buffer to print the document into.
# let buf = Buffer.create 100 # Html5.P.print ~output:(Buffer.add_string buf) mycontent Error: This expression has type ([> Html5_types.div ] as 'a) elt but an expression was expected of type doc = [ `Html ] elt Type 'a = [> `Div ] is not compatible with type [ `Html ] The second variant type does not allow tag(s) `Div
This is pretty nice, we can only print complete HTML5 documents this way (there are printers for standalone elements as well), and will not be able to serve an incomplete page fragment!
To get it up and running, we wrap it inside of a
html which has a
header and a
# Html5.P.print ~output:(Buffer.add_string buf) (html (head (title (pcdata "title")) ) (body [ mycontent ])) # Buffer.contents buf "n
titleThis is a fabulous content."
The HTML content is done (in a pure way, no effects!), let's work on the binary pdfs. Our full page source (CSS embedding is done via a string, no fancy types there (yet!?)) ison GitHub. Below we will use the
render function for our content:
let render = let buf = Buffer.create 500 in Html5.P.print ~output:(Buffer.add_string buf) @@ html (header "not quite so broken") (body [ mycontent ]) ; Cstruct.of_string @@ Buffer.contents buf
There are various ways how to embed binary data into MirageOS:
- connect an external (FAT) disk image; upside: works for large data, independent, can be shared with other systems; downside: an extra file to distribute onto the production machine, lots of code (block storage and file system access) which can contain directory traversals and other issues
- embed as a special ELF section ; downside: not yet implemented
- embed strings in the code; upside: no deployment hassle, works everywhere for small files; downside: need to encode binary to string chunks during build and decode in the MirageOS unikernel, it breaks with large files
- likely others such as use a tar image, read it during build or runtime; wait during bootup on a network socket (or connect somewhere) to receive the static data; use a remote git repository
We'll use the embedding. There is support for this built in the mirage tool via crunch . If you
crunch "foo" in
config.ml , it will create a read-only key value store (
KV_RO ) named
static1.ml containing everything in the local
"foo" directory during
mirage configure . Each file is encoded as a list of chunks, each 4096 bytes in size in ASCII (octal escaping
00 of control characters).
The API is:
val read : t -> string -> int -> int -> [ `Ok of page_aligned_buffer list | `UnknownKey of string ] val size : t -> string -> [ `Ok of int64 | `UnknownKey of string ]
The lookup needs to retrieve first the chunk list for the given filename, and then splice the fragments together and return the requested offset and length as page aligned structures. Since this is not for free, we will read our pdfs only once during startup, and then keep a reference to the full pdfs which we deliver upon request:
let read_full_kv kv name = KV.size kv name >>= function | `Error (KV.Unknown_key e) -> Lwt.fail (Invalid_argument e) | `Ok size -> KV.read kv name 0 (Int64.to_int size) >>= function | `Error (KV.Unknown_key e) -> Lwt.fail (Invalid_argument e) | `Ok bufs -> Lwt.return (Cstruct.concat bufs) let start kv = let d_nqsb = Page.render in read_full_kv kv "nqsbtls-usenix-security15.pdf" >>= fun d_usenix -> read_full_kv kv "tron.pdf" >>= fun d_tron -> ...
>>= syntax notes that something is doing input/output, which might be blocking or interrupted or failing. It composes effects using an imperative style (semicolon in other languages, another term is monadic bind). The
Page.render function is described above, and is pure, thus no
We now have all the resources we wanted available inside our MirageOS unikernel. There is some cost during configuration (converting binary into code), and startup (concatenating lists, lookups, rendering HTML into string representation).
Building a HTTP response
HTTP consists of headers and data, we already have the data. A HTTP header contains of an initial status line (
HTTP/1.1 200 OK ), and a list of keys-values, each of the form
key + ": " + value + "rn" (
+ is string concatenation). The header is separated with
"rnrn" from the data:
let http_header ~status xs = let headers = List.map (fun (k, v) -> k ^ ": " ^ v) xs in let lines = status :: headers @ [ "rn" ] in String.concat "rn" lines let header content_type = http_header ~status:"HTTP/1.1 200 OK" [ ("content-type", content_type) ]
We also know statically (at compile time) which headers to send:
content-type should be
text/html for our main page, and
application/pdf for the pdf files. The status code
200 is used in HTTP to signal that the request is successful. We can combine the headers and the data during startup, because our single communication channel is HTTP, and thus we don't need access to the data or headers separately (support for HTTP caching etc. is out of scope).
We are now finished with the response side of HTTP, and can emit three different resources. Now, we need to handle incoming HTTP requests and dispatch them to the resource. Let's first to a brief detour to HTTPS (and thus TLS).
Security via HTTPS
Transport layer security is a protocol on top of TCP providing an end-to-end encrypted and authenticated channel. In our setting, our web server has a certificate and a private key to authenticate itself to the clients.
A certificate is a token containing a public key, a name, a validity period, and a signature from the authority which issued the certificate. The authority is crucial here: this infrastructure only works if the client trusts the public key of the authority (and thus can verify their signature on our certificate). I used let's encrypt (actually the letsencrypt.sh client (would be great to have one natively in OCaml) to get a signed certificate, which is widely accepted by web browsers.
The MirageOS interface for TLS is that it takes a
FLOW (byte stream, e.g. TCP) and provides a
FLOW . Libraries can be written to be agnostic whether they use a TCP stream or a TLS session to carry data.
We need to setup our unikernel that on new connections to the HTTPS port, it should first do a TLS handshake, and afterwards talk the HTTP protocol. For a TLS handshake we need to put the certificate and private key into the unikernel, using yet another key value store (
crunch "tls" ).
On startup we read the certificate and private key, and use that to create a TLS server config :
let start stack kv keys = read_cert keys "nqsb" >>= fun c_nqsb -> let config = Tls.Config.server ~certificates:(`Single c_nqsb) () in S.listen_tcpv4 stack ~port:443 (tls_accept config)
listen_tcpv4 is provided by the stackv4 module , and gets a stack, a port number (HTTPS uses 443), and a function which receives a flow instance.
let tls_accept cfg tcp = TLS.server_of_flow cfg tcp >>= function | `Error _ | `Eof -> TCP.close tcp | `Ok tls -> ...
server_of_flow is provided by the Mirage TLS layer . It can fail, if the client and server do not speak a common protocol suite, ciphersuite, or if one of the sides behaves non-protocol compliant.
To wrap up, we managed to listen on the HTTPS port and establish TLS sessions for each incoming request. We have our resources available, and now need to dispatch the request onto the resource.
HTTP request handling
HTTP is a string based protocol, the first line of the request contains the method and resource which the client wants to access,
GET / HTTP/1.1 . We could read a single line from the client, and cut the part between
HTTP/1.1 to deliver the resource.
This would either need some (brittle?) string processing, or a full-blown HTTP library on our side. "I'm sorry Dave, I can't do that". There is no way we'll do string processing on data received from the network for this.
Looking a bit deeper into TLS, there is a specification for server name indication from 2003. The main purpose is to run on a single IP(v4) address multiple TLS services. The client indicates in the TLS handshake what the server name is it wants to talk to. This extension looks in wikipedia widely enough deployed.
During the TLS handshake there is already some server name information exposed, and we have a very small set of available resources. Thanks to let's encrypt, generating certificates is easy and free of cost.
Putting it all together
What we need is a hostname for each resource, and certificates and private keys for them, or a single certificate with all hostnames as alternative names.
Our TLS library supports to select a certificate chain based on the requested name (look here ). The following snippet is a setup to use the
nqsb.io certificate chain by default (if no SNI is provided, or none matches), and also have a
usenix15 and a
tron certificate chain.
let start stack keys kv = read_cert keys "nqsb" >>= fun c_nqsb -> read_cert keys "usenix15" >>= fun c_usenix -> read_cert keys "tron" >>= fun c_tron -> let config = Tls.Config.server ~certificates:(`Multiple_default (c_nqsb, [ c_usenix ; c_tron])) () in S.listen_tcpv4 stack ~port:443 (tls_accept config) ;
Back to dispatching code. We can extract the hostname information from an opaque
tls value (the epoch data is fully described here :
let extract_name tls = match TLS.epoch tls with | `Error -> None | `Ok e -> e.Tls.Core.own_name
Since this TLS extension is optional, the return type will be a string option.
Now, putting the dispatch together we need a function that gets all resources and the tls state value, and returns the data to send out:
let dispatch nqsb usenix tron tls = match extract_name tls with | Some "usenix15.nqsb.io" -> usenix | Some "tron.nqsb.io" -> tron | Some "nqsb.io" -> nqsb | _ -> nqsb
This is again pure code, we need to put it now into the handler, our
tls_accept calls the provided function with the tls flow:
let tls_accept f cfg tcp = TLS.server_of_flow cfg tcp >>= function | `Error _ | `Eof -> TCP.close tcp | `Ok tls -> Tls.writev tls (f tls) >>= fun _ -> TLS.close tls
And our full startup code:
let start stack keys kv = let d_nqsb = [ header "text/html;charset=utf-8" ; Page.render ] in read_pdf kv "nqsbtls-usenix-security15.pdf" >>= fun d_usenix -> read_pdf kv "tron.pdf" >>= fun d_tron -> let f = dispatch d_nqsb d_usenix d_tron in read_cert keys "nqsb" >>= fun c_nqsb -> read_cert keys "usenix15" >>= fun c_usenix -> read_cert keys "tron" >>= fun c_tron -> let config = Tls.Config.server ~certificates:(`Multiple_default (c_nqsb, [ c_usenix ; c_tron])) () in S.listen_tcpv4 stack ~port:443 (tls_accept f config) ; S.listen stack
That's it, thenqsb.io contains slightly more code to log onto a console, and to redirect requests on port 80 (HTTP) to port 443 (by signaling a
301 Moved permanently HTTP status code).
A comparison using Firefox builtin network diagnostics shows that the waiting before receiving data is minimal (3ms, even spotted 0ms).
We do not render HTML for each request, we do not splice data together, we don't even read the client request . And I'm sure we can improve the performance even more by profiling.
We saw a journey from typed XML over key value stores, HTTP, TLS, and HTTPS. The actual application code of our unikernel servingnqsb,io is less than 100 lines of OCaml. We used MirageOS for our minimal HTTPS website, serving a single resource per hostname . We depend (directly) on the tyxml library, the mirage tool and network stack, and the tls library. That's it.
There is a long list of potential features, such as full HTTP protocol compliance (caching, favicon, ...), logging, natively getting let's encrypt certificates -- but in the web out there it is sufficient to get picked up by search engines, and the maintenance is marginal.