1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ MIME support functions.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2014 Steffen "Daode" Nurpmeso <sdaoden@users.sf.net>.
9 * Gunnar Ritter. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions and the following disclaimer.
16 * 2. Redistributions in binary form must reproduce the above copyright
17 * notice, this list of conditions and the following disclaimer in the
18 * documentation and/or other materials provided with the distribution.
19 * 3. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by Gunnar Ritter
22 * and his contributors.
23 * 4. Neither the name of Gunnar Ritter nor the names of his contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY GUNNAR RITTER AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL GUNNAR RITTER OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
40 #ifndef HAVE_AMALGAMATION
44 #define _CHARSET() ((_cs_iter != NULL) ? _cs_iter : charset_get_8bit())
47 struct mtnode
*mt_next
;
48 size_t mt_mtlen
; /* Length of MIME type string */
49 char mt_line
[VFIELD_SIZE(8)];
52 static char const * const _mt_sources
[] = {
53 /* XXX Order fixed due to *mimetypes-load-control* handling! */
54 MIME_TYPES_USR
, MIME_TYPES_SYS
, NULL
56 * const _mt_bltin
[] = {
57 #include "mime_types.h"
61 struct mtnode
*_mt_list
;
62 char *_cs_iter_base
, *_cs_iter
;
64 /* Initialize MIME type list */
65 static void _mt_init(void);
66 static void __mt_add_line(char const *line
, struct mtnode
**tail
);
68 /* Is 7-bit enough? */
69 static bool_t
_has_highbit(char const *s
);
70 static bool_t
_name_highbit(struct name
*np
);
72 /* Get the conversion that matches *encoding* */
73 static enum conversion
_conversion_by_encoding(void);
75 /* fwrite(3) while checking for displayability */
76 static ssize_t
_fwrite_td(struct str
const *input
, enum tdflags flags
,
77 struct str
*rest
, struct quoteflt
*qf
);
79 static size_t delctrl(char *cp
, size_t sz
);
81 static int is_this_enc(char const *line
, char const *encoding
);
83 /* Convert header fields to RFC 1522 format and write to the file fo */
84 static size_t mime_write_tohdr(struct str
*in
, FILE *fo
);
86 /* Write len characters of the passed string to the passed file, doing charset
87 * and header conversion */
88 static size_t convhdra(char const *str
, size_t len
, FILE *fp
);
90 /* Write an address to a header field */
91 static size_t mime_write_tohdr_a(struct str
*in
, FILE *f
);
93 /* Append to buf, handling resizing */
94 static void addstr(char **buf
, size_t *sz
, size_t *pos
,
95 char const *str
, size_t len
);
97 static void addconv(char **buf
, size_t *sz
, size_t *pos
,
98 char const *str
, size_t len
);
103 struct mtnode
*tail
= NULL
;
107 char const *ccp
, * const *srcs
;
111 if ((ccp
= ok_vlook(mimetypes_load_control
)) == NULL
)
113 else for (idx_ok
= 0; *ccp
!= '\0'; ++ccp
)
124 /* XXX bad *mimetypes-load-control*; log error? */
128 for (idx
= 1, srcs
= _mt_sources
; *srcs
!= NULL
; idx
<<= 1, ++srcs
) {
129 if ((idx
& idx_ok
) == 0 || (ccp
= file_expand(*srcs
)) == NULL
)
131 if ((fp
= Fopen(ccp
, "r")) == NULL
) {
132 /*fprintf(stderr, tr(176, "Cannot open %s\n"), fn);*/
135 while (fgetline(&line
, &linesize
, NULL
, NULL
, fp
, 0))
136 __mt_add_line(line
, &tail
);
142 for (srcs
= _mt_bltin
; *srcs
!= NULL
; ++srcs
)
143 __mt_add_line(*srcs
, &tail
);
148 __mt_add_line(char const *line
, struct mtnode
**tail
) /* XXX diag? dups!*/
155 if (!alphachar(*line
))
159 while (blankchar(*line
) == 0 && *line
!= '\0')
163 tlen
= PTR2SIZE(line
- typ
);
165 while (blankchar(*line
) != 0 && *line
!= '\0')
171 if (line
[elen
- 1] == '\n' && line
[--elen
] == '\0')
174 mtn
= smalloc(sizeof(struct mtnode
) -
175 VFIELD_SIZEOF(struct mtnode
, mt_line
) + tlen
+ 1 + elen
+1);
177 (*tail
)->mt_next
= mtn
;
182 mtn
->mt_mtlen
= tlen
;
183 memcpy(mtn
->mt_line
, typ
, tlen
);
184 mtn
->mt_line
[tlen
] = '\0';
186 memcpy(mtn
->mt_line
+ tlen
, line
, elen
);
188 mtn
->mt_line
[tlen
] = '\0';
194 _has_highbit(char const *s
)
203 while (*s
++ != '\0');
212 _name_highbit(struct name
*np
)
218 if (_has_highbit(np
->n_name
) || _has_highbit(np
->n_fullname
))
228 static enum conversion
229 _conversion_by_encoding(void)
235 if ((cp
= ok_vlook(encoding
)) == NULL
)
236 ret
= MIME_DEFAULT_ENCODING
;
237 else if (!strcmp(cp
, "quoted-printable"))
239 else if (!strcmp(cp
, "8bit"))
241 else if (!strcmp(cp
, "base64"))
244 fprintf(stderr
, tr(177, "Warning: invalid encoding %s, using base64\n"),
253 _fwrite_td(struct str
const *input
, enum tdflags flags
, struct str
*rest
,
256 /* TODO note: after send/MIME layer rewrite we will have a string pool
257 * TODO so that memory allocation count drops down massively; for now,
258 * TODO v14.* that is, we pay a lot & heavily depend on the allocator */
259 /* TODO well if we get a broken pipe here, and it happens to
260 * TODO happen pretty easy when sleeping in a full pipe buffer,
261 * TODO then the current codebase performs longjump away;
262 * TODO this leaves memory leaks behind ('think up to 3 per,
263 * TODO dep. upon alloca availability). For this to be fixed
264 * TODO we either need to get rid of the longjmp()s (tm) or
265 * TODO the storage must come from the outside or be tracked
266 * TODO in a carrier struct. Best both. But storage reuse
267 * TODO would be a bigbig win besides */
268 /* *input* _may_ point to non-modifyable buffer; but even then it only
269 * needs to be dup'ed away if we have to transform the content */
280 if ((flags
& TD_ICONV
) && iconvd
!= (iconv_t
)-1) {
283 if (rest
!= NULL
&& rest
->l
> 0) {
284 in
.l
= rest
->l
+ input
->l
;
285 in
.s
= buf
= smalloc(in
.l
+ 1);
286 memcpy(in
.s
, rest
->s
, rest
->l
);
287 memcpy(in
.s
+ rest
->l
, input
->s
, input
->l
);
291 if (n_iconv_str(iconvd
, &out
, &in
, &in
, TRU1
) != 0 && rest
!= NULL
&&
293 /* Incomplete multibyte at EOF is special */
294 if (flags
& _TD_EOF
) {
295 out
.s
= srealloc(out
.s
, out
.l
+ 4);
296 /* TODO 0xFFFD out.s[out.l++] = '[';*/
297 out
.s
[out
.l
++] = '?'; /* TODO 0xFFFD !!! */
298 /* TODO 0xFFFD out.s[out.l++] = ']';*/
300 n_str_add(rest
, &in
);
304 flags
&= ~_TD_BUFCOPY
;
312 makeprint(&in
, &out
);
313 else if (flags
& _TD_BUFCOPY
)
314 n_str_dup(&out
, &in
);
317 if (flags
& TD_DELCTRL
)
318 out
.l
= delctrl(out
.s
, out
.l
);
320 rv
= quoteflt_push(qf
, out
.s
, out
.l
);
324 if (in
.s
!= input
->s
)
331 delctrl(char *cp
, size_t sz
)
337 if (!cntrlchar(cp
[x
]))
346 is_this_enc(char const *line
, char const *encoding
)
348 int rv
, c
, quoted
= 0;
354 while (*line
&& *encoding
)
355 if ((c
= *line
++, lowerconv(c
) != *encoding
++))
358 if (quoted
&& *line
== '"')
360 if (*line
== '\0' || whitechar(*line
))
369 mime_write_tohdr(struct str
*in
, FILE *fo
) /* TODO rewrite - FAST! */
371 struct str cin
, cout
;
372 char buf
[B64_LINESIZE
+1]; /* (No CR/LF used) */
373 char const *charset7
, *charset
, *upper
, *wbeg
, *wend
, *lastspc
,
375 size_t sz
= 0, col
= 0, quoteany
, wr
, charsetlen
,
376 maxcol
= 65 /* there is the header field's name, too */;
377 bool_t highbit
, mustquote
, broken
;
380 charset7
= charset_get_7bit();
381 charset
= _CHARSET();
382 wr
= strlen(charset7
);
383 charsetlen
= strlen(charset
);
384 charsetlen
= MAX(charsetlen
, wr
);
385 upper
= in
->s
+ in
->l
;
387 /* xxx note this results in too much hits since =/? force quoting even
388 * xxx if they don't form =? etc. */
389 quoteany
= mime_cte_mustquote(in
->s
, in
->l
, TRU1
);
393 for (wbeg
= in
->s
; wbeg
< upper
; ++wbeg
)
394 if ((ui8_t
)*wbeg
& 0x80)
397 if (quoteany
<< 1 > in
->l
) {
398 /* Print the entire field in base64 */
399 for (wbeg
= in
->s
; wbeg
< upper
; wbeg
= wend
) {
401 cin
.s
= UNCONST(wbeg
);
404 if (cin
.l
* 4/3 + 7 + charsetlen
< maxcol
- col
) {
407 wr
= fprintf(fo
, "=?%s?B?%s?=", (highbit
? charset
: charset7
),
408 b64_encode(&cout
, &cin
, B64_BUF
)->s
);
412 fwrite("\n ", sizeof(char), 2, fo
);
430 /* Print the field word-wise in quoted-printable */
432 for (wbeg
= in
->s
; wbeg
< upper
; wbeg
= wend
) {
434 while (wbeg
< upper
&& whitechar(*wbeg
)) {
435 lastspc
= lastspc
? lastspc
: wbeg
;
442 while (lastspc
< wbeg
) {
443 putc(*lastspc
&0377, fo
);
453 for (wend
= wbeg
; wend
< upper
&& !whitechar(*wend
); ++wend
)
454 if ((ui8_t
)*wend
& 0x80)
456 mustquote
= (mime_cte_mustquote(wbeg
, PTR2SIZE(wend
- wbeg
), TRU1
)
459 if (mustquote
|| broken
|| ((wend
- wbeg
) >= 76-5 && quoteany
)) {
460 for (cout
.s
= NULL
;;) {
461 cin
.s
= UNCONST(lastwordend
? lastwordend
: wbeg
);
462 cin
.l
= wend
- cin
.s
;
463 qp_encode(&cout
, &cin
, QP_ISHEAD
);
464 wr
= cout
.l
+ charsetlen
+ 7;
466 if (col
<= maxcol
&& wr
<= maxcol
- col
) {
468 /* TODO because we included the WS in the encoded str,
470 * TODO RFC: "any 'linear-white-space' that separates
471 * TODO a pair of adjacent 'encoded-word's is ignored" */
476 fprintf(fo
, "=?%s?Q?%.*s?=",
477 (highbit
? charset
: charset7
), (int)cout
.l
, cout
.s
);
481 } else if (col
> 1) {
482 /* TODO assuming SP separator, ignore *lastspc* !?? */
484 if (lastspc
!= NULL
) {
509 if (col
&& PTR2SIZE(wend
- wbeg
) > maxcol
- col
) {
514 if (lastspc
== NULL
) {
519 maxcol
-= wbeg
- lastspc
;
522 while (lastspc
< wbeg
) {
523 putc(*lastspc
&0377, fo
);
527 wr
= fwrite(wbeg
, sizeof *wbeg
, PTR2SIZE(wend
- wbeg
), fo
);
539 convhdra(char const *str
, size_t len
, FILE *fp
)
548 cin
.s
= UNCONST(str
);
552 if (iconvd
!= (iconv_t
)-1) {
554 if (n_iconv_str(iconvd
, &ciconv
, &cin
, NULL
, FAL0
) != 0)
559 ret
= mime_write_tohdr(&cin
, fp
);
562 if (ciconv
.s
!= NULL
)
570 mime_write_tohdr_a(struct str
*in
, FILE *f
)
572 char const *cp
, *lastcp
;
578 if ((cp
= routeaddr(in
->s
)) != NULL
&& cp
> lastcp
) {
579 sz
+= convhdra(lastcp
, cp
- lastcp
, f
);
583 for ( ; *cp
!= '\0'; ++cp
) {
586 sz
+= fwrite(lastcp
, 1, PTR2SIZE(cp
- lastcp
+ 1), f
);
588 cp
= skip_comment(cp
);
590 sz
+= convhdra(lastcp
, PTR2SIZE(cp
- lastcp
), f
);
597 if (*cp
== '\\' && cp
[1] != '\0')
604 sz
+= fwrite(lastcp
, 1, PTR2SIZE(cp
- lastcp
), f
);
610 addstr(char **buf
, size_t *sz
, size_t *pos
, char const *str
, size_t len
)
613 *buf
= srealloc(*buf
, *sz
+= len
);
614 memcpy(&(*buf
)[*pos
], str
, len
);
620 addconv(char **buf
, size_t *sz
, size_t *pos
, char const *str
, size_t len
)
627 mime_fromhdr(&in
, &out
, TD_ISPR
| TD_ICONV
);
628 addstr(buf
, sz
, pos
, out
.s
, out
.l
);
634 charset_get_7bit(void)
639 if ((t
= ok_vlook(charset_7bit
)) == NULL
)
646 charset_get_8bit(void)
651 if ((t
= ok_vlook(CHARSET_8BIT_OKEY
)) == NULL
)
663 if ((t
= ok_vlook(ttycharset
)) == NULL
)
670 charset_iter_reset(char const *a_charset_to_try_first
)
673 size_t sarrl
[3], len
;
677 sarr
[0] = a_charset_to_try_first
;
679 if ((sarr
[1] = ok_vlook(sendcharsets
)) == NULL
&&
680 ok_blook(sendcharsets_else_ttycharset
))
681 sarr
[1] = charset_get_lc();
683 sarr
[2] = charset_get_8bit();
685 sarrl
[2] = len
= strlen(sarr
[2]);
687 if ((cp
= UNCONST(sarr
[1])) != NULL
)
688 len
+= (sarrl
[1] = strlen(cp
));
691 if ((cp
= UNCONST(sarr
[0])) != NULL
)
692 len
+= (sarrl
[0] = strlen(cp
));
697 _cs_iter_base
= cp
= salloc(len
+ 1 + 1 +1);
700 if ((len
= sarrl
[0]) != 0) {
701 memcpy(cp
, sarr
[0], len
);
705 if ((len
= sarrl
[1]) != 0) {
706 memcpy(cp
, sarr
[1], len
);
712 memcpy(cp
, sarr
[2], len
);
719 charset_iter_next(void)
724 rv
= _cs_iter
= strcomma(&_cs_iter_base
, 1);
730 charset_iter_current(void)
741 charset_iter_recurse(char *outer_storage
[2]) /* TODO LEGACY FUN, REMOVE */
744 outer_storage
[0] = _cs_iter_base
;
745 outer_storage
[1] = _cs_iter
;
750 charset_iter_restore(char *outer_storage
[2]) /* TODO LEGACY FUN, REMOVE */
753 _cs_iter_base
= outer_storage
[0];
754 _cs_iter
= outer_storage
[1];
759 need_hdrconv(struct header
*hp
, enum gfield w
)
761 char const *ret
= NULL
;
765 if (hp
->h_from
!= NULL
) {
766 if (_name_highbit(hp
->h_from
))
768 } else if (_has_highbit(myaddrs(NULL
)))
770 if (hp
->h_organization
) {
771 if (_has_highbit(hp
->h_organization
))
773 } else if (_has_highbit(ok_vlook(ORGANIZATION
)))
776 if (_name_highbit(hp
->h_replyto
))
778 } else if (_has_highbit(ok_vlook(replyto
)))
781 if (_name_highbit(hp
->h_sender
))
783 } else if (_has_highbit(ok_vlook(sender
)))
786 if (w
& GTO
&& _name_highbit(hp
->h_to
))
788 if (w
& GCC
&& _name_highbit(hp
->h_cc
))
790 if (w
& GBCC
&& _name_highbit(hp
->h_bcc
))
792 if (w
& GSUBJECT
&& _has_highbit(hp
->h_subject
))
805 if (is_this_enc(p
, "7bit"))
807 else if (is_this_enc(p
, "8bit"))
809 else if (is_this_enc(p
, "base64"))
811 else if (is_this_enc(p
, "binary"))
813 else if (is_this_enc(p
, "quoted-printable"))
822 mime_getparam(char const *param
, char *h
)
824 char *p
= h
, *q
, *rv
= NULL
;
830 if (!whitechar(*p
)) {
832 while (*p
&& (*p
!= ';' || c
== '\\')) {
833 c
= (c
== '\\') ? '\0' : *p
;
841 while (whitechar(*p
))
843 if (ascncasecmp(p
, param
, sz
) == 0) {
845 while (whitechar(*p
))
851 while (*p
&& (*p
!= ';' || c
== '\\')) {
852 if (*p
== '"' && c
!= '\\') {
854 while (*p
&& (*p
!= '"' || c
== '\\')) {
855 c
= (c
== '\\') ? '\0' : *p
;
860 c
= (c
== '\\') ? '\0' : *p
;
867 while (whitechar(*p
))
873 if ((q
= strchr(p
, '"')) == NULL
)
876 while (*q
&& !whitechar(*q
) && *q
!= ';')
880 rv
= salloc(q
- p
+1);
889 mime_get_boundary(char *h
, size_t *len
)
895 if ((p
= mime_getparam("boundary", h
)) != NULL
) {
899 q
= salloc(sz
+ 2 +1);
901 memcpy(q
+ 2, p
, sz
);
902 *(q
+ sz
+ 2) = '\0';
909 mime_create_boundary(void)
915 snprintf(bp
, 48, "=_%011lu=-%s=_", (ul_it
)time_current
.tc_time
,
916 getrandstring(47 - (11 + 6)));
922 mime_classify_file(FILE *fp
, char const **contenttype
, char const **charset
,
925 /* TODO classify once only PLEASE PLEASE PLEASE */
926 /* TODO BTW., after the MIME/send layer rewrite we could use a MIME
927 * TODO boundary of "=-=-=" if we would add a B_ in EQ spirit to F_,
928 * TODO and report that state to the outer world */
930 #define F_SIZEOF (sizeof(F_) - 1)
932 char f_buf
[F_SIZEOF
], *f_p
= f_buf
;
934 _CLEAN
= 0, /* Plain RFC 2822 message */
935 _NCTT
= 1<<0, /* *contenttype == NULL */
936 _ISTXT
= 1<<1, /* *contenttype =~ text/ */
937 _ISTXTCOK
= 1<<2, /* _ISTXT+*mime-allow-text-controls* */
938 _HIGHBIT
= 1<<3, /* Not 7bit clean */
939 _LONGLINES
= 1<<4, /* MIME_LINELEN_LIMIT exceed. */
940 _CTRLCHAR
= 1<<5, /* Control characters seen */
941 _HASNUL
= 1<<6, /* Contains \0 characters */
942 _NOTERMNL
= 1<<7, /* Lacks a final newline */
943 _TRAILWS
= 1<<8, /* Blanks before NL */
944 _FROM_
= 1<<9 /* ^From_ seen */
946 enum conversion convert
;
951 assert(ftell(fp
) == 0x0l
);
955 if (*contenttype
== NULL
)
957 else if (ascncasecmp(*contenttype
, "text/", 5) == 0)
958 ctt
= ok_blook(mime_allow_text_controls
) ? _ISTXT
| _ISTXTCOK
: _ISTXT
;
959 convert
= _conversion_by_encoding();
964 /* We have to inspect the file content */
965 for (curlen
= 0, c
= EOF
;; ++curlen
) {
971 if ((ctt
& _ISTXTCOK
) == 0)
975 if (c
== '\n' || c
== EOF
) {
976 if (curlen
>= MIME_LINELEN_LIMIT
)
980 if (blankchar(lastc
))
986 /* A bit hairy is handling of \r=\x0D=CR.
988 * Control characters other than TAB, or CR and LF as parts of CRLF
989 * pairs, must not appear. \r alone does not force _CTRLCHAR below since
990 * we cannot peek the next character. Thus right here, inspect the last
991 * seen character for if its \r and set _CTRLCHAR in a delayed fashion */
992 /*else*/ if (lastc
== '\r')
995 /* Control character? */
996 if (c
< 0x20 || c
== 0x7F) {
997 /* RFC 2045, 6.7, as above ... */
998 if (c
!= '\t' && c
!= '\r')
1000 /* If there is a escape sequence in backslash notation defined for
1001 * this in ANSI X3.159-1989 (ANSI C89), don't treat it as a control
1002 * for real. I.e., \a=\x07=BEL, \b=\x08=BS, \t=\x09=HT. Don't follow
1003 * libmagic(1) in respect to \v=\x0B=VT. \f=\x0C=NP; do ignore
1005 if ((c
>= '\x07' && c
<= '\x0D') || c
== '\x1B')
1007 ctt
|= _HASNUL
; /* Force base64 */
1008 if ((ctt
& _ISTXTCOK
) == 0)
1010 } else if (c
& 0x80) {
1012 /* TODO count chars with HIGHBIT? libmagic?
1013 * TODO try encode part - base64 if bails? */
1014 if ((ctt
& (_NCTT
|_ISTXT
)) == 0) { /* TODO _NCTT?? */
1015 ctt
|= _HASNUL
; /* Force base64 */
1018 } else if ((ctt
& _FROM_
) == 0 && curlen
< (sl_it
)F_SIZEOF
) {
1020 if (curlen
== (sl_it
)(F_SIZEOF
- 1) &&
1021 PTR2SIZE(f_p
- f_buf
) == F_SIZEOF
&&
1022 memcmp(f_buf
, F_
, F_SIZEOF
) == 0)
1030 if (ctt
& _HASNUL
) {
1031 convert
= CONV_TOB64
;
1032 /* Don't overwrite a text content-type to allow UTF-16 and such, but only
1033 * on request; else enforce what file(1)/libmagic(3) would suggest */
1034 if (ctt
& _ISTXTCOK
)
1036 if (ctt
& (_NCTT
| _ISTXT
))
1037 *contenttype
= "application/octet-stream";
1038 if (*charset
== NULL
)
1039 *charset
= "binary";
1043 if (ctt
& (_LONGLINES
| _CTRLCHAR
| _NOTERMNL
| _TRAILWS
| _FROM_
)) {
1044 convert
= CONV_TOQP
;
1047 if (ctt
& _HIGHBIT
) {
1049 if (ctt
& (_NCTT
|_ISTXT
))
1050 *do_iconv
= (ctt
& _HIGHBIT
) != 0;
1053 convert
= CONV_7BIT
;
1055 *contenttype
= "text/plain";
1057 /* Not an attachment with specified charset? */
1059 if (*charset
== NULL
)
1060 *charset
= (ctt
& _HIGHBIT
) ? _CHARSET() : charset_get_7bit();
1069 mime_classify_content_of_part(struct mimepart
const *mip
)
1071 enum mimecontent mc
= MIME_UNKNOWN
;
1072 char const *ct
= mip
->m_ct_type_plain
;
1075 if (asccasecmp(ct
, "application/octet-stream") == 0 &&
1076 mip
->m_filename
!= NULL
&& ok_blook(mime_counter_evidence
)) {
1077 ct
= mime_classify_content_type_by_fileext(mip
->m_filename
);
1079 /* TODO how about let *mime-counter-evidence* have
1080 * TODO a value, and if set, saving the attachment in
1081 * TODO a temporary file that mime_classify_file() can
1082 * TODO examine, and using MIME_TEXT if that gives us
1083 * TODO something that seems to be human readable?! */
1086 if (strchr(ct
, '/') == NULL
) /* For compatibility with non-MIME */
1088 else if (asccasecmp(ct
, "text/plain") == 0)
1089 mc
= MIME_TEXT_PLAIN
;
1090 else if (asccasecmp(ct
, "text/html") == 0)
1091 mc
= MIME_TEXT_HTML
;
1092 else if (ascncasecmp(ct
, "text/", 5) == 0)
1094 else if (asccasecmp(ct
, "message/rfc822") == 0)
1096 else if (ascncasecmp(ct
, "message/", 8) == 0)
1098 else if (asccasecmp(ct
, "multipart/alternative") == 0)
1099 mc
= MIME_ALTERNATIVE
;
1100 else if (asccasecmp(ct
, "multipart/digest") == 0)
1102 else if (ascncasecmp(ct
, "multipart/", 10) == 0)
1104 else if (asccasecmp(ct
, "application/x-pkcs7-mime") == 0 ||
1105 asccasecmp(ct
, "application/pkcs7-mime") == 0)
1113 mime_classify_content_type_by_fileext(char const *name
)
1115 char *content
= NULL
;
1120 if ((name
= strrchr(name
, '.')) == NULL
|| *++name
== '\0')
1123 if (_mt_list
== NULL
)
1126 nlen
= strlen(name
);
1127 for (mtn
= _mt_list
; mtn
!= NULL
; mtn
= mtn
->mt_next
) {
1128 char const *ext
= mtn
->mt_line
+ mtn
->mt_mtlen
+ 1,
1131 while (!whitechar(*cp
) && *cp
!= '\0')
1133 /* Better to do case-insensitive comparison on extension, since the
1134 * RFC doesn't specify case of attribute values? */
1135 if (nlen
== PTR2SIZE(cp
- ext
) && ascncasecmp(name
, ext
, nlen
) == 0) {
1136 content
= savestrbuf(mtn
->mt_line
, mtn
->mt_mtlen
);
1139 while (whitechar(*cp
) && *cp
!= '\0')
1142 } while (*ext
!= '\0');
1150 c_mimetypes(void *v
)
1158 if (argv
[1] != NULL
)
1160 if (asccasecmp(*argv
, "show") == 0)
1162 if (asccasecmp(*argv
, "clear") == 0)
1165 fprintf(stderr
, "Synopsis: mimetypes: %s\n",
1166 tr(418, "Either <show> (default) or <clear> the mime.types cache"));
1170 return (v
== NULL
? !STOP
: !OKAY
); /* xxx 1:bad 0:good -- do some */
1176 if (_mt_list
== NULL
)
1179 if ((fp
= Ftmp(NULL
, "mimelist", OF_RDWR
| OF_UNLINK
| OF_REGISTER
, 0600)) ==
1186 for (l
= 0, mtn
= _mt_list
; mtn
!= NULL
; ++l
, mtn
= mtn
->mt_next
)
1187 fprintf(fp
, "%s\t%s\n", mtn
->mt_line
, mtn
->mt_line
+ mtn
->mt_mtlen
+ 1);
1189 page_or_print(fp
, l
);
1195 while ((mtn
= _mt_list
) != NULL
) {
1196 _mt_list
= mtn
->mt_next
;
1203 mime_fromhdr(struct str
const *in
, struct str
*out
, enum tdflags flags
)
1205 /* TODO mime_fromhdr(): is called with strings that contain newlines;
1206 * TODO this is the usual newline problem all around the codebase;
1207 * TODO i.e., if we strip it, then the display misses it ;>
1208 * TODO this is why it is so messy and why S-nail v14.2 plus additional
1209 * TODO patch for v14.5.2 (and maybe even v14.5.3 subminor) occurred, and
1210 * TODO why our display reflects what is contained in the message: the 1:1
1211 * TODO relationship of message content and display!
1212 * TODO instead a header line should be decoded to what it is (a single
1213 * TODO line that is) and it should be objective to the backend wether
1214 * TODO it'll be folded to fit onto the display or not, e.g., for search
1215 * TODO purposes etc. then the only condition we have to honour in here
1216 * TODO is that whitespace in between multiple adjacent MIME encoded words
1217 * TODO á la RFC 2047 is discarded; i.e.: this function should deal with
1218 * TODO RFC 2047 and be renamed: mime_fromhdr() -> mime_rfc2047_decode() */
1219 struct str cin
, cout
;
1220 char *p
, *op
, *upper
, *cs
, *cbeg
;
1221 ui32_t convert
, lastenc
, lastoutl
;
1224 iconv_t fhicd
= (iconv_t
)-1;
1230 *(out
->s
= smalloc(1)) = '\0';
1236 tcs
= charset_get_lc();
1240 lastenc
= lastoutl
= 0;
1244 if (*p
== '=' && *(p
+ 1) == '?') {
1247 while (p
< upper
&& *p
!= '?')
1248 ++p
; /* strip charset */
1251 cs
= salloc(PTR2SIZE(++p
- cbeg
));
1252 memcpy(cs
, cbeg
, PTR2SIZE(p
- cbeg
- 1));
1253 cs
[p
- cbeg
- 1] = '\0';
1255 if (fhicd
!= (iconv_t
)-1)
1256 n_iconv_close(fhicd
);
1257 fhicd
= asccasecmp(cs
, tcs
) ? n_iconv_open(tcs
, cs
) : (iconv_t
)-1;
1261 convert
= CONV_FROMB64
;
1264 convert
= CONV_FROMQP
;
1266 default: /* invalid, ignore */
1274 if (PTRCMP(p
+ 1, >=, upper
))
1276 if (*p
++ == '?' && *p
== '=')
1285 if (convert
== CONV_FROMB64
) {
1286 /* XXX Take care for, and strip LF from
1287 * XXX [Invalid Base64 encoding ignored] */
1288 if (b64_decode(&cout
, &cin
, NULL
) == STOP
&&
1289 cout
.s
[cout
.l
- 1] == '\n')
1292 qp_decode(&cout
, &cin
, NULL
);
1296 if ((flags
& TD_ICONV
) && fhicd
!= (iconv_t
)-1) {
1297 cin
.s
= NULL
, cin
.l
= 0; /* XXX string pool ! */
1298 convert
= n_iconv_str(fhicd
, &cin
, &cout
, NULL
, TRU1
);
1299 out
= n_str_add(out
, &cin
);
1300 if (convert
) /* EINVAL at EOS */
1301 out
= n_str_add_buf(out
, "?", 1);
1305 out
= n_str_add(out
, &cout
);
1306 lastenc
= lastoutl
= out
->l
;
1313 onlyws
= (lastenc
> 0);
1317 if (op
[0] == '=' && (PTRCMP(op
+ 1, ==, upper
) || op
[1] == '?'))
1319 if (onlyws
&& !blankchar(*op
))
1323 out
= n_str_add_buf(out
, p
, PTR2SIZE(op
- p
));
1325 if (!onlyws
|| lastoutl
!= lastenc
)
1330 out
->s
[out
->l
] = '\0';
1332 if (flags
& TD_ISPR
) {
1333 makeprint(out
, &cout
);
1337 if (flags
& TD_DELCTRL
)
1338 out
->l
= delctrl(out
->s
, out
->l
);
1340 if (fhicd
!= (iconv_t
)-1)
1341 n_iconv_close(fhicd
);
1349 mime_fromaddr(char const *name
)
1351 char const *cp
, *lastcp
;
1353 size_t ressz
= 1, rescur
= 0;
1358 if (*name
== '\0') {
1359 res
= savestr(name
);
1363 if ((cp
= routeaddr(name
)) != NULL
&& cp
> name
) {
1364 addconv(&res
, &ressz
, &rescur
, name
, PTR2SIZE(cp
- name
));
1369 for ( ; *cp
; ++cp
) {
1372 addstr(&res
, &ressz
, &rescur
, lastcp
, PTR2SIZE(cp
- lastcp
+ 1));
1374 cp
= skip_comment(cp
);
1376 addconv(&res
, &ressz
, &rescur
, lastcp
, PTR2SIZE(cp
- lastcp
));
1383 if (*cp
== '\\' && cp
[1] != '\0')
1390 addstr(&res
, &ressz
, &rescur
, lastcp
, PTR2SIZE(cp
- lastcp
));
1391 /* TODO rescur==0: inserted to silence Coverity ...; check that */
1406 xmime_write(char const *ptr
, size_t size
, FILE *f
, enum conversion convert
,
1407 enum tdflags dflags
, struct str
*rest
)
1410 struct quoteflt
*qf
;
1413 quoteflt_reset(qf
= quoteflt_dummy(), f
);
1414 rv
= mime_write(ptr
, size
, f
, convert
, dflags
, qf
, rest
);
1415 assert(quoteflt_flush(qf
) == 0);
1421 mime_write(char const *ptr
, size_t size
, FILE *f
,
1422 enum conversion convert
, enum tdflags dflags
,
1423 struct quoteflt
*qf
, struct str
*rest
)
1425 /* TODO note: after send/MIME layer rewrite we will have a string pool
1426 * TODO so that memory allocation count drops down massively; for now,
1427 * TODO v14.0 that is, we pay a lot & heavily depend on the allocator */
1433 in
.s
= UNCONST(ptr
);
1438 dflags
|= _TD_BUFCOPY
;
1439 if ((sz
= size
) == 0) {
1440 if (rest
!= NULL
&& rest
->l
!= 0)
1446 if ((dflags
& TD_ICONV
) && iconvd
!= (iconv_t
)-1 &&
1447 (convert
== CONV_TOQP
|| convert
== CONV_8BIT
||
1448 convert
== CONV_TOB64
|| convert
== CONV_TOHDR
)) {
1449 if (n_iconv_str(iconvd
, &out
, &in
, NULL
, FAL0
) != 0) {
1450 /* XXX report conversion error? */;
1456 dflags
&= ~_TD_BUFCOPY
;
1463 state
= qp_decode(&out
, &in
, rest
);
1466 qp_encode(&out
, &in
, QP_NONE
);
1469 sz
= quoteflt_push(qf
, in
.s
, in
.l
);
1474 case CONV_FROMB64_T
:
1475 state
= b64_decode(&out
, &in
, rest
);
1477 if ((sz
= out
.l
) != 0) {
1478 ui32_t opl
= qf
->qf_pfix_len
;
1480 qf
->qf_pfix_len
= 0;
1481 sz
= _fwrite_td(&out
, (dflags
& ~_TD_BUFCOPY
), rest
,qf
);
1482 qf
->qf_pfix_len
= opl
;
1488 b64_encode(&out
, &in
, B64_LF
| B64_MULTILINE
);
1490 sz
= fwrite(out
.s
, sizeof *out
.s
, out
.l
, f
);
1491 if (sz
!= (ssize_t
)out
.l
)
1495 mime_fromhdr(&in
, &out
, TD_ISPR
| TD_ICONV
| (dflags
& TD_DELCTRL
));
1496 sz
= quoteflt_push(qf
, out
.s
, out
.l
);
1499 sz
= mime_write_tohdr(&in
, f
);
1502 sz
= mime_write_tohdr_a(&in
, f
);
1505 sz
= _fwrite_td(&in
, dflags
, NULL
, qf
);
1517 /* vim:set fenc=utf-8:s-it-mode */