Home Explore Help
Sign In
n4u
/
cowboy
2
0
Fork 0
Files Issues 0 Pull Requests 0 Wiki
Browse Source

Add EventSource example

Port from extend/cowboy_examples.
Adam Cammack 12 years ago
parent
e3daf439da
commit
a302fe5007
10 changed files with 187 additions and 0 deletions
Split View Show Diff Stats
  1. 3 0
      examples/README.md
  2. 22 0
      examples/eventsource/README.md
  3. 44 0
      examples/eventsource/priv/index.html
  4. 6 0
      examples/eventsource/rebar.config
  5. 15 0
      examples/eventsource/src/eventsource.app.src
  6. 14 0
      examples/eventsource/src/eventsource.erl
  7. 30 0
      examples/eventsource/src/eventsource_app.erl
  8. 27 0
      examples/eventsource/src/eventsource_handler.erl
  9. 23 0
      examples/eventsource/src/eventsource_sup.erl
  10. 3 0
      examples/eventsource/start.sh

+ 3 - 0
examples/README.md
View File 

@@ -22,6 +22,9 @@ Cowboy Examples
 
  *  [elixir_hello_world](./elixir_hello_world):
 
     simplest example application with Elixir
 
 
+ *  [eventsource](./eventsource):
 
+    eventsource emitter and consumer
 
+
 
  *  [hello_world](./hello_world):
 
     simplest example application

+ 22 - 0
examples/eventsource/README.md
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 - 0
examples/eventsource/priv/index.html
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 - 0
examples/eventsource/rebar.config
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 - 0
examples/eventsource/src/eventsource.app.src
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 - 0
examples/eventsource/src/eventsource.erl
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 - 0
examples/eventsource/src/eventsource_app.erl
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 - 0
examples/eventsource/src/eventsource_handler.erl
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 - 0
examples/eventsource/src/eventsource_sup.erl
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 - 0
examples/eventsource/start.sh
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\")."