Welcome back to another edition of Elixir Alchemy! In our continued quest to find out what’s happening under the hood, we'll take a deep dive into HTTP servers in Elixir.

To understand how HTTP servers work, we'll implement a minimal example of one that can run a Plug application. We’ll learn about decoding requests and encoding responses, as well as how Plug interacts with the web server by building a minimal subset of an HTTP server that can accept HTTP requests and run a Plug application.

-> The HTTP server we’re building is for educational purposes. We won’t build a production-ready HTTP server. If you're looking for one that is, please try cowboy, which is the default choice of HTTP server in Elixir applications.

HTTP over TCP

We’ll start with the fundamentals. HTTP is a protocol that commonly uses TCP to transport requests and responses between an HTTP client—like a web browser—and a web server.

Erlang provides the :gen_tcp module that can be used to start a TCP socket that receives and transmits data. We'll use that library as the basis of our server.

1# lib/http.ex
2defmodule Http do
3  require Logger
4
5  def start_link(port: port) do
6    {:ok, socket} = :gen_tcp.listen(port, active: false, packet: :http_bin, reuseaddr: true)
7    Logger.info("Accepting connections on port #{port}")
8
9    {:ok, spawn_link(Http, :accept, [socket])}
10  end
11
12  def accept(socket) do
13    {:ok, request} = :gen_tcp.accept(socket)
14
15    spawn(fn ->
16      body = "Hello world! The time is #{Time.to_string(Time.utc_now())}"
17
18      response = """
19      HTTP/1.1 200\r
20      Content-Type: text/html\r
21      Content-Length: #{byte_size(body)}\r
22      \r
23      #{body}
24      """
25
26      send_response(request, response)
27    end)
28
29    accept(socket)
30  end
31
32  def send_response(socket, response) do
33    :gen_tcp.send(socket, response)
34    :gen_tcp.close(socket)
35  end
36
37  def child_spec(opts) do
38    %{id: Http, start: {Http, :start_link, [opts]}}
39  end
40end

In this example, we’ve created a TCP server that responds to every request with the current time in an HTTP response.

We start a socket to listen to the passed in port in start_link/1, and we'll spawn accept/1 in a new process that waits until a request comes in over the socket by calling :gen_tcp.accept/1.

When it does, we put it into the request variable and create a response to send to the client. In this case, we'll be sending a response that shows the current time.

1HTTP/1.1 200\r\nContent-Type: text/html\r\n\r\n\Hello world! The time is
214:45:49.058045

We pass the body we built to send_response/2, which takes care of sending the response over the socket and finally closing the socket connection.

We spawn a process for each request so the server can call accept/1 again to accept new requests. This way, we can respond to requests in parallel, instead of subsequent requests having to wait for previous ones to complete being processed.

Running the Server

Let's try it out. We'll use a supervisor to run our HTTP server to make sure it's restarted immediately when if it fails.

Our server implementation has a child_spec/1 function that specifies how it should be started. It states that it should call the Http.start/1 function with the passed options, which will return the newly spawned process' ID.

1# lib/http.ex
2defmodule Http do
3  # ...
4
5  def child_spec(opts) do
6    %{id: Http, start: {Http, :start_link, [opts]}}
7  end
8end

Because of that, we can add it to the list of children managed by the supervisor in lib/http/application.ex.

1# lib/http/application.ex
2defmodule Http.Application do
3  @moduledoc false
4  use Application
5
6  def start(_type, _args) do
7    children = [
8      {Http, port: 8080}
9    ]
10
11    opts = [strategy: :one_for_one, name: Http.Supervisor]
12    Supervisor.start_link(children, opts)
13  end
14end

We pass {Http, port: 8080} as one of our supervisor's children to start the server at port 8080 when the application is started.

1$ mix run --no-halt
219:39:29.454 [info]  Accepting connections on port 8080

If we start the server and use our browser to send a request, we can see that it indeed returns the current time.

Plug

Now that we know how a web server works, let's take it to the next level. Our current implementation has the response hard-coded into the server. To allow our web server to run different apps, we'll move the app out into a separate Plug module.

