25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-22 17:28:25 +01:00

* src/web/ejabberd_http_poll.erl: Timeout disconnection were not

properly handled after "active once" migration. This is now fixed.

SVN Revision: 566
This commit is contained in:
Mickaël Rémond 2006-05-15 15:45:52 +00:00
parent 177b367cbe
commit 21b912a375
2 changed files with 17 additions and 5 deletions

View File

@ -1,3 +1,8 @@
2006-05-15 Mickael Remond <mickael.remond@process-one.net>
* src/web/ejabberd_http_poll.erl: Timeout disconnection were not
properly handled after "active once" migration. This is now fixed.
2006-05-07 Mickael Remond <mickael.remond@process-one.net>
* src/mod_configure.erl: Unknown tables or tables from now unused

View File

@ -37,6 +37,7 @@
output = "",
input = "",
waiting_input = false,
last_receiver,
timer}).
%-define(DBGFSM, true).
@ -205,7 +206,9 @@ handle_sync_event(activate, From, StateName, StateData) ->
Input ->
From ! {tcp, {http_poll, self()}, list_to_binary(Input)},
{reply, ok, StateName, StateData#state{input = "",
waiting_input = false}}
waiting_input = false,
last_receiver = From
}}
end;
handle_sync_event(stop, From, StateName, StateData) ->
@ -243,6 +246,7 @@ handle_sync_event({http_put, Key, NewKey, Packet},
Reply = ok,
{reply, Reply, StateName,
StateData#state{waiting_input = false,
last_receiver = Receiver,
key = NewKey,
timer = Timer}}
end;
@ -287,9 +291,12 @@ terminate(Reason, StateName, StateData) ->
end),
case StateData#state.waiting_input of
false ->
ok;
Receiver ->
gen_fsm:reply(Receiver, {error, closed})
case StateData#state.last_receiver of
undefined -> ok;
Receiver -> Receiver ! {tcp_closed, {http_poll, self()}}
end;
{Receiver, _Tag} ->
Receiver ! {tcp_closed, {http_poll, self()}}
end,
ok.