/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 2013, Digium, Inc.
 *
 * Joshua Colp <jcolp@digium.com>
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 */

/*! \file
 *
 * \brief Bucket File API
 *
 * \author Joshua Colp <jcolp@digium.com>
 */

/*** MODULEINFO
	<use type="external">uriparser</use>
	<support_level>core</support_level>
 ***/

#include "asterisk.h"

#ifdef HAVE_URIPARSER
#include <uriparser/Uri.h>
#endif

#include "asterisk/logger.h"
#include "asterisk/sorcery.h"
#include "asterisk/bucket.h"
#include "asterisk/config_options.h"
#include "asterisk/astobj2.h"
#include "asterisk/strings.h"
#include "asterisk/json.h"
#include "asterisk/file.h"
#include "asterisk/module.h"
#include "asterisk/paths.h"

/*! \brief Number of buckets for the container of schemes */
#define SCHEME_BUCKETS 53

/*! \brief Number of buckets for the container of metadata in a file */
#define METADATA_BUCKETS 53

/*! \brief Sorcery instance for all bucket operations */
static struct ast_sorcery *bucket_sorcery;

/*! \brief Container of registered schemes */
static struct ao2_container *schemes;

/*! \brief Structure for available schemes */
struct ast_bucket_scheme {
	/*! \brief Wizard for buckets */
	struct ast_sorcery_wizard *bucket;
	/*! \brief Wizard for files */
	struct ast_sorcery_wizard *file;
	/*! \brief Pointer to the file snapshot creation callback */
	bucket_file_create_cb create;
	/*! \brief Pointer to the file snapshot destruction callback */
	bucket_file_destroy_cb destroy;
	/*! \brief Name of the scheme */
	char name[0];
};

/*! \brief Callback function for creating a bucket */
static int bucket_wizard_create(const struct ast_sorcery *sorcery, void *data, void *object)
{
	struct ast_bucket *bucket = object;

	return bucket->scheme_impl->bucket->create(sorcery, data, object);
}

/*! \brief Callback function for retrieving a bucket */
static void *bucket_wizard_retrieve(const struct ast_sorcery *sorcery, void *data, const char *type,
	const char *id)
{
#ifdef HAVE_URIPARSER
	UriParserStateA state;
	UriUriA uri;
	size_t len;
#else
	char *tmp = ast_strdupa(id);
#endif
	SCOPED_AO2RDLOCK(lock, schemes);
	char *uri_scheme;
	RAII_VAR(struct ast_bucket_scheme *, scheme, NULL, ao2_cleanup);

#ifdef HAVE_URIPARSER
	state.uri = &uri;
	if (uriParseUriA(&state, id) != URI_SUCCESS ||
		!uri.scheme.first || !uri.scheme.afterLast) {
		uriFreeUriMembersA(&uri);
		return NULL;
	}

	len = (uri.scheme.afterLast - uri.scheme.first) + 1;
	uri_scheme = ast_alloca(len);
	ast_copy_string(uri_scheme, uri.scheme.first, len);

	uriFreeUriMembersA(&uri);
#else
	uri_scheme = tmp;
	if (!(tmp = strchr(uri_scheme, ':'))) {
		return NULL;
	}
	*tmp = '\0';
#endif

	scheme = ao2_find(schemes, uri_scheme, OBJ_KEY | OBJ_NOLOCK);

	if (!scheme) {
		return NULL;
	}

	return scheme->bucket->retrieve_id(sorcery, data, type, id);
}

/*! \brief Callback function for deleting a bucket */
static int bucket_wizard_delete(const struct ast_sorcery *sorcery, void *data, void *object)
{
	struct ast_bucket *bucket = object;

	return bucket->scheme_impl->bucket->delete(sorcery, data, object);
}

/*! \brief Callback function for determining if a bucket is stale */
static int bucket_wizard_is_stale(const struct ast_sorcery *sorcery, void *data, void *object)
{
	struct ast_bucket *bucket = object;

	if (!bucket->scheme_impl->bucket->is_stale) {
		return 0;
	}

	return bucket->scheme_impl->bucket->is_stale(sorcery, data, object);
}

