* src/web/ejabberd_http_poll.erl: Fixed sending of Set-Cookie

header

SVN Revision: 257

diff --git a/ChangeLog b/ChangeLog
index 56c36a72749da989454b9d4c6da77fcacca60773..88f20559e517dbc0ea8cb66d1a73c6f175ab4c10 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-14  Alexey Shchepin  <alexey@sevcom.net>
+
+       * src/web/ejabberd_http_poll.erl: Fixed sending of Set-Cookie
+       header
+
 2004-08-12  Alexey Shchepin  <alexey@sevcom.net>
 
        * src/ejabberd_c2s.erl: Bugfix in resend_offline_messages/1

diff --git a/src/web/ejabberd_http_poll.erl b/src/web/ejabberd_http_poll.erl
index 4366d89d760efcaa26940396824676fb41b91cf5..58d918a736ce54803adf6bad2da121ec1148cd0c 100644 (file)
--- a/src/web/ejabberd_http_poll.erl
+++ b/src/web/ejabberd_http_poll.erl
@@ -105,7 +105,9 @@ process_request(#request{path = [],
                        {ok, OutPacket} ->
                            if
                                ID == ID1 ->
-                                   {200, [?CT], OutPacket};
+                                   Cookie = "ID=" ++ ID ++ "; expires=-1",
+                                   {200, [?CT, {"Set-Cookie", Cookie}],
+                                    OutPacket};
                                ID1 == "mobile" ->
                                    {200, [?CT], [ID, $\n, OutPacket]};
                                true ->