2 * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3 * Copyright (C) 1999,2000 Hiroyuki Yamamoto
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.
34 #include "procheader.h"
40 #include "prefs_common.h"
46 static GHashTable *procmime_get_mime_type_table (void);
47 static GList *procmime_get_mime_type_list (void);
50 MimeInfo *procmime_mimeinfo_new(void)
54 mimeinfo = g_new0(MimeInfo, 1);
55 mimeinfo->mime_type = MIME_UNKNOWN;
56 mimeinfo->encoding_type = ENC_UNKNOWN;
61 void procmime_mimeinfo_free(MimeInfo *mimeinfo)
63 if (!mimeinfo) return;
65 g_free(mimeinfo->encoding);
66 g_free(mimeinfo->content_type);
67 g_free(mimeinfo->charset);
68 g_free(mimeinfo->name);
69 g_free(mimeinfo->boundary);
70 g_free(mimeinfo->content_disposition);
71 g_free(mimeinfo->filename);
73 g_free(mimeinfo->plaintextfile);
74 g_free(mimeinfo->sigstatus);
75 g_free(mimeinfo->sigstatus_full);
78 procmime_mimeinfo_free(mimeinfo->sub);
83 void procmime_mimeinfo_free_all(MimeInfo *mimeinfo)
85 while (mimeinfo != NULL) {
88 g_free(mimeinfo->encoding);
89 g_free(mimeinfo->content_type);
90 g_free(mimeinfo->charset);
91 g_free(mimeinfo->name);
92 g_free(mimeinfo->boundary);
93 g_free(mimeinfo->content_disposition);
94 g_free(mimeinfo->filename);
96 g_free(mimeinfo->plaintextfile);
97 g_free(mimeinfo->sigstatus);
98 g_free(mimeinfo->sigstatus_full);
101 procmime_mimeinfo_free_all(mimeinfo->sub);
102 procmime_mimeinfo_free_all(mimeinfo->children);
104 procmime_mimeinfo_free_all(mimeinfo->plaintext);
107 next = mimeinfo->next;
113 MimeInfo *procmime_mimeinfo_insert(MimeInfo *parent, MimeInfo *mimeinfo)
115 MimeInfo *child = parent->children;
118 parent->children = mimeinfo;
120 while (child->next != NULL)
123 child->next = mimeinfo;
126 mimeinfo->parent = parent;
127 mimeinfo->level = parent->level + 1;
132 void procmime_mimeinfo_replace(MimeInfo *old, MimeInfo *new)
134 MimeInfo *parent = old->parent;
138 g_warning("oops: Not top message");
142 g_message("oops: new child should not have a sibling");
146 for (child = parent->children; child && child != old;
150 g_warning("oops: parent can't find it's own child");
153 procmime_mimeinfo_free_all(old);
155 if (child == parent->children) {
156 new->next = parent->children->next;
157 parent->children = new;
159 new->next = child->next;
164 MimeInfo *procmime_scan_message(MsgInfo *msginfo)
169 g_return_val_if_fail(msginfo != NULL, NULL);
171 if ((fp = procmsg_open_message(msginfo)) == NULL) return NULL;
172 mimeinfo = procmime_scan_mime_header(fp);
175 if (mimeinfo->mime_type != MIME_MULTIPART) {
176 if (fseek(fp, mimeinfo->fpos, SEEK_SET) < 0)
179 if (mimeinfo->mime_type != MIME_TEXT)
180 procmime_scan_multipart_message(mimeinfo, fp);
184 if (prefs_common.auto_check_signatures)
185 rfc2015_check_signature(mimeinfo, fp);
192 void procmime_scan_multipart_message(MimeInfo *mimeinfo, FILE *fp)
196 gint boundary_len = 0;
198 glong fpos, prev_fpos;
201 g_return_if_fail(mimeinfo != NULL);
202 g_return_if_fail(mimeinfo->mime_type != MIME_TEXT);
204 if (mimeinfo->mime_type == MIME_MULTIPART) {
205 g_return_if_fail(mimeinfo->boundary != NULL);
206 g_return_if_fail(mimeinfo->sub == NULL);
208 g_return_if_fail(fp != NULL);
210 boundary = mimeinfo->boundary;
213 boundary_len = strlen(boundary);
215 /* look for first boundary */
216 while ((p = fgets(buf, sizeof(buf), fp)) != NULL)
217 if (IS_BOUNDARY(buf, boundary, boundary_len)) break;
221 if ((fpos = ftell(fp)) < 0) {
226 for (npart = 0;; npart++) {
228 gboolean eom = FALSE;
232 partinfo = procmime_scan_mime_header(fp);
233 if (!partinfo) break;
234 procmime_mimeinfo_insert(mimeinfo, partinfo);
236 if (partinfo->mime_type == MIME_MULTIPART) {
237 if (partinfo->level < 8)
238 procmime_scan_multipart_message(partinfo, fp);
239 } else if (partinfo->mime_type == MIME_MESSAGE_RFC822) {
242 partinfo->sub = sub = procmime_scan_mime_header(fp);
244 sub->level = partinfo->level + 1;
245 sub->parent = partinfo->parent;
246 sub->main = partinfo;
248 if (sub->mime_type == MIME_MULTIPART) {
250 procmime_scan_multipart_message
255 /* look for next boundary */
257 while ((p = fgets(buf, sizeof(buf), fp)) != NULL) {
258 if (IS_BOUNDARY(buf, boundary, boundary_len)) {
259 if (buf[2 + boundary_len] == '-' &&
260 buf[2 + boundary_len + 1] == '-')
266 eom = TRUE; /* broken MIME message */
269 partinfo->size = fpos - prev_fpos - strlen(buf);
273 //g_message ("** at " __PRETTY_FUNCTION__ ":%d:", __LINE__);
276 void procmime_scan_encoding(MimeInfo *mimeinfo, const gchar *encoding)
280 Xalloca(buf, strlen(encoding) + 1, return);
281 strcpy(buf, encoding);
283 g_free(mimeinfo->encoding);
285 mimeinfo->encoding = g_strdup(g_strstrip(buf));
286 if (!strcasecmp(buf, "7bit"))
287 mimeinfo->encoding_type = ENC_7BIT;
288 else if (!strcasecmp(buf, "8bit"))
289 mimeinfo->encoding_type = ENC_8BIT;
290 else if (!strcasecmp(buf, "quoted-printable"))
291 mimeinfo->encoding_type = ENC_QUOTED_PRINTABLE;
292 else if (!strcasecmp(buf, "base64"))
293 mimeinfo->encoding_type = ENC_BASE64;
294 else if (!strcasecmp(buf, "x-uuencode"))
295 mimeinfo->encoding_type = ENC_X_UUENCODE;
297 mimeinfo->encoding_type = ENC_UNKNOWN;
301 void procmime_scan_content_type(MimeInfo *mimeinfo, const gchar *content_type)
303 gchar *delim, *p, *cnttype;
306 Xalloca(buf, strlen(content_type) + 1, return);
307 strcpy(buf, content_type);
309 g_free(mimeinfo->content_type);
310 g_free(mimeinfo->charset);
311 g_free(mimeinfo->name);
312 mimeinfo->content_type = NULL;
313 mimeinfo->charset = NULL;
314 mimeinfo->name = NULL;
316 if ((delim = strchr(buf, ';'))) *delim = '\0';
317 mimeinfo->content_type = cnttype = g_strdup(g_strstrip(buf));
319 if (!strncasecmp(cnttype, "text/html", 9))
320 mimeinfo->mime_type = MIME_TEXT_HTML;
321 else if (!strncasecmp(cnttype, "text/", 5))
322 mimeinfo->mime_type = MIME_TEXT;
323 else if (!strncasecmp(cnttype, "message/rfc822", 14))
324 mimeinfo->mime_type = MIME_MESSAGE_RFC822;
325 else if (!strncasecmp(cnttype, "message/", 8))
326 mimeinfo->mime_type = MIME_TEXT;
327 else if (!strncasecmp(cnttype, "application/octet-stream", 24))
328 mimeinfo->mime_type = MIME_APPLICATION_OCTET_STREAM;
329 else if (!strncasecmp(cnttype, "application/", 12))
330 mimeinfo->mime_type = MIME_APPLICATION;
331 else if (!strncasecmp(cnttype, "multipart/", 10))
332 mimeinfo->mime_type = MIME_MULTIPART;
333 else if (!strncasecmp(cnttype, "image/", 6))
334 mimeinfo->mime_type = MIME_IMAGE;
335 else if (!strncasecmp(cnttype, "audio/", 6))
336 mimeinfo->mime_type = MIME_AUDIO;
337 else if (!strcasecmp(cnttype, "text"))
338 mimeinfo->mime_type = MIME_TEXT;
340 mimeinfo->mime_type = MIME_UNKNOWN;
349 if ((delim = strchr(p, ';'))) *delim = '\0';
351 if (!(eq = strchr(p, '='))) break;
360 extract_quote(value, '"');
362 eliminate_parenthesis(value, '(', ')');
367 if (!strcasecmp(attr, "charset"))
368 mimeinfo->charset = g_strdup(value);
369 else if (!strcasecmp(attr, "name")) {
373 len = strlen(value) + 1;
374 Xalloca(tmp, len, return);
375 conv_unmime_header(tmp, len, value, NULL);
376 mimeinfo->name = g_strdup(tmp);
377 } else if (!strcasecmp(attr, "boundary"))
378 mimeinfo->boundary = g_strdup(value);
385 if (mimeinfo->mime_type == MIME_MULTIPART && !mimeinfo->boundary)
386 mimeinfo->mime_type = MIME_TEXT;
389 void procmime_scan_content_disposition(MimeInfo *mimeinfo,
390 const gchar *content_disposition)
392 gchar *delim, *p, *dispos;
395 Xalloca(buf, strlen(content_disposition) + 1, return);
396 strcpy(buf, content_disposition);
398 if ((delim = strchr(buf, ';'))) *delim = '\0';
399 mimeinfo->content_disposition = dispos = g_strdup(g_strstrip(buf));
408 if ((delim = strchr(p, ';'))) *delim = '\0';
410 if (!(eq = strchr(p, '='))) break;
419 extract_quote(value, '"');
421 eliminate_parenthesis(value, '(', ')');
426 if (!strcasecmp(attr, "filename")) {
430 len = strlen(value) + 1;
431 Xalloca(tmp, len, return);
432 conv_unmime_header(tmp, len, value, NULL);
433 g_free(mimeinfo->filename);
434 mimeinfo->filename = g_strdup(tmp);
446 H_CONTENT_TRANSFER_ENCODING = 0,
448 H_CONTENT_DISPOSITION = 2
451 MimeInfo *procmime_scan_mime_header(FILE *fp)
453 static HeaderEntry hentry[] = {{"Content-Transfer-Encoding:",
455 {"Content-Type:", NULL, TRUE},
456 {"Content-Disposition:",
458 {NULL, NULL, FALSE}};
464 g_return_val_if_fail(fp != NULL, NULL);
466 mimeinfo = procmime_mimeinfo_new();
467 mimeinfo->mime_type = MIME_TEXT;
468 mimeinfo->encoding_type = ENC_7BIT;
469 mimeinfo->fpos = ftell(fp);
471 while ((hnum = procheader_get_one_field(buf, sizeof(buf), fp, hentry))
475 if (H_CONTENT_TRANSFER_ENCODING == hnum) {
476 procmime_scan_encoding
477 (mimeinfo, buf + strlen(hp->name));
478 } else if (H_CONTENT_TYPE == hnum) {
479 procmime_scan_content_type
480 (mimeinfo, buf + strlen(hp->name));
481 } else if (H_CONTENT_DISPOSITION == hnum) {
482 procmime_scan_content_disposition
483 (mimeinfo, buf + strlen(hp->name));
487 if (!mimeinfo->content_type)
488 mimeinfo->content_type = g_strdup("text/plain");
493 FILE *procmime_decode_content(FILE *outfp, FILE *infp, MimeInfo *mimeinfo)
496 gchar *boundary = NULL;
497 gint boundary_len = 0;
498 gboolean tmp_file = FALSE;
500 g_return_val_if_fail(infp != NULL, NULL);
501 g_return_val_if_fail(mimeinfo != NULL, NULL);
504 outfp = my_tmpfile();
512 if (mimeinfo->parent && mimeinfo->parent->boundary) {
513 boundary = mimeinfo->parent->boundary;
514 boundary_len = strlen(boundary);
517 if (mimeinfo->encoding_type == ENC_QUOTED_PRINTABLE) {
518 gboolean softline = FALSE;
520 while (fgets(buf, sizeof(buf), infp) != NULL &&
522 !IS_BOUNDARY(buf, boundary, boundary_len))) {
525 softline = DoOneQPLine(&p, FALSE, softline);
526 fwrite(buf, p - (guchar *)buf, 1, outfp);
528 } else if (mimeinfo->encoding_type == ENC_BASE64) {
529 gchar outbuf[BUFFSIZE];
532 while (fgets(buf, sizeof(buf), infp) != NULL &&
534 !IS_BOUNDARY(buf, boundary, boundary_len))) {
535 len = from64tobits(outbuf, buf);
537 g_warning("Bad BASE64 content\n");
540 fwrite(outbuf, sizeof(gchar), len, outfp);
542 } else if (mimeinfo->encoding_type == ENC_X_UUENCODE) {
543 gchar outbuf[BUFFSIZE];
545 gboolean flag = FALSE;
547 while (fgets(buf, sizeof(buf), infp) != NULL &&
549 !IS_BOUNDARY(buf, boundary, boundary_len))) {
550 if(!flag && strncmp(buf,"begin ", 6)) continue;
553 len = fromuutobits(outbuf, buf);
556 g_warning("Bad UUENCODE content(%d)\n", len);
559 fwrite(outbuf, sizeof(gchar), len, outfp);
564 while (fgets(buf, sizeof(buf), infp) != NULL &&
566 !IS_BOUNDARY(buf, boundary, boundary_len))) {
571 if (tmp_file) rewind(outfp);
575 gint procmime_get_part(const gchar *outfile, const gchar *infile,
581 g_return_val_if_fail(outfile != NULL, -1);
582 g_return_val_if_fail(infile != NULL, -1);
583 g_return_val_if_fail(mimeinfo != NULL, -1);
585 if ((infp = fopen(infile, "r")) == NULL) {
586 FILE_OP_ERROR(infile, "fopen");
589 if (fseek(infp, mimeinfo->fpos, SEEK_SET) < 0) {
590 FILE_OP_ERROR(infile, "fseek");
594 if ((outfp = fopen(outfile, "w")) == NULL) {
595 FILE_OP_ERROR(outfile, "fopen");
600 while (fgets(buf, sizeof(buf), infp) != NULL)
601 if (buf[0] == '\r' || buf[0] == '\n') break;
603 procmime_decode_content(outfp, infp, mimeinfo);
606 if (fclose(outfp) == EOF) {
607 FILE_OP_ERROR(outfile, "fclose");
615 FILE *procmime_get_text_part(MsgInfo *msginfo)
617 FILE *infp, *tmpfp, *outfp;
618 MimeInfo *mimeinfo, *partinfo = NULL;
620 gboolean conv_fail = FALSE;
623 g_return_val_if_fail(msginfo != NULL, NULL);
625 mimeinfo = procmime_scan_message(msginfo);
626 if (!mimeinfo) return NULL;
628 if ((infp = procmsg_open_message(msginfo)) == NULL) {
629 procmime_mimeinfo_free_all(mimeinfo);
633 if (mimeinfo->mime_type == MIME_MULTIPART) {
634 partinfo = mimeinfo->children;
635 if (partinfo && partinfo->mime_type == MIME_TEXT) {
636 if (fseek(infp, partinfo->fpos, SEEK_SET) < 0) {
642 } else if (mimeinfo->mime_type == MIME_TEXT) {
644 if (fseek(infp, partinfo->fpos, SEEK_SET) < 0) {
651 procmime_mimeinfo_free_all(mimeinfo);
655 while (fgets(buf, sizeof(buf), infp) != NULL)
656 if (buf[0] == '\r' || buf[0] == '\n') break;
658 tmpfp = procmime_decode_content(NULL, infp, partinfo);
660 procmime_mimeinfo_free_all(mimeinfo);
664 if ((outfp = my_tmpfile()) == NULL) {
667 procmime_mimeinfo_free_all(mimeinfo);
671 src_codeset = prefs_common.force_charset
672 ? prefs_common.force_charset : partinfo->charset;
674 while (fgets(buf, sizeof(buf), tmpfp) != NULL) {
677 str = conv_codeset_strdup(buf, src_codeset, NULL);
686 if (conv_fail) g_warning(_("Code conversion failed.\n"));
689 procmime_mimeinfo_free_all(mimeinfo);
695 gchar *procmime_get_tmp_file_name(MimeInfo *mimeinfo)
697 static guint32 id = 0;
702 g_return_val_if_fail(mimeinfo != NULL, NULL);
704 g_snprintf(f_prefix, sizeof(f_prefix), "%08x.", id++);
706 if (MIME_TEXT_HTML == mimeinfo->mime_type)
707 base = "mimetmp.html";
709 base = mimeinfo->filename ? mimeinfo->filename
710 : mimeinfo->name ? mimeinfo->name : "mimetmp";
711 base = g_basename(base);
712 if (*base == '\0') base = "mimetmp";
715 filename = g_strconcat(get_mime_tmp_dir(), G_DIR_SEPARATOR_S,
716 f_prefix, base, NULL);
721 static GList *mime_type_list = NULL;
723 gchar *procmime_get_mime_type(const gchar *filename)
725 static GHashTable *mime_type_table = NULL;
727 const gchar *ext, *p;
729 if (!mime_type_table) {
730 mime_type_table = procmime_get_mime_type_table();
731 if (!mime_type_table) return NULL;
734 filename = g_basename(filename);
735 p = strrchr(filename, '.');
741 mime_type = g_hash_table_lookup(mime_type_table, ext);
745 str = g_strconcat(mime_type->type, "/", mime_type->sub_type,
753 static GHashTable *procmime_get_mime_type_table(void)
755 GHashTable *table = NULL;
760 if (!mime_type_list) {
761 mime_type_list = procmime_get_mime_type_list();
762 if (!mime_type_list) return NULL;
765 table = g_hash_table_new(g_str_hash, g_str_equal);
767 for (cur = mime_type_list; cur != NULL; cur = cur->next) {
770 mime_type = (MimeType *)cur->data;
772 if (!mime_type->extension) continue;
774 exts = g_strsplit(mime_type->extension, " ", 16);
775 for (i = 0; exts[i] != NULL; i++)
776 g_hash_table_insert(table, g_strdup(exts[i]),
784 static GList *procmime_get_mime_type_list(void)
792 if ((fp = fopen("/etc/mime.types", "r")) == NULL) {
793 FILE_OP_ERROR("/etc/mime.types", "fopen");
797 while (fgets(buf, sizeof(buf), fp) != NULL) {
798 p = strchr(buf, '#');
803 while (*p && !isspace(*p)) p++;
808 delim = strchr(buf, '/');
809 if (delim == NULL) continue;
812 mime_type = g_new(MimeType, 1);
813 mime_type->type = g_strdup(buf);
814 mime_type->sub_type = g_strdup(delim + 1);
816 while (*p && isspace(*p)) p++;
818 mime_type->extension = g_strdup(p);
820 mime_type->extension = NULL;
822 list = g_list_append(list, mime_type);
828 g_warning("Can't read mime.types\n");
833 EncodingType procmime_get_encoding_for_charset(const gchar *charset)
837 else if (!strncasecmp(charset, "ISO-2022-", 9) ||
838 !strcasecmp(charset, "US-ASCII"))
842 /* return ENC_BASE64; */
843 /* return ENC_QUOTED_PRINTABLE; */
846 const gchar *procmime_get_encoding_str(EncodingType encoding)
848 static const gchar *encoding_str[] = {
849 "7bit", "8bit", "quoted-printable", "base64", "x-uuencode",
853 if (encoding >= ENC_7BIT && encoding <= ENC_UNKNOWN)
854 return encoding_str[encoding];