Home | History | Annotate | Line # | Download | only in mail
mime_attach.c revision 1.19.4.1
      1  1.19.4.1  christos /*	$NetBSD: mime_attach.c,v 1.19.4.1 2019/06/10 22:10:21 christos Exp $	*/
      2       1.1  christos 
      3       1.1  christos /*-
      4       1.1  christos  * Copyright (c) 2006 The NetBSD Foundation, Inc.
      5       1.1  christos  * All rights reserved.
      6       1.1  christos  *
      7       1.1  christos  * This code is derived from software contributed to The NetBSD Foundation
      8       1.1  christos  * by Anon Ymous.
      9       1.1  christos  *
     10       1.1  christos  * Redistribution and use in source and binary forms, with or without
     11       1.1  christos  * modification, are permitted provided that the following conditions
     12       1.1  christos  * are met:
     13       1.1  christos  * 1. Redistributions of source code must retain the above copyright
     14       1.1  christos  *    notice, this list of conditions and the following disclaimer.
     15       1.1  christos  * 2. Redistributions in binary form must reproduce the above copyright
     16       1.1  christos  *    notice, this list of conditions and the following disclaimer in the
     17       1.1  christos  *    documentation and/or other materials provided with the distribution.
     18       1.1  christos  *
     19       1.1  christos  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     20       1.1  christos  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     21       1.1  christos  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     22       1.1  christos  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     23       1.1  christos  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     24       1.1  christos  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     25       1.1  christos  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     26       1.1  christos  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     27       1.1  christos  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     28       1.1  christos  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     29       1.1  christos  * POSSIBILITY OF SUCH DAMAGE.
     30       1.1  christos  */
     31       1.1  christos 
     32       1.1  christos #ifdef MIME_SUPPORT
     33       1.1  christos 
     34       1.1  christos #include <sys/cdefs.h>
     35       1.1  christos #ifndef __lint__
     36  1.19.4.1  christos __RCSID("$NetBSD: mime_attach.c,v 1.19.4.1 2019/06/10 22:10:21 christos Exp $");
     37       1.1  christos #endif /* not __lint__ */
     38       1.1  christos 
     39       1.1  christos #include <assert.h>
     40       1.1  christos #include <err.h>
     41       1.1  christos #include <fcntl.h>
     42       1.1  christos #include <libgen.h>
     43       1.1  christos #include <magic.h>
     44       1.1  christos #include <signal.h>
     45       1.1  christos #include <stdio.h>
     46       1.1  christos #include <stdlib.h>
     47       1.1  christos #include <string.h>
     48       1.1  christos #include <unistd.h>
     49       1.1  christos #include <util.h>
     50       1.1  christos 
     51       1.1  christos #include "def.h"
     52       1.1  christos #include "extern.h"
     53       1.1  christos #ifdef USE_EDITLINE
     54       1.1  christos #include "complete.h"
     55       1.1  christos #endif
     56       1.1  christos #ifdef MIME_SUPPORT
     57       1.1  christos #include "mime.h"
     58       1.1  christos #include "mime_codecs.h"
     59       1.1  christos #include "mime_child.h"
     60       1.1  christos #endif
     61       1.1  christos #include "glob.h"
     62      1.12  christos #include "sig.h"
     63       1.1  christos 
     64       1.1  christos #if 0
     65       1.1  christos /*
     66       1.7  christos  * XXX - This block is for debugging only and eventually should go away.
     67       1.7  christos  */
     68       1.7  christos # define SHOW_ALIST(a,b) show_alist(a,b)
     69       1.7  christos static void
     70       1.7  christos show_alist(struct attachment *alist, struct attachment *ap)
     71       1.7  christos {
     72       1.7  christos 	(void)printf("alist=%p ap=%p\n", alist, ap);
     73       1.7  christos 	for (ap = alist; ap; ap = ap->a_flink) {
     74       1.7  christos 		(void)printf("ap=%p ap->a_flink=%p ap->a_blink=%p ap->a_name=%s\n",
     75       1.7  christos 		    ap, ap->a_flink, ap->a_blink, ap->a_name ? ap->a_name : "<null>");
     76       1.7  christos 	}
     77       1.7  christos }
     78       1.7  christos #else
     79       1.7  christos # define SHOW_ALIST(a,b)
     80       1.7  christos #endif
     81       1.7  christos 
     82       1.7  christos #if 0
     83       1.7  christos #ifndef __lint__ /* Don't lint: the public routines may not be used. */
     84       1.7  christos /*
     85       1.7  christos  * XXX - This block for is debugging only and eventually should go away.
     86       1.1  christos  */
     87       1.1  christos static void
     88       1.1  christos show_name(const char *prefix, struct name *np)
     89       1.1  christos {
     90       1.1  christos 	int i;
     91       1.1  christos 
     92       1.1  christos 	i = 0;
     93       1.5  christos 	for (/*EMPTY*/; np; np = np->n_flink) {
     94       1.1  christos 		(void)printf("%s[%d]: %s\n", prefix, i, np->n_name);
     95       1.1  christos 		i++;
     96       1.1  christos 	}
     97       1.1  christos }
     98       1.1  christos 
     99       1.2  christos static void fput_mime_content(FILE *fp, struct Content *Cp);
    100       1.2  christos 
    101       1.1  christos PUBLIC void
    102       1.1  christos show_attach(const char *prefix, struct attachment *ap)
    103       1.1  christos {
    104       1.1  christos 	int i;
    105       1.1  christos 	i = 1;
    106       1.5  christos 	for (/*EMPTY*/; ap; ap = ap->a_flink) {
    107       1.1  christos 		(void)printf("%s[%d]:\n", prefix, i);
    108       1.1  christos 		fput_mime_content(stdout, &ap->a_Content);
    109       1.1  christos 		i++;
    110       1.1  christos 	}
    111       1.1  christos }
    112       1.1  christos 
    113       1.1  christos PUBLIC void
    114       1.1  christos show_header(struct header *hp)
    115       1.1  christos {
    116       1.1  christos 	show_name("TO", hp->h_to);
    117       1.1  christos 	(void)printf("SUBJECT: %s\n", hp->h_subject);
    118       1.1  christos 	show_name("CC", hp->h_cc);
    119       1.1  christos 	show_name("BCC", hp->h_bcc);
    120       1.1  christos 	show_name("SMOPTS", hp->h_smopts);
    121       1.1  christos 	show_attach("ATTACH", hp->h_attach);
    122       1.1  christos }
    123       1.1  christos #endif	/* __lint__ */
    124       1.1  christos #endif
    125       1.1  christos 
    126       1.1  christos /***************************
    127       1.1  christos  * boundary string routines
    128       1.1  christos  */
    129       1.1  christos static char *
    130       1.1  christos getrandstring(size_t length)
    131       1.1  christos {
    132       1.1  christos 	void *vbin;
    133       1.1  christos 	uint32_t *bin;
    134       1.1  christos 	size_t binlen;
    135       1.1  christos 	size_t i;
    136       1.1  christos 	char *b64;
    137       1.1  christos 
    138       1.1  christos 	/* XXX - check this stuff again!!! */
    139       1.1  christos 
    140       1.1  christos 	binlen = 3 * roundup(length, 4) / 4;	/* bytes of binary to encode base64 */
    141       1.1  christos 	bin = vbin = salloc(roundup(binlen, 4));
    142       1.1  christos 	for (i = 0; i < roundup(binlen, 4) / 4; i++)
    143       1.1  christos 		bin[i] = arc4random();
    144       1.1  christos 
    145       1.1  christos 	b64 = salloc(roundup(length, 4));
    146       1.1  christos 	mime_bintob64(b64, vbin, binlen);
    147       1.1  christos 	b64[length] = '\0';
    148       1.1  christos 
    149       1.1  christos 	return b64;
    150       1.1  christos }
    151       1.1  christos 
    152       1.1  christos /*
    153       1.1  christos  * Generate a boundary for MIME multipart messages.
    154       1.1  christos  */
    155       1.1  christos static char *
    156       1.1  christos make_boundary(void)
    157       1.1  christos {
    158       1.1  christos #define BOUND_LEN 70	/* maximum length is 70 characters: RFC2046 sec 5.1.1 */
    159       1.1  christos 
    160       1.1  christos 	char *bound;
    161       1.1  christos 	time_t	now;
    162       1.1  christos 
    163       1.1  christos 	(void)time(&now);
    164       1.1  christos 	bound = salloc(BOUND_LEN);
    165       1.1  christos 	(void)snprintf(bound, BOUND_LEN, "=_%08lx.%s",
    166       1.1  christos 	    (long)now, getrandstring(BOUND_LEN - 12));
    167       1.1  christos 	return bound;
    168       1.1  christos 
    169       1.1  christos #undef BOUND_LEN
    170       1.1  christos }
    171       1.1  christos 
    172       1.1  christos /***************************
    173       1.1  christos  * Transfer coding routines
    174       1.1  christos  */
    175       1.1  christos /*
    176       1.1  christos  * We determine the recommended transfer encoding type for a file as
    177       1.1  christos  * follows:
    178       1.1  christos  *
    179       1.1  christos  * 1) If there is a NULL byte or a stray CR (not in a CRLF
    180       1.1  christos  *    combination) in the file, play it safe and use base64.
    181       1.1  christos  *
    182       1.1  christos  * 2) If any high bit is set, use quoted-printable if the content type
    183       1.1  christos  *    is "text" and base64 otherwise.
    184       1.1  christos  *
    185       1.1  christos  * 3) Otherwise:
    186       1.1  christos  *    a) use quoted-printable if there are any long lines, control
    187       1.1  christos  *       chars (including CR), end-of-line blank space, or a missing
    188       1.1  christos  *       terminating NL.
    189       1.1  christos  *    b) use 7bit in all remaining case, including an empty file.
    190       1.1  christos  *
    191       1.1  christos  * NOTE: This means that CRLF text (MSDOS) files will be encoded
    192       1.1  christos  * quoted-printable.
    193       1.5  christos  */
    194       1.1  christos /*
    195       1.1  christos  * RFC 821 imposes the following line length limit:
    196       1.1  christos  *  The maximum total length of a text line including the
    197       1.1  christos  *  <CRLF> is 1000 characters (but not counting the leading
    198       1.1  christos  *  dot duplicated for transparency).
    199       1.1  christos  */
    200       1.1  christos #define MIME_UNENCODED_LINE_MAX	(1000 - 2)
    201       1.1  christos static size_t
    202       1.1  christos line_limit(void)
    203       1.1  christos {
    204       1.1  christos 	int limit;
    205       1.1  christos 	const char *cp;
    206       1.1  christos 	limit = -1;
    207       1.1  christos 
    208       1.1  christos 	if ((cp = value(ENAME_MIME_UNENC_LINE_MAX)) != NULL)
    209       1.1  christos 		limit = atoi(cp);
    210       1.1  christos 
    211       1.1  christos 	if (limit < 0 || limit > MIME_UNENCODED_LINE_MAX)
    212       1.1  christos 		limit = MIME_UNENCODED_LINE_MAX;
    213       1.1  christos 
    214       1.1  christos 	return (size_t)limit;
    215       1.1  christos }
    216       1.1  christos 
    217       1.3  christos static inline int
    218       1.3  christos is_text(const char *ctype)
    219       1.1  christos {
    220       1.1  christos 	return ctype &&
    221       1.1  christos 	    strncasecmp(ctype, "text/", sizeof("text/") - 1) == 0;
    222       1.1  christos }
    223       1.1  christos 
    224       1.1  christos static const char *
    225       1.1  christos content_encoding_core(void *fh, const char *ctype)
    226       1.1  christos {
    227      1.16  christos #define MAILMSG_CLEAN	0x0
    228      1.16  christos #define MAILMSG_ENDWS	0x1
    229      1.16  christos #define MAILMSG_CTRLC	0x2
    230      1.16  christos #define MAILMSG_8BIT	0x4
    231      1.16  christos #define MAILMSG_LONGL	0x8
    232      1.16  christos 	int c, lastc, state;
    233       1.1  christos 	size_t curlen, maxlen;
    234       1.5  christos 
    235      1.16  christos 	state = MAILMSG_CLEAN;
    236       1.1  christos 	curlen = 0;
    237      1.16  christos 	maxlen = line_limit();
    238       1.1  christos 	lastc = EOF;
    239       1.1  christos 	while ((c = fgetc(fh)) != EOF) {
    240       1.1  christos 		curlen++;
    241       1.5  christos 
    242      1.15  christos 		if (c == '\0')
    243       1.1  christos 			return MIME_TRANSFER_BASE64;
    244       1.1  christos 
    245       1.1  christos 		if (c > 0x7f) {
    246      1.16  christos 			if (!is_text(ctype))
    247       1.1  christos 				return MIME_TRANSFER_BASE64;
    248      1.16  christos 			state |= MAILMSG_8BIT;
    249      1.16  christos 			continue;
    250       1.1  christos 		}
    251       1.1  christos 		if (c == '\n') {
    252       1.5  christos 			if (is_WSP(lastc))
    253      1.16  christos 				state |= MAILMSG_ENDWS;
    254       1.1  christos 			if (curlen > maxlen)
    255      1.16  christos 				state |= MAILMSG_LONGL;
    256       1.1  christos 			curlen = 0;
    257       1.1  christos 		}
    258      1.15  christos 		else if ((c < 0x20 && c != '\t') || c == 0x7f || lastc == '\r')
    259      1.16  christos 			state |= MAILMSG_CTRLC;
    260       1.1  christos 		lastc = c;
    261       1.1  christos 	}
    262       1.1  christos 	if (lastc == EOF) /* no characters read */
    263       1.1  christos 		return MIME_TRANSFER_7BIT;
    264       1.1  christos 
    265      1.16  christos 	if (lastc != '\n' || state != MAILMSG_CLEAN)
    266       1.1  christos 		return MIME_TRANSFER_QUOTED;
    267       1.1  christos 
    268       1.1  christos 	return MIME_TRANSFER_7BIT;
    269       1.1  christos }
    270       1.1  christos 
    271       1.1  christos static const char *
    272       1.1  christos content_encoding_by_name(const char *filename, const char *ctype)
    273       1.1  christos {
    274       1.1  christos 	FILE *fp;
    275       1.1  christos 	const char *enc;
    276      1.19  christos 	fp = Fopen(filename, "ref");
    277       1.1  christos 	if (fp == NULL) {
    278       1.1  christos 		warn("content_encoding_by_name: %s", filename);
    279       1.1  christos 		return MIME_TRANSFER_BASE64;	/* safe */
    280       1.1  christos 	}
    281       1.1  christos 	enc = content_encoding_core(fp, ctype);
    282       1.8  christos 	(void)Fclose(fp);
    283       1.1  christos 	return enc;
    284       1.1  christos }
    285       1.1  christos 
    286       1.1  christos static const char *
    287       1.1  christos content_encoding_by_fileno(int fd, const char *ctype)
    288       1.1  christos {
    289       1.1  christos 	FILE *fp;
    290       1.8  christos 	int fd2;
    291       1.1  christos 	const char *encoding;
    292       1.1  christos 	off_t cur_pos;
    293       1.1  christos 
    294       1.1  christos 	cur_pos = lseek(fd, (off_t)0, SEEK_CUR);
    295       1.8  christos 	if ((fd2 = dup(fd)) == -1 ||
    296      1.19  christos 	    (fp = Fdopen(fd2, "ref")) == NULL) {
    297       1.1  christos 		warn("content_encoding_by_fileno");
    298       1.8  christos 		if (fd2 != -1)
    299       1.8  christos 			(void)close(fd2);
    300       1.1  christos 		return MIME_TRANSFER_BASE64;
    301       1.1  christos 	}
    302       1.1  christos 	encoding = content_encoding_core(fp, ctype);
    303       1.9  christos 	(void)Fclose(fp);
    304       1.1  christos 	(void)lseek(fd, cur_pos, SEEK_SET);
    305       1.1  christos 	return encoding;
    306       1.1  christos }
    307       1.1  christos 
    308       1.1  christos static const char *
    309       1.7  christos content_encoding(struct attachment *ap, const char *ctype)
    310       1.1  christos {
    311       1.7  christos 	switch (ap->a_type) {
    312       1.1  christos 	case ATTACH_FNAME:
    313       1.7  christos 		return content_encoding_by_name(ap->a_name, ctype);
    314       1.1  christos 	case ATTACH_MSG:
    315       1.7  christos 		return "7bit";
    316       1.1  christos 	case ATTACH_FILENO:
    317       1.7  christos 		return content_encoding_by_fileno(ap->a_fileno, ctype);
    318       1.7  christos 	case ATTACH_INVALID:
    319       1.1  christos 	default:
    320       1.7  christos 		/* This is a coding error! */
    321       1.7  christos 		assert(/* CONSTCOND */ 0);
    322       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    323       1.7  christos 		/* NOTREACHED */
    324       1.1  christos 	}
    325       1.1  christos }
    326       1.1  christos 
    327       1.1  christos /************************
    328       1.1  christos  * Content type routines
    329       1.1  christos  */
    330       1.1  christos /*
    331       1.1  christos  * We use libmagic(3) to get the content type, except in the case of a
    332       1.4  christos  * 0 or 1 byte file where libmagic gives rather useless results.
    333       1.1  christos  */
    334       1.1  christos static const char *
    335       1.4  christos content_type_by_name(char *filename)
    336       1.1  christos {
    337       1.1  christos 	const char *cp;
    338       1.4  christos 	char *cp2;
    339       1.1  christos 	magic_t magic;
    340       1.1  christos 	struct stat sb;
    341       1.1  christos 
    342      1.13  christos #ifdef BROKEN_MAGIC
    343       1.1  christos 	/*
    344      1.13  christos 	 * libmagic(3) produces annoying results on very short files.
    345      1.13  christos 	 * The common case is MIME encoding an empty message body.
    346      1.13  christos 	 * XXX - it would be better to fix libmagic(3)!
    347       1.4  christos 	 *
    348       1.4  christos 	 * Note: a 1-byte message body always consists of a newline,
    349       1.4  christos 	 * so size determines all there.  However, 1-byte attachments
    350       1.4  christos 	 * (filename != NULL) could be anything, so check those.
    351       1.1  christos 	 */
    352       1.1  christos 	if ((filename != NULL && stat(filename, &sb) == 0) ||
    353       1.4  christos 	    (filename == NULL && fstat(0, &sb) == 0)) {
    354       1.4  christos 		if (sb.st_size < 2 && S_ISREG(sb.st_mode)) {
    355       1.4  christos 			FILE *fp;
    356       1.4  christos 			int ch;
    357      1.13  christos 
    358       1.4  christos 			if (sb.st_size == 0 || filename == NULL ||
    359      1.19  christos 			    (fp = Fopen(filename, "ref")) == NULL)
    360       1.4  christos 				return "text/plain";
    361       1.4  christos 
    362       1.4  christos 			ch = fgetc(fp);
    363       1.8  christos 			(void)Fclose(fp);
    364       1.4  christos 
    365       1.4  christos 			return isprint(ch) || isspace(ch) ?
    366       1.4  christos 			    "text/plain" : "application/octet-stream";
    367       1.4  christos 		}
    368       1.4  christos 	}
    369      1.13  christos #endif
    370       1.1  christos 	magic = magic_open(MAGIC_MIME);
    371       1.1  christos 	if (magic == NULL) {
    372      1.11  christos 		warnx("magic_open: %s", magic_error(magic));
    373       1.1  christos 		return NULL;
    374       1.1  christos 	}
    375       1.1  christos 	if (magic_load(magic, NULL) != 0) {
    376      1.11  christos 		warnx("magic_load: %s", magic_error(magic));
    377       1.1  christos 		return NULL;
    378       1.1  christos 	}
    379       1.1  christos 	cp = magic_file(magic, filename);
    380       1.1  christos 	if (cp == NULL) {
    381      1.12  christos 		warnx("magic_load: %s", magic_error(magic));
    382       1.1  christos 		return NULL;
    383       1.1  christos 	}
    384       1.4  christos 	if (filename &&
    385       1.4  christos 	    sasprintf(&cp2, "%s; name=\"%s\"", cp, basename(filename)) != -1)
    386       1.4  christos 		cp = cp2;
    387       1.4  christos 	else
    388       1.4  christos 		cp = savestr(cp);
    389       1.1  christos 	magic_close(magic);
    390       1.1  christos 	return cp;
    391       1.1  christos }
    392       1.1  christos 
    393       1.1  christos static const char *
    394       1.1  christos content_type_by_fileno(int fd)
    395       1.1  christos {
    396       1.1  christos 	const char *cp;
    397       1.1  christos 	off_t cur_pos;
    398       1.1  christos 	int ofd;
    399       1.1  christos 
    400       1.1  christos 	cur_pos = lseek(fd, (off_t)0, SEEK_CUR);
    401       1.1  christos 
    402       1.1  christos 	ofd = dup(0);		/* save stdin */
    403       1.1  christos 	if (dup2(fd, 0) == -1)	/* become stdin */
    404       1.1  christos 		warn("dup2");
    405       1.1  christos 
    406       1.1  christos 	cp = content_type_by_name(NULL);
    407       1.1  christos 
    408       1.1  christos 	if (dup2(ofd, 0) == -1)	/* restore stdin */
    409       1.1  christos 		warn("dup2");
    410       1.1  christos 	(void)close(ofd);	/* close the copy */
    411       1.1  christos 
    412       1.5  christos 	(void)lseek(fd, cur_pos, SEEK_SET);
    413       1.1  christos 	return cp;
    414       1.1  christos }
    415       1.1  christos 
    416       1.1  christos static const char *
    417       1.7  christos content_type(struct attachment *ap)
    418       1.1  christos {
    419       1.7  christos 	switch (ap->a_type) {
    420       1.1  christos 	case ATTACH_FNAME:
    421       1.7  christos 		return content_type_by_name(ap->a_name);
    422       1.1  christos 	case ATTACH_MSG:
    423       1.7  christos 		/*
    424       1.7  christos 		 * Note: the encapusulated message header must include
    425       1.7  christos 		 * at least one of the "Date:", "From:", or "Subject:"
    426       1.7  christos 		 * fields.  See rfc2046 Sec 5.2.1.
    427       1.7  christos 		 * XXX - Should we really test for this?
    428       1.7  christos 		 */
    429       1.1  christos 		return "message/rfc822";
    430       1.1  christos 	case ATTACH_FILENO:
    431       1.7  christos 		return content_type_by_fileno(ap->a_fileno);
    432       1.7  christos 	case ATTACH_INVALID:
    433       1.1  christos 	default:
    434       1.1  christos 		/* This is a coding error! */
    435       1.1  christos 		assert(/* CONSTCOND */ 0);
    436       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    437       1.7  christos 		/* NOTREACHED */
    438       1.1  christos 	}
    439       1.1  christos }
    440       1.1  christos 
    441       1.1  christos /*************************
    442       1.1  christos  * Other content routines
    443       1.1  christos  */
    444       1.1  christos 
    445       1.1  christos static const char *
    446       1.1  christos content_disposition(struct attachment *ap)
    447       1.1  christos {
    448       1.1  christos 	switch (ap->a_type) {
    449       1.1  christos 	case ATTACH_FNAME: {
    450       1.1  christos 		char *disp;
    451       1.7  christos 		(void)sasprintf(&disp, "attachment; filename=\"%s\"",
    452       1.7  christos 		    basename(ap->a_name));
    453       1.1  christos 		return disp;
    454       1.1  christos 	}
    455       1.1  christos 	case ATTACH_MSG:
    456       1.7  christos 		return NULL;
    457       1.1  christos 	case ATTACH_FILENO:
    458       1.1  christos 		return "inline";
    459       1.5  christos 
    460       1.7  christos 	case ATTACH_INVALID:
    461       1.1  christos 	default:
    462       1.7  christos 		/* This is a coding error! */
    463       1.7  christos 		assert(/* CONSTCOND */ 0);
    464       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    465       1.7  christos 		/* NOTREACHED */
    466       1.1  christos 	}
    467       1.1  christos }
    468       1.1  christos 
    469       1.5  christos /*ARGSUSED*/
    470       1.1  christos static const char *
    471       1.7  christos content_id(struct attachment *ap __unused)
    472       1.1  christos {
    473       1.1  christos 	/* XXX - to be written. */
    474       1.5  christos 
    475       1.1  christos 	return NULL;
    476       1.1  christos }
    477       1.1  christos 
    478       1.1  christos static const char *
    479       1.1  christos content_description(struct attachment *attach, int attach_num)
    480       1.1  christos {
    481       1.1  christos 	if (attach_num) {
    482       1.1  christos 		char *description;
    483       1.3  christos 		(void)sasprintf(&description, "attachment %d", attach_num);
    484       1.1  christos 		return description;
    485       1.1  christos 	}
    486       1.1  christos 	else
    487       1.1  christos 		return attach->a_Content.C_description;
    488       1.1  christos }
    489       1.1  christos 
    490       1.1  christos /*******************************************
    491       1.1  christos  * Routines to get the MIME content strings.
    492       1.1  christos  */
    493       1.7  christos PUBLIC struct Content
    494       1.1  christos get_mime_content(struct attachment *ap, int i)
    495       1.1  christos {
    496       1.1  christos 	struct Content Cp;
    497       1.1  christos 
    498       1.1  christos 	Cp.C_type	 = content_type(ap);
    499       1.1  christos 	Cp.C_encoding	 = content_encoding(ap, Cp.C_type);
    500       1.1  christos 	Cp.C_disposition = content_disposition(ap);
    501       1.1  christos 	Cp.C_id		 = content_id(ap);
    502       1.1  christos 	Cp.C_description = content_description(ap, i);
    503       1.1  christos 
    504       1.1  christos 	return Cp;
    505       1.1  christos }
    506       1.1  christos 
    507       1.1  christos /******************
    508       1.1  christos  * Output routines
    509       1.1  christos  */
    510       1.1  christos static void
    511       1.1  christos fput_mime_content(FILE *fp, struct Content *Cp)
    512       1.1  christos {
    513       1.1  christos 	(void)fprintf(fp, MIME_HDR_TYPE ": %s\n", Cp->C_type);
    514       1.1  christos 	(void)fprintf(fp, MIME_HDR_ENCODING ": %s\n", Cp->C_encoding);
    515       1.1  christos 	if (Cp->C_disposition)
    516       1.1  christos 		(void)fprintf(fp, MIME_HDR_DISPOSITION ": %s\n",
    517       1.1  christos 		    Cp->C_disposition);
    518       1.1  christos 	if (Cp->C_id)
    519       1.1  christos 		(void)fprintf(fp, MIME_HDR_ID ": %s\n", Cp->C_id);
    520       1.1  christos 	if (Cp->C_description)
    521       1.1  christos 		(void)fprintf(fp, MIME_HDR_DESCRIPTION ": %s\n",
    522       1.1  christos 		    Cp->C_description);
    523       1.1  christos }
    524       1.1  christos 
    525       1.1  christos static void
    526       1.1  christos fput_body(FILE *fi, FILE *fo, struct Content *Cp)
    527       1.1  christos {
    528       1.1  christos 	mime_codec_t enc;
    529       1.1  christos 
    530       1.1  christos 	enc = mime_fio_encoder(Cp->C_encoding);
    531       1.1  christos 	if (enc == NULL)
    532      1.18  christos 		warnx("unknown transfer encoding type: %s", Cp->C_encoding);
    533       1.1  christos 	else
    534       1.1  christos 		enc(fi, fo, 0);
    535       1.1  christos }
    536       1.1  christos 
    537       1.1  christos static void
    538       1.1  christos fput_attachment(FILE *fo, struct attachment *ap)
    539       1.1  christos {
    540       1.1  christos 	FILE *fi;
    541       1.1  christos 	struct Content *Cp = &ap->a_Content;
    542       1.1  christos 
    543       1.1  christos 	fput_mime_content(fo, &ap->a_Content);
    544       1.1  christos 	(void)putc('\n', fo);
    545       1.1  christos 
    546       1.1  christos 	switch (ap->a_type) {
    547       1.1  christos 	case ATTACH_FNAME:
    548      1.19  christos 		fi = Fopen(ap->a_name, "ref");
    549       1.1  christos 		if (fi == NULL)
    550       1.8  christos 			err(EXIT_FAILURE, "Fopen: %s", ap->a_name);
    551       1.1  christos 		break;
    552       1.1  christos 
    553       1.1  christos 	case ATTACH_FILENO:
    554       1.8  christos 		/*
    555       1.8  christos 		 * XXX - we should really dup(2) here, however we are
    556       1.8  christos 		 * finished with the attachment, so the Fclose() below
    557       1.8  christos 		 * is OK for now.  This will be changed in the future.
    558       1.8  christos 		 */
    559      1.19  christos 		fi = Fdopen(ap->a_fileno, "ref");
    560       1.1  christos 		if (fi == NULL)
    561       1.8  christos 			err(EXIT_FAILURE, "Fdopen: %d", ap->a_fileno);
    562       1.1  christos 		break;
    563       1.1  christos 
    564       1.7  christos 	case ATTACH_MSG: {
    565       1.7  christos 		char mailtempname[PATHSIZE];
    566       1.7  christos 		int fd;
    567       1.7  christos 
    568       1.7  christos 		fi = NULL;	/* appease gcc */
    569       1.7  christos 		(void)snprintf(mailtempname, sizeof(mailtempname),
    570       1.7  christos 		    "%s/mail.RsXXXXXXXXXX", tmpdir);
    571       1.7  christos 		if ((fd = mkstemp(mailtempname)) == -1 ||
    572      1.19  christos 		    (fi = Fdopen(fd, "wef+")) == NULL) {
    573       1.7  christos 			if (fd != -1)
    574       1.7  christos 				(void)close(fd);
    575       1.7  christos 			err(EXIT_FAILURE, "%s", mailtempname);
    576       1.7  christos 		}
    577       1.7  christos 		(void)rm(mailtempname);
    578       1.7  christos 
    579       1.7  christos 		/*
    580       1.7  christos 		 * This is only used for forwarding, so use the forwardtab[].
    581       1.7  christos 		 *
    582       1.7  christos 		 * XXX - sendmessage really needs a 'flags' argument
    583       1.7  christos 		 * so we don't have to play games.
    584       1.7  christos 		 */
    585       1.7  christos 		ap->a_msg->m_size--;	/* XXX - remove trailing newline */
    586       1.7  christos 		(void)fputc('>', fi);	/* XXX - hide the headerline */
    587       1.7  christos 		if (sendmessage(ap->a_msg, fi, forwardtab, NULL, NULL))
    588       1.7  christos 			(void)fprintf(stderr, ". . . forward failed, sorry.\n");
    589       1.7  christos 		ap->a_msg->m_size++;
    590       1.7  christos 
    591       1.7  christos 		rewind(fi);
    592       1.7  christos 		break;
    593       1.7  christos 	}
    594       1.7  christos 	case ATTACH_INVALID:
    595       1.1  christos 	default:
    596       1.7  christos 		/* This is a coding error! */
    597       1.7  christos 		assert(/* CONSTCOND */ 0);
    598       1.7  christos 		errx(EXIT_FAILURE, "invalid attachment type: %d", ap->a_type);
    599       1.1  christos 	}
    600       1.1  christos 
    601       1.1  christos 	fput_body(fi, fo, Cp);
    602       1.8  christos 	(void)Fclose(fi);
    603       1.1  christos }
    604       1.1  christos 
    605       1.1  christos /***********************************
    606       1.1  christos  * Higher level attachment routines.
    607       1.1  christos  */
    608       1.1  christos 
    609       1.1  christos static int
    610       1.1  christos mktemp_file(FILE **nfo, FILE **nfi, const char *hint)
    611       1.1  christos {
    612       1.1  christos 	char tempname[PATHSIZE];
    613       1.1  christos 	int fd, fd2;
    614       1.1  christos 	(void)snprintf(tempname, sizeof(tempname), "%s/%sXXXXXXXXXX",
    615       1.1  christos 	    tmpdir, hint);
    616       1.1  christos 	if ((fd = mkstemp(tempname)) == -1 ||
    617      1.19  christos 	    (*nfo = Fdopen(fd, "wef")) == NULL) {
    618       1.1  christos 		if (fd != -1)
    619       1.1  christos 			(void)close(fd);
    620       1.1  christos 		warn("%s", tempname);
    621       1.1  christos 		return -1;
    622       1.1  christos 	}
    623       1.1  christos 	(void)rm(tempname);
    624       1.1  christos 	if ((fd2 = dup(fd)) == -1 ||
    625      1.19  christos 	    (*nfi = Fdopen(fd2, "ref")) == NULL) {
    626       1.1  christos 		warn("%s", tempname);
    627       1.1  christos 		(void)Fclose(*nfo);
    628       1.1  christos 		return -1;
    629       1.1  christos 	}
    630       1.1  christos 	return 0;
    631       1.1  christos }
    632       1.1  christos 
    633       1.1  christos /*
    634       1.1  christos  * Repackage the mail as a multipart MIME message.  This should always
    635       1.1  christos  * be called whenever there are attachments, but might be called even
    636       1.1  christos  * if there are none if we want to wrap the message in a MIME package.
    637       1.1  christos  */
    638       1.1  christos PUBLIC FILE *
    639       1.1  christos mime_encode(FILE *fi, struct header *header)
    640       1.1  christos {
    641       1.1  christos 	struct attachment map;	/* fake structure for the message body */
    642       1.1  christos 	struct attachment *attach;
    643       1.1  christos 	struct attachment *ap;
    644       1.1  christos 	FILE *nfi, *nfo;
    645       1.1  christos 
    646       1.1  christos 	attach = header->h_attach;
    647       1.1  christos 
    648       1.1  christos 	/*
    649       1.1  christos 	 * Make new phantom temporary file with read and write file
    650       1.1  christos 	 * handles: nfi and nfo, resp.
    651       1.1  christos 	 */
    652       1.1  christos 	if (mktemp_file(&nfo, &nfi, "mail.Rs") != 0)
    653       1.1  christos 		return fi;
    654       1.1  christos 
    655       1.1  christos 	(void)memset(&map, 0, sizeof(map));
    656       1.1  christos 	map.a_type = ATTACH_FILENO;
    657       1.1  christos 	map.a_fileno = fileno(fi);
    658       1.1  christos 
    659       1.1  christos  	map.a_Content = get_mime_content(&map, 0);
    660       1.1  christos 
    661       1.1  christos 	if (attach) {
    662       1.1  christos 		/* Multi-part message:
    663       1.1  christos 		 * Make an attachment structure for the body message
    664       1.1  christos 		 * and make that the first element in the attach list.
    665       1.1  christos 		 */
    666       1.1  christos 		if (fsize(fi)) {
    667       1.1  christos 			map.a_flink = attach;
    668       1.1  christos 			attach->a_blink = &map;
    669       1.1  christos 			attach = &map;
    670       1.1  christos 		}
    671       1.1  christos 
    672       1.1  christos 		/* Construct our MIME boundary string - used by mime_putheader() */
    673       1.1  christos 		header->h_mime_boundary = make_boundary();
    674       1.5  christos 
    675       1.1  christos 		(void)fprintf(nfo, "This is a multi-part message in MIME format.\n");
    676       1.5  christos 
    677       1.1  christos 		for (ap = attach; ap; ap = ap->a_flink) {
    678       1.1  christos 			(void)fprintf(nfo, "\n--%s\n", header->h_mime_boundary);
    679       1.1  christos 			fput_attachment(nfo, ap);
    680       1.1  christos 		}
    681       1.5  christos 
    682       1.1  christos 		/* the final boundary with two attached dashes */
    683       1.1  christos 		(void)fprintf(nfo, "\n--%s--\n", header->h_mime_boundary);
    684       1.1  christos 	}
    685       1.1  christos 	else {
    686       1.1  christos 		/* Single-part message (no attachments):
    687       1.1  christos 		 * Update header->h_Content (used by mime_putheader()).
    688       1.1  christos 		 * Output the body contents.
    689       1.1  christos 		 */
    690       1.1  christos 		char *encoding;
    691       1.1  christos 
    692       1.1  christos 		header->h_Content = map.a_Content;
    693       1.5  christos 
    694       1.1  christos 		/* check for an encoding override */
    695       1.1  christos 		if ((encoding = value(ENAME_MIME_ENCODE_MSG)) && *encoding)
    696       1.1  christos 			header->h_Content.C_encoding = encoding;
    697       1.1  christos 
    698       1.1  christos 		fput_body(fi, nfo, &header->h_Content);
    699       1.1  christos 	}
    700       1.1  christos 	(void)Fclose(fi);
    701       1.1  christos 	(void)Fclose(nfo);
    702       1.1  christos 	rewind(nfi);
    703       1.3  christos 	return nfi;
    704       1.1  christos }
    705       1.1  christos 
    706       1.1  christos static char*
    707       1.1  christos check_filename(char *filename, char *canon_name)
    708       1.1  christos {
    709       1.1  christos 	int fd;
    710       1.1  christos 	struct stat sb;
    711       1.1  christos 	char *fname = filename;
    712       1.3  christos 
    713       1.2  christos 	/* We need to expand '~' if we got here from '~@'.  The shell
    714       1.2  christos 	 * does this otherwise.
    715       1.2  christos 	 */
    716       1.1  christos 	if (fname[0] == '~' && fname[1] == '/') {
    717       1.2  christos 		if (homedir && homedir[0] != '~')
    718       1.2  christos 			(void)easprintf(&fname, "%s/%s",
    719       1.2  christos 			    homedir, fname + 2);
    720       1.1  christos 	}
    721       1.1  christos 	if (realpath(fname, canon_name) == NULL) {
    722       1.1  christos 		warn("realpath: %s", filename);
    723       1.1  christos 		canon_name = NULL;
    724       1.1  christos 		goto done;
    725       1.1  christos 	}
    726       1.1  christos 	fd = open(canon_name, O_RDONLY, 0);
    727       1.1  christos 	if (fd == -1) {
    728       1.1  christos 		warnx("open: cannot read %s", filename);
    729       1.1  christos 		canon_name = NULL;
    730       1.1  christos 		goto done;
    731       1.1  christos 	}
    732       1.1  christos 	if (fstat(fd, &sb) == -1) {
    733       1.1  christos 		warn("stat: %s", canon_name);
    734       1.1  christos 		canon_name = NULL;
    735       1.1  christos 		goto do_close;
    736       1.1  christos 	}
    737       1.1  christos 	if (!S_ISREG(sb.st_mode)) {
    738       1.1  christos 		warnx("stat: %s is not a file", filename);
    739       1.1  christos 		canon_name = NULL;
    740       1.2  christos 	     /*	goto do_close; */
    741       1.1  christos 	}
    742       1.1  christos  do_close:
    743       1.1  christos 	(void)close(fd);
    744       1.1  christos  done:
    745       1.1  christos 	if (fname != filename)
    746       1.1  christos 		free(fname);
    747       1.1  christos 
    748       1.1  christos 	return canon_name;
    749       1.1  christos }
    750       1.1  christos 
    751       1.1  christos static struct attachment *
    752       1.7  christos attach_one_file(struct attachment *ap, char *filename, int attach_num)
    753       1.1  christos {
    754       1.1  christos 	char canon_name[MAXPATHLEN];
    755       1.7  christos 	struct attachment *nap;
    756       1.1  christos 
    757       1.3  christos 	/*
    758       1.7  christos 	 * 1) check that filename is really a readable file; return NULL if not.
    759       1.3  christos 	 * 2) allocate an attachment structure.
    760       1.3  christos 	 * 3) save cananonical name for filename, so cd won't screw things later.
    761       1.3  christos 	 * 4) add the structure to the end of the chain.
    762       1.7  christos 	 * 5) return the new attachment structure.
    763       1.3  christos 	 */
    764       1.1  christos 	if (check_filename(filename, canon_name) == NULL)
    765       1.1  christos 		return NULL;
    766       1.5  christos 
    767       1.1  christos 	nap = csalloc(1, sizeof(*nap));
    768       1.1  christos 	nap->a_type = ATTACH_FNAME;
    769       1.1  christos 	nap->a_name = savestr(canon_name);
    770       1.1  christos 
    771       1.7  christos 	if (ap) {
    772       1.7  christos 		for (/*EMPTY*/; ap->a_flink != NULL; ap = ap->a_flink)
    773       1.1  christos 			continue;
    774       1.1  christos 		ap->a_flink = nap;
    775       1.1  christos 		nap->a_blink = ap;
    776       1.1  christos 	}
    777       1.1  christos 
    778       1.1  christos 	if (attach_num)
    779       1.1  christos 		nap->a_Content = get_mime_content(nap, attach_num);
    780       1.1  christos 
    781       1.7  christos 	return nap;
    782       1.1  christos }
    783       1.1  christos 
    784       1.1  christos static char *
    785       1.1  christos get_line(el_mode_t *em, const char *pr, const char *str, int i)
    786       1.1  christos {
    787       1.3  christos 	char *prompt;
    788       1.1  christos 	char *line;
    789       1.1  christos 
    790       1.3  christos 	/*
    791       1.3  christos 	 * Don't use a '\t' in the format string here as completion
    792       1.3  christos 	 * seems to handle it badly.
    793       1.3  christos 	 */
    794       1.7  christos 	(void)easprintf(&prompt, "#%-7d %s: ", i, pr);
    795      1.12  christos 	line = my_gets(em, prompt, __UNCONST(str));
    796      1.12  christos 	if (line != NULL) {
    797      1.12  christos 		(void)strip_WSP(line);	/* strip trailing whitespace */
    798      1.12  christos 		line = skip_WSP(line);	/* skip leading white space */
    799      1.12  christos 		line = savestr(line);	/* XXX - do we need this? */
    800      1.12  christos 	}
    801      1.12  christos 	else {
    802      1.12  christos 		line = __UNCONST("");
    803      1.12  christos 	}
    804       1.1  christos 	free(prompt);
    805       1.1  christos 
    806       1.3  christos 	return line;
    807       1.1  christos }
    808       1.1  christos 
    809       1.1  christos static void
    810       1.1  christos sget_line(el_mode_t *em, const char *pr, const char **str, int i)
    811       1.1  christos {
    812       1.1  christos 	char *line;
    813       1.1  christos 	line = get_line(em, pr, *str, i);
    814      1.12  christos 	if (line != NULL && strcmp(line, *str) != 0)
    815      1.12  christos 		*str = line;
    816       1.1  christos }
    817       1.1  christos 
    818       1.1  christos static void
    819       1.1  christos sget_encoding(const char **str, const char *filename, const char *ctype, int num)
    820       1.1  christos {
    821       1.1  christos 	const char *ename;
    822       1.1  christos 	const char *defename;
    823       1.1  christos 
    824       1.1  christos 	defename = NULL;
    825       1.1  christos 	ename = *str;
    826       1.1  christos 	for (;;) {
    827       1.1  christos 		ename = get_line(&elm.mime_enc, "encoding", ename, num);
    828       1.1  christos 
    829       1.1  christos 		if (*ename == '\0') {
    830       1.1  christos 			if (defename == NULL)
    831       1.1  christos 				defename = content_encoding_by_name(filename, ctype);
    832       1.1  christos 			ename = defename;
    833       1.1  christos 		}
    834       1.1  christos 		else if (mime_fio_encoder(ename) == NULL) {
    835       1.1  christos 			const void *cookie;
    836       1.1  christos 			(void)printf("Sorry: valid encoding modes are: ");
    837       1.1  christos 			cookie = NULL;
    838       1.1  christos 			ename = mime_next_encoding_name(&cookie);
    839       1.1  christos 			for (;;) {
    840       1.1  christos 				(void)printf("%s", ename);
    841       1.1  christos 				ename = mime_next_encoding_name(&cookie);
    842       1.1  christos 				if (ename == NULL)
    843       1.1  christos 					break;
    844       1.1  christos 				(void)fputc(',', stdout);
    845       1.1  christos 			}
    846       1.7  christos 			(void)putchar('\n');
    847       1.1  christos 			ename = *str;
    848       1.1  christos 		}
    849       1.1  christos 		else {
    850       1.1  christos 			if (strcmp(ename, *str) != 0)
    851       1.1  christos 				*str = savestr(ename);
    852       1.1  christos 			break;
    853       1.1  christos 		}
    854       1.1  christos 	}
    855       1.1  christos }
    856       1.1  christos 
    857       1.7  christos /*
    858       1.7  christos  * Edit an attachment list.
    859       1.7  christos  * Return the new attachment list.
    860       1.7  christos  */
    861       1.1  christos static struct attachment *
    862       1.7  christos edit_attachlist(struct attachment *alist)
    863       1.1  christos {
    864       1.1  christos 	struct attachment *ap;
    865       1.1  christos 	char *line;
    866       1.2  christos 	int attach_num;
    867       1.1  christos 
    868       1.1  christos 	(void)printf("Attachments:\n");
    869       1.1  christos 
    870       1.2  christos 	attach_num = 1;
    871       1.7  christos 	ap = alist;
    872       1.1  christos 	while (ap) {
    873       1.7  christos 		SHOW_ALIST(alist, ap);
    874       1.7  christos 
    875       1.7  christos 		switch(ap->a_type) {
    876       1.7  christos 		case ATTACH_MSG:
    877       1.7  christos 			(void)printf("#%-7d message:  <not changeable>\n",
    878       1.7  christos 			    attach_num);
    879       1.7  christos 			break;
    880       1.7  christos 		case ATTACH_FNAME:
    881       1.7  christos 		case ATTACH_FILENO:
    882       1.7  christos 			line = get_line(&elm.filec, "filename", ap->a_name, attach_num);
    883       1.7  christos 			if (*line == '\0') {	/* omit this attachment */
    884       1.7  christos 				if (ap->a_blink) {
    885       1.7  christos 					struct attachment *next_ap;
    886       1.7  christos 					next_ap = ap->a_flink;
    887       1.7  christos 					ap = ap->a_blink;
    888       1.7  christos 					ap->a_flink = next_ap;
    889       1.7  christos 					if (next_ap)
    890       1.7  christos 						next_ap->a_blink = ap;
    891       1.7  christos 					else
    892       1.7  christos 						goto done;
    893       1.7  christos 				}
    894       1.7  christos 				else {
    895       1.7  christos 					alist = ap->a_flink;
    896       1.7  christos 					if (alist)
    897       1.7  christos 						alist->a_blink = NULL;
    898       1.7  christos 				}
    899       1.7  christos 			}
    900       1.7  christos 			else {
    901       1.7  christos 				char canon_name[MAXPATHLEN];
    902       1.7  christos 				if (strcmp(line, ap->a_name) != 0) { /* new filename */
    903       1.7  christos 					if (check_filename(line, canon_name) == NULL)
    904       1.7  christos 						continue;
    905       1.7  christos 					ap->a_name = savestr(canon_name);
    906       1.7  christos 					ap->a_Content = get_mime_content(ap, 0);
    907       1.7  christos 				}
    908       1.7  christos 				sget_line(&elm.string, "description",
    909       1.7  christos 				    &ap->a_Content.C_description, attach_num);
    910       1.7  christos 				sget_encoding(&ap->a_Content.C_encoding, ap->a_name,
    911       1.7  christos 				    ap->a_Content.C_type, attach_num);
    912       1.1  christos 			}
    913       1.7  christos 			break;
    914       1.7  christos 		case ATTACH_INVALID:
    915       1.7  christos 		default:
    916       1.7  christos 			/* This is a coding error! */
    917       1.7  christos 			assert(/* CONSTCOND */ 0);
    918       1.7  christos 			errx(EXIT_FAILURE, "invalid attachment type: %d",
    919       1.7  christos 			    ap->a_type);
    920       1.1  christos 		}
    921       1.7  christos 
    922       1.2  christos 		attach_num++;
    923       1.7  christos 		if (alist == NULL || ap->a_flink == NULL)
    924       1.1  christos 			break;
    925       1.1  christos 
    926       1.1  christos 		ap = ap->a_flink;
    927       1.1  christos 	}
    928       1.1  christos 
    929       1.7  christos 	ap = alist;
    930       1.7  christos 	for (;;) {
    931       1.1  christos 		struct attachment *nap;
    932       1.1  christos 
    933       1.7  christos 		SHOW_ALIST(alist, ap);
    934       1.7  christos 
    935       1.2  christos 		line = get_line(&elm.filec, "filename", "", attach_num);
    936       1.1  christos 		if (*line == '\0')
    937       1.1  christos 			break;
    938       1.1  christos 
    939       1.2  christos 		nap = attach_one_file(ap, line, attach_num);
    940       1.1  christos 		if (nap == NULL)
    941       1.1  christos 			continue;
    942       1.1  christos 
    943       1.7  christos 		if (alist == NULL)
    944       1.7  christos 			alist = nap;
    945       1.7  christos 		ap = nap;
    946       1.1  christos 
    947       1.2  christos 		sget_line(&elm.string, "description",
    948       1.2  christos 		    &ap->a_Content.C_description, attach_num);
    949       1.2  christos 		sget_encoding(&ap->a_Content.C_encoding, ap->a_name,
    950       1.2  christos 		    ap->a_Content.C_type, attach_num);
    951       1.2  christos 		attach_num++;
    952       1.7  christos 	}
    953       1.7  christos  done:
    954       1.7  christos 	SHOW_ALIST(alist, ap);
    955       1.1  christos 
    956       1.7  christos 	return alist;
    957       1.1  christos }
    958       1.1  christos 
    959       1.1  christos /*
    960       1.2  christos  * Hook used by the '~@' escape to attach files.
    961       1.1  christos  */
    962       1.1  christos PUBLIC struct attachment*
    963      1.12  christos mime_attach_files(struct attachment * volatile attach, char *linebuf)
    964       1.1  christos {
    965       1.1  christos 	struct attachment *ap;
    966       1.1  christos 	char *argv[MAXARGC];
    967       1.1  christos 	int argc;
    968       1.1  christos 	int attach_num;
    969       1.1  christos 
    970      1.12  christos 	argc = getrawlist(linebuf, argv, (int)__arraycount(argv));
    971       1.2  christos 	attach_num = 1;
    972       1.1  christos 	for (ap = attach; ap && ap->a_flink; ap = ap->a_flink)
    973       1.1  christos 			attach_num++;
    974       1.1  christos 
    975       1.1  christos 	if (argc) {
    976       1.1  christos 		int i;
    977       1.1  christos 		for (i = 0; i < argc; i++) {
    978       1.2  christos 			struct attachment *ap2;
    979       1.2  christos 			ap2 = attach_one_file(ap, argv[i], attach_num);
    980       1.2  christos 			if (ap2 != NULL) {
    981       1.2  christos 				ap = ap2;
    982       1.2  christos 				if (attach == NULL)
    983       1.2  christos 					attach = ap;
    984       1.2  christos 				attach_num++;
    985       1.2  christos 			}
    986       1.1  christos 		}
    987       1.1  christos 	}
    988       1.1  christos 	else {
    989       1.7  christos 		attach = edit_attachlist(attach);
    990       1.1  christos 		(void)printf("--- end attachments ---\n");
    991       1.1  christos 	}
    992       1.1  christos 
    993       1.1  christos 	return attach;
    994       1.1  christos }
    995       1.1  christos 
    996       1.1  christos /*
    997       1.2  christos  * Hook called in main() to attach files registered by the '-a' flag.
    998       1.2  christos  */
    999       1.2  christos PUBLIC struct attachment *
   1000       1.2  christos mime_attach_optargs(struct name *optargs)
   1001       1.2  christos {
   1002       1.2  christos 	struct attachment *attach;
   1003       1.2  christos 	struct attachment *ap;
   1004       1.2  christos 	struct name *np;
   1005       1.2  christos 	char *expand_optargs;
   1006       1.2  christos 	int attach_num;
   1007       1.2  christos 
   1008       1.2  christos 	expand_optargs = value(ENAME_MIME_ATTACH_LIST);
   1009       1.2  christos 	attach_num = 1;
   1010       1.2  christos 	ap = NULL;
   1011       1.2  christos 	attach = NULL;
   1012       1.2  christos 	for (np = optargs; np; np = np->n_flink) {
   1013       1.2  christos 		char *argv[MAXARGC];
   1014       1.2  christos 		int argc;
   1015       1.2  christos 		int i;
   1016       1.2  christos 
   1017       1.2  christos 		if (expand_optargs != NULL)
   1018      1.12  christos 			argc = getrawlist(np->n_name,
   1019      1.12  christos 			    argv, (int)__arraycount(argv));
   1020       1.2  christos 		else {
   1021  1.19.4.1  christos 			if (np->n_name == NULL)
   1022       1.2  christos 				argc = 0;
   1023       1.2  christos 			else {
   1024       1.2  christos 				argc = 1;
   1025       1.2  christos 				argv[0] = np->n_name;
   1026       1.2  christos 			}
   1027       1.2  christos 			argv[argc] = NULL;/* be consistent with getrawlist() */
   1028       1.2  christos 		}
   1029       1.2  christos 		for (i = 0; i < argc; i++) {
   1030       1.2  christos 			struct attachment *ap2;
   1031       1.2  christos 			char *filename;
   1032       1.5  christos 
   1033       1.2  christos 			if (argv[i][0] == '/')	/* an absolute path */
   1034       1.2  christos 				(void)easprintf(&filename, "%s", argv[i]);
   1035       1.2  christos 			else
   1036       1.2  christos 				(void)easprintf(&filename, "%s/%s",
   1037       1.2  christos 				    origdir, argv[i]);
   1038       1.2  christos 
   1039       1.2  christos 			ap2 = attach_one_file(ap, filename, attach_num);
   1040       1.2  christos 			if (ap2 != NULL) {
   1041       1.2  christos 				ap = ap2;
   1042       1.2  christos 				if (attach == NULL)
   1043       1.2  christos 					attach = ap;
   1044       1.2  christos 				attach_num++;
   1045       1.2  christos 			}
   1046       1.7  christos 			free(filename);
   1047       1.2  christos 		}
   1048       1.2  christos 	}
   1049       1.2  christos 	return attach;
   1050       1.2  christos }
   1051       1.2  christos 
   1052       1.2  christos /*
   1053       1.1  christos  * Output MIME header strings as specified in the header structure.
   1054       1.1  christos  */
   1055       1.1  christos PUBLIC void
   1056       1.1  christos mime_putheader(FILE *fp, struct header *header)
   1057       1.1  christos {
   1058       1.1  christos 	(void)fprintf(fp, MIME_HDR_VERSION ": " MIME_VERSION "\n");
   1059       1.1  christos 	if (header->h_attach) {
   1060       1.1  christos 		(void)fprintf(fp, MIME_HDR_TYPE ": multipart/mixed;\n");
   1061       1.1  christos 		(void)fprintf(fp, "\tboundary=\"%s\"\n", header->h_mime_boundary);
   1062       1.1  christos 	}
   1063       1.1  christos 	else {
   1064       1.1  christos 		fput_mime_content(fp, &header->h_Content);
   1065       1.1  christos 	}
   1066       1.1  christos }
   1067       1.1  christos 
   1068       1.1  christos #endif /* MIME_SUPPORT */
   1069