Chapril/xmpp.chapril.org-ejabberd
24
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-06-10 21:47:01 +02:00
Code Releases Activity

Call in WebAdmin the proper mod_last backend module (EJAB-1031)

Browse Source 
SVN Revision: 2800
This commit is contained in:
Badlop 2009-12-09 17:47:50 +00:00
parent dfa966a576
commit 2a09bdad13
2 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mod_last.erl
View File

@ -170,6 +170,8 @@ store_last_info(User, Server, TimeStamp, Status)
%% @spec (LUser::string(), LServer::string()) ->
%% {ok, Timestamp::integer(), Status::string()} | not_found
get_last_info(LUser, LServer) when is_list(LUser), is_list(LServer) ->
get_last_info(list_to_binary(LUser), list_to_binary(LServer));
get_last_info(LUser, LServer) when is_binary(LUser), is_binary(LServer) ->
case catch mnesia:dirty_read(last_activity, {LUser, LServer}) of
{'EXIT', _Reason} ->

21
src/web/ejabberd_web_admin.erl
View File

@ -1489,7 +1489,7 @@ list_users(Host, Query, Lang, URLFunc) ->
FUsers =
case length(SUsers) of
N when N =< 100 ->
[list_given_users(SUsers, "../", Lang, URLFunc)];
[list_given_users(Host, SUsers, "../", Lang, URLFunc)];
N ->
NParts = trunc(math:sqrt(N * 0.618)) + 1,
M = trunc(N / NParts) + 1,
@ -1567,9 +1567,10 @@ list_users_in_diapason(Host, Diap, Lang, URLFunc) ->
N1 = list_to_integer(S1),
N2 = list_to_integer(S2),
Sub = lists:sublist(SUsers, N1, N2 - N1 + 1),
[list_given_users(Sub, "../../", Lang, URLFunc)].
[list_given_users(Host, Sub, "../../", Lang, URLFunc)].
list_given_users(Users, Prefix, Lang, URLFunc) ->
list_given_users(Host, Users, Prefix, Lang, URLFunc) ->
ModLast = get_lastactivity_module(Host),
?XE('table',
[?XE('thead',
[?XE('tr',
@ -1593,11 +1594,10 @@ list_given_users(Users, Prefix, Lang, URLFunc) ->
FLast =
case ejabberd_sm:get_user_resources(UserB, ServerB) of
[] ->
case mnesia:dirty_read({last_activity, US}) of
[] ->
case ModLast:get_last_info(User, Server) of
not_found ->
?T("Never");
[E] ->
Shift = element(3, E),
{ok, Shift, _Status} ->
TimeStamp = {Shift div 1000000,
Shift rem 1000000,
0},
@ -1622,6 +1622,13 @@ list_given_users(Users, Prefix, Lang, URLFunc) ->
end, Users)
)]).
get_lastactivity_module(Server) ->
case lists:member(mod_last, gen_mod:loaded_modules(Server)) of
true -> mod_last;
_ -> mod_last_odbc
end.
us_to_list({User, Server}) ->
exmpp_jid:to_list(User, Server, undefined).