-- Prosody IM

-- Copyright (C) 2008-2010 Matthew Wild

-- Copyright (C) 2008-2010 Waqas Hussain

--

-- This project is MIT/X11 licensed. Please see the

-- COPYING file in the source package for more information.

--

-- luacheck: ignore 212

local datamanager = require "util.datamanager";

local new_sasl = require "util.sasl".new;

local saslprep = require "util.encodings".stringprep.saslprep;

local host = module.host;

local provider = { name = "insecure" };

assert(module:get_option_string("insecure_open_authentication") == "Yes please, I know what I'm doing!");

function provider.test_password(username, password)

	return true;

end

function provider.set_password(username, password)

	local account = datamanager.load(username, host, "accounts");

	password = saslprep(password);

	if not password then

		return nil, "Password fails SASLprep.";

	end

	if account then

		account.password = password;

		return datamanager.store(username, host, "accounts", account);

	end

	return nil, "Account not available.";

end

function provider.user_exists(username)

	return true;

end

function provider.create_user(username, password)

	return datamanager.store(username, host, "accounts", {password = password});

end

function provider.delete_user(username)

	return datamanager.store(username, host, "accounts", nil);

end

function provider.get_sasl_handler()

	local getpass_authentication_profile = {

		plain_test = function(sasl, username, password, realm)

			return true, true;

		end

	};

	return new_sasl(module.host, getpass_authentication_profile);

end

module:add_item("auth-provider", provider);