/*! \brief Intermediary bucket wizard */
static struct ast_sorcery_wizard bucket_wizard = {
	.name = "bucket",
	.create = bucket_wizard_create,
	.retrieve_id = bucket_wizard_retrieve,
	.delete = bucket_wizard_delete,
	.is_stale = bucket_wizard_is_stale,
};

/*! \brief Callback function for creating a bucket file */
static int bucket_file_wizard_create(const struct ast_sorcery *sorcery, void *data, void *object)
{
	struct ast_bucket_file *file = object;

	return file->scheme_impl->file->create(sorcery, data, object);
}

/*! \brief Callback function for retrieving a bucket file */
static void *bucket_file_wizard_retrieve(const struct ast_sorcery *sorcery, void *data, const char *type,
	const char *id)
{
#ifdef HAVE_URIPARSER
	UriParserStateA state;
	UriUriA uri;
	size_t len;
#else
	char *tmp = ast_strdupa(id);
#endif
	char *uri_scheme;
	SCOPED_AO2RDLOCK(lock, schemes);
	RAII_VAR(struct ast_bucket_scheme *, scheme, NULL, ao2_cleanup);

#ifdef HAVE_URIPARSER
	state.uri = &uri;
	if (uriParseUriA(&state, id) != URI_SUCCESS ||
		!uri.scheme.first || !uri.scheme.afterLast) {
		uriFreeUriMembersA(&uri);
		return NULL;
	}

	len = (uri.scheme.afterLast - uri.scheme.first) + 1;
	uri_scheme = ast_alloca(len);
	ast_copy_string(uri_scheme, uri.scheme.first, len);

	uriFreeUriMembersA(&uri);
#else
	uri_scheme = tmp;
	if (!(tmp = strchr(uri_scheme, ':'))) {
		return NULL;
	}
	*tmp = '\0';
#endif

	scheme = ao2_find(schemes, uri_scheme, OBJ_KEY | OBJ_NOLOCK);

	if (!scheme) {
		return NULL;
	}

	return scheme->file->retrieve_id(sorcery, data, type, id);
}

/*! \brief Callback function for updating a bucket file */
static int bucket_file_wizard_update(const struct ast_sorcery *sorcery, void *data, void *object)
{
	struct ast_bucket_file *file = object;

	return file->scheme_impl->file->update(sorcery, data, object);
}

/*! \brief Callback function for deleting a bucket file */
static int bucket_file_wizard_delete(const struct ast_sorcery *sorcery, void *data, void *object)
{
	struct ast_bucket_file *file = object;

	return file->scheme_impl->file->delete(sorcery, data, object);
}

/*! \brief Callback function for determining if a bucket is stale */
static int bucket_file_wizard_is_stale(const struct ast_sorcery *sorcery, void *data, void *object)
{
	struct ast_bucket_file *file = object;

	if (!file->scheme_impl->file->is_stale) {
		return 0;
	}

	return file->scheme_impl->file->is_stale(sorcery, data, object);
}

/*! \brief Intermediary file wizard */
static struct ast_sorcery_wizard bucket_file_wizard = {
	.name = "bucket_file",
	.create = bucket_file_wizard_create,
	.retrieve_id = bucket_file_wizard_retrieve,
	.update = bucket_file_wizard_update,
	.delete = bucket_file_wizard_delete,
	.is_stale = bucket_file_wizard_is_stale,
};

