meillo@0: /*  MasqMail
meillo@0:     Copyright (C) 2000-2001 Oliver Kurth
meillo@0: 
meillo@0:     This program is free software; you can redistribute it and/or modify
meillo@0:     it under the terms of the GNU General Public License as published by
meillo@0:     the Free Software Foundation; either version 2 of the License, or
meillo@0:     (at your option) any later version.
meillo@0: 
meillo@0:     This program is distributed in the hope that it will be useful,
meillo@0:     but WITHOUT ANY WARRANTY; without even the implied warranty of
meillo@0:     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
meillo@0:     GNU General Public License for more details.
meillo@0: 
meillo@0:     You should have received a copy of the GNU General Public License
meillo@0:     along with this program; if not, write to the Free Software
meillo@0:     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
meillo@0: */
meillo@0: 
meillo@0: #include "masqmail.h"
meillo@0: #include <fnmatch.h>
meillo@0: 
meillo@10: gboolean
meillo@10: addr_is_local(address * addr)
meillo@0: {
meillo@10: 	GList *dom_node;
meillo@10: 	GList *addr_node;
meillo@10: 	address *a;
meillo@0: 
meillo@10: 	foreach(conf.local_hosts, dom_node) {
meillo@10: 		if (addr->domain == NULL)
meillo@10: 			return TRUE;
meillo@10: 		if (fnmatch(dom_node->data, addr->domain, FNM_CASEFOLD) == 0) {
meillo@10: 			foreach(conf.not_local_addresses, addr_node) {
meillo@10: 				a = create_address_qualified(addr_node->data, TRUE, conf.host_name);
meillo@10: 				if (addr_isequal(a, addr)) {
meillo@10: 					destroy_address(a);
meillo@10: 					return FALSE;
meillo@10: 				}
meillo@10: 				destroy_address(a);
meillo@10: 			}
meillo@10: 			return TRUE;
meillo@10: 		}
meillo@0: 	}
meillo@10: 	foreach(conf.local_addresses, addr_node) {
meillo@10: 		a = create_address_qualified(addr_node->data, TRUE, conf.host_name);
meillo@10: 		if (addr_isequal(a, addr)) {
meillo@10: 			destroy_address(a);
meillo@10: 			return TRUE;
meillo@10: 		}
meillo@10: 		destroy_address(a);
meillo@10: 	}
meillo@10: 	return FALSE;
meillo@0: }
meillo@0: 
meillo@10: static gboolean
meillo@10: addr_isequal_alias(address * addr1, address * addr2)
meillo@0: {
meillo@10: 	return (conf.alias_local_cmp(addr1->local_part, addr2->local_part) == 0)
meillo@10: 	       && (strcasecmp(addr1->domain, addr2->domain) == 0);
meillo@0: }
meillo@0: 
meillo@10: static GList*
meillo@10: parse_list(gchar * line)
meillo@0: {
meillo@10: 	GList *list = NULL;
meillo@10: 	gchar buf[256];
meillo@10: 	gchar *p, *q;
meillo@0: 
meillo@10: 	p = line;
meillo@14: 	while (*p != '\0') {
meillo@10: 		q = buf;
meillo@10: 		while (isspace(*p))
meillo@10: 			p++;
meillo@10: 		if (*p != '\"') {
meillo@10: 			while (*p && (*p != ',') && (q < buf + 255))
meillo@10: 				*(q++) = *(p++);
meillo@14: 			*q = '\0';
meillo@10: 		} else {
meillo@10: 			gboolean escape = FALSE;
meillo@10: 			p++;
meillo@10: 			while (*p && (*p != '\"' || escape) && (q < buf + 255)) {
meillo@10: 				if ((*p == '\\') && !escape)
meillo@10: 					escape = TRUE;
meillo@10: 				else {
meillo@10: 					escape = FALSE;
meillo@10: 					*(q++) = *p;
meillo@10: 				}
meillo@10: 				p++;
meillo@10: 			}
meillo@14: 			*q = '\0';
meillo@10: 			while (*p && (*p != ','))
meillo@10: 				p++;
meillo@10: 		}
meillo@10: 		list = g_list_append(list, g_strdup(g_strchomp(buf)));
meillo@10: 		if (*p)
meillo@10: 			p++;
meillo@0: 	}
meillo@10: 	return list;
meillo@0: }
meillo@0: 
meillo@10: GList*
meillo@10: alias_expand(GList * alias_table, GList * rcpt_list, GList * non_rcpt_list)
meillo@0: {
meillo@10: 	GList *done_list = NULL;
meillo@10: 	GList *rcpt_node = g_list_copy(rcpt_list);
meillo@0: 
meillo@10: 	while (rcpt_node != NULL) {
meillo@10: 		address *addr = (address *) (rcpt_node->data);
meillo@10: 		DEBUG(5) debugf("alias_expand begin: '%s@%s'\n", addr->local_part, addr->domain);
meillo@10: 		/* if(addr_is_local(addr) && (addr->local_part[0] != '|') && */
meillo@10: 		if (addr_is_local(addr) && !(addr->flags & ADDR_FLAG_NOEXPAND)) {
meillo@10: 			gchar *val;
meillo@0: 
meillo@10: 			/* special handling for postmaster */
meillo@10: 			if (strcasecmp(addr->local_part, "postmaster") == 0)
meillo@10: 				val = (gchar *) table_find_func(alias_table, addr->local_part, strcasecmp);
meillo@10: 			else
meillo@10: 				val = (gchar *) table_find_func(alias_table, addr->local_part, conf.alias_local_cmp);
meillo@0: 
meillo@10: 			DEBUG(5) debugf("alias: '%s' is local\n", addr->local_part);
meillo@10: 			if (val != NULL) {
meillo@10: 				GList *val_list = parse_list(val);
meillo@10: 				GList *val_node;
meillo@10: 				GList *alias_list = NULL;
meillo@0: 
meillo@10: 				DEBUG(5) debugf("alias: '%s' -> '%s'\n", addr->local_part, val);
meillo@10: 				foreach(val_list, val_node) {
meillo@10: 					gchar *val = (gchar *) (val_node->data);
meillo@10: 					address *alias_addr;
meillo@10: 					address *addr_parent = NULL;
meillo@0: 
meillo@10: 					if (val[0] == '|') {
meillo@10: 						DEBUG(5) debugf("alias: %s is a pipe address\n", val);
meillo@10: 						alias_addr = create_address_pipe(val);
meillo@10: 						DEBUG(5) debugf("alias_pipe: %s is a pipe address\n", alias_addr->local_part);
meillo@10: 					} else if (val[0] == '\\') {
meillo@10: 						DEBUG(5) debugf("alias: shall not be expanded: '%s'\n", val);
meillo@10: 						alias_addr = create_address_qualified(&(val[1]), TRUE, conf.host_name);
meillo@10: 						alias_addr->flags |= ADDR_FLAG_NOEXPAND;
meillo@10: 						DEBUG(5) debugf("alias: not expanded: '%s'\n", alias_addr->local_part);
meillo@10: 					} else {
meillo@10: 						alias_addr = create_address_qualified(val, TRUE, conf.host_name);
meillo@10: 
meillo@10: 						/* search in parents for loops: */
meillo@10: 						for (addr_parent = addr; addr_parent; addr_parent = addr_parent->parent) {
meillo@10: 							if (addr_isequal_alias (alias_addr, addr_parent)) {
meillo@10: 								logwrite(LOG_ALERT,
meillo@10: 								         "detected alias loop, (ignoring): %s@%s -> %s@%s\n",
meillo@10: 								         addr_parent->local_part,
meillo@10: 								         addr_parent->domain,
meillo@10: 								         addr->local_part, addr->domain);
meillo@10: 								break;
meillo@10: 							}
meillo@10: 						}
meillo@10: 					}
meillo@10: 					if (!addr_parent) {
meillo@10: 						alias_list = g_list_append(alias_list, alias_addr);
meillo@10: 						alias_addr->parent = addr;
meillo@10: 					}
meillo@10: 					g_free(val);
meillo@10: 				}
meillo@10: 				g_list_free(val_list);
meillo@10: 				addr->children = g_list_copy(alias_list);
meillo@10: 				rcpt_node = g_list_concat(rcpt_node, alias_list);
meillo@10: 			} else {
meillo@10: 				DEBUG(5) debugf("alias: '%s' is completed\n", addr->local_part);
meillo@10: 				done_list = g_list_append(done_list, addr);
meillo@10: 			}
meillo@10: 		} else {
meillo@10: 			DEBUG(5) debugf("alias: '%s@%s' is not local\n", addr->local_part, addr->domain);
meillo@10: 			done_list = g_list_append(done_list, addr);
meillo@10: 		}
meillo@10: 		rcpt_node = g_list_next(rcpt_node);
meillo@0: 	}
meillo@0: 
meillo@10: 	/* delete addresses from done_list if they are in the non_rcpt_list */
meillo@10: 	if (non_rcpt_list) {
meillo@10: 		GList *rcpt_node_next;
meillo@10: 		for (rcpt_node = g_list_first(done_list); rcpt_node; rcpt_node = rcpt_node_next) {
meillo@10: 			address *addr = (address *) (rcpt_node->data);
meillo@10: 			GList *non_node;
meillo@0: 
meillo@10: 			rcpt_node_next = g_list_next(rcpt_node);
meillo@0: 
meillo@10: 			foreach(non_rcpt_list, non_node) {
meillo@10: 				address *non_addr = (address *) (non_node->data);
meillo@10: 				if (addr_isequal(addr, non_addr)) {
meillo@10: 					done_list = g_list_remove_link(done_list, rcpt_node);
meillo@10: 					g_list_free_1(rcpt_node);
meillo@10: 					addr_mark_delivered(addr);  /* this address is still in the children lists of the original address */
meillo@10: 					break;
meillo@10: 				}
meillo@10: 			}
meillo@10: 		}
meillo@0: 	}
meillo@10: 	return done_list;
meillo@0: }