Slide 1

Slide 1 text

Building Video Chat with Elixir and Phoenix @anildigital Anil Wadghule 2018

Slide 2

Slide 2 text

Hi, I’m Anil ❤☕ $ ✈ ⽄

Slide 3

Slide 3 text

https://skatter.me

Slide 4

Slide 4 text

How a Video Chat works?

Slide 5

Slide 5 text

WebRTC peer to peer

Slide 6

Slide 6 text

Video data send WebRTC peer to peer

Slide 7

Slide 7 text

Video data send Video data send Video data send WebRTC peer to peer

Slide 8

Slide 8 text

What if fourth user joins video chat?

Slide 9

Slide 9 text

Video data send Video data send Video data send WebRTC peer to peer

Slide 10

Slide 10 text

Video data send Video data send Video data send Video data send WebRTC peer to peer Video data send

Slide 11

Slide 11 text

How to communicate? • Hardcode IP addresses?

Slide 12

Slide 12 text

Video data send Video data send Video data send Video data send Video data send WebRTC peer to peer 212.172.11.23 172.11.0.44 192.2.2.55 202.168.1.1

Slide 13

Slide 13 text

Need of Signalling Server

Slide 14

Slide 14 text

Signalling Server Phoenix as Signalling Server http://192.55.87.99:4000

Slide 15

Slide 15 text

Signalling Server Phoenix as Signalling Server http://192.55.87.99:4000

Slide 16

Slide 16 text

Signalling Server Phoenix as Signalling Server http://192.55.87.99:4000

Slide 17

Slide 17 text

WebRTC Peer to Peer is not scalable

Slide 18

Slide 18 text

Not scalable Phoenix as Signalling Server

Slide 19

Slide 19 text

Problem? • Uplink: 4 UDP streams • Downlink: 4 UDP streams

Slide 20

Slide 20 text

Problem? • Uplink: 7 UDP streams • Downlink: 7 UDP streams

Slide 21

Slide 21 text

Problem? • Uplink: X UDP streams • Downlink: X UDP streams

Slide 22

Slide 22 text

Solution - WebRTC Gateway Server

Slide 23

Slide 23 text

WebRTC Gateway Server Phoenix as Signalling Server WebRTC Gateway Server

Slide 24

Slide 24 text

Now • Uplink: 1 UDP stream • Downlink: 2 UDP streams

Slide 25

Slide 25 text

Now • Uplink: 1 UDP stream • Downlink: 5 UDP streams

Slide 26

Slide 26 text

Now • Uplink: 1 UDP stream • Downlink: X UDP streams

Slide 27

Slide 27 text

Why Elixir & Phoenix?

Slide 28

Slide 28 text

Why Elixir & Phoenix? • Elixir • OTP features - GenServer, Agent, GenEvent, GenStage, Supervisor • Phoenix • Phoenix for channels (signalling), web app basics • Authentication • Libraries

Slide 29

Slide 29 text

Why Elixir & Phoenix? • Actor model • Battle tested OTP abstractions • Fan out • Fault Tolerant • Soft realtime

Slide 30

Slide 30 text

Janus WebRTC Gateway Server

Slide 31

Slide 31 text

No content

Slide 32

Slide 32 text

Janus - WebRTC Gateway • Open source • Small footprint (C implementation) • Plugins

Slide 33

Slide 33 text

Janus Plugins

Slide 34

Slide 34 text

Janus Plugins

Slide 35

Slide 35 text

Janus APIs • RESTful (HTTP) • WebSockets • RabbitMQ • MQTT • UnixSockets

Slide 36

Slide 36 text

Using Janus RESTful/HTTP APIs • POST /janus (to create Janus Session) • POST Session (attach plugin to session) • POST Plugin (for other requests) • GET Session (for listening for events)

Slide 37

Slide 37 text

Janus Video Room Events • slowlink • configured • talking (true/false) • publishers • leaving • unpublished • webrtcup • media (true/false) • hangup •

Slide 38

Slide 38 text