1# lib/current_time.ex
2defmodule CurrentTime do
3  import Plug.Conn
4
5  def init(options), do: options
6
7  def call(conn, _opts) do
8    conn
9    |> put_resp_content_type("text/html")
10    |> send_resp(200, "Hello world! The time is #{Time.to_string(Time.utc_now())}")
11  end
12end

The CurrentTime module defines a call/2 function that takes the passed in %Plug.Conn struct. It then sets the response content type to "text/html" before sending the "Hello world!" message—together with the current time—back as a response.

Our new module behaves the same as the web server example, but it's detached from the web server. Because of Plug, we could swap out servers without having to change the application's code, and we can also change the application without having to touch the web server.

Writing a Plug Adapter

To make sure our web server can communicate with our web application, we need to build a %Plug.Conn{} struct to pass to CurrentTime.call/2. We'll also need to turn the sent response into a string that our web server can send back over the socket.

To do this, we'll create an adapter that handles the communication between our Plug app and our web server.

1# lib/http/adapter.ex
2defmodule Http.PlugAdapter do
3  def dispatch(request, plug) do
4    %Plug.Conn{
5      adapter: {Http.PlugAdapter, request},
6      owner: self()
7    }
8    |> plug.call([])
9  end
10
11  def send_resp(socket, status, headers, body) do
12    response = "HTTP/1.1 #{status}\r\n#{headers(headers)}\r\n#{body}"
13
14    Http.send_response(socket, response)
15    {:ok, nil, socket}
16  end
17
18  def child_spec(plug: plug, port: port) do
19    Http.child_spec(port: port, dispatch: &dispatch(&1, plug))
20  end
21
22  defp headers(headers) do
23    Enum.reduce(headers, "", fn {key, value}, acc ->
24      acc <> key <> ": " <> value <> "\n\r"
25    end)
26  end
27end

Instead of responding directly from Http.accept/2, we'll use our adapter's dispatch/2 function to build a %Plug.Conn{} struct and pass that to our plug's call/2 function.

In the %Plug.Conn{}, we'll set the :adapter to link to our Adapter module, and then pass the socket the response that should be sent over. This ensures that the Plug app knows which module to call send_resp/4 on.

Our adapter's send_resp/4 takes the socket connection, the response status, a list of headers and a body, which are all prepared by the Plug application. It uses the passed in arguments to build the response and calls out to Http.send_response/2 that we've implemented before.

The child_spec/1 for our adapter returns the child_spec/1 for the Http module. This causes the web server to start when we supervise our adapter. We'll pass the dispatch function as the dispatch so that it can be called by our web server when it receives a response.

1# lib/http/application.ex
2defmodule Http.Application do
3  @moduledoc false
4  use Application
5
6  def start(_type, _args) do
7    children = [
8      {Http.PlugAdapter, plug: CurrentTime, port: 8080}
9    ]
10
11    opts = [strategy: :one_for_one, name: Http.Supervisor]
12    Supervisor.start_link(children, opts)
13  end
14end

Instead of starting Http in our application module, we'll start Http.PlugAdapter, which will take care of setting the plug, preparing the dispatch function and starting the web server.

1# lib/http.ex
2defmodule Http do
3  require Logger
4
5  def start_link(port: port, dispatch: dispatch) do
6    {:ok, socket} = :gen_tcp.listen(port, active: false, packet: :http_bin, reuseaddr: true)
7    Logger.info("Accepting connections on port #{port}")
8
9    {:ok, spawn_link(Http, :accept, [socket, dispatch])}
10  end
11
12  def accept(socket, dispatch) do
13    {:ok, request} = :gen_tcp.accept(socket)
14
15    spawn(fn ->
16      dispatch.(request)
17    end)
18
19    accept(socket, dispatch)
20  end
21
22  # ...
23end

Since we now handle requests in our Plug, we can remove most of the code in Http.accept/2. The Http.start_link/2 function will now receive the dispatch function from the adapter, which is used to send the request to in Http.accept/2.

1$ mix run --no-halt
219:39:29.454 [info]  Accepting connections on port 8080

Running the server again, everything still works exactly as before. However, our HTTP server, web application and Plug adapter are now three separate modules.

Swapping out Plug Applications

Because our server is now separate from our adapter and web application, we can swap the Plug out to run another application on the server. Let's give that a shot.

