26 lines
575 B
Erlang
26 lines
575 B
Erlang
|
%% This module implements a loop handler that sends
|
||
|
|
%% the current time every second using SSE.
|
||
|
|
|
||
|
|
-module(sse_clock_h).
|
||
|
|
|
||
|
|
-export([init/2]).
|
||
|
|
-export([info/3]).
|
||
|
|
|
||
|
|
init(Req, State) ->
|
||
|
|
self() ! timeout,
|
||
|
|
{cowboy_loop, cowboy_req:stream_reply(200, #{
|
||
|
|
<<"content-type">> => <<"text/event-stream">>
|
||
|
|
}, Req), State}.
|
||
|
|
|
||
|
|
info(timeout, Req, State) ->
|
||
|
|
erlang:send_after(1000, self(), timeout),
|
||
|
|
cowboy_req:stream_events(#{
|
||
|
|
data => data(State)
|
||
|
|
}, nofin, Req),
|
||
|
|
{ok, Req, State}.
|
||
|
|
|
||
|
|
data(date) ->
|
||
|
|
cowboy_clock:rfc1123();
|
||
|
|
data(Size) when is_integer(Size) ->
|
||
|
|
lists:duplicate(Size, $0).
|