prosody-modules: mod_ircd/mod_ircd.in.lua annotate

annotate mod_ircd/mod_ircd.in.lua @ 472:f3bd98f3a3f8

mod_ircd: Toxic MattJ's artifact removed.

author	Marco Cirillo <maranda@lightwitch.org>
date	Wed, 02 Nov 2011 00:03:59 +0000
parents	fffac0eef024
children	99b246b37809

rev	line source
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	1 -- README
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	2 -- Squish verse into this dir, then squish them into one, which you move
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	3 -- and rename to mod_ircd.lua in your prosody modules/plugins dir.
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	4 --
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	5 -- IRC spec:
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	6 -- http://tools.ietf.org/html/rfc2812
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	7 local _module = module
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	8 module = _G.module
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	9 local module = _module
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	10 --
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	11 local component_jid, component_secret, muc_server =
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	12 module.host, nil, module:get_option("conference_server");
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	13
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	14 package.loaded["util.sha1"] = require "util.encodings";
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	15 local verse = require "verse"
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	16 require "verse.component"
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	17 require "socket"
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	18 c = verse.new();--verse.logger())
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	19 c:add_plugin("groupchat");
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	20
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	21 local function verse2prosody(e)
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	22 return c:event("stanza", e.stanza) or true;
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	23 end
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	24 module:hook("message/bare", verse2prosody);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	25 module:hook("message/full", verse2prosody);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	26 module:hook("presence/bare", verse2prosody);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	27 module:hook("presence/full", verse2prosody);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	28 c.type = "component";
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	29 c.send = core_post_stanza;
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	30
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	31 -- This plugin is actually a verse based component, but that mode is currently commented out
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	32
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	33 -- Add some hooks for debugging
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	34 --c:hook("opened", function () print("Stream opened!") end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	35 --c:hook("closed", function () print("Stream closed!") end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	36 --c:hook("stanza", function (stanza) print("Stanza:", stanza) end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	37
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	38 -- This one prints all received data
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	39 --c:hook("incoming-raw", print, 1000);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	40 --c:hook("stanza", print, 1000);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	41 --c:hook("outgoing-raw", print, 1000);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	42
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	43 -- Print a message after authentication
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	44 --c:hook("authentication-success", function () print("Logged in!"); end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	45 --c:hook("authentication-failure", function (err) print("Failed to log in! Error: "..tostring(err.condition)); end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	46
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	47 -- Print a message and exit when disconnected
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	48 --c:hook("disconnected", function () print("Disconnected!"); os.exit(); end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	49
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	50 -- Now, actually start the connection:
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	51 --c.connect_host = "127.0.0.1"
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	52 --c:connect_component(component_jid, component_secret);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	53
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	54 local jid = require "util.jid";
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	55 local nodeprep = require "util.encodings".stringprep.nodeprep;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	56
468 640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	57 local function utf8_clean (s)
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	58 local push, join = table.insert, table.concat;
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	59 local r, i = {}, 1;
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	60 if not(s and #s > 0) then
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	61 return ""
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	62 end
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	63 while true do
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	64 local c = s:sub(i,i)
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	65 local b = c:byte();
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	66 local w = (
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	67 (b >= 9 and b <= 10 and 0) or
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	68 (b >= 32 and b <= 126 and 0) or
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	69 (b >= 192 and b <= 223 and 1) or
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	70 (b >= 224 and b <= 239 and 2) or
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	71 (b >= 240 and b <= 247 and 3) or
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	72 (b >= 248 and b <= 251 and 4) or
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	73 (b >= 251 and b <= 252 and 5) or nil
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	74 )
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	75 if not w then
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	76 push(r, "?")
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	77 else
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	78 local n = i + w;
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	79 if w == 0 then
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	80 push(r, c);
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	81 elseif n > #s then
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	82 push(r, ("?"):format(b));
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	83 else
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	84 local e = s:sub(i+1,n);
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	85 if e:match('^[\128-\191]*$') then
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	86 push(r, c);
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	87 push(r, e);
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	88 i = n;
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	89 else
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	90 push(r, ("?"):format(b));
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	91 end
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	92 end
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	93 end
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	94 i = i + 1;
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	95 if i > #s then
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	96 break
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	97 end
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	98 end
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	99 return join(r);
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	100 end
640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	101
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	102 local function parse_line(line)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	103 local ret = {};
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	104 if line:sub(1,1) == ":" then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	105 ret.from, line = line:match("^:(%w+)%s+(.*)$");
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	106 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	107 for part in line:gmatch("%S+") do
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	108 if part:sub(1,1) == ":" then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	109 ret[#ret+1] = line:match(":(.*)$");
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	110 break
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	111 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	112 ret[#ret+1]=part;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	113 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	114 return ret;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	115 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	116
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	117 local function build_line(parts)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	118 if #parts > 1 then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	119 parts[#parts] = ":" .. parts[#parts];
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	120 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	121 return (parts.from and ":"..parts.from.." " or "")..table.concat(parts, " ");
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	122 end
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	123
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	124 local function irc2muc(channel, nick)
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	125 local room = channel and nodeprep(channel:match("^#(%w+)")) or nil;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	126 return jid.join(room, muc_server, nick)
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	127 end
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	128 local function muc2irc(room)
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	129 local channel, _, nick = jid.split(room);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	130 return "#"..channel, nick;
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	131 end
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	132 local role_map = {
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	133 moderator = "@",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	134 participant = "",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	135 visitor = "",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	136 none = ""
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	137 }
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	138 local aff_map = {
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	139 owner = "~",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	140 administrator = "&",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	141 member = "+",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	142 none = ""
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	143 }
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	144 local role_modemap = {
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	145 moderator = "o",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	146 participant = "",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	147 visitor = "",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	148 none = ""
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	149 }
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	150 local aff_modemap = {
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	151 owner = "q",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	152 administrator = "a",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	153 member = "v",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	154 none = ""
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	155 }
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	156
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	157 local irc_listener = { default_port = 7000, default_mode = "*l" };
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	158
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 local sessions = {};
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	160 local jids = {};
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	161 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	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 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	164
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 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	166
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	167 local conference_server = muc_server;
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	168
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 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	170 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	171 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	172
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 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	174 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	175 if not session then
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	176 session = { conn = conn, host = component_jid, reset_stream = function () end,
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	177 close = irc_close_session, log = logger.init("irc"..(conn.id or "1")),
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	178 rooms = {},
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	179 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	180 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	181 function session.data(data)
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	182 local parts = parse_line(data);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	183 module:log("debug", require"util.serialization".serialize(parts));
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	184 local command = table.remove(parts, 1);
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	185 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	186 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	187 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	188 command = command:upper();
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	189 if not session.nick then
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	190 if not (command == "USER" or command == "NICK") then
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	191 module:log("debug", "Client tried to send command %s before registering", command);
468 640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	192 return session.send{from=muc_server, "451", command, "You have not registered"}
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	193 end
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	194 end
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	195 if commands[command] then
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	196 local ret = commands[command](session, parts);
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	197 if ret then
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	198 return session.send(ret);
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	199 end
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	200 else
468 640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	201 session.send{from=muc_server, "421", session.nick, command, "Unknown command"};
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	202 return module:log("debug", "Unknown command: %s", command);
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	203 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	204 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	205 function session.send(data)
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	206 if type(data) == "string" then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	207 return conn:write(data.."\r\n");
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	208 elseif type(data) == "table" then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	209 local line = build_line(data);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	210 module:log("debug", line);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	211 conn:write(line.."\r\n");
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	212 end
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	213 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	214 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	215 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	216 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	217 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	218 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	219
3de60860adca mod_ircd: Initial commit of a wonderfully hacky but working IRC->XMPP interface for Prosody Matthew Wild <mwild1@gmail.com> parents: diff changeset	220 function irc_listener.ondisconnect(conn, error)
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	221 local session = sessions[conn];
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	222 if session then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	223 for _, room in pairs(session.rooms) do
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	224 room:leave("Disconnected");
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	225 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	226 if session.nick then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	227 nicks[session.nick] = nil;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	228 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	229 if session.full_jid then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	230 jids[session.full_jid] = nil;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	231 end
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	232 end
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	233 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	234 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	235
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	236 function commands.NICK(session, args)
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	237 if session.nick then
468 640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	238 session.send{from = muc_server, "484", "*", nick, "I'm afraid I can't let you do that"};
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	239 --TODO Loop throug all rooms and change nick, with help from Verse.
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	240 return;
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	241 end
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	242 local nick = args[1];
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	243 nick = nick:gsub("[^%w_]","");
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	244 if nicks[nick] then
468 640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	245 session.send{from=muc_server, "433", nick, "The nickname "..nick.." is already in use"};
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	246 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	247 end
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	248 local full_jid = jid.join(nick, component_jid, "ircd");
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	249 jids[full_jid] = session;
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	250 jids[full_jid]["ar_last"] = {};
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	251 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	252 session.nick = nick;
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	253 session.full_jid = full_jid;
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	254 session.type = "c2s";
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	255
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	256 session.send{from = muc_server, "001", nick, "Welcome in the IRC to MUC XMPP Gateway, "..nick};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	257 session.send{from = muc_server, "002", nick, "Your host is "..muc_server.." running Prosody "..prosody.version};
472 f3bd98f3a3f8 mod_ircd: Toxic MattJ's artifact removed. Marco Cirillo <maranda@lightwitch.org> parents: 471 diff changeset	258 session.send{from = muc_server, "003", nick, "This server was created the "..os.date(nil, prosody.start_time)}
471 fffac0eef024 mod_ircd: adjusted quirk in the banner I missed. Marco Cirillo <maranda@lightwitch.org> parents: 470 diff changeset	259 session.send{from = muc_server, "004", nick, table.concat({muc_server, "mod_ircd(alpha-0.8)", "i", "aoqv"}, " ")};
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	260 session.send{from = muc_server, "375", nick, "- "..muc_server.." Message of the day -"};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	261 session.send{from = muc_server, "372", nick, "-"};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	262 session.send{from = muc_server, "372", nick, "- Please be warned that this is only a partial irc implementation,"};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	263 session.send{from = muc_server, "372", nick, "- it's made to facilitate users transiting away from irc to XMPP."};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	264 session.send{from = muc_server, "372", nick, "-"};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	265 session.send{from = muc_server, "372", nick, "- Prosody is _NOT_ an IRC Server and it never will."};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	266 session.send{from = muc_server, "372", nick, "- We also would like to remind you that this plugin is provided as is,"};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	267 session.send{from = muc_server, "372", nick, "- it's still an Alpha and it's still a work in progress, use it at your sole"};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	268 session.send{from = muc_server, "372", nick, "- risk as there's a not so little chance something will break."};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	269
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	270 session.send{from = nick, "MODE", nick, "+i"}; -- why -> Invisible mode setting,
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	271 -- enforce by default on most servers (since the source host doesn't show it's sensible to have it "set")
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	272 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	273
329 febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	274 function commands.USER(session, params)
febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	275 -- FIXME
febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	276 -- Empty command for now
febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	277 end
febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	278
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	279 local function mode_map(am, rm, nicks)
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	280 local rnick;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	281 local c_modes;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	282 c_modes = aff_modemap[am]..role_modemap[rm]
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	283 rnick = string.rep(nicks.." ", c_modes:len())
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	284 if c_modes == "" then return nil, nil end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	285 return c_modes, rnick
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	286 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	287
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	288 function commands.JOIN(session, args)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	289 local channel = args[1];
469 ff03a325aa41 mod_ircd: ignore JOIN without channel Kim Alvefur <zash@zash.se> parents: 468 diff changeset	290 if not channel then return end
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	291 local room_jid = irc2muc(channel);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	292 print(session.full_jid);
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	293 if not jids[session.full_jid].ar_last[room_jid] then jids[session.full_jid].ar_last[room_jid] = {}; end
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	294 local room, err = c:join_room(room_jid, session.nick, { source = session.full_jid } );
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	295 if not room then
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	296 return ":"..muc_server.." ERR :Could not join room: "..err
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	297 end
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	298 session.rooms[channel] = room;
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	299 room.channel = channel;
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	300 room.session = session;
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	301 session.send{from=session.nick, "JOIN", channel};
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	302 if room.subject then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	303 session.send{from=muc_server, 332, session.nick, channel ,room.subject};
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	304 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	305 commands.NAMES(session, channel);
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	306
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	307 room:hook("subject-changed", function(changed)
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	308 session.send((":%s TOPIC %s :%s"):format(changed.by, channel, changed.to or ""));
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	309 end);
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	310
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	311 room:hook("message", function(event)
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	312 if not event.body then return end
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	313 local nick, body = event.nick, event.body;
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	314 if nick ~= session.nick then
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	315 if body:sub(1,4) == "/me " then
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	316 body = "\1ACTION ".. body:sub(5) .. "\1"
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	317 end
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	318 local type = event.stanza.attr.type;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	319 session.send{from=nick, "PRIVMSG", type == "groupchat" and channel or nick, body};
329 febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	320 --FIXME PM's probably won't work
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	321 end
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	322 end);
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	323
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	324 room:hook("presence", function(ar)
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	325 local c_modes;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	326 local rnick;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	327 if ar.nick and not jids[session.full_jid].ar_last[ar.room_jid][ar.nick] then jids[session.full_jid].ar_last[ar.room_jid][ar.nick] = {} end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	328 local x_ar = ar.stanza:get_child("x", "http://jabber.org/protocol/muc#user")
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	329 if x_ar then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	330 local xar_item = x_ar:get_child("item")
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	331 if xar_item and xar_item.attr and ar.stanza.attr.type ~= "unavailable" then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	332 if xar_item.attr.affiliation and xar_item.attr.role then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	333 if not jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["affiliation"] and
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	334 not jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["role"] then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	335 jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["affiliation"] = xar_item.attr.affiliation
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	336 jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["role"] = xar_item.attr.role
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	337 c_modes, rnick = mode_map(xar_item.attr.affiliation, xar_item.attr.role, ar.nick);
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	338 if c_modes and rnick then session.send((":%s MODE %s +%s"):format(muc_server, channel, c_modes.." "..rnick)); end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	339 else
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	340 c_modes, rnick = mode_map(jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["affiliation"], jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["role"], ar.nick);
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	341 if c_modes and rnick then session.send((":%s MODE %s -%s"):format(muc_server, channel, c_modes.." "..rnick)); end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	342 jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["affiliation"] = xar_item.attr.affiliation
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	343 jids[session.full_jid].ar_last[ar.room_jid][ar.nick]["role"] = xar_item.attr.role
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	344 c_modes, rnick = mode_map(xar_item.attr.affiliation, xar_item.attr.role, ar.nick);
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	345 if c_modes and rnick then session.send((":%s MODE %s +%s"):format(muc_server, channel, c_modes.." "..rnick)); end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	346 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	347 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	348 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	349 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	350 end, -1);
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	351 end
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	352
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	353 c:hook("groupchat/joined", function(room)
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	354 local session = room.session or jids[room.opts.source];
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	355 local channel = "#"..room.jid:match("^(.*)@");
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	356 session.send{from=session.nick.."!"..session.nick, "JOIN", channel};
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	357 if room.topic then
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	358 session.send{from=muc_server, 332, room.topic};
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	359 end
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	360 commands.NAMES(session, channel)
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	361 room:hook("occupant-joined", function(nick)
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	362 session.send{from=nick.nick.."!"..nick.nick, "JOIN", channel};
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	363 end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	364 room:hook("occupant-left", function(nick)
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	365 jids[session.full_jid].ar_last[nick.room_jid][nick.nick] = nil;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	366 session.send{from=nick.nick.."!"..nick.nick, "PART", channel};
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	367 end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	368 end);
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	369
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	370 function commands.NAMES(session, channel)
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	371 local nicks = { };
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	372 local room = session.rooms[channel];
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	373 local symbols_map = {
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	374 owner = "~",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	375 administrator = "&",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	376 moderator = "@",
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	377 member = "+"
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	378 }
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	379
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	380 if not room then return end
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	381 -- TODO Break this out into commands.NAMES
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	382 for nick, n in pairs(room.occupants) do
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	383 if n.affiliation == "owner" and n.role == "moderator" then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	384 nick = symbols_map[n.affiliation]..nick;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	385 elseif n.affiliation == "administrator" and n.role == "moderator" then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	386 nick = symbols_map[n.affiliation]..nick;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	387 elseif n.affiliation == "member" and n.role == "moderator" then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	388 nick = symbols_map[n.role]..nick;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	389 elseif n.affiliation == "member" and n.role == "partecipant" then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	390 nick = symbols_map[n.affiliation]..nick;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	391 elseif n.affiliation == "none" and n.role == "moderator" then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	392 nick = symbols_map[n.role]..nick;
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	393 end
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	394 table.insert(nicks, nick);
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	395 end
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	396 nicks = table.concat(nicks, " ");
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	397 session.send((":%s 353 %s = %s :%s"):format(muc_server, session.nick, channel, nicks));
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	398 session.send((":%s 366 %s %s :End of /NAMES list."):format(muc_server, session.nick, channel));
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	399 session.send(":"..muc_server.." 353 "..session.nick.." = "..channel.." :"..nicks);
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	400 end
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	401
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	402 function commands.PART(session, args)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	403 local channel, part_message = unpack(args);
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	404 local room = channel and nodeprep(channel:match("^#(%w+)")) or nil;
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	405 if not room then return end
132 d4ff1cd414e5 mod_ircd: Add PING command / Echo PART back Florian Zeitz <florob@babelmonkeys.de> parents: 111 diff changeset	406 channel = channel:match("^([%S]*)");
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	407 session.rooms[channel]:leave(part_message);
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	408 jids[session.full_jid].ar_last[room.."@"..muc_server] = nil;
132 d4ff1cd414e5 mod_ircd: Add PING command / Echo PART back Florian Zeitz <florob@babelmonkeys.de> parents: 111 diff changeset	409 session.send(":"..session.nick.." PART :"..channel);
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	410 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	411
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	412 function commands.PRIVMSG(session, args)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	413 local channel, message = unpack(args);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	414 if message and #message > 0 then
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	415 if message:sub(1,8) == "\1ACTION " then
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	416 message = "/me ".. message:sub(9,-2)
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	417 end
468 640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	418 message = utf8_clean(message);
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	419 if channel:sub(1,1) == "#" then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	420 if session.rooms[channel] then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	421 module:log("debug", "%s sending PRIVMSG \"%s\" to %s", session.nick, message, channel);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	422 session.rooms[channel]:send_message(message);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	423 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	424 else -- private message
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	425 local nick = channel;
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	426 module:log("debug", "PM to %s", nick);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	427 for channel, room in pairs(session.rooms) do
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	428 module:log("debug", "looking for %s in %s", nick, channel);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	429 if room.occupants[nick] then
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	430 module:log("debug", "found %s in %s", nick, channel);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	431 local who = room.occupants[nick];
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	432 -- FIXME PMs in verse
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	433 --room:send_private_message(nick, message);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	434 local pm = st.message({type="chat",to=who.jid}, message);
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	435 module:log("debug", "sending PM to %s: %s", nick, tostring(pm));
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	436 room:send(pm)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	437 break
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	438 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	439 end
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	440 end
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	441 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	442 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	443
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	444 function commands.PING(session, args)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	445 session.send{from=muc_server, "PONG", args[1]};
132 d4ff1cd414e5 mod_ircd: Add PING command / Echo PART back Florian Zeitz <florob@babelmonkeys.de> parents: 111 diff changeset	446 end
d4ff1cd414e5 mod_ircd: Add PING command / Echo PART back Florian Zeitz <florob@babelmonkeys.de> parents: 111 diff changeset	447
470 4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	448 function commands.TOPIC(session, message)
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	449 if not message then return end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	450 local channel, topic = message:match("^(%S+) :(.*)$");
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	451 if not channel then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	452 channel = message:match("^(%S+)");
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	453 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	454 if not channel then return end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	455 local room = session.rooms[channel];
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	456 if topic then
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	457 room:set_subject(topic)
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	458 session.send((":%s TOPIC %s :%s"):format(session.nick, channel, room.subject or ""));
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	459 else
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	460 session.send((":%s TOPIC %s :%s"):format(session.nick, channel, room.subject or ""));
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	461 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	462 end
4f9224369e69 mod_ircd: merged in various changes including -- code to propagate aff/role changes as modes, topic hooks/command, scarecrow motd banner, default port. Marco Cirillo <maranda@lightwitch.org> parents: 469 diff changeset	463
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	464 function commands.WHO(session, args)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	465 local channel = args[1];
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	466 if session.rooms[channel] then
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	467 local room = session.rooms[channel]
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	468 for nick in pairs(room.occupants) do
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	469 --n=MattJ 91.85.191.50 irc.freenode.net MattJ H :0 Matthew Wild
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	470 session.send{from=muc_server, 352, session.nick, channel, nick, nick, muc_server, nick, "H", "0 "..nick}
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	471 end
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	472 session.send{from=muc_server, 315, session.nick, channel, "End of /WHO list"};
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	473 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	474 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	475
468 640e6c0b563d mod_ircd: Scrub invalid UTF-8 sequences, welcome message Kim Alvefur <zash@zash.se> parents: 466 diff changeset	476 function commands.MODE(session, args) -- FIXME
472 f3bd98f3a3f8 mod_ircd: Toxic MattJ's artifact removed. Marco Cirillo <maranda@lightwitch.org> parents: 471 diff changeset	477 -- emptied for the time being, until something sane which works is available.
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	478 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	479
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	480 function commands.QUIT(session, args)
0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	481 session.send{"ERROR", "Closing Link: "..session.nick};
329 febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	482 for _, room in pairs(session.rooms) do
466 0fcd34ee7301 mod_ircd: Proper line parsing and generating. Fix PMs Kim Alvefur <zash@zash.se> parents: 465 diff changeset	483 room:leave(args[1]);
329 febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	484 end
335 8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	485 jids[session.full_jid] = nil;
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	486 nicks[session.nick] = nil;
8b81257c9dc5 mod_ircd: Don't allow any command until nick has been set. Split out NAMES into a command. Kim Alvefur <zash@zash.se> parents: 329 diff changeset	487 sessions[session.conn] = nil;
329 febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	488 session:close();
febfb59502fc mod_ircd: Add QUIT command. Kim Alvefur <zash@zash.se> parents: 326 diff changeset	489 end
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	490
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	491 function commands.RAW(session, data)
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	492 --c:send(data)
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	493 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	494
465 030404dd7609 mod_ircd: Better nameing, squishy. Kim Alvefur <zash@zash.se> parents: 461 diff changeset	495 local function desetup()
030404dd7609 mod_ircd: Better nameing, squishy. Kim Alvefur <zash@zash.se> parents: 461 diff changeset	496 require "net.connlisteners".deregister("irc");
030404dd7609 mod_ircd: Better nameing, squishy. Kim Alvefur <zash@zash.se> parents: 461 diff changeset	497 end
030404dd7609 mod_ircd: Better nameing, squishy. Kim Alvefur <zash@zash.se> parents: 461 diff changeset	498
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	499 --c:hook("ready", function ()
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	500 require "net.connlisteners".register("irc", irc_listener);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	501 require "net.connlisteners".start("irc");
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	502 --end);
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	503
465 030404dd7609 mod_ircd: Better nameing, squishy. Kim Alvefur <zash@zash.se> parents: 461 diff changeset	504 module:hook("module-unloaded", desetup)
030404dd7609 mod_ircd: Better nameing, squishy. Kim Alvefur <zash@zash.se> parents: 461 diff changeset	505
030404dd7609 mod_ircd: Better nameing, squishy. Kim Alvefur <zash@zash.se> parents: 461 diff changeset	506
326 282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	507 --print("Starting loop...")
282abba844e8 mod_ircd: Partial rewrite, use verse for MUC Kim Alvefur <zash@zash.se> parents: 282 diff changeset	508 --verse.loop()

Mercurial > prosody-modules

annotate mod_ircd/mod_ircd.in.lua @ 472:f3bd98f3a3f8