mod_ping: Add ad-hoc command

diff --git a/plugins/mod_ping.lua b/plugins/mod_ping.lua
index 61b717a211476773d47520a0a2ad5722e1dc5bce..c0ba61892e5be7ef8f1779335cb5193aeb611aeb 100644 (file)
--- 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);
+