masqmail

annotate src/spool.c @ 367:b27f66555ba8

find changesets by author, revision, files, or words in the commit message
Reformated multiline comments to have leading asterisks on each line Now we use: /* ** comment */ This makes the indent style simpler, too.
author markus schnalke <meillo@marmaro.de>
date Thu, 20 Oct 2011 10:20:59 +0200
parents 41958685480d
children 309935f59820
rev   line source
meillo@367 1 /*
meillo@367 2 ** MasqMail
meillo@367 3 ** Copyright (C) 1999-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@15 21 #include <sys/stat.h>
meillo@15 22
meillo@0 23 #include "masqmail.h"
meillo@0 24 #include "dotlock.h"
meillo@0 25
meillo@10 26 static gint
meillo@366 27 read_line(FILE *in, gchar *buf, gint buf_len)
meillo@0 28 {
meillo@10 29 gint p = 0;
meillo@10 30 gint c;
meillo@0 31
meillo@10 32 while ((c = getc(in)) != '\n' && (c != EOF)) {
meillo@10 33 if (p >= buf_len - 1) {
meillo@75 34 buf[buf_len-1] = '\0';
meillo@75 35 ungetc(c, in);
meillo@75 36 return buf_len;
meillo@10 37 }
meillo@10 38 buf[p++] = c;
meillo@10 39 }
meillo@0 40
meillo@10 41 if (c == EOF) {
meillo@10 42 return -1;
meillo@10 43 }
meillo@10 44 if ((p > 0) && (buf[p - 1] == '\r'))
meillo@10 45 p--;
meillo@10 46 buf[p++] = '\n';
meillo@15 47 buf[p] = '\0';
meillo@0 48
meillo@10 49 return p;
meillo@0 50 }
meillo@0 51
meillo@10 52 static void
meillo@366 53 spool_write_rcpt(FILE *out, address *rcpt)
meillo@0 54 {
meillo@10 55 gchar dlvrd_char = addr_is_delivered(rcpt) ? 'X' : (addr_is_failed(rcpt) ? 'F' : ' ');
meillo@0 56
meillo@10 57 if (rcpt->local_part[0] != '|') {
meillo@10 58 /* this is a paranoid check, in case it slipped through: */
meillo@10 59 /* if this happens, it is a bug */
meillo@10 60 if (rcpt->domain == NULL) {
meillo@10 61 logwrite(LOG_WARNING, "BUG: null domain for address %s, setting to %s\n", rcpt->local_part, conf.host_name);
meillo@10 62 logwrite(LOG_WARNING, "please report this bug.\n");
meillo@10 63 rcpt->domain = g_strdup(conf.host_name);
meillo@10 64 }
meillo@10 65 fprintf(out, "RT:%c%s\n", dlvrd_char, addr_string(rcpt));
meillo@10 66 } else {
meillo@10 67 fprintf(out, "RT:%c%s\n", dlvrd_char, rcpt->local_part);
meillo@10 68 }
meillo@0 69 }
meillo@0 70
meillo@10 71 static address*
meillo@366 72 spool_scan_rcpt(gchar *line)
meillo@0 73 {
meillo@10 74 address *rcpt = NULL;
meillo@0 75
meillo@15 76 if (line[3] != '\0') {
meillo@10 77 if (line[4] != '|') {
meillo@10 78 rcpt = create_address(&(line[4]), TRUE);
meillo@10 79 } else {
meillo@10 80 rcpt = create_address_pipe(&(line[4]));
meillo@10 81 }
meillo@10 82 if (line[3] == 'X') {
meillo@10 83 addr_mark_delivered(rcpt);
meillo@10 84 } else if (line[3] == 'F') {
meillo@10 85 addr_mark_failed(rcpt);
meillo@10 86 }
meillo@10 87 }
meillo@10 88 return rcpt;
meillo@0 89 }
meillo@0 90
meillo@10 91 gboolean
meillo@366 92 spool_read_data(message *msg)
meillo@0 93 {
meillo@10 94 FILE *in;
meillo@10 95 gchar *spool_file;
meillo@0 96
meillo@10 97 DEBUG(5) debugf("spool_read_data entered\n");
meillo@10 98 spool_file = g_strdup_printf("%s/input/%s-D", conf.spool_dir, msg->uid);
meillo@10 99 DEBUG(5) debugf("reading data spool file '%s'\n", spool_file);
meillo@82 100 in = fopen(spool_file, "r");
meillo@82 101 if (!in) {
meillo@82 102 logwrite(LOG_ALERT, "could not open spool data file %s: %s\n", spool_file, strerror(errno));
meillo@82 103 return FALSE;
meillo@82 104 }
meillo@10 105
meillo@82 106 char buf[MAX_DATALINE];
meillo@82 107 int len;
meillo@10 108
meillo@82 109 /* msg uid */
meillo@82 110 read_line(in, buf, MAX_DATALINE);
meillo@82 111
meillo@82 112 /* data */
meillo@82 113 msg->data_list = NULL;
meillo@82 114 while ((len = read_line(in, buf, MAX_DATALINE)) > 0) {
meillo@82 115 msg->data_list = g_list_prepend(msg->data_list, g_strdup(buf));
meillo@82 116 }
meillo@82 117 msg->data_list = g_list_reverse(msg->data_list);
meillo@82 118 fclose(in);
meillo@82 119 return TRUE;
meillo@0 120 }
meillo@0 121
meillo@10 122 gboolean
meillo@366 123 spool_read_header(message *msg)
meillo@0 124 {
meillo@10 125 FILE *in;
meillo@10 126 gchar *spool_file;
meillo@0 127
meillo@10 128 /* header spool: */
meillo@10 129 spool_file = g_strdup_printf("%s/input/%s-H", conf.spool_dir, msg->uid);
meillo@82 130 in = fopen(spool_file, "r");
meillo@82 131 if (!in) {
meillo@82 132 logwrite(LOG_ALERT, "could not open spool header file %s: %s\n",
meillo@82 133 spool_file, strerror(errno));
meillo@82 134 return FALSE;
meillo@82 135 }
meillo@0 136
meillo@82 137 header *hdr = NULL;
meillo@82 138 char buf[MAX_DATALINE];
meillo@82 139 int len;
meillo@10 140
meillo@82 141 /* msg uid */
meillo@82 142 read_line(in, buf, MAX_DATALINE);
meillo@82 143
meillo@82 144 /* envelope header */
meillo@82 145 while ((len = read_line(in, buf, MAX_DATALINE)) > 0) {
meillo@82 146 if (buf[0] == '\n') {
meillo@82 147 break;
meillo@82 148 } else if (strncasecmp(buf, "MF:", 3) == 0) {
meillo@82 149 msg->return_path = create_address(&(buf[3]), TRUE);
meillo@235 150 DEBUG(3) debugf("spool_read: MAIL FROM: %s", msg->return_path->address);
meillo@82 151 } else if (strncasecmp(buf, "RT:", 3) == 0) {
meillo@82 152 address *addr;
meillo@82 153 addr = spool_scan_rcpt(buf);
meillo@108 154 if (addr_is_delivered(addr) || addr_is_failed(addr)) {
meillo@108 155 msg->non_rcpt_list = g_list_append(msg->non_rcpt_list, addr);
meillo@108 156 } else {
meillo@82 157 msg->rcpt_list = g_list_append(msg->rcpt_list, addr);
meillo@82 158 }
meillo@82 159 } else if (strncasecmp(buf, "PR:", 3) == 0) {
meillo@82 160 prot_id i;
meillo@82 161 for (i = 0; i < PROT_NUM; i++) {
meillo@82 162 if (strncasecmp(prot_names[i], &(buf[3]), strlen(prot_names[i])) == 0) {
meillo@82 163 break;
meillo@10 164 }
meillo@10 165 }
meillo@82 166 msg->received_prot = i;
meillo@82 167 } else if (strncasecmp(buf, "RH:", 3) == 0) {
meillo@82 168 g_strchomp(buf);
meillo@82 169 msg->received_host = g_strdup(&(buf[3]));
meillo@82 170 } else if (strncasecmp(buf, "ID:", 3) == 0) {
meillo@82 171 g_strchomp(buf);
meillo@82 172 msg->ident = g_strdup(&(buf[3]));
meillo@82 173 } else if (strncasecmp(buf, "DS:", 3) == 0) {
meillo@82 174 msg->data_size = atoi(&(buf[3]));
meillo@82 175 } else if (strncasecmp(buf, "TR:", 3) == 0) {
meillo@82 176 msg->received_time = (time_t) (atoi(&(buf[3])));
meillo@82 177 } else if (strncasecmp(buf, "TW:", 3) == 0) {
meillo@82 178 msg->warned_time = (time_t) (atoi(&(buf[3])));
meillo@10 179 }
meillo@82 180 /* so far ignore other tags */
meillo@82 181 }
meillo@10 182
meillo@82 183 /* mail headers */
meillo@82 184 while ((len = read_line(in, buf, MAX_DATALINE)) > 0) {
meillo@82 185 if (strncasecmp(buf, "HD:", 3) == 0) {
meillo@300 186 DEBUG(6) debugf("spool_read_header(): hdr start\n");
meillo@82 187 hdr = get_header(&(buf[3]));
meillo@82 188 msg->hdr_list = g_list_append(msg->hdr_list, hdr);
meillo@82 189 } else if ((buf[0] == ' ' || buf[0] == '\t') && hdr) {
meillo@300 190 DEBUG(6) debugf("spool_read_header(): hdr continuation\n");
meillo@82 191 char *tmp = hdr->header;
meillo@82 192 /* header continuation */
meillo@82 193 hdr->header = g_strconcat(hdr->header, buf, NULL);
meillo@82 194 hdr->value = hdr->header + (hdr->value - tmp);
meillo@300 195 free(tmp); /* because g_strconcat() allocs and copies */
meillo@82 196 } else {
meillo@82 197 break;
meillo@10 198 }
meillo@82 199 }
meillo@82 200 fclose(in);
meillo@82 201 return TRUE;
meillo@0 202 }
meillo@0 203
meillo@10 204 message*
meillo@366 205 msg_spool_read(gchar *uid)
meillo@0 206 {
meillo@10 207 message *msg;
meillo@10 208 gboolean ok = FALSE;
meillo@0 209
meillo@10 210 msg = create_message();
meillo@10 211 msg->uid = g_strdup(uid);
meillo@10 212
meillo@114 213 DEBUG(4) debugf("msg_spool_read():\n");
meillo@10 214 /* header spool: */
meillo@10 215 ok = spool_read_header(msg);
meillo@349 216 DEBUG(4) debugf(" spool_read_header() returned: %d\n", ok);
meillo@10 217 return msg;
meillo@0 218 }
meillo@0 219
meillo@367 220 /*
meillo@367 221 ** write header. uid and gid should already be set to the
meillo@367 222 ** mail ids. Better call spool_write(msg, FALSE).
meillo@0 223 */
meillo@10 224 static gboolean
meillo@366 225 spool_write_header(message *msg)
meillo@0 226 {
meillo@10 227 GList *node;
meillo@10 228 gchar *spool_file, *tmp_file;
meillo@10 229 FILE *out;
meillo@10 230 gboolean ok = TRUE;
meillo@0 231
meillo@10 232 /* header spool: */
meillo@10 233 tmp_file = g_strdup_printf("%s/input/%d-H.tmp", conf.spool_dir, getpid());
meillo@10 234 DEBUG(4) debugf("tmp_file = %s\n", tmp_file);
meillo@0 235
meillo@10 236 if ((out = fopen(tmp_file, "w"))) {
meillo@10 237 DEBUG(6) debugf("opened tmp_file %s\n", tmp_file);
meillo@0 238
meillo@10 239 fprintf(out, "%s\n", msg->uid);
meillo@10 240 fprintf(out, "MF:%s\n", addr_string(msg->return_path));
meillo@0 241
meillo@10 242 DEBUG(6) debugf("after MF\n");
meillo@10 243 foreach(msg->rcpt_list, node) {
meillo@10 244 address *rcpt = (address *) (node->data);
meillo@10 245 spool_write_rcpt(out, rcpt);
meillo@10 246 }
meillo@10 247 foreach(msg->non_rcpt_list, node) {
meillo@10 248 address *rcpt = (address *) (node->data);
meillo@10 249 spool_write_rcpt(out, rcpt);
meillo@10 250 }
meillo@10 251 DEBUG(6) debugf("after RT\n");
meillo@10 252 fprintf(out, "PR:%s\n", prot_names[msg->received_prot]);
meillo@10 253 if (msg->received_host != NULL)
meillo@10 254 fprintf(out, "RH:%s\n", msg->received_host);
meillo@0 255
meillo@10 256 if (msg->ident != NULL)
meillo@10 257 fprintf(out, "ID:%s\n", msg->ident);
meillo@0 258
meillo@10 259 if (msg->data_size >= 0)
meillo@10 260 fprintf(out, "DS: %d\n", msg->data_size);
meillo@0 261
meillo@10 262 if (msg->received_time > 0)
meillo@10 263 fprintf(out, "TR: %u\n", (int) (msg->received_time));
meillo@0 264
meillo@10 265 if (msg->warned_time > 0)
meillo@10 266 fprintf(out, "TW: %u\n", (int) (msg->warned_time));
meillo@0 267
meillo@10 268 DEBUG(6) debugf("after RH\n");
meillo@10 269 fprintf(out, "\n");
meillo@0 270
meillo@10 271 foreach(msg->hdr_list, node) {
meillo@10 272 header *hdr = (header *) (node->data);
meillo@10 273 fprintf(out, "HD:%s", hdr->header);
meillo@10 274 }
meillo@10 275 if (fflush(out) == EOF)
meillo@10 276 ok = FALSE;
meillo@10 277 else if (fdatasync(fileno(out)) != 0) {
meillo@10 278 if (errno != EINVAL) /* some fs do not support this.. I hope this also means that it is not necessary */
meillo@10 279 ok = FALSE;
meillo@10 280 }
meillo@10 281 fclose(out);
meillo@10 282 if (ok) {
meillo@10 283 spool_file = g_strdup_printf("%s/input/%s-H", conf.spool_dir, msg->uid);
meillo@10 284 DEBUG(4) debugf("spool_file = %s\n", spool_file);
meillo@10 285 ok = (rename(tmp_file, spool_file) != -1);
meillo@10 286 g_free(spool_file);
meillo@10 287 }
meillo@10 288 } else {
meillo@10 289 logwrite(LOG_ALERT, "could not open temporary header spool file '%s': %s\n", tmp_file, strerror(errno));
meillo@10 290 DEBUG(1) debugf("euid = %d, egid = %d\n", geteuid(), getegid());
meillo@10 291 ok = FALSE;
meillo@10 292 }
meillo@0 293
meillo@10 294 g_free(tmp_file);
meillo@0 295
meillo@10 296 return ok;
meillo@0 297 }
meillo@0 298
meillo@10 299 gboolean
meillo@366 300 spool_write(message *msg, gboolean do_write_data)
meillo@0 301 {
meillo@10 302 GList *list;
meillo@10 303 gchar *spool_file, *tmp_file;
meillo@10 304 FILE *out;
meillo@10 305 gboolean ok = TRUE;
meillo@10 306 uid_t saved_uid, saved_gid;
meillo@10 307 /* user can read/write, group can read, others cannot do anything: */
meillo@10 308 mode_t saved_mode = saved_mode = umask(026);
meillo@0 309
meillo@10 310 /* set uid and gid to the mail ids */
meillo@10 311 if (!conf.run_as_user) {
meillo@10 312 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
meillo@0 313 }
meillo@0 314
meillo@10 315 /* header spool: */
meillo@10 316 ok = spool_write_header(msg);
meillo@10 317
meillo@82 318 if (ok && do_write_data) {
meillo@82 319 /* data spool: */
meillo@82 320 tmp_file = g_strdup_printf("%s/input/%d-D.tmp", conf.spool_dir, getpid());
meillo@82 321 DEBUG(4) debugf("tmp_file = %s\n", tmp_file);
meillo@10 322
meillo@82 323 if ((out = fopen(tmp_file, "w"))) {
meillo@82 324 fprintf(out, "%s\n", msg->uid);
meillo@82 325 for (list = g_list_first(msg->data_list); list != NULL; list = g_list_next(list)) {
meillo@82 326 fprintf(out, "%s", (gchar *) (list->data));
meillo@82 327 }
meillo@10 328
meillo@82 329 /* possibly paranoid ;-) */
meillo@82 330 if (fflush(out) == EOF) {
meillo@82 331 ok = FALSE;
meillo@82 332 } else if (fdatasync(fileno(out)) != 0) {
meillo@82 333 if (errno != EINVAL) { /* some fs do not support this.. I hope this also means that it is not necessary */
meillo@82 334 ok = FALSE;
meillo@10 335 }
meillo@10 336 }
meillo@82 337 fclose(out);
meillo@82 338 if (ok) {
meillo@82 339 spool_file = g_strdup_printf("%s/input/%s-D", conf.spool_dir, msg->uid);
meillo@82 340 DEBUG(4) debugf("spool_file = %s\n", spool_file);
meillo@82 341 ok = (rename(tmp_file, spool_file) != -1);
meillo@82 342 g_free(spool_file);
meillo@82 343 }
meillo@82 344 } else {
meillo@82 345 logwrite(LOG_ALERT, "could not open temporary data spool file: %s\n",
meillo@82 346 strerror(errno));
meillo@82 347 ok = FALSE;
meillo@10 348 }
meillo@82 349 g_free(tmp_file);
meillo@0 350 }
meillo@10 351
meillo@10 352 /* set uid and gid back */
meillo@10 353 if (!conf.run_as_user) {
meillo@10 354 set_euidgid(saved_uid, saved_gid, NULL, NULL);
meillo@0 355 }
meillo@0 356
meillo@10 357 umask(saved_mode);
meillo@0 358
meillo@10 359 return ok;
meillo@0 360 }
meillo@0 361
meillo@0 362 #define MAX_LOCKAGE 300
meillo@0 363
meillo@10 364 gboolean
meillo@366 365 spool_lock(gchar *uid)
meillo@0 366 {
meillo@10 367 uid_t saved_uid, saved_gid;
meillo@10 368 gchar *hitch_name;
meillo@10 369 gchar *lock_name;
meillo@10 370 gboolean ok = FALSE;
meillo@0 371
meillo@10 372 hitch_name = g_strdup_printf("%s/%s-%d.lock", conf.lock_dir, uid, getpid());
meillo@10 373 lock_name = g_strdup_printf("%s/%s.lock", conf.lock_dir, uid);
meillo@0 374
meillo@10 375 /* set uid and gid to the mail ids */
meillo@10 376 if (!conf.run_as_user) {
meillo@10 377 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
meillo@10 378 }
meillo@0 379
meillo@10 380 ok = dot_lock(lock_name, hitch_name);
meillo@10 381 if (!ok)
meillo@10 382 logwrite(LOG_WARNING, "spool file %s is locked\n", uid);
meillo@0 383
meillo@10 384 /* set uid and gid back */
meillo@10 385 if (!conf.run_as_user) {
meillo@10 386 set_euidgid(saved_uid, saved_gid, NULL, NULL);
meillo@10 387 }
meillo@0 388
meillo@10 389 g_free(lock_name);
meillo@10 390 g_free(hitch_name);
meillo@0 391
meillo@10 392 return ok;
meillo@0 393 }
meillo@0 394
meillo@10 395 gboolean
meillo@366 396 spool_unlock(gchar *uid)
meillo@0 397 {
meillo@10 398 uid_t saved_uid, saved_gid;
meillo@10 399 gchar *lock_name;
meillo@0 400
meillo@10 401 /* set uid and gid to the mail ids */
meillo@10 402 if (!conf.run_as_user) {
meillo@10 403 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
meillo@10 404 }
meillo@0 405
meillo@10 406 lock_name = g_strdup_printf("%s/%s.lock", conf.lock_dir, uid);
meillo@10 407 dot_unlock(lock_name);
meillo@10 408 g_free(lock_name);
meillo@0 409
meillo@10 410 /* set uid and gid back */
meillo@10 411 if (!conf.run_as_user) {
meillo@10 412 set_euidgid(saved_uid, saved_gid, NULL, NULL);
meillo@10 413 }
meillo@10 414 return TRUE;
meillo@0 415 }
meillo@0 416
meillo@10 417 gboolean
meillo@366 418 spool_delete_all(message *msg)
meillo@0 419 {
meillo@10 420 uid_t saved_uid, saved_gid;
meillo@10 421 gchar *spool_file;
meillo@0 422
meillo@10 423 /* set uid and gid to the mail ids */
meillo@10 424 if (!conf.run_as_user) {
meillo@10 425 set_euidgid(conf.mail_uid, conf.mail_gid, &saved_uid, &saved_gid);
meillo@10 426 }
meillo@0 427
meillo@10 428 /* header spool: */
meillo@10 429 spool_file = g_strdup_printf("%s/input/%s-H", conf.spool_dir, msg->uid);
meillo@82 430 if (unlink(spool_file) != 0) {
meillo@10 431 logwrite(LOG_ALERT, "could not delete spool file %s: %s\n", spool_file, strerror(errno));
meillo@82 432 }
meillo@10 433 g_free(spool_file);
meillo@0 434
meillo@10 435 /* data spool: */
meillo@10 436 spool_file = g_strdup_printf("%s/input/%s-D", conf.spool_dir, msg->uid);
meillo@82 437 if (unlink(spool_file) != 0) {
meillo@10 438 logwrite(LOG_ALERT, "could not delete spool file %s: %s\n", spool_file, strerror(errno));
meillo@82 439 }
meillo@10 440 g_free(spool_file);
meillo@0 441
meillo@10 442 /* set uid and gid back */
meillo@10 443 if (!conf.run_as_user) {
meillo@10 444 set_euidgid(saved_uid, saved_gid, NULL, NULL);
meillo@10 445 }
meillo@10 446 return TRUE;
meillo@0 447 }