int __ast_bucket_scheme_register(const char *name, struct ast_sorcery_wizard *bucket,
	struct ast_sorcery_wizard *file, bucket_file_create_cb create_cb,
	bucket_file_destroy_cb destroy_cb, struct ast_module *module)
{
	SCOPED_AO2WRLOCK(lock, schemes);
	RAII_VAR(struct ast_bucket_scheme *, scheme, NULL, ao2_cleanup);

	if (ast_strlen_zero(name) || !bucket || !file ||
	    !bucket->create || !bucket->delete || !bucket->retrieve_id ||
	    (!bucket->create && !create_cb)) {
		return -1;
	}

	scheme = ao2_find(schemes, name, OBJ_KEY | OBJ_NOLOCK);
	if (scheme) {
		return -1;
	}

	scheme = ao2_alloc(sizeof(*scheme) + strlen(name) + 1, NULL);
	if (!scheme) {
		return -1;
	}

	strcpy(scheme->name, name);
	scheme->bucket = bucket;
	scheme->file = file;
	scheme->create = create_cb;
	scheme->destroy = destroy_cb;

	ao2_link_flags(schemes, scheme, OBJ_NOLOCK);

	ast_verb(5, "Registered bucket scheme '%s'\n", name);

	ast_module_shutdown_ref(module);

	return 0;
}

/*! \brief Allocator for metadata attributes */
static struct ast_bucket_metadata *bucket_metadata_alloc(const char *name, const char *value)
{
	int name_len = strlen(name) + 1, value_len = strlen(value) + 1;
	struct ast_bucket_metadata *metadata = ao2_alloc(sizeof(*metadata) + name_len + value_len, NULL);
	char *dst;

	if (!metadata) {
		return NULL;
	}

	dst = metadata->data;
	metadata->name = strcpy(dst, name);
	dst += name_len;
	metadata->value = strcpy(dst, value);

	return metadata;
}

int ast_bucket_file_metadata_set(struct ast_bucket_file *file, const char *name, const char *value)
{
	RAII_VAR(struct ast_bucket_metadata *, metadata, bucket_metadata_alloc(name, value), ao2_cleanup);

	if (!metadata) {
		return -1;
	}

	ao2_find(file->metadata, name, OBJ_NODATA | OBJ_UNLINK | OBJ_KEY);
	ao2_link(file->metadata, metadata);

	return 0;
}

int ast_bucket_file_metadata_unset(struct ast_bucket_file *file, const char *name)
{
	RAII_VAR(struct ast_bucket_metadata *, metadata, ao2_find(file->metadata, name, OBJ_UNLINK | OBJ_KEY), ao2_cleanup);

	if (!metadata) {
		return -1;
	}

	return 0;
}

struct ast_bucket_metadata *ast_bucket_file_metadata_get(struct ast_bucket_file *file, const char *name)
{
	return ao2_find(file->metadata, name, OBJ_KEY);
}

void ast_bucket_file_metadata_callback(struct ast_bucket_file *file, ao2_callback_fn cb, void *arg)
{
	ao2_callback(file->metadata, 0, cb, arg);
}


/*! \brief Destructor for buckets */
static void bucket_destroy(void *obj)
{
	struct ast_bucket *bucket = obj;

	ao2_cleanup(bucket->scheme_impl);
	ast_string_field_free_memory(bucket);
	ao2_cleanup(bucket->buckets);
	ao2_cleanup(bucket->files);
}

/*! \brief Sorting function for red black tree string container */
static int bucket_rbtree_str_sort_cmp(const void *obj_left, const void *obj_right, int flags)
{
	const char *str_left = obj_left;
	const char *str_right = obj_right;
	int cmp = 0;

	switch (flags & (OBJ_POINTER | OBJ_KEY | OBJ_PARTIAL_KEY)) {
	default:
	case OBJ_POINTER:
	case OBJ_KEY:
		cmp = strcmp(str_left, str_right);
		break;
	case OBJ_PARTIAL_KEY:
		cmp = strncmp(str_left, str_right, strlen(str_right));
		break;
	}
	return cmp;
}

