-- Prosody IM

-- Copyright (C) 2008-2010 Waqas Hussain

--

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

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

--

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

local json_encode = require "util.json";

local http = require "socket.http";

local options = module:get_option("auth_custom_http");

local post_url = options and options.post_url;

assert(post_url, "No HTTP POST URL provided");

local provider = {};

function provider.test_password(username, password)

	return nil, "Not supported"

end

function provider.get_password(username)

	return nil, "Not supported"

end

function provider.set_password(username, password)

	return nil, "Not supported"

end

function provider.user_exists(username)

	return true;

end

function provider.create_user(username, password)

	return nil, "Not supported"

end

function provider.delete_user(username)

	return nil, "Not supported"

end

function provider.get_sasl_handler()

	local getpass_authentication_profile = {

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

			local postdata = json_encode({ username = username, password = password });

			local result = http.request(post_url, postdata);

			return result == "true", true;

		end,

	};

	return new_sasl(module.host, getpass_authentication_profile);

end

module:provides("auth", provider);