src/websocket_test.erl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

-module(websocket_test).

-export([start_link/1, loop/1]).

start_link(Ws) ->
    Pid = spawn_link(?MODULE, loop, [Ws]), {ok, Pid}.

loop(Ws) ->
    receive
      {browser, Data} ->
	  Ws:send([<<"received '">>, Data, <<"'">>]), loop(Ws);
      _Ignore -> loop(Ws)
      after 5000 -> Ws:send(<<"pushing!">>), loop(Ws)
    end.