Mercurial > prosody-modules

comparison mod_ircd/mod_ircd.lua @ 448:3bf6f102f1cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mod_ircd: added patched plugin file.
author Marco Cirillo <maranda@lightwitch.org>
date Mon, 26 Sep 2011 02:18:21 +0000
parents
children 7e6524555ab0
comparison
equal deleted inserted replaced
447:21cb01de89a8 448:3bf6f102f1cc
1 -- README
2 -- Squish verse into this dir, then squish them into one, which you move
3 -- and rename to mod_ircd.lua in your prosody modules/plugins dir.
4 --
5 -- IRC spec:
6 -- http://tools.ietf.org/html/rfc2812
7 local _module = module
8 module = _G.module
9 local module = _module
10 --
11 local component_jid, component_secret, muc_server =
12 module.host, nil, module:get_option("conference_server");
13
14 package.loaded["util.sha1"] = require "util.encodings";
15 local verse = require "verse"
16 require "verse.component"
17 require "socket"
18 c = verse.new();--verse.logger())
19 c:add_plugin("groupchat");
20
21 local function verse2prosody(e)
22 return c:event("stanza", e.stanza) or true;
23 end
24 module:hook("message/bare", verse2prosody);
25 module:hook("message/full", verse2prosody);
26 module:hook("presence/bare", verse2prosody);
27 module:hook("presence/full", verse2prosody);
28 c.type = "component";
29 c.send = core_post_stanza;
30
31 local jid = require "util.jid";
32
33 local function irc2muc(channel, nick)
34 channel = channel:gsub("^#", "")
35 channel = channel:gsub("(%s:)$", "")
36 return jid.join(channel, muc_server, nick)
37 end
38 local function muc2irc(room)
39 local channel, _, nick = jid.split(room);
40 return "#"..channel, nick;
41 end
42 local rolemap = {
43 moderator = "@",
44 participant = "+",
45 }
46 local modemap = {
47 moderator = "o",
48 participant = "v",
49 }
50
51 local irc_listener = { default_port = 7000, default_mode = "*l" };
52
53 local sessions = {};
54 local jids = {};
55 local commands = {};
56
57 local nicks = {};
58
59 local st = require "util.stanza";
60
61 local conference_server = muc_server;
62
63 local function irc_close_session(session)
64 session.conn:close();
65 end
66
67 function irc_listener.onincoming(conn, data)
68 local session = sessions[conn];
69 if not session then
70 session = { conn = conn, host = component_jid, reset_stream = function () end,
71 close = irc_close_session, log = logger.init("irc"..(conn.id or "1")),
72 rooms = {},
73 roster = {} };
74 sessions[conn] = session;
75 function session.data(data)
76 local command, args = data:match("^%s*([^ ]+) *(.*)%s*$");
77 if not command then
78 return;
79 end
80 command = command:upper();
81 if not session.nick then
82 if not (command == "USER" or command == "NICK") then
83 session.send(":" .. muc_server .. " 451 " .. command .. " :You have not registered")
84 return true;
85 end
86 end
87 if commands[command] then
88 local ret = commands[command](session, args);
89 if ret then
90 session.send(ret.."\r\n");
91 end
92 else
93 session.send(":" .. muc_server .. " 421 " .. session.nick .. " " .. command .. " :Unknown command")
94 module:log("debug", "Unknown command: %s", command);
95 end
96 end
97 function session.send(data)
98 return conn:write(data.."\r\n");
99 end
100 end
101 if data then
102 session.data(data);
103 end
104 end
105
106 function irc_listener.ondisconnect(conn, error)
107 local session = sessions[conn];
108 for _, room in pairs(session.rooms) do
109 room:leave("Disconnected");
110 end
111 if jids[session.full_jid] then jids[session.full_jid] = nil end
112 if nicks[session.nick] then nicks[session.nick] = nil end
113 if sessions[conn] then sessions[conn] = nil end
114 end
115
116 function commands.NICK(session, nick)
117 if session.nick then
118 session.send(":"..muc_server.." 484 * "..nick.." :I'm afraid I can't let you do that, "..nick);
119 --TODO Loop throug all rooms and change nick, with help from Verse.
120 return;
121 end
122 nick = nick:match("^[%w_:]+"); nick = nick:gsub(":", "");
123 if nicks[nick] then
124 session.send(":"..muc_server.." 433 * "..nick.." :The nickname "..nick.." is already in use");
125 return;
126 end
127 local full_jid = jid.join(nick, component_jid, "ircd");
128 jids[full_jid] = session;
129 nicks[nick] = session;
130 session.nick = nick;
131 session.full_jid = full_jid;
132 session.type = "c2s";
133 session.send(":"..muc_server.." 001 "..session.nick.." :Welcome in the IRC to MUC XMPP Gateway, "..session.nick);
134 session.send(":"..muc_server.." 002 "..session.nick.." :Your host is "..muc_server..", running Prosody "..prosody.version);
135 session.send(":"..muc_server.." 004 "..session.nick.." :"..muc_server.." Prosody("..prosody.version..") i ov");
136 session.send(":"..muc_server.." 375 "..session.nick.." :- "..muc_server.." Message of the day -");
137 session.send(":"..muc_server.." 372 "..session.nick.." :-");
138 session.send(":"..muc_server.." 372 "..session.nick.." :- Please be warned that this is only a partial irc implementation,");
139 session.send(":"..muc_server.." 372 "..session.nick.." :- it's made to facilitate users transiting away from irc to XMPP.");
140 session.send(":"..muc_server.." 372 "..session.nick.." :-");
141 session.send(":"..muc_server.." 372 "..session.nick.." :- Prosody is _NOT_ an IRC Server and it never will.");
142 session.send(":"..muc_server.." 372 "..session.nick.." :- We also would like to remind you that this plugin is provided as is,");
143 session.send(":"..muc_server.." 372 "..session.nick.." :- it's still an Alpha and it's still a work in progress, use it at your sole");
144 session.send(":"..muc_server.." 372 "..session.nick.." :- risk as there's a not so little chance something will break.");
145 session.send(":"..session.nick.." MODE "..session.nick.." +i");
146 end
147
148 function commands.USER(session, params)
149 end
150
151 function commands.JOIN(session, channel)
152 local room_jid = irc2muc(channel);
153 channel = channel:gsub("(%s:)$", "")
154 local room, err = c:join_room(room_jid, session.nick, { source = session.full_jid } );
155 if not room then
156 return ":"..session.host.." ERR :Could not join room: "..err
157 end
158 session.rooms[channel] = room;
159 room.channel = channel;
160 room.session = session;
161 if room.subject then
162 session.send(":"..session.host.." 332 "..session.nick.." "..channel.." :"..room.subject);
163 end
164 commands.NAMES(session, channel)
165 room:hook("message", function(event)
166 if not event.body then return end
167 local nick, body = event.nick, event.body;
168 if nick ~= session.nick then
169 if body:sub(1,4) == "/me " then
170 body = "\1ACTION ".. body:sub(5) .. "\1"
171 end
172 session.send(":"..nick.." PRIVMSG "..channel.." :"..body);
173 --FIXME PM's probably won't work
174 end
175 end);
176 room:hook("subject-changed", function(changed)
177 session.send((":%s TOPIC %s :%s"):format(changed.by, channel, changed.to or ""));
178 end);
179 end
180
181 c:hook("groupchat/joined", function(room)
182 local session = room.session or jids[room.opts.source];
183 local channel = "#"..room.jid:match("^(.*)@");
184 session.send((":%s!%s JOIN :%s"):format(session.nick, session.nick, channel));
185 if room.topic then
186 session.send((":%s 332 %s :%s"):format(muc_server, channel, room.topic));
187 end
188 commands.NAMES(session, channel)
189 --FIXME Ones own mode get's lost
190 --session.send((":%s MODE %s +%s %s"):format(session.host, room.channel, modemap[nick.role], nick.nick));
191 room:hook("occupant-joined", function(nick)
192 session.send((":%s!%s JOIN :%s"):format(nick.nick, nick.nick, channel));
193 if nick.role and modemap[nick.role] then
194 session.send((":%s MODE %s +%s %s"):format(muc_server, channel, modemap[nick.role], nick.nick));
195 end
196 end);
197 room:hook("occupant-left", function(nick)
198 session.send((":%s!%s PART :%s"):format(nick.nick, nick.nick, channel));
199 end);
200 end);
201
202 function commands.NAMES(session, channel)
203 local nicks = { };
204 channel = channel:gsub("^:", "")
205 local room = session.rooms[channel];
206 if not room then return end
207 -- TODO Break this out into commands.NAMES
208 for nick, n in pairs(room.occupants) do
209 if n.role and rolemap[n.role] then
210 nick = rolemap[n.role] .. nick;
211 end
212 table.insert(nicks, nick);
213 end
214 nicks = table.concat(nicks, " ");
215 --:molyb.irc.bnfh.org 353 derp = #grill-bit :derp hyamobi walt snuggles_ E-Rock kng grillbit gunnarbot Frink shedma zagabar zash Mrw00t Appiah J10 lectus peck EricJ soso mackt offer hyarion @pettter MMN-o
216 session.send((":%s 353 %s = %s :%s"):format(session.host, session.nick, channel, nicks));
217 session.send((":%s 366 %s %s :End of /NAMES list."):format(session.host, session.nick, channel));
218 session.send(":"..muc_server.." 353 "..session.nick.." = "..channel.." :"..nicks);
219 end
220
221 function commands.PART(session, channel)
222 local channel, part_message = channel:match("^([^:]+):?(.*)$");
223 channel = channel:match("^([%S]*)");
224 session.rooms[channel]:leave(part_message);
225 session.send(":"..session.nick.." PART :"..channel);
226 end
227
228 function commands.PRIVMSG(session, message)
229 local channel, message = message:match("^(%S+) :(.+)$");
230 if message and #message > 0 and session.rooms[channel] then
231 if message:sub(1,8) == "\1ACTION " then
232 message = "/me ".. message:sub(9,-2)
233 end
234 module:log("debug", "%s sending PRIVMSG \"%s\" to %s", session.nick, message, channel);
235 session.rooms[channel]:send_message(message);
236 end
237 end
238
239 function commands.PING(session, server)
240 session.send(":"..muc_server..": PONG "..server);
241 end
242
243 function commands.TOPIC(session, message)
244 if not message then return end
245 local channel, topic = message:match("^(%S+) :(.*)$");
246 if not channel then
247 channel = message:match("^(%S+)");
248 end
249 if not channel then return end
250 local room = session.rooms[channel];
251 if topic then
252 room:set_subject(topic)
253 session.send((":%s TOPIC %s :%s"):format(muc_server, channel, room.subject or ""));
254 else
255 session.send((":%s TOPIC %s :%s"):format(muc_server, channel, room.subject or ""));
256 -- first should be who set it, but verse doesn't provide that yet, so we'll
257 -- just say it was the server
258 end
259 end
260
261 function commands.WHO(session, channel)
262 channel = channel:gsub("^:", "")
263 if session.rooms[channel] then
264 local room = session.rooms[channel]
265 for nick in pairs(room.occupants) do
266 session.send(":"..muc_server.." 352 "..session.nick.." "..channel.." "..nick.." "..nick.." "..muc_server.." "..nick.." H :0 "..nick);
267 end
268 session.send(":"..muc_server.." 315 "..session.nick.." "..channel.. " :End of /WHO list");
269 end
270 end
271
272 function commands.MODE(session, channel)
273 session.send(":"..muc_server.." 324 "..session.nick.." "..channel.." +J");
274 end
275
276 function commands.QUIT(session, message)
277 session.send("ERROR :Closing Link: "..session.nick);
278 for _, room in pairs(session.rooms) do
279 room:leave(message);
280 end
281 jids[session.full_jid] = nil;
282 nicks[session.nick] = nil;
283 sessions[session.conn] = nil;
284 session:close();
285 end
286
287 function commands.RAW(session, data)
288 end
289
290 local function desetup()
291 require "net.connlisteners".deregister("irc");
292 end
293
294 require "net.connlisteners".register("irc", irc_listener);
295 require "net.connlisteners".start("irc");
296
297 module:hook("module-unloaded", desetup)