diff options
author | Loïc Hoguin <[email protected]> | 2013-02-16 15:11:56 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2013-02-16 15:11:56 +0100 |
commit | d305527e8871bf41c6362930848d93e42d523b29 (patch) | |
tree | b183ae379249e12ad3ff8681f6ec38c325934bba /examples/eventsource/src/eventsource_handler.erl | |
parent | 39af3010cbf0a2340e4424031f7397d52bf4b77d (diff) | |
parent | a302fe500736f3aa0dc36771db3077eb0752eebb (diff) | |
download | cowboy-d305527e8871bf41c6362930848d93e42d523b29.tar.gz cowboy-d305527e8871bf41c6362930848d93e42d523b29.tar.bz2 cowboy-d305527e8871bf41c6362930848d93e42d523b29.zip |
Merge branch 'eventsource_example' of git://github.com/acammack/cowboy
Diffstat (limited to 'examples/eventsource/src/eventsource_handler.erl')
-rw-r--r-- | examples/eventsource/src/eventsource_handler.erl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/examples/eventsource/src/eventsource_handler.erl b/examples/eventsource/src/eventsource_handler.erl new file mode 100644 index 0000000..661057c --- /dev/null +++ b/examples/eventsource/src/eventsource_handler.erl @@ -0,0 +1,27 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @doc EventSource emitter. +-module(eventsource_handler). + +-export([init/3]). +-export([info/3]). +-export([terminate/3]). + +init(_Transport, Req, []) -> + Headers = [{<<"content-type">>, <<"text/event-stream">>}], + {ok, Req2} = cowboy_req:chunked_reply(200, Headers, Req), + erlang:send_after(1000, self(), {message, "Tick"}), + {loop, Req2, undefined, 5000}. + +info({message, Msg}, Req, State) -> + ok = cowboy_req:chunk(["id: ", id(), "\ndata: ", Msg, "\n\n"], Req), + erlang:send_after(1000, self(), {message, "Tick"}), + {loop, Req, State}. + +terminate(_Reason, _Req, _State) -> + ok. + +id() -> + {Mega, Sec, Micro} = erlang:now(), + Id = (Mega * 1000000 + Sec) * 1000000 + Micro, + integer_to_list(Id, 16). |