1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ `(un)?mimetype' and other mime.types(5) related facilities.
3 *@ "Keep in sync with" ./mime.types.
5 * Copyright (c) 2012 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
7 * Permission to use, copy, modify, and/or distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
11 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
20 #define n_FILE mime_types
22 #ifndef HAVE_AMALGAMATION
36 __MT_TMAX
= _MT_OTHER
,
39 _MT_CMD
= 1<< 8, /* Via `mimetype' (not struct mtbltin) */
40 _MT_USR
= 1<< 9, /* VAL_MIME_TYPES_USR */
41 _MT_SYS
= 1<<10, /* VAL_MIME_TYPES_SYS */
42 _MT_FSPEC
= 1<<11, /* Loaded via f= *mimetypes-load-control* spec. */
44 _MT_PLAIN
= 1<<16, /* Without pipe handler display as text */
45 _MT_SOUP_h
= 2<<16, /* Ditto, but HTML tagsoup parser if possible */
46 _MT_SOUP_H
= 3<<16, /* HTML tagsoup parser, else NOT plain text */
47 __MT_MARKMASK
= _MT_SOUP_H
50 enum mime_type_class
{
51 _MT_C_CLEAN
= 0, /* Plain RFC 5322 message */
52 _MT_C_NCTT
= 1<<0, /* *contenttype == NULL */
53 _MT_C_ISTXT
= 1<<1, /* *contenttype =~ text\/ */
54 _MT_C_ISTXTCOK
= 1<<2, /* _ISTXT + *mime-allow-text-controls* */
55 _MT_C_HIGHBIT
= 1<<3, /* Not 7bit clean */
56 _MT_C_LONGLINES
= 1<<4, /* MIME_LINELEN_LIMIT exceed. */
57 _MT_C_CTRLCHAR
= 1<<5, /* Control characters seen */
58 _MT_C_HASNUL
= 1<<6, /* Contains \0 characters */
59 _MT_C_NOTERMNL
= 1<<7, /* Lacks a final newline */
60 _MT_C_FROM_
= 1<<8, /* ^From_ seen */
61 _MT_C_FROM_1STLINE
= 1<<9, /* From_ line seen */
62 _MT_C_SUGGEST_DONE
= 1<<16, /* Inspector suggests to stop further parse */
63 _MT_C__1STLINE
= 1<<17 /* .. */
73 struct mtnode
*mt_next
;
75 ui32_t mt_mtlen
; /* Length of MIME type string, rest thereafter */
76 /* C99 forbids flexible arrays in union, so unfortunately we waste a pointer
77 * that could already store character data here */
84 struct mtnode
const *mtl_node
;
85 char *mtl_result
; /* If requested, salloc()ed MIME type */
94 enum mime_type_class mtca_mtc
;
97 static struct mtbltin
const _mt_bltin
[] = {
98 #include "gen-mime-types.h"
101 static char const _mt_typnames
[][16] = {
102 "application/", "audio/", "image/",
103 "message/", "multipart/", "text/",
106 n_CTAV(_MT_APPLICATION
== 0 && _MT_AUDIO
== 1 && _MT_IMAGE
== 2 &&
107 _MT_MESSAGE
== 3 && _MT_MULTIPART
== 4 && _MT_TEXT
== 5 &&
111 static bool_t _mt_is_init
;
112 static struct mtnode
*_mt_list
;
114 /* Initialize MIME type list in order */
115 static void _mt_init(void);
116 static bool_t
__mt_load_file(ui32_t orflags
,
117 char const *file
, char **line
, size_t *linesize
);
119 /* Create (prepend) a new MIME type; cmdcalled results in a bit more verbosity
121 static struct mtnode
* _mt_create(bool_t cmdcalled
, ui32_t orflags
,
122 char const *line
, size_t len
);
124 /* Try to find MIME type by X (after zeroing mtlp), return NULL if not found;
125 * if with_result >mtl_result will be created upon success for the former */
126 static struct mtlookup
* _mt_by_filename(struct mtlookup
*mtlp
,
127 char const *name
, bool_t with_result
);
128 static struct mtlookup
* _mt_by_mtname(struct mtlookup
*mtlp
,
131 /* In-depth inspection of raw content: call _round() repeatedly, last time with
132 * a 0 length buffer, finally check .mtca_mtc for result.
133 * No further call is needed if _round() return includes _MT_C_SUGGEST_DONE,
134 * as the resulting classification is unambiguous */
135 SINLINE
struct mt_class_arg
* _mt_classify_init(struct mt_class_arg
*mtcap
,
136 enum mime_type_class initval
);
137 static enum mime_type_class
_mt_classify_round(struct mt_class_arg
*mtcap
);
139 /* We need an in-depth inspection of an application/octet-stream part */
140 static enum mimecontent
_mt_classify_os_part(ui32_t mce
, struct mimepart
*mpp
);
142 /* Check whether a *pipe-XY* handler is applicable, and adjust flags according
143 * to the defined trigger characters; upon entry MIME_HDL_NULL is set, and that
144 * isn't changed if mhp doesn't apply */
145 static enum mime_handler_flags
_mt_pipe_check(struct mime_handler
*mhp
);
151 char c
, *line
; /* TODO line pool (below) */
154 char const *srcs_arr
[10], *ccp
, **srcs
;
160 /* Always load our builtins */
161 for (tail
= NULL
, i
= 0; i
< n_NELEM(_mt_bltin
); ++i
) {
162 struct mtbltin
const *mtbp
= _mt_bltin
+ i
;
163 struct mtnode
*mtnp
= smalloc(sizeof *mtnp
);
166 tail
->mt_next
= mtnp
;
170 mtnp
->mt_next
= NULL
;
171 mtnp
->mt_flags
= mtbp
->mtb_flags
;
172 mtnp
->mt_mtlen
= mtbp
->mtb_mtlen
;
173 mtnp
->mt_line
= mtbp
->mtb_line
;
176 /* Decide which files sources have to be loaded */
177 if ((ccp
= ok_vlook(mimetypes_load_control
)) == NULL
)
179 else if (*ccp
== '\0')
183 srcs
[-1] = srcs
[-2] = NULL
;
185 if (strchr(ccp
, '=') != NULL
) {
188 while ((ccp
= n_strsep(&line
, ',', TRU1
)) != NULL
) {
189 switch ((c
= *ccp
)) {
191 srcs_arr
[1] = VAL_MIME_TYPES_SYS
;
195 srcs_arr
[0] = VAL_MIME_TYPES_USR
;
201 if (*++ccp
== '=' && *++ccp
!= '\0') {
202 if (PTR2SIZE(srcs
- srcs_arr
) < n_NELEM(srcs_arr
))
205 n_err(_("*mimetypes-load-control*: too many sources, "
206 "skipping %s\n"), n_shexp_quote_cp(ccp
, FAL0
));
214 } else for (i
= 0; (c
= ccp
[i
]) != '\0'; ++i
)
216 case 'S': case 's': srcs_arr
[1] = VAL_MIME_TYPES_SYS
; break;
217 case 'U': case 'u': srcs_arr
[0] = VAL_MIME_TYPES_USR
; break;
220 n_err(_("*mimetypes-load-control*: unsupported content: %s\n"), ccp
);
224 /* Load all file-based sources in the desired order */
227 for (j
= 0, i
= (ui32_t
)PTR2SIZE(srcs
- srcs_arr
), srcs
= srcs_arr
;
228 i
> 0; ++j
, ++srcs
, --i
)
231 else if (!__mt_load_file((j
== 0 ? _MT_USR
232 : (j
== 1 ? _MT_SYS
: _MT_FSPEC
)), *srcs
, &line
, &linesize
)) {
233 if ((n_poption
& n_PO_D_V
) || j
> 1)
234 n_err(_("*mimetypes-load-control*: can't open or load %s\n"),
235 n_shexp_quote_cp(*srcs
, FAL0
));
245 __mt_load_file(ui32_t orflags
, char const *file
, char **line
, size_t *linesize
)
249 struct mtnode
*head
, *tail
, *mtnp
;
253 if ((cp
= fexpand(file
, FEXP_LOCAL
| FEXP_NOPROTO
)) == NULL
||
254 (fp
= Fopen(cp
, "r")) == NULL
) {
259 for (head
= tail
= NULL
; fgetline(line
, linesize
, NULL
, &len
, fp
, 0) != 0;)
260 if ((mtnp
= _mt_create(FAL0
, orflags
, *line
, len
)) != NULL
) {
264 tail
->mt_next
= mtnp
;
268 tail
->mt_next
= _mt_list
;
278 static struct mtnode
*
279 _mt_create(bool_t cmdcalled
, ui32_t orflags
, char const *line
, size_t len
)
281 struct mtnode
*mtnp
= NULL
;
282 char const *typ
, *subtyp
;
286 /* Drop anything after a comment first */
287 if ((typ
= memchr(line
, '#', len
)) != NULL
)
288 len
= PTR2SIZE(typ
- line
);
290 /* Then trim any trailing whitespace from line (including NL/CR) */
294 work
.s
= n_UNCONST(line
);
296 line
= n_str_trim(&work
)->s
;
301 /* (But wait - is there a type marker?) */
302 if (!(orflags
& (_MT_USR
| _MT_SYS
)) && *typ
== '@') {
306 orflags
|= _MT_PLAIN
;
310 } else if (len
> 4 && typ
[2] == '@' && typ
[3] == ' ') {
312 case 't': orflags
|= _MT_PLAIN
; goto jexttypmar
;
313 case 'h': orflags
|= _MT_SOUP_h
; goto jexttypmar
;
314 case 'H': orflags
|= _MT_SOUP_H
;
327 while (len
> 0 && !blankchar(*line
))
329 /* Ignore empty lines and even incomplete specifications (only MIME type)
330 * because this is quite common in mime.types(5) files */
331 if (len
== 0 || (tlen
= PTR2SIZE(line
- typ
)) == 0) {
333 n_err(_("Empty MIME type or no extensions given: %s\n"),
334 (len
== 0 ? _("(no value)") : line
));
338 if ((subtyp
= memchr(typ
, '/', tlen
)) == NULL
) {
340 if (cmdcalled
|| (n_poption
& n_PO_D_V
))
341 n_err(_("%s MIME type: %s\n"),
342 (cmdcalled
? _("Invalid") : _("mime.types(5): invalid")), typ
);
347 /* Map to mime_type */
348 tlen
= PTR2SIZE(subtyp
- typ
);
349 for (i
= __MT_TMIN
;;) {
350 if (!ascncasecmp(_mt_typnames
[i
], typ
, tlen
)) {
352 tlen
= PTR2SIZE(line
- subtyp
);
356 if (++i
== __MT_TMAX
) {
357 orflags
|= _MT_OTHER
;
358 tlen
= PTR2SIZE(line
- typ
);
363 /* Strip leading whitespace from the list of extensions;
364 * trailing WS has already been trimmed away above.
365 * Be silent on slots which define a mimetype without any value */
366 while (len
> 0 && blankchar(*line
))
372 mtnp
= smalloc(sizeof(*mtnp
) + tlen
+ len
+1);
373 mtnp
->mt_next
= NULL
;
374 mtnp
->mt_flags
= orflags
;
375 mtnp
->mt_mtlen
= (ui32_t
)tlen
;
376 { char *l
= (char*)(mtnp
+ 1);
378 memcpy(l
, typ
, tlen
);
379 memcpy(l
+ tlen
, line
, len
);
389 static struct mtlookup
*
390 _mt_by_filename(struct mtlookup
*mtlp
, char const *name
, bool_t with_result
)
394 char const *ext
, *cp
;
397 memset(mtlp
, 0, sizeof *mtlp
);
399 if ((nlen
= strlen(name
)) == 0) /* TODO name should be a URI */
401 /* We need a period TODO we should support names like README etc. */
402 for (i
= nlen
; name
[--i
] != '.';)
403 if (i
== 0 || name
[i
] == '/') /* XXX no magics */
405 /* While here, basename() it */
406 while (i
> 0 && name
[i
- 1] != '/')
410 mtlp
->mtl_name
= name
;
411 mtlp
->mtl_nlen
= nlen
;
416 /* ..all the MIME types */
417 for (mtnp
= _mt_list
; mtnp
!= NULL
; mtnp
= mtnp
->mt_next
)
418 for (ext
= mtnp
->mt_line
+ mtnp
->mt_mtlen
;; ext
= cp
) {
420 while (whitechar(*cp
))
423 while (!whitechar(*cp
) && *cp
!= '\0')
426 if ((i
= PTR2SIZE(cp
- ext
)) == 0)
428 /* Don't allow neither of ".txt" or "txt" to match "txt" */
429 else if (i
+ 1 >= nlen
|| name
[(j
= nlen
- i
) - 1] != '.' ||
430 ascncasecmp(name
+ j
, ext
, i
))
434 mtlp
->mtl_node
= mtnp
;
439 if ((mtnp
->mt_flags
& __MT_TMASK
) == _MT_OTHER
) {
443 name
= _mt_typnames
[mtnp
->mt_flags
& __MT_TMASK
];
447 mtlp
->mtl_result
= salloc(i
+ j
+1);
449 memcpy(mtlp
->mtl_result
, name
, j
);
450 memcpy(mtlp
->mtl_result
+ j
, mtnp
->mt_line
, i
);
451 mtlp
->mtl_result
[j
+= i
] = '\0';
461 static struct mtlookup
*
462 _mt_by_mtname(struct mtlookup
*mtlp
, char const *mtname
)
469 memset(mtlp
, 0, sizeof *mtlp
);
471 if ((mtlp
->mtl_nlen
= nlen
= strlen(mtlp
->mtl_name
= mtname
)) == 0)
477 /* ..all the MIME types */
478 for (mtnp
= _mt_list
; mtnp
!= NULL
; mtnp
= mtnp
->mt_next
) {
479 if ((mtnp
->mt_flags
& __MT_TMASK
) == _MT_OTHER
) {
483 cp
= _mt_typnames
[mtnp
->mt_flags
& __MT_TMASK
];
488 if (i
+ j
== mtlp
->mtl_nlen
) {
489 char *xmt
= ac_alloc(i
+ j
+1);
492 memcpy(xmt
+ j
, mtnp
->mt_line
, i
);
494 i
= asccasecmp(mtname
, xmt
);
499 mtlp
->mtl_node
= mtnp
;
511 SINLINE
struct mt_class_arg
*
512 _mt_classify_init(struct mt_class_arg
* mtcap
, enum mime_type_class initval
)
515 memset(mtcap
, 0, sizeof *mtcap
);
516 mtcap
->mtca_lastc
= mtcap
->mtca_c
= EOF
;
517 mtcap
->mtca_mtc
= initval
| _MT_C__1STLINE
;
522 static enum mime_type_class
523 _mt_classify_round(struct mt_class_arg
*mtcap
) /* TODO dig UTF-8 for !text/!! */
525 /* TODO BTW., after the MIME/send layer rewrite we could use a MIME
526 * TODO boundary of "=-=-=" if we would add a B_ in EQ spirit to F_,
527 * TODO and report that state to the outer world */
529 #define F_SIZEOF (sizeof(F_) -1)
530 char f_buf
[F_SIZEOF
], *f_p
= f_buf
;
535 enum mime_type_class mtc
;
538 buf
= mtcap
->mtca_buf
;
539 blen
= mtcap
->mtca_len
;
540 curlen
= mtcap
->mtca_curlen
;
542 lastc
= mtcap
->mtca_lastc
;
543 mtc
= mtcap
->mtca_mtc
;
548 /* Real EOF, or only current buffer end? */
549 if (mtcap
->mtca_len
== 0)
559 if (!(mtc
& _MT_C_ISTXTCOK
)) {
560 mtc
|= _MT_C_SUGGEST_DONE
;
565 if (c
== '\n' || c
== EOF
) {
566 mtc
&= ~_MT_C__1STLINE
;
567 if (curlen
>= MIME_LINELEN_LIMIT
)
568 mtc
|= _MT_C_LONGLINES
;
576 /* A bit hairy is handling of \r=\x0D=CR.
578 * Control characters other than TAB, or CR and LF as parts of CRLF
579 * pairs, must not appear. \r alone does not force _CTRLCHAR below since
580 * we cannot peek the next character. Thus right here, inspect the last
581 * seen character for if its \r and set _CTRLCHAR in a delayed fashion */
582 /*else*/ if (lastc
== '\r')
583 mtc
|= _MT_C_CTRLCHAR
;
585 /* Control character? XXX this is all ASCII here */
586 if (c
< 0x20 || c
== 0x7F) {
587 /* RFC 2045, 6.7, as above ... */
588 if (c
!= '\t' && c
!= '\r')
589 mtc
|= _MT_C_CTRLCHAR
;
590 /* If there is a escape sequence in reverse solidus notation defined
591 * for this in ANSI X3.159-1989 (ANSI C89), don't treat it as a control
592 * for real. I.e., \a=\x07=BEL, \b=\x08=BS, \t=\x09=HT. Don't follow
593 * libmagic(1) in respect to \v=\x0B=VT. \f=\x0C=NP; do ignore
595 if ((c
>= '\x07' && c
<= '\x0D') || c
== '\x1B')
597 mtc
|= _MT_C_HASNUL
; /* Force base64 */
598 if (!(mtc
& _MT_C_ISTXTCOK
)) {
599 mtc
|= _MT_C_SUGGEST_DONE
;
602 } else if ((ui8_t
)c
& 0x80) {
603 mtc
|= _MT_C_HIGHBIT
;
604 /* TODO count chars with HIGHBIT? libmagic?
605 * TODO try encode part - base64 if bails? */
606 if (!(mtc
& (_MT_C_NCTT
| _MT_C_ISTXT
))) { /* TODO _NCTT?? */
607 mtc
|= _MT_C_HASNUL
/* Force base64 */ | _MT_C_SUGGEST_DONE
;
610 } else if (!(mtc
& _MT_C_FROM_
) && UICMP(z
, curlen
, <, F_SIZEOF
)) {
612 if (UICMP(z
, curlen
, ==, F_SIZEOF
- 1) &&
613 PTR2SIZE(f_p
- f_buf
) == F_SIZEOF
&&
614 !memcmp(f_buf
, F_
, F_SIZEOF
)){
616 if (mtc
& _MT_C__1STLINE
)
617 mtc
|= _MT_C_FROM_1STLINE
;
621 if (c
== EOF
&& lastc
!= '\n')
622 mtc
|= _MT_C_NOTERMNL
;
624 mtcap
->mtca_curlen
= curlen
;
625 mtcap
->mtca_lastc
= lastc
;
627 mtcap
->mtca_mtc
= mtc
;
634 static enum mimecontent
635 _mt_classify_os_part(ui32_t mce
, struct mimepart
*mpp
)
637 struct str in
= {NULL
, 0}, outrest
, inrest
, dec
;
638 struct mt_class_arg mtca
;
640 enum mime_type_class mtc
;
648 assert(mpp
->m_mime_enc
!= MIMEE_BIN
);
650 outrest
= inrest
= dec
= in
;
654 /* TODO v15-compat Note we actually bypass our usual file handling by
655 * TODO directly using fseek() on mb.mb_itf -- the v15 rewrite will change
656 * TODO all of this, and until then doing it like this is the only option
657 * TODO to integrate nicely into whoever calls us */
658 start_off
= ftell(mb
.mb_itf
);
659 if ((ibuf
= setinput(&mb
, (struct message
*)mpp
, NEED_BODY
)) == NULL
) {
661 fseek(mb
.mb_itf
, start_off
, SEEK_SET
);
666 /* Skip part headers */
667 for (lc
= '\0'; cnt
> 0; lc
= c
, --cnt
)
668 if ((c
= getc(ibuf
)) == EOF
|| (c
== '\n' && lc
== '\n'))
670 if (cnt
== 0 || ferror(ibuf
))
673 /* So now let's inspect the part content, decoding content-transfer-encoding
674 * along the way TODO this should simply be "mime_factory_create(MPP)"! */
675 _mt_classify_init(&mtca
, _MT_C_ISTXT
);
680 c
= (--cnt
== 0) ? EOF
: getc(ibuf
);
681 if ((dobuf
= (c
== '\n'))) {
682 /* Ignore empty lines */
685 } else if ((dobuf
= (c
== EOF
))) {
686 if (lsz
== 0 && outrest
.l
== 0)
691 in
.s
= srealloc(in
.s
, lsz
+= LINESIZE
);
693 in
.s
[in
.l
++] = (char)c
;
698 switch (mpp
->m_mime_enc
) {
700 if (!b64_decode_part(&dec
, &in
, &outrest
,
701 (did_inrest
? NULL
: &inrest
))) {
702 mtca
.mtca_mtc
= _MT_C_HASNUL
;
703 goto jstopit
; /* break;break; */
708 if (!qp_decode_part(&dec
, &in
, &outrest
, &inrest
)) {
709 mtca
.mtca_mtc
= _MT_C_HASNUL
;
710 goto jstopit
; /* break;break; */
712 if (dec
.l
== 0 && c
!= EOF
) {
718 /* Temporarily switch those two buffers.. */
725 mtca
.mtca_buf
= dec
.s
;
726 mtca
.mtca_len
= (ssize_t
)dec
.l
;
727 if ((mtc
= _mt_classify_round(&mtca
)) & _MT_C_SUGGEST_DONE
) {
734 /* ..and restore switched */
742 if ((in
.l
= inrest
.l
) > 0) {
754 if (outrest
.s
!= NULL
)
756 if (inrest
.s
!= NULL
)
759 fseek(mb
.mb_itf
, start_off
, SEEK_SET
);
761 if (!(mtc
& (_MT_C_HASNUL
/*| _MT_C_CTRLCHAR XXX really? */))) {
762 mc
= MIME_TEXT_PLAIN
;
763 if (mce
& MIMECE_ALL_OVWR
)
764 mpp
->m_ct_type_plain
= "text/plain";
765 if (mce
& (MIMECE_BIN_OVWR
| MIMECE_ALL_OVWR
))
766 mpp
->m_ct_type_usr_ovwr
= "text/plain";
773 static enum mime_handler_flags
774 _mt_pipe_check(struct mime_handler
*mhp
)
776 enum mime_handler_flags rv_orig
, rv
;
780 rv_orig
= rv
= mhp
->mh_flags
;
782 /* Do we have any handler for this part? */
783 if (*(cp
= mhp
->mh_shell_cmd
) == '\0')
785 else if (*cp
++ != '@') {
788 } else if (*cp
== '\0') {
795 case '*': rv
|= MIME_HDL_ALWAYS
; ++cp
; goto jnextc
;
796 case '#': rv
|= MIME_HDL_NOQUOTE
; ++cp
; goto jnextc
;
797 case '&': rv
|= MIME_HDL_ASYNC
; ++cp
; goto jnextc
;
798 case '!': rv
|= MIME_HDL_NEEDSTERM
; ++cp
; goto jnextc
;
800 if (rv
& MIME_HDL_TMPF
)
801 rv
|= MIME_HDL_TMPF_UNLINK
;
806 rv
|= MIME_HDL_TMPF_FILL
;
815 mhp
->mh_shell_cmd
= cp
;
818 if (rv
& MIME_HDL_TMPF_FILL
)
822 if (rv
& MIME_HDL_ISQUOTE
) {
823 if (rv
& MIME_HDL_NOQUOTE
)
826 /* Cannot fetch data back from asynchronous process */
827 if (rv
& MIME_HDL_ASYNC
)
830 /* TODO Can't use a "needsterminal" program for quoting */
831 if (rv
& MIME_HDL_NEEDSTERM
)
835 if (rv
& MIME_HDL_NEEDSTERM
) {
836 if (rv
& MIME_HDL_ASYNC
) {
837 n_err(_("MIME type handlers: can't use needsterminal and "
838 "x-nail-async together\n"));
842 /* needsterminal needs a terminal */
843 if (!(n_psonce
& n_PSO_INTERACTIVE
))
847 if (!(rv
& MIME_HDL_ALWAYS
) && !(n_pstate
& n_PS_MSGLIST_DIRECT
)) {
848 /* Viewing multiple messages in one go, don't block system */
849 mhp
->mh_msg
.l
= strlen(mhp
->mh_msg
.s
= n_UNCONST(
850 _("[-- Directly address message only for display --]\n")));
879 if (_mt_list
== NULL
) {
881 _("*mimetypes-load-control*: no mime.types(5) available\n"));
885 if ((fp
= Ftmp(NULL
, "mimelist", OF_RDWR
| OF_UNLINK
| OF_REGISTER
)) ==
887 n_perr(_("tmpfile"), 0);
892 for (l
= 0, mtnp
= _mt_list
; mtnp
!= NULL
; ++l
, mtnp
= mtnp
->mt_next
) {
893 char const *tmark
, *typ
;
895 switch (mtnp
->mt_flags
& __MT_MARKMASK
) {
896 case _MT_PLAIN
: tmark
= "/t"; break;
897 case _MT_SOUP_h
: tmark
= "/h"; break;
898 case _MT_SOUP_H
: tmark
= "/H"; break;
899 default: tmark
= " "; break;
901 typ
= ((mtnp
->mt_flags
& __MT_TMASK
) == _MT_OTHER
)
902 ? n_empty
: _mt_typnames
[mtnp
->mt_flags
& __MT_TMASK
];
904 fprintf(fp
, "%c%s %s%.*s %s\n",
905 (mtnp
->mt_flags
& _MT_USR
? 'U'
906 : (mtnp
->mt_flags
& _MT_SYS
? 'S'
907 : (mtnp
->mt_flags
& _MT_FSPEC
? 'F'
908 : (mtnp
->mt_flags
& _MT_CMD
? 'C' : 'B')))),
909 tmark
, typ
, (int)mtnp
->mt_mtlen
, mtnp
->mt_line
,
910 mtnp
->mt_line
+ mtnp
->mt_mtlen
);
913 page_or_print(fp
, l
);
916 for (; *argv
!= NULL
; ++argv
) {
917 mtnp
= _mt_create(TRU1
, _MT_CMD
, *argv
, strlen(*argv
));
919 mtnp
->mt_next
= _mt_list
;
927 return (v
== NULL
? !STOP
: !OKAY
); /* xxx 1:bad 0:good -- do some */
931 c_unmimetype(void *v
)
934 struct mtnode
*lnp
, *mtnp
;
938 /* Need to load that first as necessary */
942 for (; *argv
!= NULL
; ++argv
) {
943 if (!asccasecmp(*argv
, "reset")) {
948 if (argv
[0][0] == '*' && argv
[0][1] == '\0') {
950 while ((mtnp
= _mt_list
) != NULL
) {
951 _mt_list
= mtnp
->mt_next
;
957 for (match
= FAL0
, lnp
= NULL
, mtnp
= _mt_list
; mtnp
!= NULL
;) {
962 if ((mtnp
->mt_flags
& __MT_TMASK
) == _MT_OTHER
) {
966 typ
= _mt_typnames
[mtnp
->mt_flags
& __MT_TMASK
];
970 val
= ac_alloc(i
+ mtnp
->mt_mtlen
+1);
972 memcpy(val
+ i
, mtnp
->mt_line
, mtnp
->mt_mtlen
);
973 val
[i
+= mtnp
->mt_mtlen
] = '\0';
974 i
= asccasecmp(val
, *argv
);
978 struct mtnode
*nnp
= mtnp
->mt_next
;
987 lnp
= mtnp
, mtnp
= mtnp
->mt_next
;
990 if (!(n_pstate
& n_PS_ROBOT
) || (n_poption
& n_PO_D_V
))
991 n_err(_("No such MIME type: %s\n"), *argv
);
996 return (v
== NULL
? !STOP
: !OKAY
); /* xxx 1:bad 0:good -- do some */
1000 n_mimetype_check_mtname(char const *name
)
1002 struct mtlookup mtl
;
1006 rv
= (_mt_by_mtname(&mtl
, name
) != NULL
);
1012 n_mimetype_classify_filename(char const *name
)
1014 struct mtlookup mtl
;
1017 _mt_by_filename(&mtl
, name
, TRU1
);
1019 return mtl
.mtl_result
;
1023 n_mimetype_classify_file(FILE *fp
, char const **contenttype
,
1024 char const **charset
, int *do_iconv
)
1026 /* TODO classify once only PLEASE PLEASE PLEASE */
1027 /* TODO message/rfc822 is special in that it may only be 7bit, 8bit or
1028 * TODO binary according to RFC 2046, 5.2.1
1029 * TODO The handling of which is a hack */
1031 enum mime_type_class mtc
;
1037 assert(ftell(fp
) == 0x0l
);
1041 if (*contenttype
== NULL
) {
1044 } else if (!ascncasecmp(*contenttype
, "text/", 5)) {
1045 mtc
= ok_blook(mime_allow_text_controls
)
1046 ? _MT_C_ISTXT
| _MT_C_ISTXTCOK
: _MT_C_ISTXT
;
1048 } else if (!asccasecmp(*contenttype
, "message/rfc822")) {
1056 menc
= mime_enc_target();
1058 if ((fpsz
= fsize(fp
)) == 0)
1061 char buf
[BUFFER_SIZE
];
1062 struct mt_class_arg mtca
;
1064 _mt_classify_init(&mtca
, mtc
);
1066 mtca
.mtca_len
= fread(buf
, sizeof(buf
[0]), n_NELEM(buf
), fp
);
1067 mtca
.mtca_buf
= buf
;
1068 if ((mtc
= _mt_classify_round(&mtca
)) & _MT_C_SUGGEST_DONE
)
1070 if (mtca
.mtca_len
== 0)
1073 /* TODO ferror(fp) ! */
1077 if (mtc
& _MT_C_HASNUL
) {
1079 /* Don't overwrite a text content-type to allow UTF-16 and such, but only
1080 * on request; else enforce what file(1)/libmagic(3) would suggest */
1081 if (mtc
& _MT_C_ISTXTCOK
)
1083 if (mtc
& (_MT_C_NCTT
| _MT_C_ISTXT
))
1084 *contenttype
= "application/octet-stream";
1085 if (*charset
== NULL
)
1086 *charset
= "binary";
1091 (_MT_C_LONGLINES
| _MT_C_CTRLCHAR
| _MT_C_NOTERMNL
| _MT_C_FROM_
)) {
1092 if (menc
!= MIMEE_B64
)
1096 if (mtc
& _MT_C_HIGHBIT
) {
1098 if (mtc
& (_MT_C_NCTT
| _MT_C_ISTXT
))
1099 *do_iconv
= ((mtc
& _MT_C_HIGHBIT
) != 0);
1103 if (mtc
& _MT_C_NCTT
)
1104 *contenttype
= "text/plain";
1106 /* Not an attachment with specified charset? */
1108 if (*charset
== NULL
) /* TODO MIME/send: iter active? iter! else */
1109 *charset
= (mtc
& _MT_C_HIGHBIT
) ? charset_iter_or_fallback()
1110 : ok_vlook(charset_7bit
);
1112 /* TODO mime_type_file_classify() shouldn't return conversion */
1114 if (mtc
& _MT_C_FROM_1STLINE
) {
1115 n_err(_("Pre-v15 %s cannot handle message/rfc822 that "
1116 "indeed is a RFC 4155 MBOX!\n"
1117 " Forcing a content-type of application/mbox!\n"),
1119 *contenttype
= "application/mbox";
1122 c
= (menc
== MIMEE_7B
? CONV_7BIT
1123 : (menc
== MIMEE_8B
? CONV_8BIT
1127 c
= (menc
== MIMEE_7B
? CONV_7BIT
1128 : (menc
== MIMEE_8B
? CONV_8BIT
1129 : (menc
== MIMEE_QP
? CONV_TOQP
: CONV_TOB64
)));
1135 n_mimetype_classify_part(struct mimepart
*mpp
) /* FIXME charset=binary ??? */
1137 struct mtlookup mtl
;
1138 enum mimecontent mc
;
1140 union {char const *cp
; ui32_t f
;} mce
;
1145 if ((ct
= mpp
->m_ct_type_plain
) == NULL
) /* TODO may not */
1148 if((mce
.cp
= ok_vlook(mime_counter_evidence
)) != NULL
&& *mce
.cp
!= '\0'){
1149 if((n_idec_ui32_cp(&mce
.f
, mce
.cp
, 0, NULL
1150 ) & (n_IDEC_STATE_EMASK
| n_IDEC_STATE_CONSUMED
)
1151 ) != n_IDEC_STATE_CONSUMED
){
1152 n_err(_("Invalid *mime-counter-evidence* value content\n"));
1155 mce
.f
|= MIMECE_SET
;
1156 is_os
= !asccasecmp(ct
, "application/octet-stream");
1158 if(mpp
->m_filename
!= NULL
&& (is_os
|| (mce
.f
& MIMECE_ALL_OVWR
))){
1159 if(_mt_by_filename(&mtl
, mpp
->m_filename
, TRU1
) == NULL
){
1161 goto jos_content_check
;
1162 }else if(is_os
|| asccasecmp(ct
, mtl
.mtl_result
)){
1163 if(mce
.f
& MIMECE_ALL_OVWR
)
1164 mpp
->m_ct_type_plain
= ct
= mtl
.mtl_result
;
1165 if(mce
.f
& (MIMECE_BIN_OVWR
| MIMECE_ALL_OVWR
))
1166 mpp
->m_ct_type_usr_ovwr
= ct
= mtl
.mtl_result
;
1173 if(strchr(ct
, '/') == NULL
) /* For compatibility with non-MIME */
1175 else if(is_asccaseprefix("text/", ct
)){
1176 ct
+= sizeof("text/") -1;
1177 if(!asccasecmp(ct
, "plain"))
1178 mc
= MIME_TEXT_PLAIN
;
1179 else if(!asccasecmp(ct
, "html"))
1180 mc
= MIME_TEXT_HTML
;
1183 }else if(is_asccaseprefix("message/", ct
)){
1184 ct
+= sizeof("message/") -1;
1185 if(!asccasecmp(ct
, "rfc822"))
1189 }else if(is_asccaseprefix("multipart/", ct
)){
1192 enum mimecontent mt_mc
;
1194 {"alternative\0", MIME_ALTERNATIVE
},
1195 {"related", MIME_RELATED
},
1196 {"digest", MIME_DIGEST
},
1197 {"signed", MIME_SIGNED
},
1198 {"encrypted", MIME_ENCRYPTED
}
1201 for(ct
+= sizeof("multipart/") -1, mtap
= mta
;;)
1202 if(!asccasecmp(ct
, mtap
->mt_name
)){
1205 }else if(++mtap
== mta
+ n_NELEM(mta
)){
1209 }else if(is_asccaseprefix("application/", ct
)){
1211 goto jos_content_check
;
1212 ct
+= sizeof("application/") -1;
1213 if(!asccasecmp(ct
, "pkcs7-mime") || !asccasecmp(ct
, "x-pkcs7-mime"))
1221 if((mce
.f
& MIMECE_BIN_PARSE
) && mpp
->m_mime_enc
!= MIMEE_BIN
&&
1222 mpp
->m_charset
!= NULL
&& asccasecmp(mpp
->m_charset
, "binary"))
1223 mc
= _mt_classify_os_part(mce
.f
, mpp
);
1227 FL
enum mime_handler_flags
1228 n_mimetype_handler(struct mime_handler
*mhp
, struct mimepart
const *mpp
,
1229 enum sendaction action
)
1232 #define __L (sizeof(__S) -1)
1233 struct mtlookup mtl
;
1235 enum mime_handler_flags rv
;
1236 char const *es
, *cs
, *ccp
;
1240 memset(mhp
, 0, sizeof *mhp
);
1244 if (action
== SEND_QUOTE
|| action
== SEND_QUOTE_ALL
)
1245 rv
|= MIME_HDL_ISQUOTE
;
1246 else if (action
!= SEND_TODISP
&& action
!= SEND_TODISP_ALL
)
1249 el
= ((es
= mpp
->m_filename
) != NULL
&& (es
= strrchr(es
, '.')) != NULL
&&
1250 *++es
!= '\0') ? strlen(es
) : 0;
1251 cl
= ((cs
= mpp
->m_ct_type_usr_ovwr
) != NULL
||
1252 (cs
= mpp
->m_ct_type_plain
) != NULL
) ? strlen(cs
) : 0;
1253 if ((l
= n_MAX(el
, cl
)) == 0) {
1254 /* TODO this should be done during parse time! */
1258 /* We don't pass the flags around, so ensure carrier is up-to-date */
1261 buf
= ac_alloc(__L
+ l
+1);
1262 memcpy(buf
, __S
, __L
);
1264 /* File-extension handlers take precedence.
1265 * Yes, we really "fail" here for file extensions which clash MIME types */
1267 memcpy(buf
+ __L
, es
, el
+1);
1268 for (cp
= buf
+ __L
; *cp
!= '\0'; ++cp
)
1269 *cp
= lowerconv(*cp
);
1271 if ((mhp
->mh_shell_cmd
= ccp
= n_var_vlook(buf
, FAL0
)) != NULL
) {
1272 rv
= _mt_pipe_check(mhp
);
1277 /* Then MIME Content-Type:, if any */
1281 memcpy(buf
+ __L
, cs
, cl
+1);
1282 for (cp
= buf
+ __L
; *cp
!= '\0'; ++cp
)
1283 *cp
= lowerconv(*cp
);
1285 if ((mhp
->mh_shell_cmd
= n_var_vlook(buf
, FAL0
)) != NULL
) {
1286 rv
= _mt_pipe_check(mhp
);
1290 if (_mt_by_mtname(&mtl
, cs
) != NULL
)
1291 switch (mtl
.mtl_node
->mt_flags
& __MT_MARKMASK
) {
1292 #ifndef HAVE_FILTER_HTML_TAGSOUP
1297 #ifdef HAVE_FILTER_HTML_TAGSOUP
1299 mhp
->mh_ptf
= &htmlflt_process_main
;
1300 mhp
->mh_msg
.l
= strlen(mhp
->mh_msg
.s
=
1301 n_UNCONST(_("Builtin HTML tagsoup filter")));
1302 rv
^= MIME_HDL_NULL
| MIME_HDL_PTF
;
1307 mhp
->mh_msg
.l
= strlen(mhp
->mh_msg
.s
= n_UNCONST(_("Plain text")));
1308 rv
^= MIME_HDL_NULL
| MIME_HDL_TEXT
;
1319 if ((rv
&= MIME_HDL_TYPE_MASK
) == MIME_HDL_NULL
)
1320 mhp
->mh_msg
.l
= strlen(mhp
->mh_msg
.s
= n_UNCONST(
1321 _("[-- No MIME handler installed or none applicable --]")));