util.sasl_cyrus: Automatically initialize Cyrus SASL with the first used service...
[prosody.git] / core / hostmanager.lua
1 -- Prosody IM
2 -- Copyright (C) 2008-2009 Matthew Wild
3 -- Copyright (C) 2008-2009 Waqas Hussain
4 -- 
5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information.
7 --
8
9 local ssl = ssl
10
11 local hosts = hosts;
12 local configmanager = require "core.configmanager";
13 local eventmanager = require "core.eventmanager";
14 local modulemanager = require "core.modulemanager";
15 local events_new = require "util.events".new;
16
17 if not _G.prosody.incoming_s2s then
18         require "core.s2smanager";
19 end
20 local incoming_s2s = _G.prosody.incoming_s2s;
21
22 -- These are the defaults if not overridden in the config
23 local default_ssl_ctx = { mode = "client", protocol = "sslv23", capath = "/etc/ssl/certs", verify = "none", options = "no_sslv2"; };
24 local default_ssl_ctx_in = { mode = "server", protocol = "sslv23", capath = "/etc/ssl/certs", verify = "none", options = "no_sslv2"; };
25
26 local log = require "util.logger".init("hostmanager");
27
28 local pairs, setmetatable = pairs, setmetatable;
29
30 module "hostmanager"
31
32 local hosts_loaded_once;
33
34 local function load_enabled_hosts(config)
35         local defined_hosts = config or configmanager.getconfig();
36         
37         for host, host_config in pairs(defined_hosts) do
38                 if host ~= "*" and (host_config.core.enabled == nil or host_config.core.enabled) and not host_config.core.component_module then
39                         activate(host, host_config);
40                 end
41         end
42         eventmanager.fire_event("hosts-activated", defined_hosts);
43         hosts_loaded_once = true;
44 end
45
46 eventmanager.add_event_hook("server-starting", load_enabled_hosts);
47
48 function activate(host, host_config)
49         hosts[host] = {type = "local", connected = true, sessions = {}, 
50                        host = host, s2sout = {}, events = events_new(), 
51                        disallow_s2s = configmanager.get(host, "core", "disallow_s2s") 
52                          or (configmanager.get(host, "core", "anonymous_login") 
53                              and (configmanager.get(host, "core", "disallow_s2s") ~= false))
54                       };
55         for option_name in pairs(host_config.core) do
56                 if option_name:match("_ports$") then
57                         log("warn", "%s: Option '%s' has no effect for virtual hosts - put it in global Host \"*\" instead", host, option_name);
58                 end
59         end
60         
61         if ssl then
62                 local ssl_config = host_config.core.ssl or configmanager.get("*", "core", "ssl");
63                 if ssl_config then
64                         hosts[host].ssl_ctx = ssl.newcontext(setmetatable(ssl_config, { __index = default_ssl_ctx }));
65                         hosts[host].ssl_ctx_in = ssl.newcontext(setmetatable(ssl_config, { __index = default_ssl_ctx_in }));
66                 end
67         end
68
69         log((hosts_loaded_once and "info") or "debug", "Activated host: %s", host);
70         eventmanager.fire_event("host-activated", host, host_config);
71 end
72
73 function deactivate(host, reason)
74         local host_session = hosts[host];
75         log("info", "Deactivating host: %s", host);
76         eventmanager.fire_event("host-deactivating", host, host_session);
77         
78         reason = reason or { condition = "host-gone", text = "This server has stopped serving "..host };
79         
80         -- Disconnect local users, s2s connections
81         if host_session.sessions then
82                 for username, user in pairs(host_session.sessions) do
83                         for resource, session in pairs(user.sessions) do
84                                 log("debug", "Closing connection for %s@%s/%s", username, host, resource);
85                                 session:close(reason);
86                         end
87                 end
88         end
89         if host_session.s2sout then
90                 for remotehost, session in pairs(host_session.s2sout) do
91                         if session.close then
92                                 log("debug", "Closing outgoing connection to %s", remotehost);
93                                 if session.srv_hosts then session.srv_hosts = nil; end
94                                 session:close(reason);
95                         end
96                 end
97         end
98         for remote_session in pairs(incoming_s2s) do
99                 if remote_session.to_host == host then
100                         log("debug", "Closing incoming connection from %s", remote_session.from_host or "<unknown>");
101                         remote_session:close(reason);
102                 end
103         end
104
105         if host_session.modules then
106                 for module in pairs(host_session.modules) do
107                         modulemanager.unload(host, module);
108                 end
109         end
110
111         hosts[host] = nil;
112         eventmanager.fire_event("host-deactivated", host);
113         log("info", "Deactivated host: %s", host);
114 end
115
116 function getconfig(name)
117 end
118
119 return _M;