umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-14 12:20:24 +00:00
Code Issues Wiki Activity

Add EventSource example

Browse source 
Port from extend/cowboy_examples.
This commit is contained in:
Adam Cammack 2013-02-16 02:26:32 -06:00
parent e3daf439da
commit a302fe5007
10 changed files with 187 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples/eventsource/README.md Normal file
View file

@ -0,0 +1,22 @@
Cowboy EventSource
==================
To compile this example you need rebar in your PATH.
Type the following command:
```
$ rebar get-deps compile
```
You can then start the Erlang node with the following command:
```
./start.sh
```
Uses Cowboy's loop functionality to continuously send events to the browser.
Example
-------
Point your browser to http://localhost:8080 to see EventSource in action with
any modern browser (not IE).

44
examples/eventsource/priv/index.html Normal file
View file

@ -0,0 +1,44 @@
<!DOCTYPE html>
<html>
<head>
<script type="text/javascript">
function ready() {
if (!!window.EventSource) {
setupEventSource();
} else {
document.getElementById('status').innerHTML =
"Sorry but your browser doesn't support the EventSource API";
}
}
function setupEventSource() {
var source = new EventSource('/eventsource');
source.addEventListener('message', function(event) {
addStatus("server sent the following: '" + event.data + "'");
}, false);
source.addEventListener('open', function(event) {
addStatus('eventsource connected.')
}, false);
source.addEventListener('error', function(event) {
if (event.eventPhase == EventSource.CLOSED) {
addStatus('eventsource was closed.')
}
}, false);
}
function addStatus(text) {
var date = new Date();
document.getElementById('status').innerHTML
= document.getElementById('status').innerHTML
+ date + ": " + text + "<br/>";
}
</script>
</head>
<body onload="ready();">
Hi!
<div id="status"></div>
</body>
</html>

6
examples/eventsource/rebar.config Normal file
View file

@ -0,0 +1,6 @@
{deps, [
{cowboy, ".*",
{git, "git://github.com/extend/cowboy.git", "master"}},
{mimetypes, ".*",
{git, "git://github.com/spawngrid/mimetypes.git", "master"}}
]}.

15
examples/eventsource/src/eventsource.app.src Normal file
View file

@ -0,0 +1,15 @@
%% Feel free to use, reuse and abuse the code in this file.
{application, eventsource, [
{description, "Cowboy EventSource example."},
{vsn, "1"},
{modules, []},
{registered, []},
{applications, [
kernel,
stdlib,
cowboy
]},
{mod, {eventsource_app, []}},
{env, []}
]}.

14
examples/eventsource/src/eventsource.erl Normal file
View file

@ -0,0 +1,14 @@
%% Feel free to use, reuse and abuse the code in this file.
-module(eventsource).
%% API.
-export([start/0]).
%% API.
start() ->
ok = application:start(crypto),
ok = application:start(ranch),
ok = application:start(cowboy),
ok = application:start(eventsource).

30
examples/eventsource/src/eventsource_app.erl Normal file
View file

@ -0,0 +1,30 @@
%% Feel free to use, reuse and abuse the code in this file.
%% @private
-module(eventsource_app).
-behaviour(application).
%% API.
-export([start/2]).
-export([stop/1]).
%% API.
start(_Type, _Args) ->
Dispatch = cowboy_router:compile([
{'_', [
{"/eventsource", eventsource_handler, []},
{"/", cowboy_static, [
{directory, {priv_dir, eventsource, []}},
{file, <<"index.html">>},
{mimetypes, {fun mimetypes:path_to_mimes/2, default}}
]}
]}
]),
{ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [
{env, [{dispatch, Dispatch}]}
]),
eventsource_sup:start_link().
stop(_State) ->
ok.

27
examples/eventsource/src/eventsource_handler.erl Normal file
View file

@ -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).

23
examples/eventsource/src/eventsource_sup.erl Normal file
View file

@ -0,0 +1,23 @@
%% Feel free to use, reuse and abuse the code in this file.
%% @private
-module(eventsource_sup).
-behaviour(supervisor).
%% API.
-export([start_link/0]).
%% supervisor.
-export([init/1]).
%% API.
-spec start_link() -> {ok, pid()}.
start_link() ->
supervisor:start_link({local, ?MODULE}, ?MODULE, []).
%% supervisor.
init([]) ->
Procs = [],
{ok, {{one_for_one, 10, 10}, Procs}}.

3
examples/eventsource/start.sh Executable file
View file

@ -0,0 +1,3 @@
#!/bin/sh
erl -pa ebin deps/*/ebin -s eventsource \
-eval "io:format(\"Point your browser at http://localhost:8080/~n\")."