masqmail-0.2

view src/spool.c @ 5:3cafdebd1479

removed remaining reference to docs in Makefile
author meillo@marmaro.de
date Fri, 26 Sep 2008 22:15:26 +0200
parents
children 26e34ae9a3e3
line source
1 /* MasqMail
2 Copyright (C) 1999-2001 Oliver Kurth
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 */
19 #include "masqmail.h"
20 #include <sys/stat.h>
21 #include "dotlock.h"
23 static
24 gint read_line(FILE *in, gchar *buf, gint buf_len)
25 {
26 gint p = 0;
27 gint c;
29 while((c = getc(in)) != '\n' && (c != EOF)){
30 if(p >= buf_len-1) { return 0; }
31 buf[p++] = c;
32 }
34 if(c == EOF){
35 return -1;
36 }
37 if((p > 0) && (buf[p-1] == '\r'))
38 p--;
39 buf[p++] = '\n';
40 buf[p] = 0;
42 return p;
43 }
45 static
46 void spool_write_rcpt(FILE *out, address *rcpt)
47 {
48 gchar dlvrd_char = addr_is_delivered(rcpt) ? 'X' : (addr_is_failed(rcpt) ? 'F' : ' ');
50 if(rcpt->local_part[0] != '|'){
51 /* this is a paranoid check, in case it slipped through: */
52 /* if this happens, it is a bug */
53 if(rcpt->domain == NULL){
54 logwrite(LOG_WARNING, "BUG: null domain for address %s, setting to %s\n",
55 rcpt->local_part, conf.host_name);
56 logwrite(LOG_WARNING, "please report this bug.\n");
57 rcpt->domain = g_strdup(conf.host_name);
58 }
59 fprintf(out, "RT:%c%s\n", dlvrd_char, addr_string(rcpt));
60 }else{
61 fprintf(out, "RT:%c%s\n", dlvrd_char, rcpt->local_part);
62 }
63 }
65 static
66 address *spool_scan_rcpt(gchar *line)
67 {
68 address *rcpt = NULL;
70 if(line[3] != 0){
71 if(line[4] != '|'){
72 rcpt = create_address(&(line[4]), TRUE);
73 }else{
74 rcpt = create_address_pipe(&(line[4]));
75 }
76 if(line[3] == 'X'){
77 addr_mark_delivered(rcpt);
78 }else if(line[3] == 'F'){
79 addr_mark_failed(rcpt);
80 }
81 }
82 return rcpt;
83 }
85 gboolean spool_read_data(message *msg)
86 {
87 FILE *in;
88 gboolean ok = FALSE;
89 gchar *spool_file;
91 DEBUG(5) debugf("spool_read_data entered\n");
92 spool_file = g_strdup_printf("%s/input/%s-D", conf.spool_dir, msg->uid);
93 DEBUG(5) debugf("reading data spool file '%s'\n", spool_file);
94 if((in = fopen(spool_file, "r"))){
95 char buf[MAX_DATALINE];
96 int len;
98 /* msg uid */
99 read_line(in, buf, MAX_DATALINE);
101 /* data */
102 msg->data_list = NULL;
103 while((len = read_line(in, buf, MAX_DATALINE)) > 0){
104 msg->data_list = g_list_prepend(msg->data_list, g_strdup(buf));
105 }
106 msg->data_list = g_list_reverse(msg->data_list);
107 fclose(in);
108 ok = TRUE;
109 }else
110 logwrite(LOG_ALERT, "could not open spool data file %s: %s\n",
111 spool_file, strerror(errno));
112 return ok;
113 }
115 gboolean spool_read_header(message *msg)
116 {
117 FILE *in;
118 gboolean ok = FALSE;
119 gchar *spool_file;
121 /* header spool: */
122 spool_file = g_strdup_printf("%s/input/%s-H", conf.spool_dir, msg->uid);
123 if((in = fopen(spool_file, "r"))){
124 header *hdr = NULL;
125 char buf[MAX_DATALINE];
126 int len;
128 /* msg uid */
129 read_line(in, buf, MAX_DATALINE);
131 /* envelope header */
132 while((len = read_line(in, buf, MAX_DATALINE)) > 0){
133 if(buf[0] == '\n')
134 break;
135 else if(strncasecmp(buf, "MF:", 3) == 0){
136 msg->return_path = create_address(&(buf[3]), TRUE);
137 DEBUG(3) debugf("spool_read: MAIL FROM: %s",
138 msg->return_path->address);
139 }else if(strncasecmp(buf, "RT:", 3) == 0){
140 address *addr;
141 addr = spool_scan_rcpt(buf);
142 if(!addr_is_delivered(addr) && !addr_is_failed(addr)){
143 msg->rcpt_list = g_list_append(msg->rcpt_list, addr);
144 }else{
145 msg->non_rcpt_list = g_list_append(msg->non_rcpt_list, addr);
146 }
147 }else if(strncasecmp(buf, "PR:", 3) == 0){
148 prot_id i;
149 for(i = 0; i < PROT_NUM; i++){
150 if(strncasecmp(prot_names[i], &(buf[3]),
151 strlen(prot_names[i])) == 0){
152 break;
153 }
154 }
155 msg->received_prot = i;
156 }else if(strncasecmp(buf, "RH:", 3) == 0){
157 g_strchomp(buf);
158 msg->received_host = g_strdup(&(buf[3]));
159 }else if(strncasecmp(buf, "ID:", 3) == 0){
160 g_strchomp(buf);
161 msg->ident = g_strdup(&(buf[3]));
162 }else if(strncasecmp(buf, "DS:", 3) == 0){
163 msg->data_size = atoi(&(buf[3]));
164 }else if(strncasecmp(buf, "TR:", 3) == 0){
165 msg->received_time = (time_t)(atoi(&(buf[3])));
166 }else if(strncasecmp(buf, "TW:", 3) == 0){
167 msg->warned_time = (time_t)(atoi(&(buf[3])));
168 }
169 /* so far ignore other tags */
170 }
172 /* mail headers */
173 while((len = read_line(in, buf, MAX_DATALINE)) > 0){
174 if(strncasecmp(buf, "HD:", 3) == 0){
175 hdr = get_header(&(buf[3]));
176 msg->hdr_list = g_list_append(msg->hdr_list, hdr);
177 }else if((buf[0] == ' ' || buf[0] == '\t') && hdr){
178 char *tmp = hdr->header;
179 /* header continuation */
180 hdr->header = g_strconcat(hdr->header, buf, NULL);
181 hdr->value = hdr->header + (hdr->value - tmp);
182 }else
183 break;
184 }
185 fclose(in);
186 ok = TRUE;
187 }else
188 logwrite(LOG_ALERT, "could not open spool header file %s: %s\n",
189 spool_file, strerror(errno));
190 return ok;
191 }
193 message *msg_spool_read(gchar *uid, gboolean do_readdata)
194 {
195 message *msg;
196 gboolean ok = FALSE;
198 msg = create_message();
199 msg->uid = g_strdup(uid);
201 /* header spool: */
202 ok = spool_read_header(msg);
203 if(ok && do_readdata){
204 /* data spool: */
205 ok = spool_read_data(msg);
206 }
207 return msg;
208 }
210 /* write header. uid and gid should already be set to the
211 mail ids. Better call spool_write(msg, FALSE).
212 */
213 static
214 gboolean spool_write_header(message *msg)
215 {
216 GList *node;
217 gchar *spool_file, *tmp_file;
218 FILE *out;
219 gboolean ok = TRUE;
221 /* header spool: */
222 tmp_file = g_strdup_printf("%s/input/%d-H.tmp", conf.spool_dir, getpid());
223 DEBUG(4) debugf("tmp_file = %s\n", tmp_file);
225 if((out = fopen(tmp_file, "w"))){
226 DEBUG(6) debugf("opened tmp_file %s\n", tmp_file);
228 fprintf(out, "%s\n", msg->uid);
229 fprintf(out, "MF:%s\n", addr_string(msg->return_path));
231 DEBUG(6) debugf("after MF\n");
232 foreach(msg->rcpt_list, node){
233 address *rcpt = (address *)(node->data);
234 spool_write_rcpt(out, rcpt);
235 }
236 foreach(msg->non_rcpt_list, node){
237 address *rcpt = (address *)(node->data);
238 spool_write_rcpt(out, rcpt);
239 }
240 DEBUG(6) debugf("after RT\n");
241 fprintf(out, "PR:%s\n", prot_names[msg->received_prot]);
242 if(msg->received_host != NULL)
243 fprintf(out, "RH:%s\n", msg->received_host);
245 if(msg->ident != NULL)
246 fprintf(out, "ID:%s\n", msg->ident);
248 if(msg->data_size >= 0)
249 fprintf(out, "DS: %d\n", msg->data_size);
251 if(msg->received_time > 0)
252 fprintf(out, "TR: %u\n", (int)(msg->received_time));
254 if(msg->warned_time > 0)
255 fprintf(out, "TW: %u\n", (int)(msg->warned_time));
257 DEBUG(6) debugf("after RH\n");
258 fprintf(out, "\n");
260 foreach(msg->hdr_list, node){
261 header *hdr = (header *)(node->data);
262 fprintf(out, "HD:%s", hdr->header);
263 }
264 if(fflush(out) == EOF) ok = FALSE;
265 else if(fdatasync(fileno(out)) != 0){
266 if(errno != EINVAL) /* some fs do not support this..
267 I hope this also means that it is not necessary */
268 ok = FALSE;
269 }
270 fclose(out);
271 if(ok){
272 spool_file = g_strdup_printf("%s/input/%s-H", conf.spool_dir, msg->uid);
273 DEBUG(4) debugf("spool_file = %s\n", spool_file);
274 ok = (rename(tmp_file, spool_file) != -1);
275 g_free(spool_file);
276 }
277 }else{
278 logwrite(LOG_ALERT, "could not open temporary header spool file '%s': %s\n", tmp_file, strerror(errno));
279 DEBUG(1) debugf("euid = %d, egid = %d\n", geteuid(), getegid());
280 ok = FALSE;
281 }
283 g_free(tmp_file);
285 return ok;
286 }
288 gboolean spool_write(message *msg, gboolean do_write_data)
289 {
290 GList *list;
291 gchar *spool_file, *tmp_file;
292 FILE *out;
293 gboolean ok = TRUE;
294 uid_t saved_uid, saved_gid;
295 /* user can read/write, group can read, others cannot do anything: */
296 mode_t saved_mode = saved_mode = umask(026);
298 /* set uid and gid to the mail ids */
299 if(!conf.run_as_user){
300 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
301 }
303 /* header spool: */
304 ok = spool_write_header(msg);
306 if(ok){
308 if(do_write_data){
309 /* data spool: */
310 tmp_file = g_strdup_printf("%s/input/%d-D.tmp",
311 conf.spool_dir, getpid());
312 DEBUG(4) debugf("tmp_file = %s\n", tmp_file);
314 if((out = fopen(tmp_file, "w"))){
315 fprintf(out, "%s\n", msg->uid);
316 for(list = g_list_first(msg->data_list);
317 list != NULL;
318 list = g_list_next(list)){
319 fprintf(out, "%s", (gchar *)(list->data));
320 }
322 /* possibly paranoid ;-) */
323 if(fflush(out) == EOF) ok = FALSE;
324 else if(fdatasync(fileno(out)) != 0){
325 if(errno != EINVAL) /* some fs do not support this..
326 I hope this also means that it is not necessary */
327 ok = FALSE;
328 }
329 fclose(out);
330 if(ok){
331 spool_file = g_strdup_printf("%s/input/%s-D",
332 conf.spool_dir, msg->uid);
333 DEBUG(4) debugf("spool_file = %s\n", spool_file);
334 ok = (rename(tmp_file, spool_file) != -1);
335 g_free(spool_file);
336 }
337 }else{
338 logwrite(LOG_ALERT, "could not open temporary data spool file: %s\n",
339 strerror(errno));
340 ok = FALSE;
341 }
342 g_free(tmp_file);
343 }
344 }
346 /* set uid and gid back */
347 if(!conf.run_as_user){
348 set_euidgid(saved_uid, saved_gid, NULL, NULL);
349 }
351 umask(saved_mode);
353 return ok;
354 }
356 #define MAX_LOCKAGE 300
358 gboolean spool_lock(gchar *uid)
359 {
360 uid_t saved_uid, saved_gid;
361 gchar *hitch_name;
362 gchar *lock_name;
363 gboolean ok = FALSE;
365 hitch_name = g_strdup_printf("%s/%s-%d.lock", conf.lock_dir, uid, getpid());
366 lock_name = g_strdup_printf("%s/%s.lock", conf.lock_dir, uid);
368 /* set uid and gid to the mail ids */
369 if(!conf.run_as_user){
370 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
371 }
373 ok = dot_lock(lock_name, hitch_name);
374 if(!ok) logwrite(LOG_WARNING, "spool file %s is locked\n", uid);
376 /* set uid and gid back */
377 if(!conf.run_as_user){
378 set_euidgid(saved_uid, saved_gid, NULL, NULL);
379 }
381 g_free(lock_name);
382 g_free(hitch_name);
384 return ok;
385 }
387 gboolean spool_unlock(gchar *uid)
388 {
389 uid_t saved_uid, saved_gid;
390 gchar *lock_name;
392 /* set uid and gid to the mail ids */
393 if(!conf.run_as_user){
394 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
395 }
397 lock_name = g_strdup_printf("%s/%s.lock", conf.lock_dir, uid);
398 dot_unlock(lock_name);
399 g_free(lock_name);
401 /* set uid and gid back */
402 if(!conf.run_as_user){
403 set_euidgid(saved_uid, saved_gid, NULL, NULL);
404 }
405 return TRUE;
406 }
408 gboolean spool_delete_all(message *msg)
409 {
410 uid_t saved_uid, saved_gid;
411 gchar *spool_file;
413 /* set uid and gid to the mail ids */
414 if(!conf.run_as_user){
415 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
416 }
418 /* header spool: */
419 spool_file = g_strdup_printf("%s/input/%s-H", conf.spool_dir, msg->uid);
420 if(unlink(spool_file) != 0)
421 logwrite(LOG_ALERT, "could not delete spool file %s: %s\n",
422 spool_file, strerror(errno));
423 g_free(spool_file);
425 /* data spool: */
426 spool_file = g_strdup_printf("%s/input/%s-D", conf.spool_dir, msg->uid);
427 if(unlink(spool_file) != 0)
428 logwrite(LOG_ALERT, "could not delete spool file %s: %s\n",
429 spool_file, strerror(errno));
430 g_free(spool_file);
432 /* set uid and gid back */
433 if(!conf.run_as_user){
434 set_euidgid(saved_uid, saved_gid, NULL, NULL);
435 }
436 return TRUE;
437 }