From d8da04febdac5758ff077b94e360c20d4f620a7b Mon Sep 17 00:00:00 2001
From: Tom Preston-Werner <tom@mojombo.com>
Date: Sat, 24 May 2008 16:42:09 -0700
Subject: [PATCH] close connection properly

---
 elibs/server.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/elibs/server.erl b/elibs/server.erl
index 61c0a6c..c035de4 100644
--- a/elibs/server.erl
+++ b/elibs/server.erl
@@ -76,7 +76,13 @@ gather_out(Port, DataSoFar) ->
 stream_out(Port, Sock) ->
   {data, Data} = readline(Port),
   gen_tcp:send(Sock, Data),
-  stream_out(Port, Sock).
+  io:format("<= ~p~n", [Data]),
+  case regexp:match(Data, "0000$") of
+    {match, _Start, _Length} ->
+      done;
+    _Else ->
+      stream_out(Port, Sock)
+  end.
 
 readline(Port) ->
   receive