parent
6140047edf
commit
46ff889bd3
|
@ -24,6 +24,8 @@
|
||||||
%%%
|
%%%
|
||||||
%%%----------------------------------------------------------------------
|
%%%----------------------------------------------------------------------
|
||||||
|
|
||||||
|
%%%% definitions
|
||||||
|
|
||||||
-module(ejabberd_web_admin).
|
-module(ejabberd_web_admin).
|
||||||
-author('alexey@process-one.net').
|
-author('alexey@process-one.net').
|
||||||
|
|
||||||
|
@ -45,6 +47,9 @@
|
||||||
{"name", Name},
|
{"name", Name},
|
||||||
{"value", Value}])).
|
{"value", Value}])).
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% process/2
|
||||||
|
|
||||||
process(["doc", LocalFile], _Request) ->
|
process(["doc", LocalFile], _Request) ->
|
||||||
DocPath = case os:getenv("EJABBERD_DOC_PATH") of
|
DocPath = case os:getenv("EJABBERD_DOC_PATH") of
|
||||||
P when is_list(P) -> P;
|
P when is_list(P) -> P;
|
||||||
|
@ -146,6 +151,9 @@ get_auth_account(Host, User, Server, Pass) ->
|
||||||
end
|
end
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% make_xhtml
|
||||||
|
|
||||||
make_xhtml(Els, Host, Lang) ->
|
make_xhtml(Els, Host, Lang) ->
|
||||||
make_xhtml(Els, Host, cluster, Lang).
|
make_xhtml(Els, Host, cluster, Lang).
|
||||||
|
|
||||||
|
@ -204,6 +212,9 @@ get_base_path(Host, cluster) -> "/admin/server/" ++ Host ++ "/";
|
||||||
get_base_path(global, Node) -> "/admin/node/" ++ atom_to_list(Node) ++ "/";
|
get_base_path(global, Node) -> "/admin/node/" ++ atom_to_list(Node) ++ "/";
|
||||||
get_base_path(Host, Node) -> "/admin/server/" ++ Host ++ "/node/" ++ atom_to_list(Node) ++ "/".
|
get_base_path(Host, Node) -> "/admin/server/" ++ Host ++ "/node/" ++ atom_to_list(Node) ++ "/".
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% css & images
|
||||||
|
|
||||||
additions_js() ->
|
additions_js() ->
|
||||||
"
|
"
|
||||||
function selectAll() {
|
function selectAll() {
|
||||||
|
@ -632,6 +643,8 @@ logo_fill() ->
|
||||||
"AEFJREFUCNdlw0sRwCAQBUE+gSRHLGABC1jAAhbWAhZwC+88XdXOXb4UlFAr"
|
"AEFJREFUCNdlw0sRwCAQBUE+gSRHLGABC1jAAhbWAhZwC+88XdXOXb4UlFAr"
|
||||||
"SmwN5ekdJY2BkudEec1QvrVQ/r3xOlK9HsTvertmAAAAAElFTkSuQmCC").
|
"SmwN5ekdJY2BkudEec1QvrVQ/r3xOlK9HsTvertmAAAAAElFTkSuQmCC").
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% process_admin
|
||||||
|
|
||||||
process_admin(global,
|
process_admin(global,
|
||||||
#request{path = [],
|
#request{path = [],
|
||||||
|
@ -1011,6 +1024,9 @@ process_admin(Host,
|
||||||
make_xhtml(Res, Host, Node, Lang)
|
make_xhtml(Res, Host, Node, Lang)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% process_admin default case
|
||||||
|
|
||||||
process_admin(Host, #request{lang = Lang} = Request) ->
|
process_admin(Host, #request{lang = Lang} = Request) ->
|
||||||
{Hook, Opts} = case Host of
|
{Hook, Opts} = case Host of
|
||||||
global -> {webadmin_page_main, [Request]};
|
global -> {webadmin_page_main, [Request]};
|
||||||
|
@ -1021,7 +1037,8 @@ process_admin(Host, #request{lang = Lang} = Request) ->
|
||||||
Res -> make_xhtml(Res, Host, Lang)
|
Res -> make_xhtml(Res, Host, Lang)
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% acl
|
||||||
|
|
||||||
acls_to_xhtml(ACLs) ->
|
acls_to_xhtml(ACLs) ->
|
||||||
?XAE("table", [],
|
?XAE("table", [],
|
||||||
|
@ -1308,6 +1325,8 @@ parse_access_rule(Text) ->
|
||||||
{ok, Rs}
|
{ok, Rs}
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% list_vhosts
|
||||||
|
|
||||||
list_vhosts(Lang) ->
|
list_vhosts(Lang) ->
|
||||||
Hosts = ?MYHOSTS,
|
Hosts = ?MYHOSTS,
|
||||||
|
@ -1334,6 +1353,8 @@ list_vhosts(Lang) ->
|
||||||
end, SHosts)
|
end, SHosts)
|
||||||
)])].
|
)])].
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% list_users
|
||||||
|
|
||||||
list_users(Host, Query, Lang, URLFunc) ->
|
list_users(Host, Query, Lang, URLFunc) ->
|
||||||
Res = list_users_parse_query(Query, Host),
|
Res = list_users_parse_query(Query, Host),
|
||||||
|
@ -1472,6 +1493,8 @@ us_to_list({User, Server}) ->
|
||||||
su_to_list({Server, User}) ->
|
su_to_list({Server, User}) ->
|
||||||
jlib:jid_to_string({User, Server, ""}).
|
jlib:jid_to_string({User, Server, ""}).
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% get_stats
|
||||||
|
|
||||||
get_stats(global, Lang) ->
|
get_stats(global, Lang) ->
|
||||||
OnlineUsers = mnesia:table_info(session, size),
|
OnlineUsers = mnesia:table_info(session, size),
|
||||||
|
@ -1672,6 +1695,8 @@ histogram([], _Integral, _Current, Count, Hist) ->
|
||||||
lists:reverse(Hist)
|
lists:reverse(Hist)
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% get_nodes
|
||||||
|
|
||||||
get_nodes(Lang) ->
|
get_nodes(Lang) ->
|
||||||
RunningNodes = mnesia:system_info(running_db_nodes),
|
RunningNodes = mnesia:system_info(running_db_nodes),
|
||||||
|
@ -2026,7 +2051,8 @@ get_node(Host, Node, NPath, Query, Lang) ->
|
||||||
Res -> Res
|
Res -> Res
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
%%%% node parse
|
||||||
|
|
||||||
node_parse_query(Node, Query) ->
|
node_parse_query(Node, Query) ->
|
||||||
case lists:keysearch("restart", 1, Query) of
|
case lists:keysearch("restart", 1, Query) of
|
||||||
|
@ -2425,10 +2451,8 @@ pretty_string_int(String) when is_list(String) ->
|
||||||
lists:reverse(String)),
|
lists:reverse(String)),
|
||||||
Result.
|
Result.
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
%%%
|
%%%% navigation menu
|
||||||
%%% Navigation Menu
|
|
||||||
%%%
|
|
||||||
|
|
||||||
%% @spec (Host, Node, Lang) -> [LI]
|
%% @spec (Host, Node, Lang) -> [LI]
|
||||||
make_navigation(Host, Node, Lang) ->
|
make_navigation(Host, Node, Lang) ->
|
||||||
|
@ -2555,3 +2579,7 @@ make_menu_item(item, 2, URI, Name, Lang) ->
|
||||||
?LI([?XAE("div", [{"id", "navitemsub"}], [?ACT(URI, Name)] )]);
|
?LI([?XAE("div", [{"id", "navitemsub"}], [?ACT(URI, Name)] )]);
|
||||||
make_menu_item(item, 3, URI, Name, Lang) ->
|
make_menu_item(item, 3, URI, Name, Lang) ->
|
||||||
?LI([?XAE("div", [{"id", "navitemsubsub"}], [?ACT(URI, Name)] )]).
|
?LI([?XAE("div", [{"id", "navitemsubsub"}], [?ACT(URI, Name)] )]).
|
||||||
|
|
||||||
|
%%%==================================
|
||||||
|
|
||||||
|
%%% vim: set foldmethod=marker foldmarker=%%%%,%%%=:
|
||||||
|
|
Loading…
Reference in New Issue