/*! \brief Allocator for buckets */
static void *bucket_alloc(const char *name)
{
	RAII_VAR(struct ast_bucket *, bucket, NULL, ao2_cleanup);

	bucket = ast_sorcery_generic_alloc(sizeof(*bucket), bucket_destroy);
	if (!bucket) {
		return NULL;
	}

	if (ast_string_field_init(bucket, 128)) {
		return NULL;
	}

	bucket->buckets = ao2_container_alloc_rbtree(AO2_ALLOC_OPT_LOCK_NOLOCK,
		AO2_CONTAINER_ALLOC_OPT_DUPS_REJECT, bucket_rbtree_str_sort_cmp, NULL);
	if (!bucket->buckets) {
		return NULL;
	}

	bucket->files = ao2_container_alloc_rbtree(AO2_ALLOC_OPT_LOCK_NOLOCK,
		AO2_CONTAINER_ALLOC_OPT_DUPS_REJECT, bucket_rbtree_str_sort_cmp, NULL);
	if (!bucket->files) {
		return NULL;
	}

	ao2_ref(bucket, +1);
	return bucket;
}

struct ast_bucket *ast_bucket_alloc(const char *uri)
{
#ifdef HAVE_URIPARSER
	UriParserStateA state;
	UriUriA full_uri;
	size_t len;
#else
	char *tmp = ast_strdupa(uri);
#endif
	char *uri_scheme;
	RAII_VAR(struct ast_bucket_scheme *, scheme, NULL, ao2_cleanup);
	struct ast_bucket *bucket;

	if (ast_strlen_zero(uri)) {
		return NULL;
	}

#ifdef HAVE_URIPARSER
	state.uri = &full_uri;
	if (uriParseUriA(&state, uri) != URI_SUCCESS ||
		!full_uri.scheme.first || !full_uri.scheme.afterLast ||
		!full_uri.pathTail) {
		uriFreeUriMembersA(&full_uri);
		return NULL;
	}

	len = (full_uri.scheme.afterLast - full_uri.scheme.first) + 1;
	uri_scheme = ast_alloca(len);
	ast_copy_string(uri_scheme, full_uri.scheme.first, len);

	uriFreeUriMembersA(&full_uri);
#else
	uri_scheme = tmp;
	if (!(tmp = strchr(uri_scheme, ':'))) {
		return NULL;
	}
	*tmp = '\0';
#endif

	scheme = ao2_find(schemes, uri_scheme, OBJ_KEY);
	if (!scheme) {
		return NULL;
	}

	bucket = ast_sorcery_alloc(bucket_sorcery, "bucket", uri);
	if (!bucket) {
		return NULL;
	}

	ao2_ref(scheme, +1);
	bucket->scheme_impl = scheme;

	ast_string_field_set(bucket, scheme, uri_scheme);

	return bucket;
}

int ast_bucket_create(struct ast_bucket *bucket)
{
	return ast_sorcery_create(bucket_sorcery, bucket);
}

/*!
 * \internal
 * \brief Sorcery object type copy handler for \c ast_bucket
 */
static int bucket_copy_handler(const void *src, void *dst)
{
	const struct ast_bucket *src_bucket = src;
	struct ast_bucket *dst_bucket = dst;

	dst_bucket->scheme_impl = ao2_bump(src_bucket->scheme_impl);
	ast_string_field_set(dst_bucket, scheme, src_bucket->scheme);
	dst_bucket->created = src_bucket->created;
	dst_bucket->modified = src_bucket->modified;

	return 0;
}

struct ast_bucket *ast_bucket_clone(struct ast_bucket *bucket)
{
	return ast_sorcery_copy(bucket_sorcery, bucket);
}

struct ast_bucket *ast_bucket_retrieve(const char *uri)
{
	if (ast_strlen_zero(uri)) {
		return NULL;
	}

	return ast_sorcery_retrieve_by_id(bucket_sorcery, "bucket", uri);
}

int ast_bucket_is_stale(struct ast_bucket *bucket)
{
	return ast_sorcery_is_stale(bucket_sorcery, bucket);
}

int ast_bucket_observer_add(const struct ast_sorcery_observer *callbacks)
{
	return ast_sorcery_observer_add(bucket_sorcery, "bucket", callbacks);
}

void ast_bucket_observer_remove(const struct ast_sorcery_observer *callbacks)
{
	ast_sorcery_observer_remove(bucket_sorcery, "bucket", callbacks);
}

int ast_bucket_delete(struct ast_bucket *bucket)
{
	return ast_sorcery_delete(bucket_sorcery, bucket);
}

