# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1264869747 0
# Node ID 80641e786b35bdca86d23fa5bc1fbcf6430f59a8
# Parent  922e6e84d0bf9101fb892aeb243781d024930e38
s2smanager: Make require_s2s_encryption do what it says on the tin

diff -r 922e6e84d0bf -r 80641e786b35 core/s2smanager.lua
--- a/core/s2smanager.lua	Fri Jan 29 17:09:20 2010 +0000
+++ b/core/s2smanager.lua	Sat Jan 30 16:42:27 2010 +0000
@@ -453,6 +453,16 @@
 end
 
 function make_authenticated(session, host)
+	if not session.secure then
+		local local_host = session.direction == "incoming" and session.to_host or session.from_host;
+		if config.get(local_host, "core", "require_s2s_encryption")) then
+			session:close({
+				condition = "policy-violation",
+				text = "Encrypted server-to-server communication is required but was not "
+				       ..((session.direction == "outgoing" and "offered") or "used")
+			});
+		end
+	end
 	if session.type == "s2sout_unauthed" then
 		session.type = "s2sout";
 	elseif session.type == "s2sin_unauthed" then