1# mix.exs
2defmodule Http.MixProject do
3  # ...
4
5  defp deps do
6    [
7      {:plug_octopus, github: "jeffkreeftmeijer/plug_octopus"},
8      {:plug, "~> 1.7"}
9    ]
10  end
11end

In our mix.exs file, we add :plug_octopus as a dependency.

1# lib/http/application.ex
2defmodule Http.Application do
3  @moduledoc false
4  use Application
5
6  def start(_type, _args) do
7    children = [
8      {Http.PlugAdapter, plug: Plug.Octopus, port: 8080}
9    ]
10
11    opts = [strategy: :one_for_one, name: Http.Supervisor]
12    Supervisor.start_link(children, opts)
13  end
14end

We then swap CurrentTime for Plug.Octopus in our Http.Application module. Starting the server and visiting http://localhost:8080 now shows an octopus!

However, clicking the flip! and crash! buttons doesn't do anything and any URL that's called shows the same page. That's because we skipped over parsing the requests altogether. Since we don't read the requests, we'll always pass the same response back. Let's fix that.

Parsing Requests

To read requests, we'll need to read the response from the socket. Thanks to the http_bin option that we're passing when calling :gen_tcp.listen/2, the request is returned in a format we can pattern match on.

1# lib/http.ex
2defmodule Http do
3  # ...
4
5  def read_request(request, acc \\ %{headers: []}) do
6    case :gen_tcp.recv(request, 0) do
7      {:ok, {:http_request, :GET, {:abs_path, full_path}, _}} ->
8        read_request(request, Map.put(acc, :full_path, full_path))
9
10      {:ok, :http_eoh} ->
11        acc
12
13      {:ok, {:http_header, _, key, _, value}} ->
14        read_request(
15          request,
16          Map.put(acc, :headers, [{String.downcase(to_string(key)), value} | acc.headers])
17        )
18
19      {:ok, line} ->
20        read_request(request, acc)
21    end
22  end
23
24  # ...
25end

The Http.read_request/2 function takes a socket connection and will be called from the dispatch function. It will keep calling :gen_tcp.recv/2 to accept lines from the request until it receives an :http_eoh response, indicating the end of the requests headers.

We match on the :http_request line, which includes the full request path. We'll use that to extract the path and URL parameters later. We'll also match on all :http_header lines, which we convert to a list we can pass to our Plug application later.

1# lib/http/adapter.ex
2defmodule Http.PlugAdapter do
3  def dispatch(request, plug) do
4    %{full_path: full_path} = Http.read_request(request)
5
6    %Plug.Conn{
7      adapter: {Http.PlugAdapter, request},
8      owner: self(),
9      path_info: path_info(full_path),
10      query_string: query_string(full_path)
11    }
12    |> plug.call([])
13  end
14
15  # ...
16
17  defp headers(headers) do
18    Enum.reduce(headers, "", fn {key, value}, acc ->
19      acc <> key <> ": " <> value <> "\n\r"
20    end)
21  end
22
23  defp path_info(full_path) do
24    [path | _] = String.split(full_path, "?")
25    path |> String.split("/") |> Enum.reject(&(&1 == ""))
26  end
27
28  defp query_string([_]), do: ""
29  defp query_string([_, query_string]), do: query_string
30
31  defp query_string(full_path) do
32    full_path
33    |> String.split("?")
34    |> query_string
35  end
36end

We call Http.read_request/1 from Http.PlugAdapter.dispatch/2. Having the full_path, we can extract the path_info (a list of path segments), and query_string (all URL parameters after the "?"). We add these to the %Plug.Conn{} to have our Plug app handle the rest.

Restarting the server, we can now flip and crash the lobster.

A Minimal Web Server Example that flips and crashes

With everyone in place, and no screws on the floor, our project to look into HTTP servers in Elixir is done. We've implemented a web server that extracts data from requests and used it to send a request to a Plug application. It even has concurrency included: since each request spawns a separate process, our web server can handle multiple concurrent users.

There's more to HTTP servers than we've shown in this article, but we hope implementing one from the ground up gave you some insight into how a web server could work.

Check out the finished project if you'd like to review the code, and don't forget to subscribe to the mailing list if you'd like to read more Elixir Alchemy!