struct ast_json *ast_bucket_json(const struct ast_bucket *bucket)
{
	RAII_VAR(struct ast_json *, json, NULL, ast_json_unref);
	struct ast_json *id, *files, *buckets;
	struct ao2_iterator i;
	char *uri;
	int res = 0;

	json = ast_sorcery_objectset_json_create(bucket_sorcery, bucket);
	if (!json) {
		return NULL;
	}

	id = ast_json_string_create(ast_sorcery_object_get_id(bucket));
	if (!id) {
		return NULL;
	}

	if (ast_json_object_set(json, "id", id)) {
		return NULL;
	}

	buckets = ast_json_array_create();
	if (!buckets) {
		return NULL;
	}

	if (ast_json_object_set(json, "buckets", buckets)) {
		return NULL;
	}

	i = ao2_iterator_init(bucket->buckets, 0);
	for (; (uri = ao2_iterator_next(&i)); ao2_ref(uri, -1)) {
		struct ast_json *bucket_uri = ast_json_string_create(uri);

		if (!bucket_uri || ast_json_array_append(buckets, bucket_uri)) {
			res = -1;
			ao2_ref(uri, -1);
			break;
		}
	}
	ao2_iterator_destroy(&i);

	if (res) {
		return NULL;
	}

	files = ast_json_array_create();
	if (!files) {
		return NULL;
	}

	if (ast_json_object_set(json, "files", files)) {
		return NULL;
	}

	i = ao2_iterator_init(bucket->files, 0);
	for (; (uri = ao2_iterator_next(&i)); ao2_ref(uri, -1)) {
		struct ast_json *file_uri = ast_json_string_create(uri);

		if (!file_uri || ast_json_array_append(files, file_uri)) {
			res = -1;
			ao2_ref(uri, -1);
			break;
		}
	}
	ao2_iterator_destroy(&i);

	if (res) {
		return NULL;
	}

	ast_json_ref(json);
	return json;
}

/*! \brief Hashing function for file metadata */
AO2_STRING_FIELD_HASH_FN(ast_bucket_metadata, name)

/*! \brief Comparison function for file metadata */
AO2_STRING_FIELD_CMP_FN(ast_bucket_metadata, name)

/*! \brief Destructor for bucket files */
static void bucket_file_destroy(void *obj)
{
	struct ast_bucket_file *file = obj;

	if (file->scheme_impl->destroy) {
		file->scheme_impl->destroy(file);
	}

	ao2_cleanup(file->scheme_impl);
	ao2_cleanup(file->metadata);
}

/*! \brief Allocator for bucket files */
static void *bucket_file_alloc(const char *name)
{
	RAII_VAR(struct ast_bucket_file *, file, NULL, ao2_cleanup);

	file = ast_sorcery_generic_alloc(sizeof(*file), bucket_file_destroy);
	if (!file) {
		return NULL;
	}

	if (ast_string_field_init(file, 128)) {
		return NULL;
	}

	file->metadata = ao2_container_alloc_hash(AO2_ALLOC_OPT_LOCK_NOLOCK, 0, METADATA_BUCKETS,
		ast_bucket_metadata_hash_fn, NULL, ast_bucket_metadata_cmp_fn);
	if (!file->metadata) {
		return NULL;
	}

	ao2_ref(file, +1);
	return file;
}

struct ast_bucket_file *ast_bucket_file_alloc(const char *uri)
{
#ifdef HAVE_URIPARSER
	UriParserStateA state;
	UriUriA full_uri;
	size_t len;
#else
	char *tmp = ast_strdupa(uri);
#endif
	char *uri_scheme;
	RAII_VAR(struct ast_bucket_scheme *, scheme, NULL, ao2_cleanup);
	struct ast_bucket_file *file;

	if (ast_strlen_zero(uri)) {
		return NULL;
	}

#ifdef HAVE_URIPARSER
	state.uri = &full_uri;
	if (uriParseUriA(&state, uri) != URI_SUCCESS ||
		!full_uri.scheme.first || !full_uri.scheme.afterLast ||
		!full_uri.pathTail) {
		uriFreeUriMembersA(&full_uri);
		return NULL;
	}

