plugins/mod_auth_cyrus.lua

   1 -- Prosody IM
   2 -- Copyright (C) 2008-2010 Matthew Wild
   3 -- Copyright (C) 2008-2010 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 log = require "util.logger".init("auth_cyrus");
  10
  11 local usermanager_user_exists = require "core.usermanager".user_exists;
  12
  13 local cyrus_service_realm = module:get_option("cyrus_service_realm");
  14 local cyrus_service_name = module:get_option("cyrus_service_name");
  15 local cyrus_application_name = module:get_option("cyrus_application_name");
  16 local require_provisioning = module:get_option("cyrus_require_provisioning") or false;
  17
  18 prosody.unlock_globals(); --FIXME: Figure out why this is needed and
  19                                                   -- why cyrussasl isn't caught by the sandbox
  20 local cyrus_new = require "util.sasl_cyrus".new;
  21 prosody.lock_globals();
  22 local new_sasl = function(realm)
  23         return cyrus_new(
  24                 cyrus_service_realm or realm,
  25                 cyrus_service_name or "xmpp",
  26                 cyrus_application_name or "prosody"
  27         );
  28 end
  29
  30 do -- diagnostic
  31         local list;
  32         for mechanism in pairs(new_sasl(module.host):mechanisms()) do
  33                 list = (not(list) and mechanism) or (list..", "..mechanism);
  34         end
  35         if not list then
  36                 module:log("error", "No Cyrus SASL mechanisms available");
  37         else
  38                 module:log("debug", "Available Cyrus SASL mechanisms: %s", list);
  39         end
  40 end
  41
  42 function new_default_provider(host)
  43         local provider = { name = "cyrus" };
  44         log("debug", "initializing default authentication provider for host '%s'", host);
  45
  46         function provider.test_password(username, password)
  47                 return nil, "Legacy auth not supported with Cyrus SASL.";
  48         end
  49
  50         function provider.get_password(username)
  51                 return nil, "Passwords unavailable for Cyrus SASL.";
  52         end
  53
  54         function provider.set_password(username, password)
  55                 return nil, "Passwords unavailable for Cyrus SASL.";
  56         end
  57
  58         function provider.user_exists(username)
  59                 if require_provisioning then
  60                         return usermanager_user_exists(username, module.host);
  61                 end
  62                 return true;
  63         end
  64
  65         function provider.create_user(username, password)
  66                 return nil, "Account creation/modification not available with Cyrus SASL.";
  67         end
  68
  69         function provider.get_sasl_handler()
  70                 local handler = new_sasl(module.host);
  71                 if require_provisioning then
  72                         function handler.require_provisioning(username)
  73                                 return usermanager_user_exists(username, module.host);
  74                         end
  75                 end
  76                 return handler;
  77         end
  78
  79         return provider;
  80 end
  81
  82 module:add_item("auth-provider", new_default_provider(module.host));
  83