Talking with Janus with Elixir

Slide 39

Slide 39 text

No content

Slide 40

Slide 40 text

elixir-janus client • HTTP client • State • Events https://github.com/ndarilek/elixir-janus

Slide 41

Slide 41 text

• Session module • Plugin module • Util module elixir-janus client structure

Slide 42

Slide 42 text

Phoenix application Session GenEvent Handler Plugin GenEvent Handler Janus WebRTC Gateway Server Elixir Janus Client Session Plugin State & GenEvent Manager State & GenEvent Manager HTTP Util HTTP calls Room create (returns Session Agent PID & Plugin Agent PID) Agent Agent

Slide 43

Slide 43 text

import Janus.Util defmodule Janus.Session do @enforce_keys [:id, :base_url, :event_manager] defstruct [ :id, :base_url, :event_manager, handles: %{} ] …

Slide 44

Slide 44 text

import Janus.Util defmodule Janus.Plugin do @enforce_keys [:id, :base_url, :event_manager] defstruct [ :id, :base_url, :event_manager ] …

Slide 45

Slide 45 text

defmodule Janus.Session do
 … … def start(url) do case post(url, %{janus: :create}) do {:ok, body} -> id = body.data.id {:ok, event_manager} = GenEvent.start_link() session = %Janus.Session{ id: id, base_url: "#{url}/#{id}", event_manager: event_manager } Agent.start(fn -> session end) v -> v end end

Slide 46

Slide 46 text

defmodule Janus.Session do
 … … def start(url) do case post(url, %{janus: :create}) do {:ok, body} -> id = body.data.id {:ok, event_manager} = GenEvent.start_link() session = %Janus.Session{ id: id, base_url: "#{url}/#{id}", event_manager: event_manager } Agent.start(fn -> session end) v -> v end end

Slide 47

Slide 47 text

defmodule Janus.Session do
 … … def start(url) do case post(url, %{janus: :create}) do {:ok, body} -> id = body.data.id {:ok, event_manager} = GenEvent.start_link() session = %Janus.Session{ id: id, base_url: "#{url}/#{id}", event_manager: event_manager } Agent.start(fn -> session end) v -> v end end

Slide 48

Slide 48 text

defmodule Janus.Session do
 … def attach_plugin(pid, id) do base_url = Agent.get(pid, &(&1.base_url)) v = case post(base_url, %{janus: :attach, plugin: id}) do {:ok, body} -> id = body.data.id {:ok, event_manager} = GenEvent.start_link() plugin = %Janus.Plugin{ id: id, base_url: "#{base_url}/#{id}", event_manager: event_manager } {:ok, plugin_pid} = Agent.start(fn -> plugin end) Agent.update pid, fn(session) -> new_handles = Map.put(session.handles, id, plugin_pid) %{ session | handles: new_handles} end

Slide 49

Slide 49 text

defmodule Janus.Session do
 … def attach_plugin(pid, id) do base_url = Agent.get(pid, &(&1.base_url)) v = case post(base_url, %{janus: :attach, plugin: id}) do {:ok, body} -> id = body.data.id {:ok, event_manager} = GenEvent.start_link() plugin = %Janus.Plugin{ id: id, base_url: "#{base_url}/#{id}", event_manager: event_manager } {:ok, plugin_pid} = Agent.start(fn -> plugin end) Agent.update pid, fn(session) -> new_handles = Map.put(session.handles, id, plugin_pid) %{ session | handles: new_handles} end

Slide 50

Slide 50 text

defmodule Janus.Session do
 … def attach_plugin(pid, id) do base_url = Agent.get(pid, &(&1.base_url)) v = case post(base_url, %{janus: :attach, plugin: id}) do {:ok, body} -> id = body.data.id {:ok, event_manager} = GenEvent.start_link() plugin = %Janus.Plugin{ id: id, base_url: "#{base_url}/#{id}", event_manager: event_manager } {:ok, plugin_pid} = Agent.start(fn -> plugin end) Agent.update pid, fn(session) -> new_handles = Map.put(session.handles, id, plugin_pid) %{ session | handles: new_handles} end