	len = (full_uri.scheme.afterLast - full_uri.scheme.first) + 1;
	uri_scheme = ast_alloca(len);
	ast_copy_string(uri_scheme, full_uri.scheme.first, len);

	uriFreeUriMembersA(&full_uri);
#else
	uri_scheme = tmp;
	if (!(tmp = strchr(uri_scheme, ':'))) {
		return NULL;
	}
	*tmp = '\0';
#endif

	scheme = ao2_find(schemes, uri_scheme, OBJ_KEY);
	if (!scheme) {
		return NULL;
	}

	file = ast_sorcery_alloc(bucket_sorcery, "file", uri);
	if (!file) {
		return NULL;
	}

	ao2_ref(scheme, +1);
	file->scheme_impl = scheme;

	ast_string_field_set(file, scheme, uri_scheme);

	if (scheme->create && scheme->create(file)) {
		ao2_ref(file, -1);
		return NULL;
	}

	return file;
}

int ast_bucket_file_create(struct ast_bucket_file *file)
{
	return ast_sorcery_create(bucket_sorcery, file);
}

/*! \brief Copy a file, shamelessly taken from file.c */
static int bucket_copy(const char *infile, const char *outfile)
{
	int ifd, ofd, len;
	char buf[4096];	/* XXX make it larger. */

	if ((ifd = open(infile, O_RDONLY)) < 0) {
		ast_log(LOG_WARNING, "Unable to open %s in read-only mode, error: %s\n", infile, strerror(errno));
		return -1;
	}
	if ((ofd = open(outfile, O_WRONLY | O_TRUNC | O_CREAT, AST_FILE_MODE)) < 0) {
		ast_log(LOG_WARNING, "Unable to open %s in write-only mode, error: %s\n", outfile, strerror(errno));
		close(ifd);
		return -1;
	}
	while ( (len = read(ifd, buf, sizeof(buf)) ) ) {
		int res;
		if (len < 0) {
			ast_log(LOG_WARNING, "Read failed on %s: %s\n", infile, strerror(errno));
			break;
		}
		/* XXX handle partial writes */
		res = write(ofd, buf, len);
		if (res != len) {
			ast_log(LOG_WARNING, "Write failed on %s (%d of %d): %s\n", outfile, res, len, strerror(errno));
			len = -1; /* error marker */
			break;
		}
	}
	close(ifd);
	close(ofd);
	if (len < 0) {
		unlink(outfile);
		return -1; /* error */
	}
	return 0;	/* success */
}

/*!
 * \internal
 * \brief Sorcery object type copy handler for \c ast_bucket_file
 */
static int bucket_file_copy_handler(const void *src, void *dst)
{
	const struct ast_bucket_file *src_file = src;
	struct ast_bucket_file *dst_file = dst;

	dst_file->scheme_impl = ao2_bump(src_file->scheme_impl);
	ast_string_field_set(dst_file, scheme, src_file->scheme);
	dst_file->created = src_file->created;
	dst_file->modified = src_file->modified;
	strcpy(dst_file->path, src_file->path); /* safe */

	dst_file->metadata = ao2_container_clone(src_file->metadata, 0);
	if (!dst_file->metadata) {
		return -1;
	}

	return 0;
}

struct ast_bucket_file *ast_bucket_file_copy(struct ast_bucket_file *file, const char *uri)
{
	RAII_VAR(struct ast_bucket_file *, copy, ast_bucket_file_alloc(uri), ao2_cleanup);

	if (!copy) {
		return NULL;
	}

	ao2_cleanup(copy->metadata);
	copy->metadata = ao2_container_clone(file->metadata, 0);
	if (!copy->metadata ||
		bucket_copy(file->path, copy->path)) {
		return NULL;
	}

	ao2_ref(copy, +1);
	return copy;
}

struct ast_bucket_file *ast_bucket_file_clone(struct ast_bucket_file *file)
{
	return ast_sorcery_copy(bucket_sorcery, file);
}

