masqmail

annotate src/alias.c @ 387:a408411ff8df

find changesets by author, revision, files, or words in the commit message
Added a glob-pattern aliasing facility. One use-case is virtual hosting another catch-all maildrops, but you may use it as a more flexible aliasing mechanism as well.
author markus schnalke <meillo@marmaro.de>
date Sat, 18 Feb 2012 12:35:12 +0100
parents 028bc124d744
children 68ae9182059c
rev   line source
meillo@367 1 /*
meillo@367 2 ** MasqMail
meillo@367 3 ** Copyright (C) 2000-2001 Oliver Kurth
meillo@367 4 ** Copyright (C) 2010 markus schnalke <meillo@marmaro.de>
meillo@367 5 **
meillo@367 6 ** This program is free software; you can redistribute it and/or modify
meillo@367 7 ** it under the terms of the GNU General Public License as published by
meillo@367 8 ** the Free Software Foundation; either version 2 of the License, or
meillo@367 9 ** (at your option) any later version.
meillo@367 10 **
meillo@367 11 ** This program is distributed in the hope that it will be useful,
meillo@367 12 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
meillo@367 13 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
meillo@367 14 ** GNU General Public License for more details.
meillo@367 15 **
meillo@367 16 ** You should have received a copy of the GNU General Public License
meillo@367 17 ** along with this program; if not, write to the Free Software
meillo@367 18 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
meillo@0 19 */
meillo@0 20
meillo@0 21 #include "masqmail.h"
meillo@0 22 #include <fnmatch.h>
meillo@0 23
meillo@10 24 gboolean
meillo@366 25 addr_is_local(address *addr)
meillo@0 26 {
meillo@10 27 GList *dom_node;
meillo@10 28 GList *addr_node;
meillo@10 29 address *a;
meillo@0 30
meillo@239 31 if (addr->domain == NULL) {
meillo@239 32 return TRUE;
meillo@239 33 }
meillo@10 34 foreach(conf.local_hosts, dom_node) {
meillo@239 35 /* Note: FNM_CASEFOLD is a GNU extension */
meillo@239 36 if (fnmatch(dom_node->data, addr->domain, FNM_CASEFOLD) != 0) {
meillo@239 37 /* no match, try next */
meillo@239 38 continue;
meillo@239 39 }
meillo@239 40 foreach(conf.not_local_addresses, addr_node) {
meillo@239 41 a = create_address_qualified(addr_node->data, TRUE, conf.host_name);
meillo@239 42 DEBUG(6) debugf("not_local_addresses: addr_node->data=%s a->address=%s\n",
meillo@239 43 addr_node->data, a->address);
meillo@244 44 if (addr_isequal(a, addr, conf.localpartcmp)) {
meillo@10 45 destroy_address(a);
meillo@239 46 /* in local_hosts but also in not_local_addresses */
meillo@239 47 return FALSE;
meillo@10 48 }
meillo@239 49 destroy_address(a);
meillo@10 50 }
meillo@239 51 /* in local_hosts */
meillo@239 52 return TRUE;
meillo@0 53 }
meillo@10 54 foreach(conf.local_addresses, addr_node) {
meillo@10 55 a = create_address_qualified(addr_node->data, TRUE, conf.host_name);
meillo@114 56 DEBUG(6) debugf("local_addresses: addr_node->data=%s a->address=%s\n",
meillo@114 57 addr_node->data, a->address);
meillo@244 58 if (addr_isequal(a, addr, conf.localpartcmp)) {
meillo@10 59 destroy_address(a);
meillo@239 60 /* in local_addresses */
meillo@10 61 return TRUE;
meillo@10 62 }
meillo@10 63 destroy_address(a);
meillo@10 64 }
meillo@10 65 return FALSE;
meillo@0 66 }
meillo@0 67
meillo@10 68 static GList*
meillo@366 69 parse_list(gchar *line)
meillo@0 70 {
meillo@10 71 GList *list = NULL;
meillo@10 72 gchar buf[256];
meillo@10 73 gchar *p, *q;
meillo@0 74
meillo@10 75 p = line;
meillo@14 76 while (*p != '\0') {
meillo@10 77 q = buf;
meillo@10 78 while (isspace(*p))
meillo@10 79 p++;
meillo@239 80 if (*p != '"') {
meillo@10 81 while (*p && (*p != ',') && (q < buf + 255))
meillo@10 82 *(q++) = *(p++);
meillo@14 83 *q = '\0';
meillo@10 84 } else {
meillo@10 85 gboolean escape = FALSE;
meillo@10 86 p++;
meillo@239 87 while (*p && (*p != '"' || escape) && (q < buf + 255)) {
meillo@10 88 if ((*p == '\\') && !escape)
meillo@10 89 escape = TRUE;
meillo@10 90 else {
meillo@10 91 escape = FALSE;
meillo@10 92 *(q++) = *p;
meillo@10 93 }
meillo@10 94 p++;
meillo@10 95 }
meillo@14 96 *q = '\0';
meillo@10 97 while (*p && (*p != ','))
meillo@10 98 p++;
meillo@10 99 }
meillo@10 100 list = g_list_append(list, g_strdup(g_strchomp(buf)));
meillo@10 101 if (*p)
meillo@10 102 p++;
meillo@0 103 }
meillo@10 104 return list;
meillo@0 105 }
meillo@0 106
meillo@387 107 static int
meillo@387 108 globaliascmp(const char *pattern, const char *addr)
meillo@387 109 {
meillo@387 110 if (conf.localpartcmp==strcasecmp) {
meillo@387 111 return fnmatch(pattern, addr, FNM_CASEFOLD);
meillo@387 112 } else if (strncasecmp(addr, "postmaster", 10)==0) {
meillo@387 113 /*
meillo@387 114 ** postmaster must always be matched caseless
meillo@387 115 ** see RFC 822 and RFC 5321
meillo@387 116 */
meillo@387 117 return fnmatch(pattern, addr, FNM_CASEFOLD);
meillo@387 118 } else {
meillo@387 119 /* case-sensitive */
meillo@387 120 return fnmatch(pattern, addr, 0);
meillo@387 121 }
meillo@387 122 }
meillo@387 123
meillo@239 124 /*
meillo@367 125 ** addr is assumed to be local and no pipe address nor not-to-expand
meillo@239 126 */
meillo@239 127 static GList*
meillo@387 128 expand_one(GList *alias_table, address *addr, int doglob)
meillo@239 129 {
meillo@239 130 GList *val_list;
meillo@239 131 GList *val_node;
meillo@239 132 GList *alias_list = NULL;
meillo@239 133 GList *alias_node;
meillo@239 134 gchar *val;
meillo@239 135
meillo@239 136 /* expand the local alias */
meillo@387 137 DEBUG(6) debugf("alias: '%s' is local and will get expanded\n",
meillo@387 138 doglob ? addr->address : addr->local_part);
meillo@239 139
meillo@387 140 if (doglob) {
meillo@387 141 val = (gchar *) table_find_func(alias_table, addr->address,
meillo@387 142 globaliascmp);
meillo@387 143
meillo@387 144 } else if (strcasecmp(addr->local_part, "postmaster") == 0) {
meillo@367 145 /*
meillo@367 146 ** postmaster must always be matched caseless
meillo@367 147 ** see RFC 822 and RFC 5321
meillo@367 148 */
meillo@387 149 val = (gchar *) table_find_func(alias_table, addr->local_part,
meillo@387 150 strcasecmp);
meillo@239 151 } else {
meillo@387 152 val = (gchar *) table_find_func(alias_table, addr->local_part,
meillo@387 153 conf.localpartcmp);
meillo@239 154 }
meillo@239 155 if (!val) {
meillo@387 156 DEBUG(5) debugf("alias: '%s' is fully expanded, hence "
meillo@387 157 "completed\n",
meillo@387 158 doglob ? addr->address : addr->local_part);
meillo@239 159 return g_list_append(NULL, addr);
meillo@239 160 }
meillo@239 161
meillo@387 162 DEBUG(5) debugf("alias: '%s' -> '%s'\n",
meillo@387 163 doglob ? addr->address : addr->local_part, val);
meillo@239 164 val_list = parse_list(val);
meillo@239 165 alias_list = NULL;
meillo@239 166
meillo@239 167 foreach(val_list, val_node) {
meillo@239 168 gchar *val = (gchar *) (val_node->data);
meillo@239 169 address *alias_addr;
meillo@239 170
meillo@239 171 DEBUG(6) debugf("alias: processing '%s'\n", val);
meillo@239 172
meillo@239 173 if (val[0] == '\\') {
meillo@239 174 DEBUG(5) debugf("alias: '%s' is marked as final, hence completed\n", val);
meillo@239 175 alias_addr = create_address_qualified(val+1, TRUE, conf.host_name);
meillo@239 176 g_free(val);
meillo@239 177 DEBUG(6) debugf("alias: address generated: '%s'\n",
meillo@387 178 alias_addr->address);
meillo@239 179 alias_list = g_list_append(alias_list, alias_addr);
meillo@239 180 continue;
meillo@239 181 }
meillo@239 182
meillo@239 183 if (val[0] == '|') {
meillo@239 184 DEBUG(5) debugf("alias: '%s' is a pipe address\n", val);
meillo@309 185 alias_addr = create_address_pipe(val);
meillo@239 186 g_free(val);
meillo@239 187 DEBUG(6) debugf("alias: pipe generated: %s\n",
meillo@239 188 alias_addr->local_part);
meillo@239 189 alias_list = g_list_append(alias_list, alias_addr);
meillo@239 190 continue;
meillo@239 191 }
meillo@239 192
meillo@239 193 alias_addr = create_address_qualified(val, TRUE, conf.host_name);
meillo@239 194 g_free(val);
meillo@239 195
meillo@239 196 if (!addr_is_local(alias_addr)) {
meillo@387 197 DEBUG(5) debugf("alias: '%s' is non-local, hence completed\n",
meillo@387 198 alias_addr->address);
meillo@239 199 alias_list = g_list_append(alias_list, alias_addr);
meillo@239 200 continue;
meillo@239 201 }
meillo@239 202
meillo@242 203 /* addr is local and to expand at this point */
meillo@242 204 /* but first ... search in parents for loops: */
meillo@244 205 if (addr_isequal_parent(addr, alias_addr, conf.localpartcmp)) {
meillo@239 206 /* loop detected, ignore this path */
meillo@242 207 logwrite(LOG_ALERT, "alias: detected loop, hence ignoring '%s'\n",
meillo@242 208 alias_addr->local_part);
meillo@239 209 continue;
meillo@239 210 }
meillo@239 211 alias_addr->parent = addr;
meillo@239 212
meillo@239 213 /* recurse */
meillo@239 214 DEBUG(6) debugf("alias: >>\n");
meillo@387 215 alias_node = expand_one(alias_table, alias_addr, doglob);
meillo@239 216 DEBUG(6) debugf("alias: <<\n");
meillo@239 217 if (alias_node) {
meillo@239 218 alias_list = g_list_concat(alias_list, alias_node);
meillo@239 219 }
meillo@239 220 }
meillo@239 221 g_list_free(val_list);
meillo@239 222 addr->children = g_list_copy(alias_list);
meillo@239 223
meillo@239 224 return alias_list;
meillo@239 225 }
meillo@239 226
meillo@10 227 GList*
meillo@387 228 alias_expand(GList *alias_table, GList *rcpt_list, GList *non_rcpt_list,
meillo@387 229 int doglob)
meillo@0 230 {
meillo@239 231 GList *rcpt_node = NULL;
meillo@239 232 GList *alias_list = NULL;
meillo@10 233 GList *done_list = NULL;
meillo@239 234 GList *rcpt_node_next = NULL;
meillo@239 235 address *addr = NULL;
meillo@0 236
meillo@239 237 for (rcpt_node=g_list_copy(rcpt_list);
meillo@239 238 rcpt_node;
meillo@239 239 rcpt_node=g_list_next(rcpt_node)) {
meillo@0 240
meillo@239 241 addr = (address *) (rcpt_node->data);
meillo@239 242 if (addr_is_local(addr)) {
meillo@239 243 DEBUG(5) debugf("alias: (orig rcpt addr) expand local '%s'\n",
meillo@387 244 doglob ? addr->address : addr->local_part);
meillo@387 245 alias_list = expand_one(alias_table, addr, doglob);
meillo@239 246 if (alias_list) {
meillo@239 247 done_list = g_list_concat(done_list, alias_list);
meillo@10 248 }
meillo@10 249 } else {
meillo@387 250 DEBUG(5) debugf("alias: (orig rcpt addr) don't expand non-local '%s'\n",
meillo@387 251 addr->address);
meillo@10 252 done_list = g_list_append(done_list, addr);
meillo@10 253 }
meillo@0 254 }
meillo@0 255
meillo@239 256 /* we're done if we don't have to remove rcpts */
meillo@239 257 if (!non_rcpt_list) {
meillo@239 258 return done_list;
meillo@239 259 }
meillo@0 260
meillo@239 261 /* delete addresses of non_rcpt_list from done_list */
meillo@239 262 for (rcpt_node = g_list_first(done_list); rcpt_node; rcpt_node = rcpt_node_next) {
meillo@239 263 address *addr = (address *) (rcpt_node->data);
meillo@239 264 GList *non_node;
meillo@0 265
meillo@239 266 rcpt_node_next = g_list_next(rcpt_node);
meillo@239 267 foreach(non_rcpt_list, non_node) {
meillo@239 268 address *non_addr = (address *) (non_node->data);
meillo@244 269 if (addr_isequal(addr, non_addr, conf.localpartcmp)) {
meillo@239 270 done_list = g_list_remove_link(done_list, rcpt_node);
meillo@239 271 g_list_free_1(rcpt_node);
meillo@367 272 /*
meillo@367 273 ** this address is still in the children
meillo@367 274 ** lists of the original address, simply
meillo@367 275 ** mark them delivered
meillo@367 276 */
meillo@239 277 addr_mark_delivered(addr);
meillo@239 278 break;
meillo@10 279 }
meillo@10 280 }
meillo@0 281 }
meillo@10 282 return done_list;
meillo@0 283 }