aboutsummaryrefslogtreecommitdiffstats
path: root/test/echo_protocol.erl
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2012-04-12 23:22:52 +0200
committerLoïc Hoguin <[email protected]>2012-04-14 17:52:47 +0200
commit4156fa3ebb978a21b52abf94202bb3d7676f4c03 (patch)
treee05c4cac592afeace0f1722bd2111d0d88eb94d0 /test/echo_protocol.erl
parentf971ec1ced3758834d6e98ab3c7fafddd8bf9da6 (diff)
downloadranch-4156fa3ebb978a21b52abf94202bb3d7676f4c03.tar.gz
ranch-4156fa3ebb978a21b52abf94202bb3d7676f4c03.tar.bz2
ranch-4156fa3ebb978a21b52abf94202bb3d7676f4c03.zip
Import the acceptor code from Cowboy
Modules were renamed. The 'cowboy_' prefix became 'ranch_'. At the same time, ranch_ssl_transport became ranch_ssl, and ranch_tcp_transport became ranch_tcp, because appending '_transport' felt a bit redundant considering SSL and TCP clearly are transports. One test has been added to make sure everything is working.
Diffstat (limited to 'test/echo_protocol.erl')
-rw-r--r--test/echo_protocol.erl19
1 files changed, 19 insertions, 0 deletions
diff --git a/test/echo_protocol.erl b/test/echo_protocol.erl
new file mode 100644
index 0000000..950cb06
--- /dev/null
+++ b/test/echo_protocol.erl
@@ -0,0 +1,19 @@
+-module(echo_protocol).
+-export([start_link/4, init/4]).
+
+start_link(ListenerPid, Socket, Transport, Opts) ->
+ Pid = spawn_link(?MODULE, init, [ListenerPid, Socket, Transport, Opts]),
+ {ok, Pid}.
+
+init(ListenerPid, Socket, Transport, _Opts = []) ->
+ ok = ranch:accept_ack(ListenerPid),
+ loop(Socket, Transport).
+
+loop(Socket, Transport) ->
+ case Transport:recv(Socket, 0, 5000) of
+ {ok, Data} ->
+ Transport:send(Socket, Data),
+ loop(Socket, Transport);
+ _ ->
+ ok = Transport:close(Socket)
+ end.