Merge 0.10->trunk

[prosody.git] / util / sasl_cyrus.lua

diff --git a/util/sasl_cyrus.lua b/util/sasl_cyrus.lua
index 002118fdc07c86f14b8f0c0686e8c70537e73db0..4e9a4af5c72798db85b6f3bee69ed95e874a683f 100644 (file)
--- a/util/sasl_cyrus.lua
+++ b/util/sasl_cyrus.lua
@@ -60,7 +60,7 @@ local sasl_errstring = {
 };
 setmetatable(sasl_errstring, { __index = function() return "undefined error!" end });
 
-module "sasl_cyrus"
+local _ENV = nil;
 
 local method = {};
 method.__index = method;
@@ -78,11 +78,15 @@ local function init(service_name)
 end
 
 -- create a new SASL object which can be used to authenticate clients
-function new(realm, service_name, app_name)
+-- host_fqdn may be nil in which case gethostname() gives the value.
+--      For GSSAPI, this determines the hostname in the service ticket (after
+--      reverse DNS canonicalization, only if [libdefaults] rdns = true which
+--      is the default).
+local function new(realm, service_name, app_name, host_fqdn)
 
        init(app_name or service_name);
 
-       local st, ret = pcall(cyrussasl.server_new, service_name, nil, realm, nil, nil)
+       local st, ret = pcall(cyrussasl.server_new, service_name, host_fqdn, realm, nil, nil)
        if not st then
                log("error", "Creating SASL server connection failed: %s", ret);
                return nil;
@@ -159,4 +163,6 @@ function method:process(message)
        end
 end
 
-return _M;
+return {
+       new = new;
+};