Sat, 27 Mar 2010 17:43:08 +0000
Initial commit (importing from old SVN repo which got lost)
--[[ Lua XMPP MOO Component by Matthew Wild (MattJ) ]] BotName = "Component"; BotPass = ""; function onPresence(msg) success, message = pcall(handlePresence, msg); if not success then print("\nERROR: "..message.."\n"); end end function onConnect() end function onMessage(msg) success, message = pcall(handleMessage, msg); if not success then print("\nERROR: "..message.."\n"); end end function handlePresence(msg) local room, server, nick, id, person; room,server,nick = msg.to:match("^(.+)@(.+)/(.+)$"); if not (room and nick) then print("\nERROR: Invalid room or nick!\n"); return; end -- We need to send an error -- print("Type: "..msg.type.." type of type: "..type(msg.type),"\n"); if msg.type == "available" or msg.type == "" and not people[msg.fromFull] then print("\nRecieved Available presence to join a room\n"); people[msg.fromFull] = { ["nick"] = nick, ["jid"] = msg.fromFull, ["presence"] = msg.type, room = rooms[room], occjid = msg.to, _parent = occupant, group = {}, _contents = { ["in"] = createcontainertable(); } } MoveToRoom(people[msg.fromFull], room); -- rooms[room].people[nick] = people[msg.fromFull]; --for id, person in pairs(rooms[room].people) do -- SendPresence(msg.fromFull, person.presence, "", room.."@"..server.."/"..person.nick); --end elseif msg.type == "unavailable" then RemoveFromRoom(rooms[room], msg.fromFull); people[msg.fromFull] = nil; end print("Returning\n"); SendPresence(msg.fromFull, msg.type, "", msg.to); end function handleMessage(msg) local action, object, room, server, person; person = people[msg.fromFull] if msg.type == MSG_ERROR then print("ERROR MESSAGE from "..msg.fromFull..": ", msg.body); return nil; end if not person then print("No such person as "..msg.fromFull, tostring(people[msg.fromFull]).."\n"); for k,v in pairs(people) do print(string.format("people[\"%s\"]", k),", "); end return nil; end room, server = msg.to:match("^(.+)@(.+)$"); if not (room and server) then print("ERROR! Malformed JID? "..msg.to.."\n"); return nil; end --TODO: Reply with error server = server:lower(); if not rooms[room] then return; end -- TODO: Reply with error person:_processCommand(msg.body); return nil; end function BroadcastPresence(people, fromnick, ptype, text) local nick, t; if type(people) == "string" then if not rooms[people] then print("No room called '"..people.."'","\n"); return; else print("\nLooking up room: "..people, "\n"); people = rooms[people].people; end end if not people then print("No such room. \n"); return; end for nick, t in pairs(people) do if t and t.jid then SendPresence(t.jid, ptype or "available", text or "", GetJIDParts(t.occjid).node.."@"..GetJIDParts(t.occjid).server.."/"..fromnick); else print("\nOrphaned occupant: "..nick, "\n"); end end end function BroadcastMessage(people_, from, text, mtype, sender_sees) local nick, t for nick, t in pairs(people_) do print("\nMessage sent to: "..t.jid); if t.nick ~= from or sender_sees ~= false then SendMessage(t.jid, GetJIDParts(t.occjid).node.."@"..GetJIDParts(t.occjid).server.."/"..from, text or "", mtype or "groupchat"); end end print("\nDone\n"); end function GetOccupantNick(jid) local pjid, p for pjid, p in pairs(people) do if CompareJIDs(pjid, jid) then return p.nick; end end return "Somebody"; end function CompareJIDs(j1, j2) if not (j1 and j2) then return false; end print("j2: "..type(j2)); j1node, j1server, j1res = j1:match("^(.+)@([%a%.]+)/?(.*)$"); j2node, j2server, j2res = j2:match("^(.+)@([%a%.]+)/?(.*)$"); if j1node == j2node and j1server:lower() == j2server:lower() and (j1res == j2res or j1res == "" or j2res == "") then return true; end return false; end function MoveToRoom(person, room) if not ( person and room) then return; end if type(room) ~= "table" then if not rooms[room] then rooms[room] = CreateObject(classes.obj_room); rooms[room]:_create{ room = room, server = GetJIDParts(person.occjid).server}; end room = rooms[room]; end if person.room ~= room then if person.room then -- Tell everyone in room that user is leaving --BroadcastPresence(person.room.people, person.occjid, "unavailable"); for nick, t in pairs(person.room.people) do -- print(string.format("\nPRESENCE: to: %s, from: %s, type: %s\n", t.jid, )); if nick ~= person.nick then SendPresence(t.jid, "unavailable", "", GetJIDParts(t.occjid).node.."@"..GetJIDParts(t.occjid).server.."/"..person.nick); end end -- Tell user that everyone else in the room has gone (clear room roster in their client) for nick, t in pairs(person.room.people) do if person.nick ~= nick then SendPresence(person.jid, "unavailable", "", GetJIDParts(person.occjid).node.."@"..person.room._properties.server.."/"..t.nick); end end person.room.people[person.nick] = nil; -- Remove from room end end person.room = room; room.people[person.nick] = person; --Tell user about people in the new room for nick, t in pairs(person.room.people) do -- print(string.format("\nPRESENCE: to: %s, from: %s, type: %s\n", t.jid, )); if nick ~= person.nick then SendPresence(person.jid, "available", "", GetJIDParts(person.occjid).node.."@"..GetJIDParts(person.occjid).server.."/"..nick); end end --Tell people in new room that user has joined -- BroadcastPresence(person.room.people, person.nick, "available"); for nick, t in pairs(person.room.people) do -- print(string.format("\nPRESENCE: to: %s, from: %s, type: %s\n", t.jid, )); if nick ~= person.nick then SendPresence(t.jid, "available", "", GetJIDParts(t.occjid).node.."@"..GetJIDParts(t.occjid).server.."/"..person.nick); end end SendPresence(person.jid, "available", "", person.occjid); room:_enter{ room = person.room, person = person, nick = person.nick }; end function RemoveFromRoom(room, jid) if not ( room and jid) then return; end for id, t in pairs(room.people) do if CompareJIDs(t.jid, from) then room.people[id] = nil; end end -- Tell everyone in room that user is leaving for nick, t in pairs(room.people) do SendPresence(t.jid, "unavailable", "", GetJIDParts(t.occjid).node.."@"..GetJIDParts(t.occjid).server.."/"..people[jid].nick); end end function FSay(room, fromnick, text) BroadcastMessage(room.people, fromnick , text); end function PSay(room, tonick, fromnick, text) --print(string.format("Room JID: %s, To: %s, From: %s\n", room.jid, tonick, fromnick)); for k,v in pairs(room.people) do print(string.format("people[\"%s\"]", k),", "); end print("\n"); -- room.jid..(((fromnick and fromnick:len() > 0) and "/"..fromnick) or "") SendMessage(room.people[tonick].jid, room.people[tonick].occjid, text or "", (fromnick and fromnick:len() > 0 and "groupchat") or "groupchat"); end dofile("common.lua"); rooms = rooms or { }; people = people or setmetatable({ default = {} }, { __newindex = function (t, k, v) if not rawget(v, "_parent") then rawset(v, "_parent", rawget(t, "default")); end return rawset(t, k, setmetatable(v, { __index = occupant })); end }); -- This is our inheritance code;