/*  MasqMail
    Copyright (C) 1999-2001 Oliver Kurth

    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 "masqmail.h"
#include <fnmatch.h>

address*
create_address(gchar * path, gboolean is_rfc821)
{
	address *addr;
	addr = _create_address(path, NULL, is_rfc821);

	if (addr != NULL) {
		addr_unmark_delivered(addr);
	}
	return addr;
}

address*
create_address_qualified(gchar * path, gboolean is_rfc821, gchar * domain)
{
	address *addr = create_address(path, is_rfc821);

	if (addr != NULL && addr->domain == NULL) {
			addr->domain = g_strdup(domain);
	}
	return addr;
}

/* nothing special about pipes here, but its only called for that purpose */
address*
create_address_pipe(gchar * path)
{
	address *addr = g_malloc(sizeof(address));

	if (addr) {
		memset(addr, 0, sizeof(address));
		addr->address = g_strchomp(g_strdup(path));
		addr->local_part = g_strdup(addr->address);

		addr->domain = g_strdup("localhost");  /* quick hack */
	}
	return addr;
}

void
destroy_address(address * addr)
{
	DEBUG(6) debugf("destroy_address entered\n");

	g_free(addr->address);
	g_free(addr->local_part);
	g_free(addr->domain);

	g_free(addr);
}

address*
copy_modify_address(const address * orig, gchar * l_part, gchar * dom)
{
	address *addr = NULL;

	if (!orig) {
		return NULL;
	}

	if ((addr = g_malloc(sizeof(address))) == NULL) {
		return NULL;
	}

	addr->address = g_strdup(orig->address);

	if (l_part == NULL)
		addr->local_part = g_strdup(orig->local_part);
	else
		addr->local_part = g_strdup(l_part);

	if (dom == NULL)
		addr->domain = g_strdup(orig->domain);
	else
		addr->domain = g_strdup(dom);

	addr->flags = 0;
	addr->children = NULL;
	addr->parent = NULL;
	return addr;
}

gboolean
addr_isequal(address * addr1, address * addr2, int (*cmpfunc) (const char*, const char*))
{
	return (cmpfunc(addr1->local_part, addr2->local_part) == 0)
	       && (strcasecmp(addr1->domain, addr2->domain) == 0);
}

/* searches in ancestors of addr1 */
gboolean
addr_isequal_parent(address* addr1, address* addr2, int (*cmpfunc) (const char*, const char*))
{
	address *addr;

	for (addr = addr1; addr; addr = addr->parent)
		if (addr_isequal(addr, addr2, cmpfunc))
			return TRUE;

	return FALSE;
}

/* careful, this is recursive */
/* returns TRUE if ALL children have been delivered */
gboolean
addr_is_delivered_children(address * addr)
{
	GList *addr_node;

	if (addr->children == NULL)
		return addr_is_delivered(addr);

	foreach(addr->children, addr_node) {
		address *addr = (address *) (addr_node->data);
		if (!addr_is_delivered_children(addr))
			return FALSE;
	}
	return TRUE;
}

/* careful, this is recursive */
/* returns TRUE if ALL children have been either delivered or have failed */
gboolean
addr_is_finished_children(address * addr)
{
	GList *addr_node;

	if (addr->children == NULL)
		return (addr_is_failed(addr) || addr_is_delivered(addr));

	foreach(addr->children, addr_node) {
		address *addr = (address *) (addr_node->data);
		if (!addr_is_finished_children(addr))
			return FALSE;
	}
	return TRUE;
}

/* find original address */
address*
addr_find_ancestor(address * addr)
{
	while (addr->parent)
		addr = addr->parent;
	return addr;
}

gchar*
addr_string(address * addr)
{
	static gchar *buffer = NULL;

	if (addr == NULL) {
		g_free(buffer);
		buffer = NULL;
		return NULL;
	}
	if (buffer)
		g_free(buffer);

	if (addr->local_part[0] == '\0') {
		buffer = g_strdup("<>");
	} else {
		buffer = g_strdup_printf("<%s@%s>", addr->local_part ? addr->local_part : "", addr->domain ? addr->domain : "");
	}
	return buffer;
}

gint
addr_match(address * addr1, address * addr2)
{
	int res;

	if ((res = fnmatch(addr1->local_part, addr2->local_part, 0)) == 0) {
		if ((res = fnmatch(addr1->domain, addr2->domain, FNM_CASEFOLD)) == 0)
			return 0;
	}
	return res;
}