plugins/ping.lua

Mon, 11 Oct 2010 02:01:50 +0100

author
Matthew Wild <mwild1@gmail.com>
date
Mon, 11 Oct 2010 02:01:50 +0100
changeset 147
c95b84ed366b
parent 41
1a1bd8cd4bdb
child 250
a5ac643a7fd6
permissions
-rw-r--r--

squishy, plugins.ping, plugins.sasl: Remove xstanza references

local xmlns_ping = "urn:xmpp:ping";

function verse.plugins.ping(stream)
	function stream:ping(jid, callback)
		local t = socket.gettime();
		stream:send_iq(verse.iq{ to = jid, type = "get" }:tag("ping", { xmlns = xmlns_ping }), 
			function (reply)
				if reply.attr.type == "error" then
					local type, condition, text = reply:get_error();
					if condition ~= "service-unavailable" and condition ~= "feature-not-implemented" then
						callback(nil, jid, { type = type, condition = condition, text = text });
						return;
					end
				end
				callback(socket.gettime()-t, jid);
			end);
	end
	return true;
end

mercurial