Software /
code /
prosody
File
main.lua @ 128:77a1778b16e8
Set things up for presence subscriptions.
Remove reference to core.s2smanager.
author | Waqas Hussain <waqas20@gmail.com> |
---|---|
date | Thu, 23 Oct 2008 18:36:10 +0500 |
parent | 99:ba08b8a4eeef |
child | 133:b92493ea6fd7 |
child | 145:fbb3a4ff9cf1 |
line wrap: on
line source
require "luarocks.require" local server = require "net.server" require "lxp" require "socket" require "ssl" function log(type, area, message) print(type, area, message); end dofile "lxmppd.cfg" -- Maps connections to sessions -- sessions = {}; -- Load and initialise core modules -- require "util.import" require "core.stanza_dispatch" require "core.xmlhandlers" require "core.rostermanager" require "core.offlinemessage" require "core.modulemanager" require "core.usermanager" require "core.sessionmanager" require "core.stanza_router" local start = require "net.connlisteners".start; require "util.stanza" require "util.jid" ------------------------------------------------------------------------ -- Locals for faster access -- local t_insert = table.insert; local t_concat = table.concat; local t_concatall = function (t, sep) local tt = {}; for _, s in ipairs(t) do t_insert(tt, tostring(s)); end return t_concat(tt, sep); end local m_random = math.random; local format = string.format; local sm_new_session, sm_destroy_session = sessionmanager.new_session, sessionmanager.destroy_session; --import("core.sessionmanager", "new_session", "destroy_session"); local st = stanza; ------------------------------ local hosts, sessions = hosts, sessions; -- Initialise modules modulemanager.loadall(); setmetatable(_G, { __index = function (t, k) print("WARNING: ATTEMPT TO READ A NIL GLOBAL!!!", k); error("Attempt to read a non-existent global. Naughty boy.", 2); end, __newindex = function (t, k, v) print("ATTEMPT TO SET A GLOBAL!!!!", tostring(k).." = "..tostring(v)); error("Attempt to set a global. Naughty boy.", 2); end }) --]][][[]][]; local protected_handler = function (conn, data, err) local success, ret = pcall(handler, conn, data, err); if not success then print("ERROR on "..tostring(conn)..": "..ret); conn:close(); end end; local protected_disconnect = function (conn, err) local success, ret = pcall(disconnect, conn, err); if not success then print("ERROR on "..tostring(conn).." disconnect: "..ret); conn:close(); end end; start("xmppclient", { ssl = ssl_ctx }) server.loop();