From c6e47138c41d803ca1d54ebeaff694021e63ade1 Mon Sep 17 00:00:00 2001
From: Florian Zeitz <florob@babelmonkeys.de>
Date: Thu, 2 Sep 2010 21:57:49 +0200
Subject: mod_ping: Add ad-hoc command

---
 plugins/mod_ping.lua | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/plugins/mod_ping.lua b/plugins/mod_ping.lua
index 61b717a2..c0ba6189 100644
--- a/plugins/mod_ping.lua
+++ b/plugins/mod_ping.lua
@@ -19,3 +19,15 @@ end
 
 module:hook("iq/bare/urn:xmpp:ping:ping", ping_handler);
 module:hook("iq/host/urn:xmpp:ping:ping", ping_handler);
+
+-- Ad-hoc command
+
+function ping_command_handler (self, data, state)
+	local now = os.date("%Y-%m-%dT%X");
+	return { info = "Pong\n"..now, status = "completed" };
+end
+
+local adhoc_new = module:require "adhoc".new;
+local descriptor = adhoc_new("Ping", "ping", ping_command_handler);
+module:add_item ("adhoc", descriptor);
+
-- 
cgit v1.2.3