File

-- Prosody IM
-- Copyright (C) 2008-2009 Matthew Wild
-- Copyright (C) 2008-2009 Waqas Hussain
-- 
-- This project is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--


local fatal;

local function softreq(...) local ok, lib =  pcall(require, ...); if ok then return lib; else return nil, lib; end end

local function missingdep(name, sources, msg)
	print("");
	print("**************************");
	print("Prosody was unable to find "..tostring(name));
	print("This package can be obtained in the following ways:");
	print("");
	local longest_platform = 0;
	for platform in pairs(sources) do
		longest_platform = math.max(longest_platform, #platform);
	end
	for platform, source in pairs(sources) do
		print("", platform..":"..(" "):rep(4+longest_platform-#platform)..source);
	end
	print("");
	print(msg or (name.." is required for Prosody to run, so we will now exit."));
	print("More help can be found on our website, at http://prosody.im/doc/depends");
	print("**************************");
	print("");
end

local lxp = softreq "lxp"

if not lxp then
	missingdep("luaexpat", {
			["Debian/Ubuntu"] = "sudo apt-get install liblua5.1-expat0";
			["luarocks"] = "luarocks install luaexpat";
			["Source"] = "http://www.keplerproject.org/luaexpat/";
		});
	fatal = true;
end

local socket = softreq "socket"

if not socket then
	missingdep("luasocket", {
			["Debian/Ubuntu"] = "sudo apt-get install liblua5.1-socket2";
			["luarocks"] = "luarocks install luasocket";
			["Source"] = "http://www.tecgraf.puc-rio.br/~diego/professional/luasocket/";
		});
	fatal = true;
end
	
local lfs, err = softreq "lfs"
if not lfs then
	missingdep("luafilesystem", {
			["luarocks"] = "luarocks install luafilesystem";
	 		["Debian/Ubuntu"] = "sudo apt-get install liblua5.1-filesystem0";
	 		["Source"] = "http://www.keplerproject.org/luafilesystem/";
	 	});
	fatal = true;
end

local ssl = softreq "ssl"

if not ssl then
	if config.get("*", "core", "run_without_ssl") then
		log("warn", "Running without SSL support because run_without_ssl is defined in the config");
	else
		missingdep("LuaSec", {
				["Debian/Ubuntu"] = "http://prosody.im/download/start#debian_and_ubuntu";
				["luarocks"] = "luarocks install luasec";
				["Source"] = "http://www.inf.puc-rio.br/~brunoos/luasec/";
			}, "SSL/TLS support will not be available");
	end
else
	local major, minor, veryminor, patched = ssl._VERSION:match("(%d+)%.(%d+)%.?(%d*)(M?)");
	if not major or ((tonumber(major) == 0 and (tonumber(minor) or 0) <= 3 and (tonumber(veryminor) or 0) <= 2) and patched ~= "M") then
		log("error", "This version of LuaSec contains a known bug that causes disconnects, see http://prosody.im/doc/depends");
	end
end

local encodings, err = softreq "util.encodings"
if not encodings then
	if err:match("not found") then
		missingdep("util.encodings", { ["Windows"] = "Make sure you have encodings.dll from the Prosody distribution in util/";
	 				["GNU/Linux"] = "Run './configure' and 'make' in the Prosody source directory to build util/encodings.so";
	 			});
	else
		print "***********************************"
		print("util/encodings couldn't be loaded. Check that you have a recent version of libidn");
		print ""
		print("The full error was:");
		print(err)
		print "***********************************"
	end
	fatal = true;
end

local hashes, err = softreq "util.hashes"
if not hashes then
	if err:match("not found") then
		missingdep("util.hashes", { ["Windows"] = "Make sure you have hashes.dll from the Prosody distribution in util/";
	 				["GNU/Linux"] = "Run './configure' and 'make' in the Prosody source directory to build util/hashes.so";
	 			});
 	else
		print "***********************************"
		print("util/hashes couldn't be loaded. Check that you have a recent version of OpenSSL (libcrypto in particular)");
		print ""
		print("The full error was:");
		print(err)
		print "***********************************"
	end
	fatal = true;
end

if fatal then os.exit(1); end