# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1350060562 -7200
# Node ID 46fc0eff10b4a389b6216fdbaa87303f95a6b22f
# Parent  ecd9e300ec943bf8de088490065f036180e37e69
mod_admin_telnet: user:list(): Allow filtering the set of users

diff -r ecd9e300ec94 -r 46fc0eff10b4 plugins/mod_admin_telnet.lua
--- a/plugins/mod_admin_telnet.lua	Fri Oct 12 18:33:24 2012 +0200
+++ b/plugins/mod_admin_telnet.lua	Fri Oct 12 18:49:22 2012 +0200
@@ -228,7 +228,7 @@
 		print [[user:create(jid, password) - Create the specified user account]]
 		print [[user:password(jid, password) - Set the password for the specified user account]]
 		print [[user:delete(jid) - Permanently remove the specified user account]]
-		print [[user:list(hostname) - List users on the specified host]]
+		print [[user:list(hostname, pattern) - List users on the specified host, optionally filtering with a pattern]]
 	elseif section == "server" then
 		print [[server:version() - Show the server's version number]]
 		print [[server:uptime() - Show how long the server has been running]]
@@ -953,17 +953,21 @@
 	end
 end
 
-function def_env.user:list(host)
+function def_env.user:list(host, pat)
 	if not host then
 		return nil, "No host given";
 	elseif not hosts[host] then
 		return nil, "No such host";
 	end
 	local print = self.session.print;
+	local count = 0;
 	for user in um.users(host) do
-		print(user.."@"..host);
+		if not pat or user:match(pat) then
+			print(user.."@"..host);
+		end
+		count = count + 1;
 	end
-	return true;
+	return true, count .. " users total";
 end
 
 def_env.xmpp = {};