close connection properly

mojombo · May 24, 2008 · d8da04f · d8da04f
1 parent 2e6f315
commit d8da04f
Showing 1 changed file with 7 additions and 1 deletion.
diff --git 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