#include <unistd.h>
#include <fcntl.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <ctype.h>
#include <selinux/selinux.h>
#include <selinux/context.h>
#include "selinux_internal.h"

/* Process line from seusers.conf and split into its fields.
   Returns 0 on success, -1 on comments, and -2 on error. */
static int process_seusers(const char *buffer, 
			   char **luserp, 
			   char **seuserp, 
			   char **levelp,
			   int mls_enabled)
{
	char *newbuf = strdup(buffer);
	char *luser = NULL, *seuser = NULL, *level = NULL;
	char *start, *end;

	if (!newbuf)
		goto err;

	start = newbuf;
	while (isspace(*start))
		start++;
	if (*start == '#') {
		free(newbuf);
		return -1; /* Comment, skip over */
	}
	end = strchr(start, ':');
	if (!end)
		goto err;
	*end = 0;
	
	luser = strdup(start);
	if (!luser)
		goto err;

	start = end+1;
	end = strchr(start, ':');
	if (!end) {
		if (mls_enabled)
			goto err; /* no MLS level and MLS is enabled */
		/* MLS is disabled, so :level suffix not required. */
		end = start;
		while (*end && !isspace(*end))
			end++;
	}
	*end = 0;
	
	seuser = strdup(start);
	if (!seuser)
		goto err;

	if (!mls_enabled)
		goto out; /* skip any MLS level */

	start = ++end;
	while (*end && !isspace(*end))
		end++;
	*end = 0;

	level = strdup(start);
	if (!level)
		goto err;

out:
	free(newbuf);
	*luserp = luser;
	*seuserp = seuser;
	*levelp = level;
	return 0;
err:
	free(newbuf);
	free(luser);
	free(seuser);
	free(level);
	return -2; /* error */
}

int require_seusers hidden = 0;

int getseuserbyname(const char *name, char **r_seuser, char **r_level) {
	FILE *cfg=NULL;
	size_t size=0;
	char *buffer=NULL;
	int rc;
	unsigned long lineno = 0;
	int mls_enabled = is_selinux_mls_enabled();

	char *username=NULL;
        char *seuser=NULL;
        char *level=NULL;
        char *defaultseuser=NULL;
        char *defaultlevel=NULL;

	cfg = fopen(selinux_usersconf_path(), "r");
	if (!cfg) {
		if (require_seusers)
			return -1;
		/* Fall back to the Linux username and no level. */
		*r_seuser = strdup(name);
		if (!(*r_seuser))
			return -1;
		*r_level = NULL;
		return 0;
	}

	while (getline(&buffer, &size, cfg) > 0) {
		++lineno;
		rc = process_seusers(buffer, &username, &seuser, &level, mls_enabled);
		if (rc == -1)
			continue; /* comment, skip */
		if (rc == -2) {
			fprintf(stderr, "%s:  error on line %lu, skipping...\n",
				selinux_usersconf_path(), lineno);
			continue;
		}

		if (!strcmp(username, name))
			break;

		if (!defaultseuser && !strcmp(username,"default")) {
			free(username);
			defaultseuser = seuser;
			defaultlevel = level;
		} else {
			free(username);
			free(seuser);
			free(level);
		}
		seuser=NULL;
	}

	if (buffer) 
		free(buffer);
	fclose(cfg);
	if (seuser) {
		free(username);
		free(defaultseuser);
		free(defaultlevel);
		*r_seuser = seuser;
		*r_level = level;
		return 0;
	}

	if (defaultseuser) {
		*r_seuser = defaultseuser;
		*r_level = defaultlevel;
		return 0;
	}
		
	return -1;
}