prosody-hg: plugins/mod_admin_telnet.lua comparison

comparison plugins/mod_admin_telnet.lua @ 5776:bd0ff8ae98a8

Remove all trailing whitespace

author	Florian Zeitz <florob@babelmonkeys.de>
date	Fri, 09 Aug 2013 17:48:21 +0200
parents	7722372aa087
children	ac0879a8190a

comparison

equal deleted inserted replaced

-:a6c2b8933507
+:bd0ff8ae98a8
 -- Prosody IM
 -- Copyright (C) 2008-2010 Matthew Wild
 -- Copyright (C) 2008-2010 Waqas Hussain
 --
 -- This project is MIT/X11 licensed. Please see the
 -- COPYING file in the source package for more information.
 --
 module:set_global();
 				w("| "..table.concat(t, "\t").."\n");
 			end;
 			disconnect = function () conn:close(); end;
 			};
 	session.env = setmetatable({}, default_env_mt);
 	-- Load up environment with helper objects
 	for name, t in pairs(def_env) do
 		if type(t) == "table" then
 			session.env[name] = setmetatable({ session = session }, { __index = t });
 		end
 	end
 	return session;
 end
 function console:process_line(session, line)
 	local useglobalenv;
 	if line:match("^>") then
 		line = line:gsub("^>", "");
 		useglobalenv = true;
 	elseif line == "\004" then
 		commands["bye"](session, line);
 		if commands[command] then
 			commands[command](session, line);
 			return;
 		end
 	end
 	session.env._ = line;
 	local chunkname = "=console";
 	local env = (useglobalenv and redirect_output(_G, session)) or session.env or nil
 	local chunk, err = envload("return "..line, chunkname, env);
 	if not chunk then
 		chunk, err = envload(line, chunkname, env);
 			err = err:gsub("'<eof>'", "the end of the line");
 			session.print("Sorry, I couldn't understand that... "..err);
 			return;
 		end
 	end
 	local ranok, taskok, message = pcall(chunk);
 	if not (ranok or message or useglobalenv) and commands[line:lower()] then
 		commands[line:lower()](session, line);
 		return;
 	end
 	if not ranok then
 		session.print("Fatal error while running command, it did not complete");
 		session.print("Error: "..taskok);
 		return;
 	end
 	if not message then
 		session.print("Result: "..tostring(taskok));
 		return;
 	elseif (not taskok) and message then
 		session.print("Command completed with a problem");
 		session.print("Message: "..tostring(message));
 		return;
 	end
 	session.print("OK: "..tostring(message));
 end
 local sessions = {};
 	end
 end
 function def_env.module:load(name, hosts, config)
 	local mm = require "modulemanager";
 	hosts = get_hosts_set(hosts);
 	-- Load the module for each host
 	local ok, err, count, mod = true, nil, 0, nil;
 	for host in hosts do
 		if (not mm.is_loaded(host, name)) then
 			mod, err = mm.load(host, name, config);
 				count = count + 1;
 				self.session.print("Loaded for "..mod.module.host);
 			end
 		end
 	end
 	return ok, (ok and "Module loaded onto "..count.." host"..(count ~= 1 and "s" or "")) or ("Last error: "..tostring(err));
 end
 function def_env.module:unload(name, hosts)
 	local mm = require "modulemanager";
 	hosts = get_hosts_set(hosts, name);
 	-- Unload the module for each host
 	local ok, err, count = true, nil, 0;
 	for host in hosts do
 		if mm.is_loaded(host, name) then
 			ok, err = mm.unload(host, name);
 		hosts = { hosts };
 	end
 	if type(hosts) ~= "table" then
 		return false, "Please supply a host or a list of hosts you would like to see";
 	end
 	local print = self.session.print;
 	for _, host in ipairs(hosts) do
 		print((host == "*" and "Global" or host)..":");
 		local modules = array.collect(keys(modulemanager.get_modules(host) or {})):sort();
 		if #modules == 0 then
 function def_env.c2s:count(match_jid)
 	local count = 0;
 	show_c2s(function (jid, session)
 		if (not match_jid) or jid:match(match_jid) then
 			count = count + 1;
 		end
 	end);
 	return true, "Total: "..count.." clients";
 end
 function def_env.c2s:show(match_jid)
 			local status, priority = "unavailable", tostring(session.priority or "-");
 			if session.presence then
 				status = session.presence:get_child_text("show") or "available";
 			end
 			print(session_flags(session, { "   "..jid.." - "..status.."("..priority..")" }));
 		end
 	end);
 	return true, "Total: "..count.." clients";
 end
 function def_env.c2s:show_insecure(match_jid)
 	local print, count = self.session.print, 0;
 	show_c2s(function (jid, session)
 		if ((not match_jid) or jid:match(match_jid)) and not session.secure then
 			count = count + 1;
 			print(jid);
 		end
 	end);
 	return true, "Total: "..count.." insecure client connections";
 end
 function def_env.c2s:show_secure(match_jid)
 	local print, count = self.session.print, 0;
 	show_c2s(function (jid, session)
 		if ((not match_jid) or jid:match(match_jid)) and session.secure then
 			count = count + 1;
 			print(jid);
 		end
 	end);
 	return true, "Total: "..count.." secure client connections";
 end
 function def_env.c2s:close(match_jid)
 def_env.s2s = {};
 function def_env.s2s:show(match_jid)
 	local print = self.session.print;
 	local count_in, count_out = 0,0;
 	local s2s_list = { };
 	local s2s_sessions = module:shared"/*/s2s/sessions";
 	for _, session in pairs(s2s_sessions) do
 		local remotehost, localhost, direction;
 		if session.direction == "outgoing" then
 			direction = "->";
 		end
 	end
 	local domain_certs = array.collect(values(cert_set));
 	-- Phew. We now have a array of unique certificates presented by domain.
 	local n_certs = #domain_certs;
 	if n_certs == 0 then
 		return "No certificates found for "..domain;
 	end
 	local function _capitalize_and_colon(byte)
 		return string.upper(byte)..":";
 	end
 	local function pretty_fingerprint(hash)
 		return hash:gsub("..", _capitalize_and_colon):sub(1, -2);
 	end
 	for cert_info in values(domain_certs) do
 		local certs = cert_info.certs;
 		local cert = certs[1];
 		print("---")
 		print("Fingerprint (SHA1): "..pretty_fingerprint(cert:digest("sha1")));
 end
 function def_env.s2s:close(from, to)
 	local print, count = self.session.print, 0;
 	local s2s_sessions = module:shared"/*/s2s/sessions";
 	local match_id;
 	if from and not to then
 		match_id, from = from;
 	elseif not to then
 		return false, "Syntax: s2s:close('from', 'to') - Closes all s2s sessions from 'from' to 'to'";
 	elseif from == to then
 		return false, "Both from and to are the same... you can't do that :)";
 	end
 	for _, session in pairs(s2s_sessions) do
 		local id = session.type..tostring(session):match("[a-f0-9]+$");
 		if (match_id and match_id == id)
 		or (session.from_host == from and session.to_host == to) then
 			print(("Closing connection from %s to %s [%s]"):format(session.from_host, session.to_host, id));
 function printbanner(session)
 	local option = module:get_option("console_banner");
 	if option == nil or option == "full" or option == "graphic" then
 		session.print [[
 ____                \   /     _
 |  _ \ _ __ ___  ___  _-_   __| |_   _
 | |_) | '__/ _ \/ __|/ _ \ / _` | | | |
 |  __/| | | (_) \__ \ |_| | (_| | |_| |
 |_|   |_|  \___/|___/\___/ \__,_|\__, |
 A study in simplicity            |___/
 ]]
 	end
 	if option == nil or option == "short" or option == "full" then
 	session.print("Welcome to the Prosody administration console. For a list of commands, type: help");

Mercurial > prosody-hg

comparison plugins/mod_admin_telnet.lua @ 5776:bd0ff8ae98a8