Merged mochiweb branch back into trunk.

git-svn-id: https://svn.apache.org/repos/asf/incubator/couchdb/trunk@648222 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 31 insertions, 0 deletions

diff --git a/src/mochiweb/mochiweb_echo.erl b/src/mochiweb/mochiweb_echo.erl
new file mode 100644
index 00000000..f164f02a
--- /dev/null
+++ b/src/mochiweb/mochiweb_echo.erl
@@ -0,0 +1,31 @@
+%% @author Bob Ippolito <bob@mochimedia.com>
+%% @copyright 2007 Mochi Media, Inc.
+
+%% @doc Simple and stupid echo server to demo mochiweb_socket_server.
+
+-module(mochiweb_echo).
+-author('bob@mochimedia.com').
+-export([start/0, stop/0, loop/1]).
+
+stop() ->
+    mochiweb_socket_server:stop(?MODULE).
+    
+start() ->
+    mochiweb_socket_server:start([{name, ?MODULE},
+				  {port, 6789},
+				  {ip, "127.0.0.1"},
+				  {max, 1},
+				  {loop, {?MODULE, loop}}]).
+
+loop(Socket) ->
+    case gen_tcp:recv(Socket, 0, 30000) of
+	{ok, Data} ->
+	    case gen_tcp:send(Socket, Data) of
+		ok ->
+		    loop(Socket);
+		_ ->
+		    exit(normal)
+	    end;
+	_Other ->
+	    exit(normal)
+    end.