From 60cb9fc959f3e631e4306cf30ff3219539848a37 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Sun, 14 Mar 2004 20:47:15 +0000
Subject: [PATCH] * src/web/ejabberd_web.erl: Added interface for users
 listsing and statistics

SVN Revision: 216
---
 ChangeLog                |  5 +++
 src/web/ejabberd_web.erl | 95 ++++++++++++++++++++++++++++++++++++----
 2 files changed, 92 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c2680a514..9e4fc8200 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-14  Alexey Shchepin  <alexey@sevcom.net>
+
+	* src/web/ejabberd_web.erl: Added interface for users listsing and
+	statistics
+
 2004-03-13  Alexey Shchepin  <alexey@sevcom.net>
 
 	* src/web/ejabberd_web.erl: New interface for ACLs editing
diff --git a/src/web/ejabberd_web.erl b/src/web/ejabberd_web.erl
index 0eebeb228..518e19e62 100644
--- a/src/web/ejabberd_web.erl
+++ b/src/web/ejabberd_web.erl
@@ -47,7 +47,7 @@ make_xhtml(Els) ->
 
 
 process_get(#request{user = User,
-		     path = ["config" | RPath],
+		     path = ["admin" | RPath],
 		     q = Query,
 		     lang = Lang} = Request) ->
     if
@@ -56,7 +56,7 @@ process_get(#request{user = User,
 		deny ->
 		    {401, [], make_xhtml([?XC("h1", "Not Allowed")])};
 		allow ->
-		    process_config(Request#request{path = RPath})
+		    process_admin(Request#request{path = RPath})
 	    end;
 	true ->
 	    {401,
@@ -76,21 +76,22 @@ process_get(_Request) ->
 
 
 
-process_config(#request{user = User,
+process_admin(#request{user = User,
 			path = [],
 			q = Query,
 			lang = Lang} = Request) ->
-    make_xhtml([?XC("h1", "ejabberd configuration"),
+    make_xhtml([?XC("h1", "ejabberd administration"),
 		?XE("ul",
 		    [?LI([?AC("acls/", "Access Control Lists"), ?C(" "),
 			  ?AC("acls-raw/", "(raw)")]),
 		     ?LI([?AC("access/", "Access Rules")]),
 		     ?LI([?AC("users/", "Users")]),
-		     ?LI([?AC("nodes/", "Nodes")])
+		     ?LI([?AC("nodes/", "Nodes")]),
+		     ?LI([?AC("stats/", "Statistics")])
 		    ])
 	       ]);
 
-process_config(#request{user = User,
+process_admin(#request{user = User,
 			path = ["acls-raw"],
 			q = Query,
 			lang = Lang} = Request) ->
@@ -132,7 +133,7 @@ process_config(#request{user = User,
 		     ])
 	       ]);
 
-process_config(#request{method = Method,
+process_admin(#request{method = Method,
 			user = User,
 			path = ["acls"],
 			q = Query,
@@ -176,7 +177,28 @@ process_config(#request{method = Method,
 		     ])
 	       ]);
 
-process_config(_Request) ->
+process_admin(#request{user = User,
+			path = ["users"],
+			q = Query,
+			lang = Lang} = Request) ->
+    Res = list_users(),
+    make_xhtml([?XC("h1", "ejabberd users")] ++ Res);
+
+process_admin(#request{user = User,
+			path = ["users", Diap],
+			q = Query,
+			lang = Lang} = Request) ->
+    Res = list_users_in_diapason(Diap),
+    make_xhtml([?XC("h1", "ejabberd users")] ++ Res);
+
+process_admin(#request{user = User,
+			path = ["stats"],
+			q = Query,
+			lang = Lang} = Request) ->
+    Res = get_stats(),
+    make_xhtml([?XC("h1", "ejabberd stats")] ++ Res);
+
+process_admin(_Request) ->
     {404, [], make_xhtml([?XC("h1", "Not found")])}.
 
 
@@ -320,3 +342,60 @@ acl_parse_delete(ACLs, Query) ->
     NewACLs.
 
 
+
+list_users() ->
+    Users = ejabberd_auth:dirty_get_registered_users(),
+    SUsers = lists:sort(Users),
+    case length(SUsers) of
+	N when N =< 100 ->
+	    lists:flatmap(
+	      fun(U) ->
+		      [?AC("../user/" ++ U, U), ?BR]
+	      end, SUsers);
+	N ->
+	    NParts = trunc(math:sqrt(N * 0.618)) + 1,
+	    M = trunc(N / NParts) + 1,
+	    lists:flatmap(
+	      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,
+		      [?AC(Node ++ "/", Name), ?BR]
+	      end, lists:seq(1, N, M))
+    end.
+
+list_users_in_diapason(Diap) ->
+    Users = ejabberd_auth:dirty_get_registered_users(),
+    SUsers = lists:sort(Users),
+    {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:flatmap(
+      fun(U) ->
+	      [?AC("../../user/" ++ U, U), ?BR]
+      end, Sub).
+
+
+
+get_stats() ->
+    OnlineUsers = mnesia:table_info(presence, size),
+    AuthUsers = mnesia:table_info(session, size),
+    RegisteredUsers = mnesia:table_info(passwd, size),
+    
+    [?XAE("table", [],
+	  [?XE("tbody",
+	       [?XE("tr", [?XC("td", "Registered users"),
+			   ?XC("td", integer_to_list(RegisteredUsers))]),
+		?XE("tr", [?XC("td", "Authentificated users"),
+			   ?XC("td", integer_to_list(AuthUsers))]),
+		?XE("tr", [?XC("td", "Online users"),
+			   ?XC("td", integer_to_list(OnlineUsers))])
+	       ])
+	   
+	  ])].