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

Code cleanup

This commit is contained in:
Evgeniy Khramtsov 2011-09-26 18:44:41 +10:00
parent f17a531e15
commit e7d12f4b9e

View File

@ -306,16 +306,24 @@ normal_state({route, From, "",
#config.voice_request_min_interval,
BareFrom = jlib:jid_remove_resource(
jlib:jid_tolower(From)),
{LastTime, NewStateData1} = last_voice_request_time(
BareFrom, StateData),
TimeFromLastRequest =
(now_to_usec(now()) - LastTime) div 1000000,
if TimeFromLastRequest > MinInterval ->
send_voice_request(
From, NewStateData1),
update_voice_request_time(
BareFrom, NewStateData1);
true ->
NowPriority = -now_to_usec(now()),
CleanPriority =
NowPriority + MinInterval*1000000,
Times = clean_treap(
StateData#state.last_voice_request_time,
CleanPriority),
case treap:lookup(BareFrom, Times) of
error ->
Times1 = treap:insert(
BareFrom,
NowPriority,
true, Times),
NSD = StateData#state{
last_voice_request_time =
Times1},
send_voice_request(From, NSD),
NSD;
{ok, _, _} ->
ErrText = "Please, wait for "
"a while before sending "
"new voice request",
@ -326,7 +334,9 @@ normal_state({route, From, "",
ejabberd_router:route(
StateData#state.jid,
From, Err),
NewStateData1
StateData#state{
last_voice_request_time =
Times}
end;
false ->
ErrText = "Voice requests are "
@ -3843,42 +3853,26 @@ extract_jid_from_voice_approvement(Els) ->
Acc
end, error, Els).
last_voice_request_time(BareJID, StateData) ->
Timeout = (StateData#state.config)#config.voice_request_min_interval,
Times = clean_treap(StateData#state.last_voice_request_time,
-now_to_usec(now()) + Timeout*1000000),
NewStateData = StateData#state{last_voice_request_time = Times},
case treap:lookup(BareJID, StateData#state.last_voice_request_time) of
{ok, Value, _} ->
{-Value, NewStateData};
error ->
{0, NewStateData}
end.
update_voice_request_time(BareJID, StateData) ->
Times = treap:insert(BareJID, -now_to_usec(now()), true,
StateData#state.last_voice_request_time),
StateData#state{last_voice_request_time = Times}.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Invitation support
is_invitation(Els) ->
try
case xml:remove_cdata(Els) of
[{xmlelement, "x", _Attrs1, Els1} = XEl] ->
case xml:get_tag_attr_s("xmlns", XEl) of
lists:foldl(
fun({xmlelement, "x", Attrs, _} = El, false) ->
case xml:get_attr_s("xmlns", Attrs) of
?NS_MUC_USER ->
case xml:remove_cdata(Els1) of
[{xmlelement, "invite", _, _}] ->
case xml:get_subtag(El, "invite") of
false ->
false;
_ ->
true
end
end
end
catch
error: _ ->
end;
_ ->
false
end.
end;
(_, Acc) ->
Acc
end, false, Els).
check_invitation(From, Els, Lang, StateData) ->
FAffiliation = get_affiliation(From, StateData),