/*
**  MasqMail
**  Copyright (C) 1999-2001 Oliver Kurth
**  Copyright (C) 2008 markus schnalke <meillo@marmaro.de>
**
**  This program is free software; you can redistribute it and/or modify
**  it under the terms of the GNU General Public License as published by
**  the Free Software Foundation; either version 2 of the License, or
**  (at your option) any later version.
**
**  This program is distributed in the hope that it will be useful,
**  but WITHOUT ANY WARRANTY; without even the implied warranty of
**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
**  GNU General Public License for more details.
**
**  You should have received a copy of the GNU General Public License
**  along with this program; if not, write to the Free Software
**  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/

#include <fnmatch.h>
#include "masqmail.h"


table_pair*
create_pair(gchar *key, gpointer value)
{
	table_pair *pair;

	pair = g_malloc(sizeof(table_pair));
	pair->key = g_strdup(key);
	pair->value = value;

	return pair;
}

table_pair*
create_pair_string(gchar *key, gpointer value)
{
	table_pair *pair;

	pair = g_malloc(sizeof(table_pair));
	pair->key = g_strdup(key);
	pair->value = (gpointer) (g_strdup(value));

	return pair;
}

table_pair*
parse_table_pair(gchar *line, char delim)
{
	gchar buf[256];
	gchar *p, *q;
	table_pair *pair;

	p = line;
	q = buf;
	while (*p && (*p != delim) && q < buf + 255) {
		*(q++) = *(p++);
	}
	*q = '\0';

	pair = g_malloc(sizeof(table_pair));
	pair->key = g_strdup(g_strstrip(buf));

	if (*p) {
		p++;
		/* while(isspace(*p)) p++; */
		pair->value = (gpointer *) (g_strdup(g_strstrip(p)));
	} else {
		pair->value = (gpointer *) g_strdup("");
	}

	return pair;
}

gpointer*
table_find_func(GList *table_list, gchar *key,
		int (*cmp_func) (const char *, const char *))
{
	GList *node;

	foreach(table_list, node) {
		table_pair *pair = (table_pair *) (node->data);
		if (cmp_func(pair->key, key) == 0) {
			return pair->value;
		}
	}
	return NULL;
}

gpointer*
table_find(GList *table_list, gchar *key)
{
	return table_find_func(table_list, key, strcmp);
}

gpointer*
table_find_case(GList *table_list, gchar *key)
{
	return table_find_func(table_list, key, strcasecmp);
}

static int
fnmatch0(const char *pattern, const char *string)
{
	return fnmatch(pattern, string, 0);
}

gpointer*
table_find_fnmatch(GList *table_list, gchar *key)
{
	return table_find_func(table_list, key, fnmatch0);
}

GList*
table_read(gchar *fname, gchar delim)
{
	GList *list = NULL;
	FILE *fptr;
	gchar buf[256];

	if (!(fptr = fopen(fname, "rt"))) {
		logwrite(LOG_ALERT, "could not open table file %s: %s. Thus "
				"no aliasing will be done\n",
				fname, strerror(errno));
		return NULL;
	}

	while (fgets(buf, sizeof buf, fptr)) {
		if (!*buf || *buf == '#' || *buf == '\n') {
			continue;
		}
		table_pair *pair;
		g_strchomp(buf);
		pair = parse_table_pair(buf, delim);
		list = g_list_append(list, pair);
	}
	fclose(fptr);
	if (!list) {
		logwrite(LOG_NOTICE, "table file %s contained no entries\n",
				fname);
	}
	return list;
}

void
destroy_table(GList *table)
{
	GList *node;

	foreach(table, node) {
		table_pair *p = (table_pair *) (node->data);
		g_free(p->key);
		g_free(p->value);
		g_free(p);
	}
	g_list_free(table);
}