mirror of
https://github.com/processone/ejabberd.git
synced 2024-12-10 16:58:46 +01:00
a8bc3a46af
* src/mod_roster.erl: Likewise * src/mod_roster_odbc.erl: Likewise SVN Revision: 886
1064 lines
32 KiB
Erlang
1064 lines
32 KiB
Erlang
%%%----------------------------------------------------------------------
|
|
%%% File : mod_roster_odbc.erl
|
|
%%% Author : Alexey Shchepin <alexey@sevcom.net>
|
|
%%% Purpose : Roster management
|
|
%%% Created : 15 Dec 2004 by Alexey Shchepin <alexey@sevcom.net>
|
|
%%%----------------------------------------------------------------------
|
|
|
|
-module(mod_roster_odbc).
|
|
-author('alexey@sevcom.net').
|
|
|
|
-behaviour(gen_mod).
|
|
|
|
-export([start/2, stop/1,
|
|
process_iq/3,
|
|
process_local_iq/3,
|
|
get_user_roster/2,
|
|
get_subscription_lists/3,
|
|
get_in_pending_subscriptions/3,
|
|
in_subscription/6,
|
|
out_subscription/4,
|
|
set_items/3,
|
|
remove_user/2,
|
|
get_jid_info/4,
|
|
webadmin_page/3,
|
|
webadmin_user/4]).
|
|
|
|
-include("ejabberd.hrl").
|
|
-include("jlib.hrl").
|
|
-include("mod_roster.hrl").
|
|
-include("web/ejabberd_http.hrl").
|
|
-include("web/ejabberd_web_admin.hrl").
|
|
|
|
|
|
start(Host, Opts) ->
|
|
IQDisc = gen_mod:get_opt(iqdisc, Opts, one_queue),
|
|
ejabberd_hooks:add(roster_get, Host,
|
|
?MODULE, get_user_roster, 50),
|
|
ejabberd_hooks:add(roster_in_subscription, Host,
|
|
?MODULE, in_subscription, 50),
|
|
ejabberd_hooks:add(roster_out_subscription, Host,
|
|
?MODULE, out_subscription, 50),
|
|
ejabberd_hooks:add(roster_get_subscription_lists, Host,
|
|
?MODULE, get_subscription_lists, 50),
|
|
ejabberd_hooks:add(roster_get_jid_info, Host,
|
|
?MODULE, get_jid_info, 50),
|
|
ejabberd_hooks:add(remove_user, Host,
|
|
?MODULE, remove_user, 50),
|
|
ejabberd_hooks:add(anonymous_purge_hook, Host,
|
|
?MODULE, remove_user, 50),
|
|
ejabberd_hooks:add(resend_subscription_requests_hook, Host,
|
|
?MODULE, get_in_pending_subscriptions, 50),
|
|
ejabberd_hooks:add(webadmin_page_host, Host,
|
|
?MODULE, webadmin_page, 50),
|
|
ejabberd_hooks:add(webadmin_user, Host,
|
|
?MODULE, webadmin_user, 50),
|
|
gen_iq_handler:add_iq_handler(ejabberd_sm, Host, ?NS_ROSTER,
|
|
?MODULE, process_iq, IQDisc).
|
|
|
|
stop(Host) ->
|
|
ejabberd_hooks:delete(roster_get, Host,
|
|
?MODULE, get_user_roster, 50),
|
|
ejabberd_hooks:delete(roster_in_subscription, Host,
|
|
?MODULE, in_subscription, 50),
|
|
ejabberd_hooks:delete(roster_out_subscription, Host,
|
|
?MODULE, out_subscription, 50),
|
|
ejabberd_hooks:delete(roster_get_subscription_lists, Host,
|
|
?MODULE, get_subscription_lists, 50),
|
|
ejabberd_hooks:delete(roster_get_jid_info, Host,
|
|
?MODULE, get_jid_info, 50),
|
|
ejabberd_hooks:delete(remove_user, Host,
|
|
?MODULE, remove_user, 50),
|
|
ejabberd_hooks:delete(anonymous_purge_hook, Host,
|
|
?MODULE, remove_user, 50),
|
|
ejabberd_hooks:delete(resend_subscription_requests_hook, Host,
|
|
?MODULE, get_in_pending_subscriptions, 50),
|
|
ejabberd_hooks:delete(webadmin_page_host, Host,
|
|
?MODULE, webadmin_page, 50),
|
|
ejabberd_hooks:delete(webadmin_user, Host,
|
|
?MODULE, webadmin_user, 50),
|
|
gen_iq_handler:remove_iq_handler(ejabberd_sm, Host, ?NS_ROSTER).
|
|
|
|
|
|
-define(PSI_ROSTER_WORKAROUND, true).
|
|
|
|
-ifdef(PSI_ROSTER_WORKAROUND).
|
|
|
|
process_iq(From, To, IQ) ->
|
|
#iq{sub_el = SubEl} = IQ,
|
|
#jid{lserver = LServer} = From,
|
|
case lists:member(LServer, ?MYHOSTS) of
|
|
true ->
|
|
ResIQ = process_local_iq(From, To, IQ),
|
|
ejabberd_router:route(From, From,
|
|
jlib:iq_to_xml(ResIQ)),
|
|
ignore;
|
|
_ ->
|
|
IQ#iq{type = error, sub_el = [SubEl, ?ERR_ITEM_NOT_FOUND]}
|
|
end.
|
|
|
|
-else.
|
|
|
|
process_iq(From, To, IQ) ->
|
|
#iq{sub_el = SubEl} = IQ,
|
|
#jid{lserver = LServer} = From,
|
|
case lists:member(LServer, ?MYHOSTS) of
|
|
true ->
|
|
process_local_iq(From, To, IQ);
|
|
_ ->
|
|
IQ#iq{type = error, sub_el = [SubEl, ?ERR_ITEM_NOT_FOUND]}
|
|
end.
|
|
|
|
-endif.
|
|
|
|
process_local_iq(From, To, #iq{type = Type} = IQ) ->
|
|
case Type of
|
|
set ->
|
|
process_iq_set(From, To, IQ);
|
|
get ->
|
|
process_iq_get(From, To, IQ)
|
|
end.
|
|
|
|
|
|
|
|
process_iq_get(From, To, #iq{sub_el = SubEl} = IQ) ->
|
|
LUser = From#jid.luser,
|
|
LServer = From#jid.lserver,
|
|
US = {LUser, LServer},
|
|
case catch ejabberd_hooks:run_fold(roster_get, To#jid.lserver, [], [US]) of
|
|
Items when is_list(Items) ->
|
|
XItems = lists:map(fun item_to_xml/1, Items),
|
|
IQ#iq{type = result,
|
|
sub_el = [{xmlelement, "query",
|
|
[{"xmlns", ?NS_ROSTER}],
|
|
XItems}]};
|
|
_ ->
|
|
IQ#iq{type = error, sub_el = [SubEl, ?ERR_INTERNAL_SERVER_ERROR]}
|
|
end.
|
|
|
|
get_user_roster(Acc, {LUser, LServer}) ->
|
|
Items = get_roster(LUser, LServer),
|
|
lists:filter(fun(#roster{subscription = none, ask = in}) ->
|
|
false;
|
|
(_) ->
|
|
true
|
|
end, Items) ++ Acc.
|
|
|
|
get_roster(LUser, LServer) ->
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
case catch odbc_queries:get_roster(LServer, Username) of
|
|
{selected, ["username", "jid", "nick", "subscription", "ask",
|
|
"askmessage", "server", "subscribe", "type"],
|
|
Items} when is_list(Items) ->
|
|
JIDGroups = case catch odbc_queries:get_roster_jid_groups(LServer, Username) of
|
|
{selected, ["jid","grp"], JGrps}
|
|
when is_list(JGrps) ->
|
|
JGrps;
|
|
_ ->
|
|
[]
|
|
end,
|
|
RItems = lists:flatmap(
|
|
fun(I) ->
|
|
case raw_to_record(LServer, I) of
|
|
%% Bad JID in database:
|
|
error ->
|
|
[];
|
|
R ->
|
|
SJID = jlib:jid_to_string(R#roster.jid),
|
|
Groups = lists:flatmap(
|
|
fun({S, G}) when S == SJID ->
|
|
[G];
|
|
(_) ->
|
|
[]
|
|
end, JIDGroups),
|
|
[R#roster{groups = Groups}]
|
|
end
|
|
end, Items),
|
|
RItems;
|
|
_ ->
|
|
[]
|
|
end.
|
|
|
|
|
|
item_to_xml(Item) ->
|
|
Attrs1 = [{"jid", jlib:jid_to_string(Item#roster.jid)}],
|
|
Attrs2 = case Item#roster.name of
|
|
"" ->
|
|
Attrs1;
|
|
Name ->
|
|
[{"name", Name} | Attrs1]
|
|
end,
|
|
Attrs3 = case Item#roster.subscription of
|
|
none ->
|
|
[{"subscription", "none"} | Attrs2];
|
|
from ->
|
|
[{"subscription", "from"} | Attrs2];
|
|
to ->
|
|
[{"subscription", "to"} | Attrs2];
|
|
both ->
|
|
[{"subscription", "both"} | Attrs2];
|
|
remove ->
|
|
[{"subscription", "remove"} | Attrs2]
|
|
end,
|
|
Attrs = case ask_to_pending(Item#roster.ask) of
|
|
out ->
|
|
[{"ask", "subscribe"} | Attrs3];
|
|
both ->
|
|
[{"ask", "subscribe"} | Attrs3];
|
|
_ ->
|
|
Attrs3
|
|
end,
|
|
SubEls = lists:map(fun(G) ->
|
|
{xmlelement, "group", [], [{xmlcdata, G}]}
|
|
end, Item#roster.groups),
|
|
{xmlelement, "item", Attrs, SubEls}.
|
|
|
|
|
|
process_iq_set(From, To, #iq{sub_el = SubEl} = IQ) ->
|
|
{xmlelement, _Name, _Attrs, Els} = SubEl,
|
|
lists:foreach(fun(El) -> process_item_set(From, To, El) end, Els),
|
|
IQ#iq{type = result, sub_el = []}.
|
|
|
|
process_item_set(From, To, {xmlelement, _Name, Attrs, Els}) ->
|
|
JID1 = jlib:string_to_jid(xml:get_attr_s("jid", Attrs)),
|
|
#jid{user = User, luser = LUser, lserver = LServer} = From,
|
|
case JID1 of
|
|
error ->
|
|
ok;
|
|
_ ->
|
|
LJID = jlib:jid_tolower(JID1),
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
SJID = ejabberd_odbc:escape(jlib:jid_to_string(LJID)),
|
|
F = fun() ->
|
|
{selected,
|
|
["username", "jid", "nick", "subscription",
|
|
"ask", "askmessage", "server", "subscribe", "type"],
|
|
Res} = odbc_queries:get_roster_by_jid(LServer, Username, SJID),
|
|
Item = case Res of
|
|
[] ->
|
|
#roster{usj = {LUser, LServer, LJID},
|
|
us = {LUser, LServer},
|
|
jid = LJID};
|
|
[I] ->
|
|
R = raw_to_record(LServer, I),
|
|
case R of
|
|
%% Bad JID in database:
|
|
error ->
|
|
#roster{usj = {LUser, LServer, LJID},
|
|
us = {LUser, LServer},
|
|
jid = LJID};
|
|
_ ->
|
|
R#roster{
|
|
usj = {LUser, LServer, LJID},
|
|
us = {LUser, LServer},
|
|
jid = LJID,
|
|
name = ""}
|
|
end
|
|
end,
|
|
Item1 = process_item_attrs(Item, Attrs),
|
|
Item2 = process_item_els(Item1, Els),
|
|
case Item2#roster.subscription of
|
|
remove ->
|
|
odbc_queries:del_roster(LServer, Username, SJID);
|
|
_ ->
|
|
ItemVals = record_to_string(Item2),
|
|
ItemGroups = groups_to_string(Item2),
|
|
odbc_queries:update_roster(LServer, Username, SJID, ItemVals, ItemGroups)
|
|
end,
|
|
%% If the item exist in shared roster, take the
|
|
%% subscription information from there:
|
|
Item3 = ejabberd_hooks:run_fold(roster_process_item,
|
|
LServer, Item2, [LServer]),
|
|
{Item, Item3}
|
|
end,
|
|
case odbc_queries:sql_transaction(LServer, F) of
|
|
{atomic, {OldItem, Item}} ->
|
|
push_item(User, LServer, To, Item),
|
|
case Item#roster.subscription of
|
|
remove ->
|
|
IsTo = case OldItem#roster.subscription of
|
|
both -> true;
|
|
to -> true;
|
|
_ -> false
|
|
end,
|
|
IsFrom = case OldItem#roster.subscription of
|
|
both -> true;
|
|
from -> true;
|
|
_ -> false
|
|
end,
|
|
if IsTo ->
|
|
ejabberd_router:route(
|
|
jlib:jid_remove_resource(From),
|
|
jlib:make_jid(OldItem#roster.jid),
|
|
{xmlelement, "presence",
|
|
[{"type", "unsubscribe"}],
|
|
[]});
|
|
true -> ok
|
|
end,
|
|
if IsFrom ->
|
|
ejabberd_router:route(
|
|
jlib:jid_remove_resource(From),
|
|
jlib:make_jid(OldItem#roster.jid),
|
|
{xmlelement, "presence",
|
|
[{"type", "unsubscribed"}],
|
|
[]});
|
|
true -> ok
|
|
end,
|
|
ok;
|
|
_ ->
|
|
ok
|
|
end;
|
|
E ->
|
|
?DEBUG("ROSTER: roster item set error: ~p~n", [E]),
|
|
ok
|
|
end
|
|
end;
|
|
process_item_set(_From, _To, _) ->
|
|
ok.
|
|
|
|
process_item_attrs(Item, [{Attr, Val} | Attrs]) ->
|
|
case Attr of
|
|
"jid" ->
|
|
case jlib:string_to_jid(Val) of
|
|
error ->
|
|
process_item_attrs(Item, Attrs);
|
|
JID1 ->
|
|
JID = {JID1#jid.luser, JID1#jid.lserver, JID1#jid.lresource},
|
|
process_item_attrs(Item#roster{jid = JID}, Attrs)
|
|
end;
|
|
"name" ->
|
|
process_item_attrs(Item#roster{name = Val}, Attrs);
|
|
"subscription" ->
|
|
case Val of
|
|
"remove" ->
|
|
process_item_attrs(Item#roster{subscription = remove},
|
|
Attrs);
|
|
_ ->
|
|
process_item_attrs(Item, Attrs)
|
|
end;
|
|
"ask" ->
|
|
process_item_attrs(Item, Attrs);
|
|
_ ->
|
|
process_item_attrs(Item, Attrs)
|
|
end;
|
|
process_item_attrs(Item, []) ->
|
|
Item.
|
|
|
|
|
|
process_item_els(Item, [{xmlelement, Name, _Attrs, SEls} | Els]) ->
|
|
case Name of
|
|
"group" ->
|
|
Groups = [xml:get_cdata(SEls) | Item#roster.groups],
|
|
process_item_els(Item#roster{groups = Groups}, Els);
|
|
_ ->
|
|
process_item_els(Item, Els)
|
|
end;
|
|
process_item_els(Item, [{xmlcdata, _} | Els]) ->
|
|
process_item_els(Item, Els);
|
|
process_item_els(Item, []) ->
|
|
Item.
|
|
|
|
|
|
push_item(User, Server, From, Item) ->
|
|
ejabberd_sm:route(jlib:make_jid("", "", ""),
|
|
jlib:make_jid(User, Server, ""),
|
|
{xmlelement, "broadcast", [],
|
|
[{item,
|
|
Item#roster.jid,
|
|
Item#roster.subscription}]}),
|
|
lists:foreach(fun(Resource) ->
|
|
push_item(User, Server, Resource, From, Item)
|
|
end, ejabberd_sm:get_user_resources(User, Server)).
|
|
|
|
% TODO: don't push to those who not load roster
|
|
-ifdef(PSI_ROSTER_WORKAROUND).
|
|
|
|
push_item(User, Server, Resource, _From, Item) ->
|
|
ResIQ = #iq{type = set, xmlns = ?NS_ROSTER,
|
|
id = "push",
|
|
sub_el = [{xmlelement, "query",
|
|
[{"xmlns", ?NS_ROSTER}],
|
|
[item_to_xml(Item)]}]},
|
|
ejabberd_router:route(
|
|
jlib:make_jid(User, Server, Resource),
|
|
jlib:make_jid(User, Server, Resource),
|
|
jlib:iq_to_xml(ResIQ)).
|
|
|
|
-else.
|
|
|
|
push_item(User, Resource, From, Item) ->
|
|
ResIQ = #iq{type = set, xmlns = ?NS_ROSTER,
|
|
id = "push",
|
|
sub_el = [{xmlelement, "query",
|
|
[{"xmlns", ?NS_ROSTER}],
|
|
[item_to_xml(Item)]}]},
|
|
ejabberd_router:route(
|
|
From,
|
|
jlib:make_jid(User, Server, Resource),
|
|
jlib:iq_to_xml(ResIQ)).
|
|
|
|
-endif.
|
|
|
|
get_subscription_lists(_, User, Server) ->
|
|
LUser = jlib:nodeprep(User),
|
|
LServer = jlib:nameprep(Server),
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
case catch odbc_queries:get_roster(LServer, Username) of
|
|
{selected, ["username", "jid", "nick", "subscription", "ask",
|
|
"askmessage", "server", "subscribe", "type"],
|
|
Items} when is_list(Items) ->
|
|
fill_subscription_lists(LServer, Items, [], []);
|
|
_ ->
|
|
{[], []}
|
|
end.
|
|
|
|
fill_subscription_lists(LServer, [RawI | Is], F, T) ->
|
|
I = raw_to_record(LServer, RawI),
|
|
case I of
|
|
%% Bad JID in database:
|
|
error ->
|
|
fill_subscription_lists(LServer, Is, F, T);
|
|
_ ->
|
|
J = I#roster.jid,
|
|
case I#roster.subscription of
|
|
both ->
|
|
fill_subscription_lists(LServer, Is, [J | F], [J | T]);
|
|
from ->
|
|
fill_subscription_lists(LServer, Is, [J | F], T);
|
|
to ->
|
|
fill_subscription_lists(LServer, Is, F, [J | T]);
|
|
_ ->
|
|
fill_subscription_lists(LServer, Is, F, T)
|
|
end
|
|
end;
|
|
fill_subscription_lists(_LServer, [], F, T) ->
|
|
{F, T}.
|
|
|
|
ask_to_pending(subscribe) -> out;
|
|
ask_to_pending(unsubscribe) -> none;
|
|
ask_to_pending(Ask) -> Ask.
|
|
|
|
|
|
|
|
in_subscription(_, User, Server, JID, Type, Reason) ->
|
|
process_subscription(in, User, Server, JID, Type, Reason).
|
|
|
|
out_subscription(User, Server, JID, Type) ->
|
|
process_subscription(out, User, Server, JID, Type, []).
|
|
|
|
process_subscription(Direction, User, Server, JID1, Type, Reason) ->
|
|
LUser = jlib:nodeprep(User),
|
|
LServer = jlib:nameprep(Server),
|
|
LJID = jlib:jid_tolower(JID1),
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
SJID = ejabberd_odbc:escape(jlib:jid_to_string(LJID)),
|
|
F = fun() ->
|
|
Item =
|
|
case odbc_queries:get_roster_by_jid(LServer, Username, SJID) of
|
|
{selected,
|
|
["username", "jid", "nick", "subscription", "ask",
|
|
"askmessage", "server", "subscribe", "type"],
|
|
[I]} ->
|
|
%% raw_to_record can return error, but
|
|
%% jlib_to_string would fail before this point
|
|
R = raw_to_record(LServer, I),
|
|
Groups =
|
|
case odbc_queries:get_roster_groups(LServer, Username, SJID) of
|
|
{selected, ["grp"], JGrps} when is_list(JGrps) ->
|
|
[JGrp || {JGrp} <- JGrps];
|
|
_ ->
|
|
[]
|
|
end,
|
|
R#roster{groups = Groups};
|
|
{selected,
|
|
["username", "jid", "nick", "subscription", "ask",
|
|
"askmessage", "server", "subscribe", "type"],
|
|
[]} ->
|
|
#roster{usj = {LUser, LServer, LJID},
|
|
us = {LUser, LServer},
|
|
jid = LJID}
|
|
end,
|
|
NewState = case Direction of
|
|
out ->
|
|
out_state_change(Item#roster.subscription,
|
|
Item#roster.ask,
|
|
Type);
|
|
in ->
|
|
in_state_change(Item#roster.subscription,
|
|
Item#roster.ask,
|
|
Type)
|
|
end,
|
|
AutoReply = case Direction of
|
|
out ->
|
|
none;
|
|
in ->
|
|
in_auto_reply(Item#roster.subscription,
|
|
Item#roster.ask,
|
|
Type)
|
|
end,
|
|
AskMessage = case NewState of
|
|
{_, both} -> Reason;
|
|
{_, in} -> Reason;
|
|
_ -> ""
|
|
end,
|
|
case NewState of
|
|
none ->
|
|
{none, AutoReply};
|
|
{none, none} when Item#roster.subscription == none,
|
|
Item#roster.ask == in ->
|
|
odbc_queries:del_roster(LServer, Username, SJID),
|
|
{none, AutoReply};
|
|
{Subscription, Pending} ->
|
|
NewItem = Item#roster{subscription = Subscription,
|
|
ask = Pending,
|
|
askmessage = AskMessage},
|
|
ItemVals = record_to_string(NewItem),
|
|
odbc_queries:roster_subscribe(LServer, Username, SJID, ItemVals),
|
|
{{push, NewItem}, AutoReply}
|
|
end
|
|
end,
|
|
case odbc_queries:sql_transaction(LServer, F) of
|
|
{atomic, {Push, AutoReply}} ->
|
|
case AutoReply of
|
|
none ->
|
|
ok;
|
|
_ ->
|
|
T = case AutoReply of
|
|
subscribed -> "subscribed";
|
|
unsubscribed -> "unsubscribed"
|
|
end,
|
|
ejabberd_router:route(
|
|
jlib:make_jid(User, Server, ""), JID1,
|
|
{xmlelement, "presence", [{"type", T}], []})
|
|
end,
|
|
case Push of
|
|
{push, Item} ->
|
|
if
|
|
Item#roster.subscription == none,
|
|
Item#roster.ask == in ->
|
|
ok;
|
|
true ->
|
|
push_item(User, Server,
|
|
jlib:make_jid("", Server, ""), Item)
|
|
end,
|
|
true;
|
|
none ->
|
|
false
|
|
end;
|
|
_ ->
|
|
false
|
|
end.
|
|
|
|
|
|
%% in_state_change(Subscription, Pending, Type) -> NewState
|
|
%% NewState = none | {NewSubscription, NewPending}
|
|
-ifdef(ROSTER_GATEWAY_WORKAROUND).
|
|
-define(NNSD, {to, none}).
|
|
-define(NISD, {to, in}).
|
|
-else.
|
|
-define(NNSD, none).
|
|
-define(NISD, none).
|
|
-endif.
|
|
|
|
in_state_change(none, none, subscribe) -> {none, in};
|
|
in_state_change(none, none, subscribed) -> ?NNSD;
|
|
in_state_change(none, none, unsubscribe) -> none;
|
|
in_state_change(none, none, unsubscribed) -> none;
|
|
in_state_change(none, out, subscribe) -> {none, both};
|
|
in_state_change(none, out, subscribed) -> {to, none};
|
|
in_state_change(none, out, unsubscribe) -> none;
|
|
in_state_change(none, out, unsubscribed) -> {none, none};
|
|
in_state_change(none, in, subscribe) -> none;
|
|
in_state_change(none, in, subscribed) -> ?NISD;
|
|
in_state_change(none, in, unsubscribe) -> {none, none};
|
|
in_state_change(none, in, unsubscribed) -> none;
|
|
in_state_change(none, both, subscribe) -> none;
|
|
in_state_change(none, both, subscribed) -> {to, in};
|
|
in_state_change(none, both, unsubscribe) -> {none, out};
|
|
in_state_change(none, both, unsubscribed) -> {none, in};
|
|
in_state_change(to, none, subscribe) -> {to, in};
|
|
in_state_change(to, none, subscribed) -> none;
|
|
in_state_change(to, none, unsubscribe) -> none;
|
|
in_state_change(to, none, unsubscribed) -> {none, none};
|
|
in_state_change(to, in, subscribe) -> none;
|
|
in_state_change(to, in, subscribed) -> none;
|
|
in_state_change(to, in, unsubscribe) -> {to, none};
|
|
in_state_change(to, in, unsubscribed) -> {none, in};
|
|
in_state_change(from, none, subscribe) -> none;
|
|
in_state_change(from, none, subscribed) -> none;
|
|
in_state_change(from, none, unsubscribe) -> {none, none};
|
|
in_state_change(from, none, unsubscribed) -> none;
|
|
in_state_change(from, out, subscribe) -> none;
|
|
in_state_change(from, out, subscribed) -> {both, none};
|
|
in_state_change(from, out, unsubscribe) -> {none, out};
|
|
in_state_change(from, out, unsubscribed) -> {from, none};
|
|
in_state_change(both, none, subscribe) -> none;
|
|
in_state_change(both, none, subscribed) -> none;
|
|
in_state_change(both, none, unsubscribe) -> {to, none};
|
|
in_state_change(both, none, unsubscribed) -> {from, none}.
|
|
|
|
out_state_change(none, none, subscribe) -> {none, out};
|
|
out_state_change(none, none, subscribed) -> none;
|
|
out_state_change(none, none, unsubscribe) -> none;
|
|
out_state_change(none, none, unsubscribed) -> none;
|
|
out_state_change(none, out, subscribe) -> {none, out}; %% We need to resend query (RFC3921, section 9.2)
|
|
out_state_change(none, out, subscribed) -> none;
|
|
out_state_change(none, out, unsubscribe) -> {none, none};
|
|
out_state_change(none, out, unsubscribed) -> none;
|
|
out_state_change(none, in, subscribe) -> {none, both};
|
|
out_state_change(none, in, subscribed) -> {from, none};
|
|
out_state_change(none, in, unsubscribe) -> none;
|
|
out_state_change(none, in, unsubscribed) -> {none, none};
|
|
out_state_change(none, both, subscribe) -> none;
|
|
out_state_change(none, both, subscribed) -> {from, out};
|
|
out_state_change(none, both, unsubscribe) -> {none, in};
|
|
out_state_change(none, both, unsubscribed) -> {none, out};
|
|
out_state_change(to, none, subscribe) -> none;
|
|
out_state_change(to, none, subscribed) -> none;
|
|
out_state_change(to, none, unsubscribe) -> {none, none};
|
|
out_state_change(to, none, unsubscribed) -> none;
|
|
out_state_change(to, in, subscribe) -> none;
|
|
out_state_change(to, in, subscribed) -> {both, none};
|
|
out_state_change(to, in, unsubscribe) -> {none, in};
|
|
out_state_change(to, in, unsubscribed) -> {to, none};
|
|
out_state_change(from, none, subscribe) -> {from, out};
|
|
out_state_change(from, none, subscribed) -> none;
|
|
out_state_change(from, none, unsubscribe) -> none;
|
|
out_state_change(from, none, unsubscribed) -> {none, none};
|
|
out_state_change(from, out, subscribe) -> none;
|
|
out_state_change(from, out, subscribed) -> none;
|
|
out_state_change(from, out, unsubscribe) -> {from, none};
|
|
out_state_change(from, out, unsubscribed) -> {none, out};
|
|
out_state_change(both, none, subscribe) -> none;
|
|
out_state_change(both, none, subscribed) -> none;
|
|
out_state_change(both, none, unsubscribe) -> {from, none};
|
|
out_state_change(both, none, unsubscribed) -> {to, none}.
|
|
|
|
in_auto_reply(from, none, subscribe) -> subscribed;
|
|
in_auto_reply(from, out, subscribe) -> subscribed;
|
|
in_auto_reply(both, none, subscribe) -> subscribed;
|
|
in_auto_reply(none, in, unsubscribe) -> unsubscribed;
|
|
in_auto_reply(none, both, unsubscribe) -> unsubscribed;
|
|
in_auto_reply(to, in, unsubscribe) -> unsubscribed;
|
|
in_auto_reply(from, none, unsubscribe) -> unsubscribed;
|
|
in_auto_reply(from, out, unsubscribe) -> unsubscribed;
|
|
in_auto_reply(both, none, unsubscribe) -> unsubscribed;
|
|
in_auto_reply(_, _, _) -> none.
|
|
|
|
|
|
remove_user(User, Server) ->
|
|
LUser = jlib:nodeprep(User),
|
|
LServer = jlib:nameprep(Server),
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
odbc_queries:del_user_roster_t(LServer, Username),
|
|
ok.
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
set_items(User, Server, SubEl) ->
|
|
{xmlelement, _Name, _Attrs, Els} = SubEl,
|
|
LUser = jlib:nodeprep(User),
|
|
LServer = jlib:nameprep(Server),
|
|
catch odbc_queries:sql_transaction(
|
|
LServer,
|
|
lists:map(fun(El) ->
|
|
process_item_set_t(LUser, LServer, El)
|
|
end, Els)).
|
|
|
|
process_item_set_t(LUser, LServer, {xmlelement, _Name, Attrs, Els}) ->
|
|
JID1 = jlib:string_to_jid(xml:get_attr_s("jid", Attrs)),
|
|
case JID1 of
|
|
error ->
|
|
[];
|
|
_ ->
|
|
LJID = {JID1#jid.luser, JID1#jid.lserver, JID1#jid.lresource},
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
SJID = ejabberd_odbc:escape(jlib:jid_to_string(LJID)),
|
|
Item = #roster{usj = {LUser, LServer, LJID},
|
|
us = {LUser, LServer},
|
|
jid = LJID},
|
|
Item1 = process_item_attrs_ws(Item, Attrs),
|
|
Item2 = process_item_els(Item1, Els),
|
|
case Item2#roster.subscription of
|
|
remove ->
|
|
odbc_queries:del_roster_sql(Username, SJID);
|
|
_ ->
|
|
ItemVals = record_to_string(Item1),
|
|
ItemGroups = groups_to_string(Item2),
|
|
odbc_queries:update_roster_sql(Username, SJID, ItemVals, ItemGroups)
|
|
end
|
|
end;
|
|
process_item_set_t(_LUser, _LServer, _) ->
|
|
[].
|
|
|
|
process_item_attrs_ws(Item, [{Attr, Val} | Attrs]) ->
|
|
case Attr of
|
|
"jid" ->
|
|
case jlib:string_to_jid(Val) of
|
|
error ->
|
|
process_item_attrs_ws(Item, Attrs);
|
|
JID1 ->
|
|
JID = {JID1#jid.luser, JID1#jid.lserver, JID1#jid.lresource},
|
|
process_item_attrs_ws(Item#roster{jid = JID}, Attrs)
|
|
end;
|
|
"name" ->
|
|
process_item_attrs_ws(Item#roster{name = Val}, Attrs);
|
|
"subscription" ->
|
|
case Val of
|
|
"remove" ->
|
|
process_item_attrs_ws(Item#roster{subscription = remove},
|
|
Attrs);
|
|
"none" ->
|
|
process_item_attrs_ws(Item#roster{subscription = none},
|
|
Attrs);
|
|
"both" ->
|
|
process_item_attrs_ws(Item#roster{subscription = both},
|
|
Attrs);
|
|
"from" ->
|
|
process_item_attrs_ws(Item#roster{subscription = from},
|
|
Attrs);
|
|
"to" ->
|
|
process_item_attrs_ws(Item#roster{subscription = to},
|
|
Attrs);
|
|
_ ->
|
|
process_item_attrs_ws(Item, Attrs)
|
|
end;
|
|
"ask" ->
|
|
process_item_attrs_ws(Item, Attrs);
|
|
_ ->
|
|
process_item_attrs_ws(Item, Attrs)
|
|
end;
|
|
process_item_attrs_ws(Item, []) ->
|
|
Item.
|
|
|
|
get_in_pending_subscriptions(Ls, User, Server) ->
|
|
JID = jlib:make_jid(User, Server, ""),
|
|
LUser = JID#jid.luser,
|
|
LServer = JID#jid.lserver,
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
case catch odbc_queries:get_roster(LServer, Username) of
|
|
{selected, ["username", "jid", "nick", "subscription", "ask",
|
|
"askmessage", "server", "subscribe", "type"],
|
|
Items} when is_list(Items) ->
|
|
Ls ++ lists:map(
|
|
fun(R) ->
|
|
Message = R#roster.askmessage,
|
|
{xmlelement, "presence",
|
|
[{"from", jlib:jid_to_string(R#roster.jid)},
|
|
{"to", jlib:jid_to_string(JID)},
|
|
{"type", "subscribe"}],
|
|
[{xmlelement, "status", [],
|
|
[{xmlcdata, Message}]}]}
|
|
end,
|
|
lists:flatmap(
|
|
fun(I) ->
|
|
case raw_to_record(LServer, I) of
|
|
%% Bad JID in database:
|
|
error ->
|
|
[];
|
|
R ->
|
|
case R#roster.ask of
|
|
in -> [R];
|
|
both -> [R];
|
|
_ -> []
|
|
end
|
|
end
|
|
end,
|
|
Items));
|
|
_ ->
|
|
Ls
|
|
end.
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
get_jid_info(_, User, Server, JID) ->
|
|
LUser = jlib:nodeprep(User),
|
|
LServer = jlib:nameprep(Server),
|
|
LJID = jlib:jid_tolower(JID),
|
|
Username = ejabberd_odbc:escape(LUser),
|
|
SJID = ejabberd_odbc:escape(jlib:jid_to_string(LJID)),
|
|
case catch odbc_queries:get_subscription(LServer, Username, SJID) of
|
|
{selected, ["subscription"], [{SSubscription}]} ->
|
|
Subscription = case SSubscription of
|
|
"B" -> both;
|
|
"T" -> to;
|
|
"F" -> from;
|
|
_ -> none
|
|
end,
|
|
Groups = case catch odbc_queries:get_rostergroup_by_jid(LServer, Username, SJID) of
|
|
{selected, ["grp"], JGrps} when is_list(JGrps) ->
|
|
[JGrp || {JGrp} <- JGrps];
|
|
_ ->
|
|
[]
|
|
end,
|
|
{Subscription, Groups};
|
|
_ ->
|
|
LRJID = jlib:jid_tolower(jlib:jid_remove_resource(JID)),
|
|
if
|
|
LRJID == LJID ->
|
|
{none, []};
|
|
true ->
|
|
SRJID = ejabberd_odbc:escape(jlib:jid_to_string(LRJID)),
|
|
case catch odbc_queries:get_subscription(LServer, Username, SRJID) of
|
|
{selected, ["subscription"], [{SSubscription}]} ->
|
|
Subscription = case SSubscription of
|
|
"B" -> both;
|
|
"T" -> to;
|
|
"F" -> from;
|
|
_ -> none
|
|
end,
|
|
Groups = case catch odbc_queries:get_rostergroup_by_jid(LServer, Username, SRJID) of
|
|
{selected, ["grp"], JGrps} when is_list(JGrps) ->
|
|
[JGrp || {JGrp} <- JGrps];
|
|
_ ->
|
|
[]
|
|
end,
|
|
{Subscription, Groups};
|
|
_ ->
|
|
{none, []}
|
|
end
|
|
end
|
|
end.
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
raw_to_record(LServer, {User, SJID, Nick, SSubscription, SAsk, SAskMessage,
|
|
_SServer, _SSubscribe, _SType}) ->
|
|
case jlib:string_to_jid(SJID) of
|
|
error ->
|
|
error;
|
|
JID ->
|
|
LJID = jlib:jid_tolower(JID),
|
|
Subscription = case SSubscription of
|
|
"B" -> both;
|
|
"T" -> to;
|
|
"F" -> from;
|
|
_ -> none
|
|
end,
|
|
Ask = case SAsk of
|
|
"S" -> subscribe;
|
|
"U" -> unsubscribe;
|
|
"B" -> both;
|
|
"O" -> out;
|
|
"I" -> in;
|
|
_ -> none
|
|
end,
|
|
#roster{usj = {User, LServer, LJID},
|
|
us = {User, LServer},
|
|
jid = LJID,
|
|
name = Nick,
|
|
subscription = Subscription,
|
|
ask = Ask,
|
|
askmessage = SAskMessage}
|
|
end.
|
|
|
|
record_to_string(#roster{us = {User, _Server},
|
|
jid = JID,
|
|
name = Name,
|
|
subscription = Subscription,
|
|
ask = Ask,
|
|
askmessage = AskMessage}) ->
|
|
Username = ejabberd_odbc:escape(User),
|
|
SJID = ejabberd_odbc:escape(jlib:jid_to_string(jlib:jid_tolower(JID))),
|
|
Nick = ejabberd_odbc:escape(Name),
|
|
SSubscription = case Subscription of
|
|
both -> "B";
|
|
to -> "T";
|
|
from -> "F";
|
|
none -> "N"
|
|
end,
|
|
SAsk = case Ask of
|
|
subscribe -> "S";
|
|
unsubscribe -> "U";
|
|
both -> "B";
|
|
out -> "O";
|
|
in -> "I";
|
|
none -> "N"
|
|
end,
|
|
SAskMessage = ejabberd_odbc:escape(AskMessage),
|
|
["'", Username, "',"
|
|
"'", SJID, "',"
|
|
"'", Nick, "',"
|
|
"'", SSubscription, "',"
|
|
"'", SAsk, "',"
|
|
"'", SAskMessage, "',"
|
|
"'N', '', 'item'"].
|
|
|
|
groups_to_string(#roster{us = {User, _Server},
|
|
jid = JID,
|
|
groups = Groups}) ->
|
|
Username = ejabberd_odbc:escape(User),
|
|
SJID = ejabberd_odbc:escape(jlib:jid_to_string(jlib:jid_tolower(JID))),
|
|
|
|
%% Empty groups do not need to be converted to string to be inserted in
|
|
%% the database
|
|
lists:foldl(fun([], Acc) -> Acc;
|
|
(Group, Acc) ->
|
|
String = ["'", Username, "',"
|
|
"'", SJID, "',"
|
|
"'", ejabberd_odbc:escape(Group), "'"],
|
|
[String|Acc] end, [], Groups).
|
|
|
|
webadmin_page(_, Host,
|
|
#request{us = _US,
|
|
path = ["user", U, "roster"],
|
|
q = Query,
|
|
lang = Lang} = _Request) ->
|
|
Res = user_roster(U, Host, Query, Lang),
|
|
{stop, Res};
|
|
|
|
webadmin_page(Acc, _, _) -> Acc.
|
|
|
|
user_roster(User, Server, Query, Lang) ->
|
|
LUser = jlib:nodeprep(User),
|
|
LServer = jlib:nameprep(Server),
|
|
US = {LUser, LServer},
|
|
Items1 = get_roster(LUser, LServer),
|
|
Res = user_roster_parse_query(User, Server, Items1, Query),
|
|
Items = get_roster(LUser, LServer),
|
|
SItems = lists:sort(Items),
|
|
FItems =
|
|
case SItems of
|
|
[] ->
|
|
[?CT("None")];
|
|
_ ->
|
|
[?XE("table",
|
|
[?XE("thead",
|
|
[?XE("tr",
|
|
[?XCT("td", "Jabber ID"),
|
|
?XCT("td", "Nickname"),
|
|
?XCT("td", "Subscription"),
|
|
?XCT("td", "Pending"),
|
|
?XCT("td", "Groups")
|
|
])]),
|
|
?XE("tbody",
|
|
lists:map(
|
|
fun(R) ->
|
|
Groups =
|
|
lists:flatmap(
|
|
fun(Group) ->
|
|
[?C(Group), ?BR]
|
|
end, R#roster.groups),
|
|
Pending = ask_to_pending(R#roster.ask),
|
|
?XE("tr",
|
|
[?XAC("td", [{"class", "valign"}],
|
|
jlib:jid_to_string(R#roster.jid)),
|
|
?XAC("td", [{"class", "valign"}],
|
|
R#roster.name),
|
|
?XAC("td", [{"class", "valign"}],
|
|
atom_to_list(R#roster.subscription)),
|
|
?XAC("td", [{"class", "valign"}],
|
|
atom_to_list(Pending)),
|
|
?XAE("td", [{"class", "valign"}], Groups),
|
|
if
|
|
Pending == in ->
|
|
?XAE("td", [{"class", "valign"}],
|
|
[?INPUTT("submit",
|
|
"validate" ++
|
|
ejabberd_web_admin:term_to_id(R#roster.jid),
|
|
"Validate")]);
|
|
true ->
|
|
?X("td")
|
|
end,
|
|
?XAE("td", [{"class", "valign"}],
|
|
[?INPUTT("submit",
|
|
"remove" ++
|
|
ejabberd_web_admin:term_to_id(R#roster.jid),
|
|
"Remove")])])
|
|
end, SItems))])]
|
|
end,
|
|
[?XC("h1", ?T("Roster of ") ++ us_to_list(US))] ++
|
|
case Res of
|
|
ok -> [?CT("Submitted"), ?P];
|
|
error -> [?CT("Bad format"), ?P];
|
|
nothing -> []
|
|
end ++
|
|
[?XAE("form", [{"action", ""}, {"method", "post"}],
|
|
FItems ++
|
|
[?P,
|
|
?INPUT("text", "newjid", ""), ?C(" "),
|
|
?INPUTT("submit", "addjid", "Add Jabber ID")
|
|
])].
|
|
|
|
user_roster_parse_query(User, Server, Items, Query) ->
|
|
case lists:keysearch("addjid", 1, Query) of
|
|
{value, _} ->
|
|
case lists:keysearch("newjid", 1, Query) of
|
|
{value, {_, undefined}} ->
|
|
error;
|
|
{value, {_, SJID}} ->
|
|
case jlib:string_to_jid(SJID) of
|
|
JID when is_record(JID, jid) ->
|
|
user_roster_subscribe_jid(User, Server, JID),
|
|
ok;
|
|
error ->
|
|
error
|
|
end;
|
|
false ->
|
|
error
|
|
end;
|
|
false ->
|
|
case catch user_roster_item_parse_query(
|
|
User, Server, Items, Query) of
|
|
submitted ->
|
|
ok;
|
|
{'EXIT', _Reason} ->
|
|
error;
|
|
_ ->
|
|
nothing
|
|
end
|
|
end.
|
|
|
|
|
|
user_roster_subscribe_jid(User, Server, JID) ->
|
|
out_subscription(User, Server, JID, subscribe),
|
|
UJID = jlib:make_jid(User, Server, ""),
|
|
ejabberd_router:route(
|
|
UJID, JID, {xmlelement, "presence", [{"type", "subscribe"}], []}).
|
|
|
|
user_roster_item_parse_query(User, Server, Items, Query) ->
|
|
lists:foreach(
|
|
fun(R) ->
|
|
JID = R#roster.jid,
|
|
case lists:keysearch(
|
|
"validate" ++ ejabberd_web_admin:term_to_id(JID), 1, Query) of
|
|
{value, _} ->
|
|
JID1 = jlib:make_jid(JID),
|
|
out_subscription(
|
|
User, Server, JID1, subscribed),
|
|
UJID = jlib:make_jid(User, Server, ""),
|
|
ejabberd_router:route(
|
|
UJID, JID1, {xmlelement, "presence",
|
|
[{"type", "subscribed"}], []}),
|
|
throw(submitted);
|
|
false ->
|
|
case lists:keysearch(
|
|
"remove" ++ ejabberd_web_admin:term_to_id(JID), 1, Query) of
|
|
{value, _} ->
|
|
UJID = jlib:make_jid(User, Server, ""),
|
|
process_iq(
|
|
UJID, UJID,
|
|
#iq{type = set,
|
|
sub_el = {xmlelement, "query",
|
|
[{"xmlns", ?NS_ROSTER}],
|
|
[{xmlelement, "item",
|
|
[{"jid", jlib:jid_to_string(JID)},
|
|
{"subscription", "remove"}],
|
|
[]}]}}),
|
|
throw(submitted);
|
|
false ->
|
|
ok
|
|
end
|
|
|
|
end
|
|
end, Items),
|
|
nothing.
|
|
|
|
us_to_list({User, Server}) ->
|
|
jlib:jid_to_string({User, Server, ""}).
|
|
|
|
webadmin_user(Acc, _User, _Server, Lang) ->
|
|
Acc ++ [?XE("h3", [?ACT("roster/", "Roster")])].
|
|
|