Slide 51

Slide 51 text

defmodule Janus.Session do
 … def attach_plugin(pid, id) do base_url = Agent.get(pid, &(&1.base_url)) v = case post(base_url, %{janus: :attach, plugin: id}) do {:ok, body} -> id = body.data.id {:ok, event_manager} = GenEvent.start_link() plugin = %Janus.Plugin{ id: id, base_url: "#{base_url}/#{id}", event_manager: event_manager } {:ok, plugin_pid} = Agent.start(fn -> plugin end) Agent.update pid, fn(session) -> new_handles = Map.put(session.handles, id, plugin_pid) %{ session | handles: new_handles} end

Slide 52

Slide 52 text

defmodule Janus.Session do
 … def add_handler(session, handler, args) do Agent.get session, &(GenEvent.add_handler(&1.event_manager, handler, args)) end

Slide 53

Slide 53 text

defmodule Janus.Plugin do
 … def add_handler(plugin, handler, args) do Agent.get plugin, &(GenEvent.add_handler(&1.event_manager, handler, args)) end

Slide 54

Slide 54 text

defp poll(pid) do session = Agent.get pid, &(&1) spawn fn -> case get(session.base_url) do {:ok, data} -> event_manager = session.event_manager case data do %{janus: "keepalive"} -> GenEvent.notify(event_manager, {:keepalive, pid}) %{sender: sender} -> plugin_pid = session.handles[sender] if plugin_pid do case data do %{janus: "event", plugindata: plugindata} -> jsep = data[:jsep] Agent.get plugin_pid, &(GenEvent.notify(&1.event_manager, {:event, pid, plugin_pid, plugindata.data, jsep}))

Slide 55

Slide 55 text

defp poll(pid) do session = Agent.get pid, &(&1) spawn fn -> case get(session.base_url) do {:ok, data} -> event_manager = session.event_manager case data do %{janus: "keepalive"} -> GenEvent.notify(event_manager, {:keepalive, pid}) %{sender: sender} -> plugin_pid = session.handles[sender] if plugin_pid do case data do %{janus: "event", plugindata: plugindata} -> jsep = data[:jsep] Agent.get plugin_pid, &(GenEvent.notify(&1.event_manager, {:event, pid, plugin_pid, plugindata.data, jsep}))

Slide 56

Slide 56 text

defp poll(pid) do session = Agent.get pid, &(&1) spawn fn -> case get(session.base_url) do {:ok, data} -> event_manager = session.event_manager case data do %{janus: "keepalive"} -> GenEvent.notify(event_manager, {:keepalive, pid}) %{sender: sender} -> plugin_pid = session.handles[sender] if plugin_pid do case data do %{janus: "event", plugindata: plugindata} -> jsep = data[:jsep] Agent.get plugin_pid, &(GenEvent.notify(&1.event_manager, {:event, pid, plugin_pid, plugindata.data, jsep}))

Slide 57

Slide 57 text

defp poll(pid) do session = Agent.get pid, &(&1) spawn fn -> case get(session.base_url) do {:ok, data} -> event_manager = session.event_manager case data do %{janus: "keepalive"} -> GenEvent.notify(event_manager, {:keepalive, pid}) %{sender: sender} -> plugin_pid = session.handles[sender] if plugin_pid do case data do %{janus: "event", plugindata: plugindata} -> jsep = data[:jsep] Agent.get plugin_pid, &(GenEvent.notify(&1.event_manager, {:event, pid, plugin_pid, plugindata.data, jsep}))

Slide 58

Slide 58 text

defp poll(pid) do session = Agent.get pid, &(&1) spawn fn -> case get(session.base_url) do {:ok, data} -> event_manager = session.event_manager case data do %{janus: "keepalive"} -> GenEvent.notify(event_manager, {:keepalive, pid}) %{sender: sender} -> plugin_pid = session.handles[sender] if plugin_pid do case data do %{janus: "event", plugindata: plugindata} -> jsep = data[:jsep] Agent.get plugin_pid, &(GenEvent.notify(&1.event_manager, {:event, pid, plugin_pid, plugindata.data, jsep}))