struct ast_bucket_file *ast_bucket_file_retrieve(const char *uri)
{
	if (ast_strlen_zero(uri)) {
		return NULL;
	}

	return ast_sorcery_retrieve_by_id(bucket_sorcery, "file", uri);
}

int ast_bucket_file_is_stale(struct ast_bucket_file *file)
{
	return ast_sorcery_is_stale(bucket_sorcery, file);
}

int ast_bucket_file_observer_add(const struct ast_sorcery_observer *callbacks)
{
	return ast_sorcery_observer_add(bucket_sorcery, "file", callbacks);
}

void ast_bucket_file_observer_remove(const struct ast_sorcery_observer *callbacks)
{
	ast_sorcery_observer_remove(bucket_sorcery, "file", callbacks);
}

int ast_bucket_file_update(struct ast_bucket_file *file)
{
	return ast_sorcery_update(bucket_sorcery, file);
}

int ast_bucket_file_delete(struct ast_bucket_file *file)
{
	return ast_sorcery_delete(bucket_sorcery, file);
}

struct ast_json *ast_bucket_file_json(const struct ast_bucket_file *file)
{
	RAII_VAR(struct ast_json *, json, NULL, ast_json_unref);
	struct ast_json *id, *metadata;
	struct ao2_iterator i;
	struct ast_bucket_metadata *attribute;
	int res = 0;

	json = ast_sorcery_objectset_json_create(bucket_sorcery, file);
	if (!json) {
		return NULL;
	}

	id = ast_json_string_create(ast_sorcery_object_get_id(file));
	if (!id) {
		return NULL;
	}

	if (ast_json_object_set(json, "id", id)) {
		return NULL;
	}

	metadata = ast_json_object_create();
	if (!metadata) {
		return NULL;
	}

	if (ast_json_object_set(json, "metadata", metadata)) {
		return NULL;
	}

	i = ao2_iterator_init(file->metadata, 0);
	for (; (attribute = ao2_iterator_next(&i)); ao2_ref(attribute, -1)) {
		struct ast_json *value = ast_json_string_create(attribute->value);

		if (!value || ast_json_object_set(metadata, attribute->name, value)) {
			res = -1;
			break;
		}
	}
	ao2_iterator_destroy(&i);

	if (res) {
		return NULL;
	}

	ast_json_ref(json);
	return json;
}

int ast_bucket_file_temporary_create(struct ast_bucket_file *file)
{
	int fd;

	snprintf(file->path, sizeof(file->path), "%s/bucket-XXXXXX", ast_config_AST_CACHE_DIR);

	fd = mkstemp(file->path);
	if (fd < 0) {
		return -1;
	}

	close(fd);
	return 0;
}

void ast_bucket_file_temporary_destroy(struct ast_bucket_file *file)
{
	if (!ast_strlen_zero(file->path)) {
		unlink(file->path);
	}
}

/*! \brief Hashing function for scheme container */
AO2_STRING_FIELD_HASH_FN(ast_bucket_scheme, name)

/*! \brief Comparison function for scheme container */
AO2_STRING_FIELD_CMP_FN(ast_bucket_scheme, name)

/*! \brief Cleanup function for graceful shutdowns */
static void bucket_cleanup(void)
{
	ast_sorcery_unref(bucket_sorcery);
	bucket_sorcery = NULL;

	ast_sorcery_wizard_unregister(&bucket_wizard);
	ast_sorcery_wizard_unregister(&bucket_file_wizard);

	ao2_cleanup(schemes);
}

/*! \brief Custom handler for translating from a string timeval to actual structure */
static int timeval_str2struct(const struct aco_option *opt, struct ast_variable *var, void *obj)
{
	struct timeval *field = (struct timeval *)(obj + aco_option_get_argument(opt, 0));
	return ast_get_timeval(var->value, field, ast_tv(0, 0), NULL);
}

