#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <unistd.h>
#include <sys/file.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/mount.h>
#include <fcntl.h>
#include <errno.h>
#include <signal.h>
#include <mntent.h>
#include <libintl.h>
#include <locale.h>
#define _(String) gettext(String)

#include "metafs.h"

int metafs_interrupted;

static int lock_for_admin(struct metafs *mfs, int debug)
{
	int error;

	if (debug)
		printf(_("Trying to get admin lock..."));

	mfs->fd = open(mfs->path, O_RDONLY | O_NOFOLLOW);
	if (mfs->fd < 0)
		return -1;

	error = flock(mfs->fd, LOCK_EX);
	if (error) {
		close(mfs->fd);
		return -1;
	}
	if (debug)
		printf(_("locked.\n"));
	return 0;
}

static void sighandler(int error)
{
	metafs_interrupted = 1;
}

static void setsigs(void (*handler)(int))
{
	struct sigaction sa = {	.sa_handler = handler };

	sigaction(SIGINT, &sa, NULL);
	sigaction(SIGILL, &sa, NULL);
	sigaction(SIGTERM, &sa, NULL);
	sigaction(SIGHUP, &sa, NULL);
	sigaction(SIGABRT, &sa, NULL);
	sigaction(SIGCONT, &sa, NULL);
	sigaction(SIGUSR1, &sa, NULL);
	sigaction(SIGUSR2, &sa, NULL);
}

int mount_gfs2_meta(struct metafs *mfs, const char *path, int debug)
{
	int ret;

	mfs->path = strdup("/tmp/.gfs2meta.XXXXXX");
	if (mfs->path == NULL)
		return -1;

	if(!mkdtemp(mfs->path))
		goto err_free;

	setsigs(sighandler);

	ret = mount(path, mfs->path, "gfs2meta", 0, mfs->context);
	if (ret)
		goto err_rmdir;

	if (lock_for_admin(mfs, debug))
		goto err_umount;

	return 0;

err_umount:
	if (umount(mfs->path))
		/* Translators: the first %s here is a path, the second is an error message */
		fprintf(stderr, _("Could not unmount %s: %s\n"),
		                    mfs->path, strerror(errno));
	setsigs(SIG_DFL);
err_rmdir:
	rmdir(mfs->path);
err_free:
	free(mfs->path);
	mfs->path = NULL;
	return -1;
}

void cleanup_metafs(struct metafs *mfs)
{
	int ret;

	if (mfs->fd <= 0)
		return;

	fsync(mfs->fd);
	close(mfs->fd);
	ret = umount(mfs->path);
	if (ret)
		/* Translators: the first %s here is a path, the second is an error message */
		fprintf(stderr, "Could not unmount %s : %s\n",
			mfs->path, strerror(errno));
	else
		rmdir(mfs->path);

	setsigs(SIG_DFL);
	metafs_interrupted = 0;

	free(mfs->path);
	mfs->path = NULL;
	free(mfs->context);
	mfs->context = NULL;
}

/**
 * Returns a duplicate of the 'context' mount option, or NULL if not found.
 */
char *copy_context_opt(struct mntent *mnt)
{
	char *ctx, *end;

	ctx = hasmntopt(mnt, "context");
	if (ctx == NULL)
		return NULL;

	end = strchr(ctx, ',');
	if (end == NULL)
		return NULL;

	return strndup(ctx, end - ctx);
}