From d65b785f5da13fccd3d19533e3548d5fcedf0a43 Mon Sep 17 00:00:00 2001
From: Eric Cestari <ecestari@mac.com>
Date: Mon, 14 Feb 2011 14:48:02 +0100
Subject: [PATCH] Closing properly the XMPP websocket process

---
 src/web/ejabberd_http_ws.erl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/web/ejabberd_http_ws.erl b/src/web/ejabberd_http_ws.erl
index 8fb9d56a5..f79c41ce1 100644
--- a/src/web/ejabberd_http_ws.erl
+++ b/src/web/ejabberd_http_ws.erl
@@ -157,8 +157,11 @@ handle_sync_event({send, Packet}, _From, StateName, #state{ws = WS} = StateData)
         end,
     %?DEBUG("sending on websocket : ~p ", [Packet2]),
     WS:send(Packet2),
-    {reply, ok, StateName, StateData}.
-    
+    {reply, ok, StateName, StateData};
+
+handle_sync_event(close, From, _StateName, StateData)->
+    {stop, normal, StateData}.
+
 handle_info(closed, _StateName, StateData) ->
     {stop, normal,  StateData};