/*! \brief Custom handler for translating from an actual structure timeval to string */
static int timeval_struct2str(const void *obj, const intptr_t *args, char **buf)
{
	struct timeval *field = (struct timeval *)(obj + args[0]);
	return (ast_asprintf(buf, "%lu.%06lu", (unsigned long)field->tv_sec, (unsigned long)field->tv_usec) < 0) ? -1 : 0;
}

/*! \brief Initialize bucket support */
int ast_bucket_init(void)
{
	ast_register_cleanup(&bucket_cleanup);

	schemes = ao2_container_alloc_hash(AO2_ALLOC_OPT_LOCK_RWLOCK, 0, SCHEME_BUCKETS,
		ast_bucket_scheme_hash_fn, NULL, ast_bucket_scheme_cmp_fn);
	if (!schemes) {
		ast_log(LOG_ERROR, "Failed to create container for Bucket schemes\n");
		return -1;
	}

	if (__ast_sorcery_wizard_register(&bucket_wizard, NULL)) {
		ast_log(LOG_ERROR, "Failed to register sorcery wizard for 'bucket' intermediary\n");
		return -1;
	}

	if (__ast_sorcery_wizard_register(&bucket_file_wizard, NULL)) {
		ast_log(LOG_ERROR, "Failed to register sorcery wizard for 'file' intermediary\n");
		return -1;
	}

	if (!(bucket_sorcery = ast_sorcery_open())) {
		ast_log(LOG_ERROR, "Failed to create sorcery instance for Bucket support\n");
		return -1;
	}

	if (ast_sorcery_apply_default(bucket_sorcery, "bucket", "bucket", NULL) == AST_SORCERY_APPLY_FAIL) {
		ast_log(LOG_ERROR, "Failed to apply intermediary for 'bucket' object type in Bucket sorcery\n");
		return -1;
	}

	if (ast_sorcery_internal_object_register(bucket_sorcery, "bucket", bucket_alloc, NULL, NULL)) {
		ast_log(LOG_ERROR, "Failed to register 'bucket' object type in Bucket sorcery\n");
		return -1;
	}

	ast_sorcery_object_field_register_nodoc(bucket_sorcery, "bucket", "scheme", "", OPT_STRINGFIELD_T, 0, STRFLDSET(struct ast_bucket, scheme));
	ast_sorcery_object_field_register_custom_nodoc(bucket_sorcery, "bucket", "created", "", timeval_str2struct, timeval_struct2str, NULL, 0, FLDSET(struct ast_bucket, created));
	ast_sorcery_object_field_register_custom_nodoc(bucket_sorcery, "bucket", "modified", "", timeval_str2struct, timeval_struct2str, NULL, 0, FLDSET(struct ast_bucket, modified));
	ast_sorcery_object_set_copy_handler(bucket_sorcery, "bucket", bucket_copy_handler);

	if (ast_sorcery_apply_default(bucket_sorcery, "file", "bucket_file", NULL) == AST_SORCERY_APPLY_FAIL) {
		ast_log(LOG_ERROR, "Failed to apply intermediary for 'file' object type in Bucket sorcery\n");
		return -1;
	}

	if (ast_sorcery_internal_object_register(bucket_sorcery, "file", bucket_file_alloc, NULL, NULL)) {
		ast_log(LOG_ERROR, "Failed to register 'file' object type in Bucket sorcery\n");
		return -1;
	}

	ast_sorcery_object_field_register_nodoc(bucket_sorcery, "file", "scheme", "", OPT_STRINGFIELD_T, 0, STRFLDSET(struct ast_bucket_file, scheme));
	ast_sorcery_object_field_register_custom_nodoc(bucket_sorcery, "file", "created", "", timeval_str2struct, timeval_struct2str, NULL, 0, FLDSET(struct ast_bucket_file, created));
	ast_sorcery_object_field_register_custom_nodoc(bucket_sorcery, "file", "modified", "", timeval_str2struct, timeval_struct2str, NULL, 0, FLDSET(struct ast_bucket_file, modified));
	ast_sorcery_object_set_copy_handler(bucket_sorcery, "file", bucket_file_copy_handler);

	return 0;
}
