2 -- Copyright (C) 2008-2010 Matthew Wild
3 -- Copyright (C) 2008-2010 Waqas Hussain
5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information.
9 local configmanager = require "core.configmanager";
10 local modulemanager = require "core.modulemanager";
11 local events_new = require "util.events".new;
12 local disco_items = require "util.multitable".new();
15 local uuid_gen = require "util.uuid".generate;
17 local log = require "util.logger".init("hostmanager");
20 local prosody_events = prosody.events;
21 if not _G.prosody.incoming_s2s then
22 require "core.s2smanager";
24 local incoming_s2s = _G.prosody.incoming_s2s;
26 local pairs, setmetatable = pairs, setmetatable;
27 local tostring, type = tostring, type;
31 local hosts_loaded_once;
33 local function load_enabled_hosts(config)
34 local defined_hosts = config or configmanager.getconfig();
35 local activated_any_host;
37 for host, host_config in pairs(defined_hosts) do
38 if host ~= "*" and host_config.core.enabled ~= false then
39 if not host_config.core.component_module then
40 activated_any_host = true;
42 activate(host, host_config);
46 if not activated_any_host then
47 log("error", "No active VirtualHost entries in the config file. This may cause unexpected behaviour as no modules will be loaded.");
50 prosody_events.fire_event("hosts-activated", defined_hosts);
51 hosts_loaded_once = true;
54 prosody_events.add_handler("server-starting", load_enabled_hosts);
56 function activate(host, host_config)
57 if hosts[host] then return nil, "The host "..host.." is already activated"; end
58 host_config = host_config or configmanager.getconfig()[host];
59 if not host_config then return nil, "Couldn't find the host "..tostring(host).." defined in the current config"; end
60 local host_session = {
63 events = events_new();
64 dialback_secret = configmanager.get(host, "core", "dialback_secret") or uuid_gen();
65 disallow_s2s = configmanager.get(host, "core", "disallow_s2s");
67 if not host_config.core.component_module then -- host
68 host_session.type = "local";
69 host_session.sessions = {};
70 if configmanager.get(host, "core", "anonymous_login") then
71 host_session.disallow_s2s = (configmanager.get(host, "core", "disallow_s2s") ~= false);
74 host_session.type = "component";
76 hosts[host] = host_session;
77 if not host:match("[@/]") then
78 disco_items:set(host:match("%.(.*)") or "*", host, true);
80 for option_name in pairs(host_config.core) do
81 if option_name:match("_ports$") or option_name:match("_interface$") then
82 log("warn", "%s: Option '%s' has no effect for virtual hosts - put it in the server-wide section instead", host, option_name);
86 log((hosts_loaded_once and "info") or "debug", "Activated host: %s", host);
87 prosody_events.fire_event("host-activated", host, host_config);
91 function deactivate(host, reason)
92 local host_session = hosts[host];
93 if not host_session then return nil, "The host "..tostring(host).." is not activated"; end
94 log("info", "Deactivating host: %s", host);
95 prosody_events.fire_event("host-deactivating", host, host_session);
97 if type(reason) ~= "table" then
98 reason = { condition = "host-gone", text = tostring(reason or "This server has stopped serving "..host) };
101 -- Disconnect local users, s2s connections
102 if host_session.sessions then
103 for username, user in pairs(host_session.sessions) do
104 for resource, session in pairs(user.sessions) do
105 log("debug", "Closing connection for %s@%s/%s", username, host, resource);
106 session:close(reason);
110 if host_session.s2sout then
111 for remotehost, session in pairs(host_session.s2sout) do
112 if session.close then
113 log("debug", "Closing outgoing connection to %s", remotehost);
114 if session.srv_hosts then session.srv_hosts = nil; end
115 session:close(reason);
119 for remote_session in pairs(incoming_s2s) do
120 if remote_session.to_host == host then
121 log("debug", "Closing incoming connection from %s", remote_session.from_host or "<unknown>");
122 remote_session:close(reason);
126 if host_session.modules then
127 for module in pairs(host_session.modules) do
128 modulemanager.unload(host, module);
133 if not host:match("[@/]") then
134 disco_items:remove(host:match("%.(.*)") or "*", host);
136 prosody_events.fire_event("host-deactivated", host);
137 log("info", "Deactivated host: %s", host);
141 function get_children(host)
142 return disco_items:get(host) or NULL;