masqmail

annotate src/parse.c @ 352:4905a1d9e6a7

minor improvement of output of devel/are-options-documented
author markus schnalke <meillo@marmaro.de>
date Sun, 04 Sep 2011 10:14:36 +0200
parents 00724782b6c9
children 41958685480d
rev   line source
meillo@0 1 /* MasqMail
meillo@0 2 Copyright (C) 1999-2001 Oliver Kurth
meillo@271 3 Copyright (C) 2010 markus schnalke <meillo@marmaro.de>
meillo@0 4
meillo@0 5 This program is free software; you can redistribute it and/or modify
meillo@0 6 it under the terms of the GNU General Public License as published by
meillo@0 7 the Free Software Foundation; either version 2 of the License, or
meillo@0 8 (at your option) any later version.
meillo@0 9
meillo@0 10 This program is distributed in the hope that it will be useful,
meillo@0 11 but WITHOUT ANY WARRANTY; without even the implied warranty of
meillo@0 12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
meillo@0 13 GNU General Public License for more details.
meillo@0 14
meillo@0 15 You should have received a copy of the GNU General Public License
meillo@0 16 along with this program; if not, write to the Free Software
meillo@0 17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
meillo@0 18 */
meillo@0 19
meillo@0 20 #ifndef PARSE_TEST
meillo@0 21 #include "masqmail.h"
meillo@0 22 #endif
meillo@0 23
meillo@0 24 /* This is really dangerous. I hope that I was careful enough,
meillo@0 25 but maybe there is some malformed address possible that causes
meillo@0 26 this to segfault or be caught in endless loops.
meillo@0 27
meillo@0 28 If you find something like that, PLEASE mail the string to me
meillo@0 29 (no matter how idiotic it is), so that I can debug that.
meillo@0 30 Those things really should not happen.
meillo@0 31 */
meillo@0 32
meillo@0 33 static gchar *specials = "()<>@,;:\\\".[]`";
meillo@0 34
meillo@0 35 char *parse_error = NULL;
meillo@0 36
meillo@10 37 static gchar*
meillo@10 38 skip_comment(gchar * p)
meillo@0 39 {
meillo@0 40
meillo@0 41 #ifdef PARSE_TEST
meillo@10 42 g_print("skip_comment: %s\n", p);
meillo@0 43 #endif
meillo@0 44
meillo@10 45 p++;
meillo@10 46 while (*p && *p != ')') {
meillo@10 47 p++;
meillo@271 48 if (*p == '(') {
meillo@10 49 p = skip_comment(p);
meillo@271 50 }
meillo@10 51 }
meillo@10 52 p++;
meillo@0 53
meillo@10 54 return p;
meillo@0 55 }
meillo@0 56
meillo@10 57 static gboolean
meillo@10 58 read_word(gchar * p, gchar ** b, gchar ** e)
meillo@0 59 {
meillo@0 60 #ifdef PARSE_TEST
meillo@10 61 g_print("read_word: %s\n", p);
meillo@0 62 #endif
meillo@10 63 /* eat leading spaces */
meillo@271 64 while (*p && isspace(*p)) {
meillo@10 65 p++;
meillo@271 66 }
meillo@10 67
meillo@10 68 *b = p;
meillo@10 69 /* b = &p; */
meillo@10 70 if (*p == '\"') {
meillo@10 71 /* quoted-string */
meillo@10 72 p++;
meillo@271 73 while (*p && (*p != '\"')) {
meillo@10 74 p++;
meillo@271 75 }
meillo@10 76 p++;
meillo@10 77 } else {
meillo@10 78 /* atom */
meillo@271 79 while (*p && !strchr(specials, *p) && !iscntrl(*p) && !isspace(*p)) {
meillo@10 80 p++;
meillo@271 81 }
meillo@10 82 }
meillo@10 83 *e = p;
meillo@10 84 return TRUE;
meillo@0 85 }
meillo@0 86
meillo@10 87 static gboolean
meillo@10 88 read_word_with_dots(gchar * p, gchar ** b, gchar ** e)
meillo@0 89 {
meillo@10 90 gchar *b0 = p;
meillo@0 91
meillo@0 92 #ifdef PARSE_TEST
meillo@10 93 g_print("read_word_with_dots: %s\n", p);
meillo@0 94 #endif
meillo@10 95 while (TRUE) {
meillo@271 96 if (!read_word(p, b, e)) {
meillo@10 97 return FALSE;
meillo@271 98 }
meillo@10 99 p = *e;
meillo@271 100 if (*p != '.') {
meillo@10 101 break;
meillo@271 102 }
meillo@10 103 p++;
meillo@10 104 }
meillo@10 105 *b = b0;
meillo@10 106 *e = p;
meillo@10 107 return TRUE;
meillo@0 108 }
meillo@0 109
meillo@10 110 static gboolean
meillo@10 111 read_domain(gchar * p, gchar ** b, gchar ** e)
meillo@0 112 {
meillo@0 113 #ifdef PARSE_TEST
meillo@10 114 g_print("read_domain: %s\n", p);
meillo@0 115 #endif
meillo@10 116 *b = p;
meillo@10 117 if (*p != '[') {
meillo@271 118 while (isalnum(*p) || (*p == '-') || (*p == '.')) {
meillo@10 119 p++;
meillo@271 120 }
meillo@10 121 } else {
meillo@10 122 p++;
meillo@271 123 while (isalpha(*p) || (*p == '.')) {
meillo@10 124 p++;
meillo@271 125 }
meillo@10 126 if (*p != ']') {
meillo@10 127 parse_error = g_strdup_printf("']' expected at end of literal address %s", *b);
meillo@10 128 return FALSE;
meillo@10 129 }
meillo@10 130 p++;
meillo@10 131 }
meillo@10 132 *e = p;
meillo@10 133 return TRUE;
meillo@0 134 }
meillo@0 135
meillo@10 136 gboolean
meillo@15 137 parse_address_rfc822(gchar* string, gchar** local_begin, gchar** local_end, gchar** domain_begin,
meillo@15 138 gchar** domain_end, gchar** address_end)
meillo@0 139 {
meillo@10 140 gint angle_brackets = 0;
meillo@0 141
meillo@10 142 gchar *p = string;
meillo@10 143 gchar *b, *e;
meillo@0 144
meillo@10 145 *local_begin = *local_end = NULL;
meillo@10 146 *domain_begin = *domain_end = NULL;
meillo@0 147
meillo@10 148 /* might be some memory left from previous call: */
meillo@273 149 if (parse_error) {
meillo@10 150 g_free(parse_error);
meillo@10 151 parse_error = NULL;
meillo@10 152 }
meillo@0 153
meillo@10 154 /* leading spaces and angle brackets */
meillo@10 155 while (*p && (isspace(*p) || (*p == '<'))) {
meillo@271 156 if (*p == '<') {
meillo@10 157 angle_brackets++;
meillo@271 158 }
meillo@10 159 p++;
meillo@10 160 }
meillo@10 161
meillo@271 162 if (!*p) {
meillo@271 163 return FALSE;
meillo@271 164 }
meillo@271 165
meillo@271 166 while (TRUE) {
meillo@271 167 if (!read_word_with_dots(p, &b, &e)) {
meillo@271 168 return FALSE;
meillo@271 169 }
meillo@271 170
meillo@271 171 p = e;
meillo@0 172 #ifdef PARSE_TEST
meillo@271 173 g_print("after read_word_with_dots: %s\n", p);
meillo@0 174 #endif
meillo@271 175 /* eat white spaces and comments */
meillo@271 176 while ((*p && (isspace(*p))) || (*p == '(')) {
meillo@271 177 if (*p == '(') {
meillo@271 178 if (!(p = skip_comment(p))) {
meillo@271 179 parse_error = g_strdup("missing right bracket ')'");
meillo@10 180 return FALSE;
meillo@10 181 }
meillo@271 182 } else {
meillo@271 183 p++;
meillo@271 184 }
meillo@271 185 }
meillo@271 186 /* we now have a non-space char that is not
meillo@271 187 the beginning of a comment */
meillo@271 188
meillo@274 189 if (*p == '@' || *p == ',') {
meillo@271 190 /* the last word was the local_part of an addr-spec */
meillo@271 191 *local_begin = b;
meillo@271 192 *local_end = e;
meillo@271 193 #ifdef PARSE_TEST
meillo@271 194 g_print("found local part: %s\n", *local_begin);
meillo@271 195 #endif
meillo@271 196 if (*p == '@') {
meillo@271 197 p++; /* skip @ */
meillo@271 198 /* now the domain */
meillo@271 199 if (!read_domain(p, &b, &e)) {
meillo@271 200 return FALSE;
meillo@271 201 }
meillo@271 202 p = e;
meillo@271 203 *domain_begin = b;
meillo@271 204 *domain_end = e;
meillo@271 205 } else {
meillo@271 206 /* unqualified? */
meillo@274 207 /* something like `To: alice, bob' with -t */
meillo@271 208 *domain_begin = *domain_end = NULL;
meillo@271 209 }
meillo@271 210 break;
meillo@271 211
meillo@271 212 } else if (*p == '<') {
meillo@271 213 /* addr-spec follows */
meillo@271 214 while (isspace(*p) || (*p == '<')) {
meillo@271 215 if (*p == '<') {
meillo@271 216 angle_brackets++;
meillo@271 217 }
meillo@271 218 p++;
meillo@271 219 }
meillo@271 220 if (!read_word_with_dots(p, &b, &e)) {
meillo@10 221 return FALSE;
meillo@271 222 }
meillo@271 223 p = e;
meillo@271 224 *local_begin = b;
meillo@271 225 *local_end = e;
meillo@271 226 #ifdef PARSE_TEST
meillo@271 227 g_print("found local part: %s\n", *local_begin);
meillo@271 228 #endif
meillo@271 229 if (*p == '@') {
meillo@271 230 p++;
meillo@271 231 if (!read_domain(p, &b, &e)) {
meillo@271 232 return FALSE;
meillo@271 233 }
meillo@271 234 p = e;
meillo@271 235 *domain_begin = b;
meillo@271 236 *domain_end = e;
meillo@271 237 } else {
meillo@271 238 /* may be unqualified address */
meillo@271 239 *domain_begin = *domain_end = NULL;
meillo@271 240 }
meillo@271 241 break;
meillo@271 242
meillo@271 243 } else if (!*p || *p == '>') {
meillo@271 244 *local_begin = b;
meillo@271 245 *local_end = e;
meillo@271 246 #ifdef PARSE_TEST
meillo@271 247 g_print("found local part: %s\n", *local_begin);
meillo@271 248 #endif
meillo@271 249 *domain_begin = *domain_end = NULL;
meillo@271 250 break;
meillo@271 251
meillo@271 252 } else if (strchr(specials, *p) || iscntrl(*p) || isspace(*p)) {
meillo@271 253 parse_error = g_strdup_printf("unexpected character: %c", *p);
meillo@273 254 #ifdef PARSE_TEST
meillo@273 255 g_print("unexpected character: %c", *p);
meillo@273 256 #endif
meillo@271 257 return FALSE;
meillo@10 258 }
meillo@271 259 }
meillo@271 260
meillo@271 261 /* trailing spaces and angle brackets */
meillo@10 262 #ifdef PARSE_TEST
meillo@271 263 g_print("down counting trailing '>'\n");
meillo@10 264 #endif
meillo@271 265 while (*p && (isspace(*p) || (*p == '>'))) {
meillo@271 266 if (*p == '>') {
meillo@271 267 angle_brackets--;
meillo@10 268 }
meillo@271 269 p++;
meillo@271 270 }
meillo@10 271
meillo@271 272 *address_end = p;
meillo@10 273
meillo@271 274 if (angle_brackets > 0) {
meillo@271 275 parse_error = g_strdup("missing '>' at end of string");
meillo@271 276 return FALSE;
meillo@271 277 } else if (angle_brackets < 0) {
meillo@271 278 parse_error = g_strdup("superfluous '>' at end of string");
meillo@271 279 return FALSE;
meillo@0 280 }
meillo@271 281
meillo@271 282 /* we successfully parsed the address */
meillo@271 283 return TRUE;
meillo@0 284 }
meillo@0 285
meillo@10 286 gboolean
meillo@15 287 parse_address_rfc821(gchar* string, gchar** local_begin, gchar** local_end, gchar** domain_begin,
meillo@15 288 gchar** domain_end, gchar** address_end)
meillo@0 289 {
meillo@10 290 gint angle_brackets = 0;
meillo@0 291
meillo@10 292 gchar *p = string;
meillo@10 293 gchar *b, *e;
meillo@0 294
meillo@10 295 *local_begin = *local_end = NULL;
meillo@10 296 *domain_begin = *domain_end = NULL;
meillo@0 297
meillo@10 298 /* might be some memory left from previous call: */
meillo@10 299 if (parse_error != NULL) {
meillo@10 300 g_free(parse_error);
meillo@10 301 parse_error = NULL;
meillo@10 302 }
meillo@0 303
meillo@10 304 /* leading spaces and angle brackets */
meillo@10 305 while (*p && (isspace(*p) || (*p == '<'))) {
meillo@271 306 if (*p == '<') {
meillo@10 307 angle_brackets++;
meillo@271 308 }
meillo@10 309 p++;
meillo@10 310 }
meillo@10 311
meillo@271 312 if (!*p) {
meillo@271 313 return FALSE;
meillo@271 314 }
meillo@271 315
meillo@271 316 while (TRUE) {
meillo@271 317 if (!read_word_with_dots(p, &b, &e)) {
meillo@271 318 return FALSE;
meillo@10 319 }
meillo@10 320
meillo@271 321 p = e;
meillo@10 322 #ifdef PARSE_TEST
meillo@271 323 g_print("after read_word_with_dots: %s\n", p);
meillo@10 324 #endif
meillo@271 325 *local_begin = b;
meillo@271 326 *local_end = e;
meillo@271 327 #ifdef PARSE_TEST
meillo@271 328 g_print("found local part: %s\n", *local_begin);
meillo@271 329 g_print("local_end = %s\n", *local_end);
meillo@271 330 #endif
meillo@271 331 if (!(*p) || isspace(*p) || (*p == '>')) {
meillo@271 332 /* unqualified ? */
meillo@271 333 domain_begin = domain_end = NULL;
meillo@271 334 break;
meillo@271 335 } else if (*p == '@') {
meillo@10 336 p++;
meillo@271 337 if (read_domain(p, &b, &e)) {
meillo@271 338 p = e;
meillo@271 339 *domain_begin = b;
meillo@271 340 *domain_end = e;
meillo@271 341 }
meillo@271 342 break;
meillo@271 343 } else {
meillo@271 344 parse_error = g_strdup_printf ("unexpected character after local part '%c'", *p);
meillo@271 345 return FALSE;
meillo@10 346 }
meillo@271 347 }
meillo@10 348
meillo@271 349 /* trailing spaces and angle brackets */
meillo@271 350 #ifdef PARSE_TEST
meillo@271 351 g_print("down counting trailing '>'\n");
meillo@271 352 #endif
meillo@271 353 while (*p && (isspace(*p) || (*p == '>'))) {
meillo@271 354 if (*p == '>') {
meillo@271 355 angle_brackets--;
meillo@10 356 }
meillo@271 357 p++;
meillo@0 358 }
meillo@271 359 *address_end = p;
meillo@271 360
meillo@271 361 if (angle_brackets > 0) {
meillo@271 362 parse_error = g_strdup("missing '>' at end of string");
meillo@271 363 return FALSE;
meillo@271 364 } else if (angle_brackets < 0) {
meillo@271 365 parse_error = g_strdup("superfluous '>' at end of string");
meillo@271 366 return FALSE;
meillo@271 367 }
meillo@271 368
meillo@271 369 /* we successfully parsed the address */
meillo@271 370 return TRUE;
meillo@0 371 }
meillo@0 372
meillo@0 373 /*
meillo@0 374 allocate address, reading from string.
meillo@0 375 On failure, returns NULL.
meillo@114 376 after call, end contains a pointer to the end of the parsed string
meillo@0 377 end may be NULL, if we are not interested.
meillo@0 378
meillo@0 379 parses both rfc 821 and rfc 822 addresses, depending on flag is_rfc821
meillo@0 380 */
meillo@10 381 address*
meillo@10 382 _create_address(gchar * string, gchar ** end, gboolean is_rfc821)
meillo@0 383 {
meillo@10 384 gchar *loc_beg, *loc_end;
meillo@10 385 gchar *dom_beg, *dom_end;
meillo@10 386 gchar *addr_end;
meillo@271 387 gboolean ret;
meillo@0 388
meillo@273 389 /* TODO: what about (string == NULL)? */
meillo@271 390 if (string && (string[0] == '\0')) {
meillo@10 391 address *addr = g_malloc(sizeof(address));
meillo@10 392 addr->address = g_strdup("");
meillo@10 393 addr->local_part = g_strdup("");
meillo@271 394 /* 'NULL' address (failure notice),
meillo@271 395 "" makes sure it will not be qualified with a hostname */
meillo@271 396 addr->domain = g_strdup("");
meillo@10 397 return addr;
meillo@10 398 }
meillo@0 399
meillo@271 400 if (is_rfc821) {
meillo@271 401 ret = parse_address_rfc821(string, &loc_beg, &loc_end, &dom_beg, &dom_end, &addr_end);
meillo@271 402 } else {
meillo@271 403 ret = parse_address_rfc822(string, &loc_beg, &loc_end, &dom_beg, &dom_end, &addr_end);
meillo@271 404 }
meillo@271 405 if (!ret) {
meillo@271 406 return NULL;
meillo@271 407 }
meillo@0 408
meillo@271 409 address *addr = g_malloc(sizeof(address));
meillo@271 410 gchar *p = addr_end;
meillo@0 411
meillo@271 412 memset(addr, 0, sizeof(address));
meillo@0 413
meillo@271 414 if (loc_beg[0] == '|') {
meillo@271 415 parse_error = g_strdup("no pipe allowed for RFC 822/821 address");
meillo@271 416 return NULL;
meillo@271 417 }
meillo@10 418
meillo@271 419 while (*p && (*p != ',')) {
meillo@271 420 p++;
meillo@271 421 }
meillo@271 422 addr->address = g_strndup(string, p - string);
meillo@271 423 addr->local_part = g_strndup(loc_beg, loc_end - loc_beg);
meillo@0 424
meillo@0 425 #ifdef PARSE_TEST
meillo@271 426 g_print("addr->local_part = %s\n", addr->local_part);
meillo@0 427 #endif
meillo@0 428
meillo@271 429 if (dom_beg != NULL) {
meillo@271 430 addr->domain = g_strndup(dom_beg, dom_end - dom_beg);
meillo@273 431 } else if (addr->local_part[0] == '\0') {
meillo@271 432 /* 'NULL' address (failure notice),
meillo@271 433 "" makes sure it will not be qualified with a hostname */
meillo@271 434 addr->domain = g_strdup("");
meillo@271 435 } else {
meillo@271 436 addr->domain = NULL;
meillo@271 437 }
meillo@0 438
meillo@273 439 if (end) {
meillo@271 440 *end = p;
meillo@271 441 }
meillo@0 442
meillo@0 443 #ifndef PARSE_TEST
meillo@271 444 addr_unmark_delivered(addr);
meillo@0 445 #endif
meillo@0 446
meillo@271 447 return addr;
meillo@0 448 }
meillo@0 449
meillo@10 450 address*
meillo@10 451 create_address_rfc822(gchar * string, gchar ** end)
meillo@10 452 {
meillo@10 453 return _create_address(string, end, FALSE);
meillo@0 454 }
meillo@0 455
meillo@10 456 address*
meillo@10 457 create_address_rfc821(gchar * string, gchar ** end)
meillo@10 458 {
meillo@10 459 return _create_address(string, end, TRUE);
meillo@0 460 }
meillo@0 461
meillo@10 462 GList*
meillo@10 463 addr_list_append_rfc822(GList * addr_list, gchar * string, gchar * domain)
meillo@0 464 {
meillo@10 465 gchar *p = string;
meillo@10 466 gchar *end;
meillo@0 467
meillo@10 468 while (*p) {
meillo@273 469 #ifdef PARSE_TEST
meillo@273 470 g_print("string: %s\n", p);
meillo@273 471 #endif
meillo@273 472
meillo@10 473 address *addr = _create_address(p, &end, FALSE);
meillo@271 474 if (!addr) {
meillo@10 475 break;
meillo@271 476 }
meillo@271 477
meillo@273 478 #ifdef PARSE_TEST
meillo@273 479 g_print("addr: %s (%s<@>%s)", addr->address, addr->local_part, addr->domain);
meillo@273 480 #endif
meillo@271 481 if (domain && !addr->domain) {
meillo@271 482 addr->domain = g_strdup(domain);
meillo@271 483 }
meillo@273 484 #ifdef PARSE_TEST
meillo@273 485 g_print(" (%s<@>%s)\n", addr->local_part, addr->domain);
meillo@273 486 #endif
meillo@271 487
meillo@271 488 addr_list = g_list_append(addr_list, addr);
meillo@271 489 p = end;
meillo@271 490
meillo@271 491 while (*p == ',' || isspace(*p)) {
meillo@10 492 p++;
meillo@271 493 }
meillo@10 494 }
meillo@10 495 return addr_list;
meillo@0 496 }