Slide 59

Slide 59 text

Phoenix application Session GenEvent Handler Plugin GenEvent Handler Janus WebRTC Gateway Server Elixir Janus Client Session Plugin State & GenEvent Manager State & GenEvent Manager HTTP Util HTTP calls Room create (returns Session Agent PID & Plugin Agent PID) Agent Agent

Slide 60

Slide 60 text

Video Room start sequence • Create Janus Room (HTTP Call) • Init Session Agent PID and Plugin Agent PID • Store these Agents PIDs in Cache (Cache is GenServer based) • PIDs to further communicate to Janus

Slide 61

Slide 61 text

Video Room start sequence • Create Janus Room (HTTP Call) • Init Session Agent PID and Plugin Agent PID • Store these Agents PIDs in Cache (Cache is GenServer based) • PIDs to further communicate to Janus

Slide 62

Slide 62 text

Video Room start sequence • Create Janus Room (HTTP Call) • Init Session Agent PID and Plugin Agent PID • Store these Agents PIDs in Cache (Cache is GenServer based) • PIDs to further communicate to Janus

Slide 63

Slide 63 text

Video Room start sequence • Create Janus Room (HTTP Call) • Init Session Agent PID and Plugin Agent PID • Store these Agents PIDs in Cache (Cache is GenServer based) • PIDs to further communicate with Janus

Slide 64

Slide 64 text

Problems solved with Elixir

Slide 65

Slide 65 text

Abrupt browser/tab close

Slide 66

Slide 66 text

Browser 1 Browser 2 Browser 3

Slide 67

Slide 67 text

Browser 1 Browser 2 Browser 3 Tab Closed

Slide 68

Slide 68 text

Browser 2 Browser 3 Others still see the user present

Slide 69

Slide 69 text

Appears there till minute Browser 2 Browser 3 Stuck Stuck

Slide 70

Slide 70 text

Browser 2 Browser 3 After one minute

Slide 71

Slide 71 text

How to solve this problem?

Slide 72

Slide 72 text

DynamicSupervisor, GenServers & Monitors

Slide 73

Slide 73 text

Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor Tab/Browser Closed elixir-janus client

Slide 74

Slide 74 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor

Slide 75

Slide 75 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor

Slide 76

Slide 76 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor

Slide 77

Slide 77 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor

Slide 78

Slide 78 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor

Slide 79

Slide 79 text

defmodule Janus.Session.GenServer do use GenServer def init(state) do %{url: _url, session: _session, handle: _handle, channel_pid: channel_pid} = state Process.monitor(channel_pid) send(self(), :setup) {:ok, state} end

Slide 80

Slide 80 text

defmodule Janus.Session.GenServer do use GenServer def init(state) do %{url: _url, session: _session, handle: _handle, channel_pid: channel_pid} = state Process.monitor(channel_pid) send(self(), :setup) {:ok, state} end

Slide 81

Slide 81 text

defmodule Janus.Session.GenServer do use GenServer

Slide 82

Slide 82 text

defmodule Janus.Session.GenServer do use GenServer … def handle_info({:DOWN, ref, :process, other_pid, _reason}, state) do %{url: _url, session: session, handle: handle, channel_pid: _channel_pid} = state cleanup(state) {:noreply, state} end def cleanup(state) do %{url: _url, session: session, handle: handle, channel_pid: _channel_pid} = state VideoroomCall.stop(session, handle) Process.exit(self(), :kill) state end

Slide 83

Slide 83 text

defmodule Janus.Session.GenServer do use GenServer … def handle_info({:DOWN, ref, :process, other_pid, _reason}, state) do %{url: _url, session: session, handle: handle, channel_pid: _channel_pid} = state cleanup(state) {:noreply, state} end def cleanup(state) do %{url: _url, session: session, handle: handle, channel_pid: _channel_pid} = state VideoroomCall.stop(session, handle) Process.exit(self(), :kill) state end

