-- mod_telnet_tlsinfo.lua

module:set_global();

module:depends("admin_telnet");

local console_env = module:shared("/*/admin_telnet/env");

local c2s_sessions = module:shared("/*/c2s/sessions");

local s2s_sessions = module:shared("/*/s2s/sessions");

local function print_tlsinfo(print, session)

	if session.secure then

		local sock = session.conn:socket()

		for k,v in pairs(sock:info()) do

			print(("%20s: %s"):format(k, tostring(v)))

		end

	else

		print(("%20s: %s"):format("protocol", "TCP"))

	end

end

function console_env.c2s:showtls(pat)

	local print = self.session.print;

	for _, session in pairs(c2s_sessions) do

		if not pat or session.full_jid and session.full_jid:find(pat, nil, true) then

			print(session.full_jid or "unauthenticated")

			print_tlsinfo(print, session);

			print""

		end

	end

end

function console_env.s2s:showtls(pat)

	local print = self.session.print;

	for _, session in pairs(s2s_sessions) do

		if not pat or session.from_host == pat or session.to_host == pat then

			if session.direction == "outgoing" then

				print(session.from_host, "->", session.to_host)

			else

				print(session.to_host, "<-", session.from_host)

			end

			print_tlsinfo(print, session);

			print""

		end

	end

end