0820 basic http server supervisor

Author: knowthen

http_server/lib/http_server.ex

@@ -8,8 +8,28 @@ defmodule HttpServer do
   end
 
   def init() do
+    Process.flag(:trap_exit, true)
+    
+    start_listener()
+    |> supervise()
+  end
+  
+  def start_listener() do
     {:ok, socket} = :gen_tcp.listen(@port, @http_options)
-    accept(socket)
+    pid = spawn_link(HttpServer, :accept, [socket])
+    Logger.info("Listener started #{inspect(pid)}")
+    socket
+  end
+  
+  def supervise(socket) do
+    receive do
+      {:EXIT, pid, reason} ->
+        Logger.error("Listener process (#{inspect(pid)}) Crashed. #{reason}")
+        :gen_tcp.close(socket)
+        
+        start_listener()
+        |> supervise()
+    end
   end
 
   def accept(socket) do