enforce pubsub#presence_based_delivery (EJAB-1221) (thanks to Karim Gemayel)

This commit is contained in:
Christophe Romain 2010-05-05 15:42:49 +02:00
parent 951808658d
commit 7fc1207661
1 changed files with 9 additions and 3 deletions

View File

@ -2868,12 +2868,18 @@ node_to_deliver(LJID, NodeOptions) ->
presence_can_deliver(LJID, PresenceDelivery).
presence_can_deliver(_, false) -> true;
presence_can_deliver({User, Server, _}, true) ->
presence_can_deliver({User, Server, Resource}, true) ->
case mnesia:dirty_match_object({session, '_', '_', {User, Server}, '_', '_'}) of
[] -> false;
Ss ->
lists:foldl(fun({session, _, _, _, undefined, _}, Acc) -> Acc;
({session, _, _, _, _Priority, _}, _Acc) -> true
lists:foldl(fun(_, true) -> true;
({session, _, _ , _, undefined, _}, _Acc) -> false;
({session, _, {_, _, R}, _, _Priority, _}, _Acc) ->
case Resource of
[] -> true;
R -> true;
_ -> false
end
end, false, Ss)
end.