Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00
Code Releases Activity

*** empty log message ***

Browse Source 
SVN Revision: 64
This commit is contained in:
Alexey Shchepin 2003-02-07 19:31:00 +00:00
parent 83d6e9085f
commit 5169ce43b0
2 changed files with 54 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TODO
View File

@ -10,5 +10,5 @@ karma
SSL SSL
SASL SASL
JEP-62,63 (?) JEP-62,63 (?)
make roster set work in one transaction make roster set to work in one transaction

58
src/mod_disco.erl
View File

@ -106,6 +106,7 @@ process_local_iq_info(From, To, {iq, ID, Type, XMLNS, SubEl}) ->
["config"] -> ?EMPTY_INFO_RESULT; ["config"] -> ?EMPTY_INFO_RESULT;
["online users"] -> ?EMPTY_INFO_RESULT; ["online users"] -> ?EMPTY_INFO_RESULT;
["all users"] -> ?EMPTY_INFO_RESULT; ["all users"] -> ?EMPTY_INFO_RESULT;
["all users", [$@ | _]] -> ?EMPTY_INFO_RESULT;
["outgoing s2s" | _] -> ?EMPTY_INFO_RESULT; ["outgoing s2s" | _] -> ?EMPTY_INFO_RESULT;
["running nodes"] -> ?EMPTY_INFO_RESULT; ["running nodes"] -> ?EMPTY_INFO_RESULT;
["stopped nodes"] -> ?EMPTY_INFO_RESULT; ["stopped nodes"] -> ?EMPTY_INFO_RESULT;
@ -195,6 +196,30 @@ get_local_items(["online users"], Server, Lang) ->
get_local_items(["all users"], Server, Lang) -> get_local_items(["all users"], Server, Lang) ->
{result, get_all_users()}; {result, get_all_users()};
get_local_items(["all users", [$@ | Diap]], Server, Lang) ->
case catch ejabberd_auth:dirty_get_registered_users() of
{'EXIT', Reason} ->
{error, "500", "Internal Server Error"};
Users ->
SUsers = lists:sort(Users),
case catch begin
{ok, [S1, S2]} = regexp:split(Diap, "-"),
N1 = list_to_integer(S1),
N2 = list_to_integer(S2),
Sub = lists:sublist(SUsers, N1, N2 - N1 + 1),
lists:map(fun(U) ->
{xmlelement, "item",
[{"jid", U ++ "@" ++ ?MYNAME},
{"name", U}], []}
end, Sub)
end of
{'EXIT', Reason} ->
{error, "406", "Not Acceptable"};
Res ->
{result, Res}
end
end;
get_local_items(["outgoing s2s"], Server, Lang) -> get_local_items(["outgoing s2s"], Server, Lang) ->
{result, get_outgoing_s2s(Lang)}; {result, get_outgoing_s2s(Lang)};
@ -260,11 +285,34 @@ get_all_users() ->
{'EXIT', Reason} -> {'EXIT', Reason} ->
[]; [];
Users -> Users ->
lists:map(fun(U) -> SUsers = lists:sort(Users),
{xmlelement, "item", case length(SUsers) of
[{"jid", U ++ "@" ++ ?MYNAME}, N when N =< 100 ->
{"name", U}], []} lists:map(fun(U) ->
end, lists:sort(Users)) {xmlelement, "item",
[{"jid", U ++ "@" ++ ?MYNAME},
{"name", U}], []}
end, SUsers);
N ->
NParts = trunc(math:sqrt(N * 0.618)) + 1,
M = trunc(N / NParts) + 1,
lists:map(fun(K) ->
L = K + M - 1,
Node =
"@" ++ integer_to_list(K) ++
"-" ++ integer_to_list(L),
Last = if L < N -> lists:nth(L, SUsers);
true -> lists:last(SUsers)
end,
Name =
lists:nth(K, SUsers) ++ " -- " ++
Last,
{xmlelement, "item",
[{"jid", ?MYNAME},
{"node", "all users/" ++ Node},
{"name", Name}], []}
end, lists:seq(1, N, M))
end
end. end.
get_outgoing_s2s(Lang) -> get_outgoing_s2s(Lang) ->