# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1343262444 -7200
# Node ID 83b4d3727b4fc40e9448a249c65741d479fb5725
# Parent  2f8f388de516dd53eead3c2dad7056122ea751f7
mod_admin_telnet: Add xmpp:ping(from, to), useful for initiating s2s connections

diff -r 2f8f388de516 -r 83b4d3727b4f plugins/mod_admin_telnet.lua
--- a/plugins/mod_admin_telnet.lua	Wed Jul 25 20:33:20 2012 +0200
+++ b/plugins/mod_admin_telnet.lua	Thu Jul 26 02:27:24 2012 +0200
@@ -934,6 +934,20 @@
 	end
 end
 
+def_env.xmpp = {};
+
+local st = require "util.stanza";
+function def_env.xmpp:ping(localhost, remotehost)
+	if hosts[localhost] then
+		core_post_stanza(hosts[localhost],
+			st.iq{ from=localhost, to=remotehost, type="get", id="ping" }
+				:tag("ping", {xmlns="urn:xmpp:ping"}));
+		return true, "Sent ping";
+	else
+		return nil, "No such host";
+	end
+end
+
 -------------
 
 function printbanner(session)