• file
• latest
• revisions
• annotate
• diff
• comparison
• raw

plugins/version.lua@7d84f4403d67 (annotated)

plugins/version.lua

Mon, 21 Dec 2009 19:27:08 +0000

author

Matthew Wild <mwild1@gmail.com>

date

Mon, 21 Dec 2009 19:27:08 +0000

changeset 0

7d84f4403d67

child 7

59129c1e4e07

permissions

-rw-r--r--

Initial commit, hello world!

0 7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	1	local st = require "util.stanza";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	2	require "util.xstanza";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	3
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	4	local xmlns_version = "jabber:iq:version";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	5
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	6	function riddim.plugins.version(bot)
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	7	bot.stream:add_plugin("version");
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	8	bot.stream.version:set{
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	9	name = "Riddim";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	10	version = "alpha";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	11	};
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	12
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	13	bot:hook("commands/version", function (command)
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	14	local who, param = bot.stream.jid, command.param or (command.room and command.room.nick);
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	15	if param then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	16	if command.room and command.room.occupants[param] then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	17	who = command.room.occupants[param].jid;
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	18	elseif command.room and command.room.occupants[param:gsub("%s$", "")] then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	19	who = command.room.occupants[param:gsub("%s$", "")].jid;
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	20	else
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	21	who = param;
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	22	end
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	23	end
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	24
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	25	bot.stream:query_version(who,
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	26	function (reply)
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	27	if not reply.error then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	28	local saywho = (who == command.sender.jid and "You are") or (param.." is");
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	29	command:reply(saywho.." running "..(reply.name or "something")
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	30	.." version "..(reply.version or "unknown")
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	31	.." on "..(reply.platform or "an unknown platform"));
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	32	else
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	33	local type, condition, text = reply.type, reply.condition, reply.text;
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	34	local r = "There was an error requesting "..param.."'s version";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	35	if condition == "service-unavailable" then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	36	r = param.." doesn't reply to version requests";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	37	elseif condition == "remote-server-not-found" then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	38	r = param.." can't be reached via XMPP"
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	39	elseif condition and not text then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	40	r = r..": "..condition;
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	41	end
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	42	if text then
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	43	r = r .. " ("..text..")";
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	44	end
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	45	command:reply(r);
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	46	end
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	47	end);
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	48	return true;
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	49	end);
7d84f4403d67 Initial commit, hello world! Matthew Wild <mwild1@gmail.com> parents: diff changeset	50	end