prosody-modules: mod_ircd/mod

annotate mod_ircd/mod_ircd.lua @ 128:bdd1641c159d

mod_adhoc_cmd_admin: Add "End User Session" command. Also end sessions before deleting a user

author	Florian Zeitz <florob@babelmonkeys.de>
date	Fri, 29 Jan 2010 02:49:28 +0100
parents	3de60860adca
children	d4ff1cd414e5

rev	line source
111 3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	1 local irc_listener = { default_port = 6667, default_mode = "*l" };
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	2
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	3 local sessions = {};
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	4 local commands = {};
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	5
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	6 local nicks = {};
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	7
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	8 local st = require "util.stanza";
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	9
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	10 local conference_server = module:get_option("conference_server") or "conference.jabber.org";
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	11
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	12 local function irc_close_session(session)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	13 session.conn:close();
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	14 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	15
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	16 function irc_listener.onincoming(conn, data)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	17 local session = sessions[conn];
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	18 if not session then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	19 session = { conn = conn, host = module.host, reset_stream = function () end,
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	20 close = irc_close_session, log = logger.init("irc"..(conn.id or "1")),
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	21 roster = {} };
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	22 sessions[conn] = session;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	23 function session.data(data)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	24 module:log("debug", "Received: %s", data);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	25 local command, args = data:match("^%s([^ ]+) (.)%s$");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	26 if not command then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	27 module:log("warn", "Invalid command: %s", data);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	28 return;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	29 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	30 command = command:upper();
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	31 module:log("debug", "Received command: %s", command);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	32 if commands[command] then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	33 local ret = commands[command](session, args);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	34 if ret then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	35 session.send(ret.."\r\n");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	36 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	37 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	38 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	39 function session.send(data)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	40 module:log("debug", "sending: %s", data);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	41 return conn:write(data.."\r\n");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	42 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	43 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	44 if data then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	45 session.data(data);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	46 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	47 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	48
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	49 function irc_listener.ondisconnect(conn, error)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	50 module:log("debug", "Client disconnected");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	51 sessions[conn] = nil;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	52 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	53
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	54 function commands.NICK(session, nick)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	55 nick = nick:match("^[%w_]+");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	56 if nicks[nick] then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	57 session.send(":"..session.host.." 433 * The nickname "..nick.." is already in use");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	58 return;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	59 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	60 nicks[nick] = session;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	61 session.nick = nick;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	62 session.full_jid = nick.."@"..module.host.."/ircd";
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	63 session.type = "c2s";
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	64 module:log("debug", "Client bound to %s", session.full_jid);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	65 session.send(":"..session.host.." 001 "..session.nick.." :Welcome to XMPP via the "..session.host.." gateway "..session.nick);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	66 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	67
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	68 local joined_mucs = {};
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	69 function commands.JOIN(session, channel)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	70 if not joined_mucs[channel] then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	71 joined_mucs[channel] = { occupants = {}, sessions = {} };
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	72 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	73 joined_mucs[channel].sessions[session] = true;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	74 local join_stanza = st.presence({ from = session.full_jid, to = channel:gsub("^#", "").."@"..conference_server.."/"..session.nick });
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	75 core_process_stanza(session, join_stanza);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	76 session.send(":"..session.nick.." JOIN :"..channel);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	77 session.send(":"..session.host.." 332 "..session.nick.." "..channel.." :Connection in progress...");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	78 session.send(":"..session.host.." 353 "..session.nick.." = "..channel.." :"..session.nick);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	79 session.send(":"..session.host.." 366 "..session.nick.." "..channel.." :End of /NAMES list.");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	80 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	81
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	82 function commands.PART(session, channel)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	83 local channel, part_message = channel:match("^(%S+) :(.+)$");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	84 core_process_stanza(session, st.presence{ type = "unavailable", from = session.full_jid,
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	85 to = channel:gsub("^#", "").."@"..conference_server.."/"..session.nick }:tag("status"):text(part_message));
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	86 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	87
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	88 function commands.PRIVMSG(session, message)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	89 local who, message = message:match("^(%S+) :(.+)$");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	90 if joined_mucs[who] then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	91 core_process_stanza(session, st.message{to=who:gsub("^#", "").."@"..conference_server, type="groupchat"}:tag("body"):text(message));
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	92 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	93 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	94
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	95 function commands.WHO(session, channel)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	96 if joined_mucs[channel] then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	97 for nick in pairs(joined_mucs[channel].occupants) do
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	98 --n=MattJ 91.85.191.50 irc.freenode.net MattJ H :0 Matthew Wild
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	99 session.send(":"..session.host.." 352 "..session.nick.." "..channel.." "..nick.." "..nick.." "..session.host.." "..nick.." H :0 "..nick);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	100 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	101 session.send(":"..session.host.." 315 "..session.nick.." "..channel.. " :End of /WHO list");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	102 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	103 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	104
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	105 function commands.MODE(session, channel)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	106 session.send(":"..session.host.." 324 "..session.nick.." "..channel.." +J");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	107 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	108
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	109 --- Component (handle stanzas from the server for IRC clients)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	110 function irc_component(origin, stanza)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	111 local from, from_bare = stanza.attr.from, jid.bare(stanza.attr.from);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	112 local from_node = "#"..jid.split(stanza.attr.from);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	113
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	114 if joined_mucs[from_node] and from_bare == from then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	115 -- From room itself
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	116 local joined_muc = joined_mucs[from_node];
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	117 if stanza.name == "message" then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	118 local subject = stanza:get_child("subject");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	119 if subject then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	120 local subject_text = subject:get_text();
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	121 for session in pairs(joined_muc.sessions) do
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	122 session.send(":"..session.host.." 332 "..session.nick.." "..from_node.." :"..subject_text);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	123 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	124 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	125 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	126 elseif joined_mucs[from_node] then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	127 -- From room occupant
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	128 local joined_muc = joined_mucs[from_node];
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	129 local nick = select(3, jid.split(from)):gsub(" ", "_");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	130 if stanza.name == "presence" then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	131 local what;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	132 if not stanza.attr.type then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	133 if joined_muc.occupants[nick] then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	134 return;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	135 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	136 joined_muc.occupants[nick] = true;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	137 what = "JOIN";
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	138 else
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	139 joined_muc.occupants[nick] = nil;
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	140 what = "PART";
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	141 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	142 for session in pairs(joined_muc.sessions) do
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	143 if nick ~= session.nick then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	144 session.send(":"..nick.."!"..nick.." "..what.." :"..from_node);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	145 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	146 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	147 elseif stanza.name == "message" then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	148 local body = stanza:get_child("body");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	149 local hasdelay = stanza:get_child("delay", "urn:xmpp:delay");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	150 if body then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	151 for session in pairs(joined_muc.sessions) do
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	152 if nick ~= session.nick or hasdelay then
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	153 session.send(":"..nick.." PRIVMSG "..from_node.." :"..body:get_text());
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	154 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	155 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	156 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	157 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	158 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	159 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	160
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	161 require "core.componentmanager".register_component(module.host, irc_component);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	162
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	163 prosody.events.add_handler("server-stopping", function (shutdown)
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	164 module:log("debug", "Closing IRC connections prior to shutdown");
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	165 for channel, joined_muc in pairs(joined_mucs) do
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	166 for session in pairs(joined_muc.sessions) do
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	167 core_process_stanza(session,
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	168 st.presence{ type = "unavailable", from = session.full_jid,
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	169 to = channel:gsub("^#", "").."@"..conference_server.."/"..session.nick }
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	170 :tag("status")
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	171 :text("Connection closed: Server is shutting down"..(shutdown.reason and (": "..shutdown.reason) or "")));
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	172 session:close();
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	173 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	174 end
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	175 end);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	176
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	177 require "net.connlisteners".register("irc", irc_listener);
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	178 require "net.connlisteners".start("irc", { port = module:get_option("port") });

Mercurial > prosody-modules

annotate mod_ircd/mod_ircd.lua @ 128:bdd1641c159d