Slide 84

Slide 84 text

Demo

Slide 85

Slide 85 text

What if Agent crashes?

Slide 86

Slide 86 text

Agents can crash because • HTTP call fails • Exception in Event Handler code

Slide 87

Slide 87 text

Browser 1 Browser 2 Browser 3

Slide 88

Slide 88 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor Crashed

Slide 89

Slide 89 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor

Slide 90

Slide 90 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent DynamicSupervisor

Slide 91

Slide 91 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent Phoenix channel receives DOWN message DynamicSupervisor

Slide 92

Slide 92 text

Browser Tab 1 Phoenix channel Send JavaScript ‘Stop Call’ message DynamicSupervisor

Slide 93

Slide 93 text

elixir-janus client Browser Tab 1 Phoenix channel GenServer Plugin Agent Sesson Agent User starts call again DynamicSupervisor

Slide 94

Slide 94 text

defmodule SkatterWeb.SkatterRoomChannel do use SkatterWeb, :channel … defp init_janus_room(jsep, room_id, recording) do room = Rooms.find_by_id(room_id) {:ok, session_server} = DynamicSupervisor.start_child(Janus.Supervisor,
 Janus.Session.GenServer.child_spec([{:channel_pid, self()}]))
 ref = Process.monitor(session_server)
 
 {session, plugin_pid} = Janus.Session.GenServer.start_session(session_server, room_name) …

Slide 95

Slide 95 text

defmodule SkatterWeb.SkatterRoomChannel do use SkatterWeb, :channel … defp init_janus_room(jsep, room_id, recording) do room = Rooms.find_by_id(room_id) {:ok, session_server} = DynamicSupervisor.start_child(Janus.Supervisor,
 Janus.Session.GenServer.child_spec([{:channel_pid, self()}]))
 ref = Process.monitor(session_server)
 
 {session, plugin_pid} = Janus.Session.GenServer.start_session(session_server, room_name) …

Slide 96

Slide 96 text

defmodule SkatterWeb.SkatterRoomChannel do use SkatterWeb, :channel … defp init_janus_room(jsep, room_id, recording) do room = Rooms.find_by_id(room_id) {:ok, session_server} = DynamicSupervisor.start_child(Janus.Supervisor,
 Janus.Session.GenServer.child_spec([{:channel_pid, self()}]))
 ref = Process.monitor(session_server)
 
 {session, plugin_pid} = Janus.Session.GenServer.start_session(session_server, room_name) …

Slide 97

Slide 97 text

defmodule SkatterWeb.SkatterRoomChannel do use SkatterWeb, :channel … def handle_info({:DOWN, ref, :process, _pid, _reason}, socket) do room_name = get_room_name(socket) StandupsWeb.Endpoint.broadcast(room_name, "data", %{ type: "stop_call"}) {:noreply, socket} end …

Slide 98

Slide 98 text

defmodule SkatterWeb.SkatterRoomChannel do use SkatterWeb, :channel … def handle_info({:DOWN, ref, :process, _pid, _reason}, socket) do room_name = get_room_name(socket) StandupsWeb.Endpoint.broadcast(room_name, "data", %{ type: "stop_call"}) {:noreply, socket} end …

Slide 99

Slide 99 text

defmodule SkatterWeb.SkatterRoomChannel do use SkatterWeb, :channel … def handle_info({:DOWN, ref, :process, _pid, _reason}, socket) do room_name = get_room_name(socket) SkatterWeb.Endpoint.broadcast(room_name, "data", %{ type: "stop_call"}) {:noreply, socket} end …

Slide 100

Slide 100 text

Demo

Slide 101

Slide 101 text

Benefits of using Elixir • Useful abstractions • Control • Robust • Clarity

Slide 102

Slide 102 text

@anildigital Questions? [email protected] Thank you!

Slide 103

Slide 103 text

https://skatter.me