masqmail

view src/route.c @ 356:f4ba4ed28848

removed DLVR_LAN which is now unused
author markus schnalke <meillo@marmaro.de>
date Sun, 04 Sep 2011 11:40:35 +0200
parents 257ffce6c1cd
children 41958685480d
line source
1 /* MasqMail
2 Copyright (C) 1999-2001 Oliver Kurth
3 Copyright (C) 2010 markus schnalke <meillo@marmaro.de>
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18 */
20 #include <fnmatch.h>
22 #include "masqmail.h"
24 msgout_perhost*
25 create_msgout_perhost(gchar * host)
26 {
27 msgout_perhost *mo_ph = g_malloc(sizeof(msgout_perhost));
28 if (mo_ph) {
29 mo_ph->host = g_strdup(host);
30 mo_ph->msgout_list = NULL;
31 }
32 return mo_ph;
33 }
35 void
36 destroy_msgout_perhost(msgout_perhost * mo_ph)
37 {
38 GList *mo_node;
40 foreach(mo_ph->msgout_list, mo_node) {
41 msg_out *mo = (msg_out *) (mo_node->data);
42 /* the rcpt_list is owned by the msgout's, but not the rcpt's themselves */
43 g_list_free(mo->rcpt_list);
44 g_free(mo);
45 }
46 g_list_free(mo_ph->msgout_list);
47 g_free(mo_ph);
48 }
50 void
51 rewrite_headers(msg_out * msgout, connect_route * route)
52 {
53 /* if set_h_from_domain is set, replace domain in all
54 From: headers.
55 */
56 msgout->hdr_list = g_list_copy(msgout->msg->hdr_list);
58 /* map from addresses */
59 if (route->map_h_from_addresses != NULL) {
60 GList *hdr_node;
61 foreach(msgout->hdr_list, hdr_node) {
62 header *hdr = (header *) (hdr_node->data);
63 if (hdr->id == HEAD_FROM) {
64 header *new_hdr = copy_header(hdr);
65 if (map_address_header(new_hdr, route->map_h_from_addresses)) {
66 hdr_node->data = new_hdr;
67 /* we need this list only to carefully free the extra headers: */
68 msgout->xtra_hdr_list = g_list_append(msgout->xtra_hdr_list, new_hdr);
69 } else
70 g_free(new_hdr);
71 }
72 }
73 } else {
74 /* replace from domain */
75 if (route->set_h_from_domain != NULL) {
76 GList *hdr_node;
78 foreach(msgout->hdr_list, hdr_node) {
79 header *hdr = (header *) (hdr_node->data);
80 if (hdr->id == HEAD_FROM) {
81 header *new_hdr = copy_header(hdr);
83 DEBUG(5) debugf("setting From: domain to %s\n", route->set_h_from_domain);
84 if (set_address_header_domain(new_hdr, route->set_h_from_domain)) {
85 hdr_node->data = new_hdr;
86 /* we need this list only to carefully free the extra headers: */
87 DEBUG(6) debugf("header = %s\n", new_hdr->header);
88 msgout->xtra_hdr_list = g_list_append(msgout->xtra_hdr_list, new_hdr);
89 } else {
90 logwrite(LOG_ALERT, "error in set_address_header_domain(%s, %s)\n",
91 new_hdr->value, route->set_h_from_domain);
92 }
93 }
94 }
95 }
96 }
98 /* map reply-to addresses */
99 if (route->map_h_reply_to_addresses != NULL) {
100 GList *hdr_node;
101 foreach(msgout->hdr_list, hdr_node) {
102 header *hdr = (header *) (hdr_node->data);
103 if (hdr->id == HEAD_REPLY_TO) {
104 header *new_hdr = copy_header(hdr);
105 if (map_address_header
106 (new_hdr, route->map_h_reply_to_addresses)) {
107 hdr_node->data = new_hdr;
108 /* we need this list only to carefully free the extra headers: */
109 msgout->xtra_hdr_list = g_list_append(msgout->xtra_hdr_list, new_hdr);
110 } else
111 g_free(new_hdr);
112 }
113 }
114 } else {
115 /* replace Reply-to domain */
116 if (route->set_h_reply_to_domain != NULL) {
117 GList *hdr_node;
119 foreach(msgout->hdr_list, hdr_node) {
120 header *hdr = (header *) (hdr_node->data);
121 if (hdr->id == HEAD_REPLY_TO) {
122 header *new_hdr = copy_header(hdr);
124 set_address_header_domain(new_hdr, route-> set_h_reply_to_domain);
125 hdr_node->data = new_hdr;
126 /* we need this list only to carefully free the extra headers: */
127 msgout->xtra_hdr_list = g_list_append(msgout->xtra_hdr_list, new_hdr);
128 }
129 }
130 }
131 }
133 /* map Mail-Followup-To addresses */
134 if (route->map_h_mail_followup_to_addresses != NULL) {
135 GList *hdr_node;
136 foreach(msgout->hdr_list, hdr_node) {
137 header *hdr = (header *) (hdr_node->data);
138 if (strncasecmp(hdr->header, "Mail-Followup-To", 16) == 0) {
139 header *new_hdr = copy_header(hdr);
140 if (map_address_header(new_hdr, route->map_h_mail_followup_to_addresses)) {
141 hdr_node->data = new_hdr;
142 /* we need this list only to carefully free the extra headers: */
143 msgout->xtra_hdr_list = g_list_append(msgout->xtra_hdr_list, new_hdr);
144 } else
145 g_free(new_hdr);
146 }
147 }
148 }
150 /* set Sender: domain to return_path->domain */
151 if (route->expand_h_sender_domain) {
152 GList *hdr_node;
154 foreach(msgout->hdr_list, hdr_node) {
155 header *hdr = (header *) (hdr_node->data);
156 if (hdr->id == HEAD_SENDER) {
157 header *new_hdr = copy_header(hdr);
159 set_address_header_domain(new_hdr, msgout->return_path->domain);
160 hdr_node->data = new_hdr;
161 /* we need this list only to carefully free the extra headers: */
162 msgout->xtra_hdr_list = g_list_append(msgout->xtra_hdr_list, new_hdr);
163 }
164 }
165 }
167 /* set Sender: domain to return_path->domain */
168 if (route->expand_h_sender_address) {
169 GList *hdr_node;
171 foreach(msgout->hdr_list, hdr_node) {
172 header *hdr = (header *) (hdr_node->data);
173 if (hdr->id == HEAD_SENDER) {
174 header *new_hdr;
176 new_hdr = create_header(HEAD_SENDER, "Sender: %s@%s\n",
177 msgout->return_path->local_part, msgout->return_path->domain);
178 hdr_node->data = new_hdr;
179 /* we need this list only to carefully free the extra headers: */
180 msgout->xtra_hdr_list = g_list_append(msgout->xtra_hdr_list, new_hdr);
181 }
182 }
183 }
185 if (msgout->xtra_hdr_list == NULL) {
186 /* nothing was changed */
187 g_list_free(msgout->hdr_list);
188 msgout->hdr_list = NULL;
189 }
190 DEBUG(5) debugf("rewrite_headers() returning\n");
191 }
193 /*
194 Split a recipient list into the three groups:
195 - local recipients
196 - those maching the patterns
197 - those not matching the patterns
198 If patterns is NULL: only splitting between local and others is done.
199 */
200 void
201 split_rcpts(GList* rcpt_list, GList* patterns, GList** rl_local, GList** rl_matching, GList** rl_others)
202 {
203 GList *rcpt_node;
204 GList *host_node = NULL;
205 address *rcpt = NULL;
207 if (rcpt_list == NULL)
208 return;
210 foreach(rcpt_list, rcpt_node) {
211 rcpt = (address *) (rcpt_node->data);
212 host_node = NULL;
214 if (addr_is_local(rcpt)) {
215 if (rl_local)
216 *rl_local = g_list_append(*rl_local, rcpt);
217 } else {
218 /* if patterns is NULL, host_node will be NULL,
219 hence all non-locals are put to others */
220 foreach(patterns, host_node) {
221 gchar *host = (gchar *) (host_node->data);
222 if (fnmatch(host, rcpt->domain, FNM_CASEFOLD) == 0)
223 break;
224 }
225 if (host_node) {
226 if (rl_matching)
227 *rl_matching = g_list_append(*rl_matching, rcpt);
228 } else {
229 if (rl_others)
230 *rl_others = g_list_append(*rl_others, rcpt);
231 }
232 }
233 }
234 }
236 /*
237 Return a new list of the local rcpts in the rcpt_list
238 TODO: This function is almost exactly the same as remote_rcpts(). Merge?
239 */
240 GList*
241 local_rcpts(GList* rcpt_list)
242 {
243 GList *rcpt_node;
244 GList *local_rcpts = NULL;
245 address *rcpt = NULL;
247 if (!rcpt_list) {
248 return NULL;
249 }
250 foreach(rcpt_list, rcpt_node) {
251 rcpt = (address *) (rcpt_node->data);
252 if (addr_is_local(rcpt)) {
253 local_rcpts = g_list_append(local_rcpts, rcpt);
254 }
255 }
256 return local_rcpts;
257 }
259 /*
260 Return a new list of non-local rcpts in the rcpt_list
261 TODO: This function is almost exactly the same as local_rcpts(). Merge?
262 */
263 GList*
264 remote_rcpts(GList* rcpt_list)
265 {
266 GList *rcpt_node;
267 GList *remote_rcpts = NULL;
268 address *rcpt = NULL;
270 if (!rcpt_list) {
271 return NULL;
272 }
273 foreach(rcpt_list, rcpt_node) {
274 rcpt = (address *) (rcpt_node->data);
275 if (!addr_is_local(rcpt)) {
276 remote_rcpts = g_list_append(remote_rcpts, rcpt);
277 }
278 }
279 return remote_rcpts;
280 }
282 static gint
283 _g_list_addrcmp(gconstpointer pattern, gconstpointer addr)
284 {
285 int res;
286 address* patternaddr = (address*) pattern;
287 address* stringaddr = (address*) addr;
289 DEBUG(6) debugf("_g_list_addrcmp: pattern `%s' `%s' on string `%s' `%s'\n",
290 patternaddr->local_part, patternaddr->domain,
291 stringaddr->local_part, stringaddr->domain);
292 /* TODO: check if we should match here dependent on caseless_matching */
293 res = fnmatch(patternaddr->local_part, stringaddr->local_part, 0);
294 if (res != 0) {
295 DEBUG(6) debugf("_g_list_addrcmp: ... failed on local_part\n");
296 return res;
297 }
298 res = fnmatch(patternaddr->domain, stringaddr->domain, FNM_CASEFOLD);
299 DEBUG(6) debugf("_g_list_addrcmp: ... %s\n", (res==0) ? "matched" : "failed on domain");
300 return res;
301 }
303 gboolean
304 route_sender_is_allowed(connect_route * route, address * ret_path)
305 {
306 if (route->denied_senders && g_list_find_custom(route->denied_senders, ret_path, _g_list_addrcmp)) {
307 return FALSE;
308 }
309 if (route->allowed_senders) {
310 if (g_list_find_custom(route->allowed_senders, ret_path, _g_list_addrcmp)) {
311 return TRUE;
312 } else {
313 return FALSE;
314 }
315 }
316 return TRUE;
317 }
319 /*
320 Make lists of matching/not matching rcpts.
321 Local domains are NOT regared here, these should be sorted out previously
322 */
323 void
324 route_split_rcpts(connect_route * route, GList * rcpt_list, GList ** p_rcpt_list, GList ** p_non_rcpt_list)
325 {
326 GList *tmp_list = NULL;
327 /* sort out those domains that can be sent over this connection: */
328 if (route->allowed_recipients) {
329 DEBUG(5) debugf("testing for route->allowed_recipients\n");
330 split_rcpts(rcpt_list, route->allowed_recipients, NULL, &tmp_list, p_non_rcpt_list);
331 } else {
332 DEBUG(5) debugf("route->allowed_recipients == NULL\n");
333 tmp_list = g_list_copy(rcpt_list);
334 }
336 /* sort out those domains that cannot be sent over this connection: */
337 split_rcpts(tmp_list, route->denied_recipients, NULL, p_non_rcpt_list, p_rcpt_list);
338 g_list_free(tmp_list);
339 }
341 msg_out*
342 route_prepare_msgout(connect_route * route, msg_out * msgout)
343 {
344 message *msg = msgout->msg;
345 GList *rcpt_list = msgout->rcpt_list;
347 if (rcpt_list != NULL) {
348 /* found a few */
349 DEBUG(5) {
350 GList *node;
351 debugf("rcpts for routed delivery, route = %s, id = %s\n", route->name, msg->uid);
352 foreach(rcpt_list, node) {
353 address *rcpt = (address *) (node->data);
354 debugf(" rcpt for routed delivery: <%s@%s>\n",
355 rcpt->local_part, rcpt->domain);
356 }
357 }
359 /* rewrite return path if there is a table, use that
360 if an address is found and if it has a domain, use that
361 */
362 if (route->map_return_path_addresses) {
363 address *ret_path = NULL;
364 DEBUG(5) debugf("looking up %s in map_return_path_addresses\n", msg->return_path->local_part);
365 ret_path = (address *) table_find_fnmatch(route->map_return_path_addresses, msg->return_path->local_part);
366 if (ret_path) {
367 DEBUG(5) debugf("found <%s@%s>\n", ret_path->local_part, ret_path->domain);
368 if (ret_path->domain == NULL)
369 ret_path->domain = route->set_return_path_domain
370 ? route->set_return_path_domain
371 : msg->return_path->domain;
372 msgout->return_path = copy_address(ret_path);
373 }
374 }
375 if (msgout->return_path == NULL) {
376 DEBUG(5) debugf("setting return path to %s\n", route->set_return_path_domain);
377 msgout->return_path = copy_modify_address(msg->return_path, NULL, route->set_return_path_domain);
378 }
379 rewrite_headers(msgout, route);
381 return msgout;
382 }
383 return NULL;
384 }
386 /* put msgout's is msgout_list into bins (msgout_perhost structs) for each
387 host. Used if there is no mail_host.
388 route param is not used, we leave it here because that may change.
389 */
391 GList*
392 route_msgout_list(connect_route * route, GList * msgout_list)
393 {
394 GList *mo_ph_list = NULL;
395 GList *msgout_node;
397 foreach(msgout_list, msgout_node) {
398 msg_out *msgout = (msg_out *) (msgout_node->data);
399 msg_out *msgout_new;
400 GList *rcpt_list = msgout->rcpt_list;
401 GList *rcpt_node;
403 foreach(rcpt_list, rcpt_node) {
404 address *rcpt = rcpt_node->data;
405 msgout_perhost *mo_ph = NULL;
406 GList *mo_ph_node = NULL;
408 /* search host in mo_ph_list */
409 foreach(mo_ph_list, mo_ph_node) {
410 mo_ph = (msgout_perhost *) (mo_ph_node->data);
411 if (strcasecmp(mo_ph->host, rcpt->domain) == 0)
412 break;
413 }
414 if (mo_ph_node != NULL) {
415 /* there is already a rcpt for this host */
416 msg_out *msgout_last = (msg_out *) ((g_list_last(mo_ph->msgout_list))->data);
417 if (msgout_last->msg == msgout->msg) {
418 /* if it is also the same message, it must be the last one appended
419 to mo_ph->msgout_list (since outer loop goes through msgout_list) */
420 msgout_last->rcpt_list = g_list_append(msgout_last->rcpt_list, rcpt);
421 } else {
422 /* if not, we append a new msgout */
423 /* make a copy of msgout */
424 msgout_new = create_msg_out(msgout->msg);
425 msgout_new->return_path = msgout->return_path;
426 msgout_new->hdr_list = msgout->hdr_list;
428 /* append our rcpt to it */
429 /* It is the 1st rcpt for this msg to this host, therefore we safely give NULL */
430 msgout_new->rcpt_list = g_list_append(NULL, rcpt);
431 mo_ph->msgout_list = g_list_append(mo_ph->msgout_list, msgout_new);
432 }
433 } else {
434 /* this rcpt to goes to another host */
435 mo_ph = create_msgout_perhost(rcpt->domain);
436 mo_ph_list = g_list_append(mo_ph_list, mo_ph);
438 /* make a copy of msgout */
439 msgout_new = create_msg_out(msgout->msg);
440 msgout_new->return_path = msgout->return_path;
441 msgout_new->hdr_list = msgout->hdr_list;
443 /* append our rcpt to it */
444 /* It is the 1st rcpt for this msg to this host, therefore we safely give NULL */
445 msgout_new->rcpt_list = g_list_append(NULL, rcpt);
446 mo_ph->msgout_list = g_list_append(mo_ph->msgout_list, msgout_new);
447 } /* if mo_ph != NULL */
448 } /* foreach(rcpt_list, ... */
449 } /* foreach(msgout_list, ... */
451 return mo_ph_list;
452 }