diff options
Diffstat (limited to 'contrib/sendmail/src/mime.c')
| -rw-r--r-- | contrib/sendmail/src/mime.c | 1325 |
1 files changed, 0 insertions, 1325 deletions
diff --git a/contrib/sendmail/src/mime.c b/contrib/sendmail/src/mime.c deleted file mode 100644 index af71d79..0000000 --- a/contrib/sendmail/src/mime.c +++ /dev/null @@ -1,1325 +0,0 @@ -/* - * Copyright (c) 1998-2003, 2006 Sendmail, Inc. and its suppliers. - * All rights reserved. - * Copyright (c) 1994, 1996-1997 Eric P. Allman. All rights reserved. - * Copyright (c) 1994 - * The Regents of the University of California. All rights reserved. - * - * By using this file, you agree to the terms and conditions set - * forth in the LICENSE file which can be found at the top level of - * the sendmail distribution. - * - */ - -#include <sendmail.h> -#include <string.h> - -SM_RCSID("@(#)$Id: mime.c,v 8.147 2007/09/26 23:29:11 ca Exp $") - -/* -** MIME support. -** -** I am indebted to John Beck of Hewlett-Packard, who contributed -** his code to me for inclusion. As it turns out, I did not use -** his code since he used a "minimum change" approach that used -** several temp files, and I wanted a "minimum impact" approach -** that would avoid copying. However, looking over his code -** helped me cement my understanding of the problem. -** -** I also looked at, but did not directly use, Nathaniel -** Borenstein's "code.c" module. Again, it functioned as -** a file-to-file translator, which did not fit within my -** design bounds, but it was a useful base for understanding -** the problem. -*/ - -/* use "old" mime 7 to 8 algorithm by default */ -#ifndef MIME7TO8_OLD -# define MIME7TO8_OLD 1 -#endif /* ! MIME7TO8_OLD */ - -#if MIME8TO7 -static int isboundary __P((char *, char **)); -static int mimeboundary __P((char *, char **)); -static int mime_getchar __P((SM_FILE_T *, char **, int *)); -static int mime_getchar_crlf __P((SM_FILE_T *, char **, int *)); - -/* character set for hex and base64 encoding */ -static char Base16Code[] = "0123456789ABCDEF"; -static char Base64Code[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; - -/* types of MIME boundaries */ -# define MBT_SYNTAX 0 /* syntax error */ -# define MBT_NOTSEP 1 /* not a boundary */ -# define MBT_INTERMED 2 /* intermediate boundary (no trailing --) */ -# define MBT_FINAL 3 /* final boundary (trailing -- included) */ - -static char *MimeBoundaryNames[] = -{ - "SYNTAX", "NOTSEP", "INTERMED", "FINAL" -}; - -static bool MapNLtoCRLF; - -/* -** MIME8TO7 -- output 8 bit body in 7 bit format -** -** The header has already been output -- this has to do the -** 8 to 7 bit conversion. It would be easy if we didn't have -** to deal with nested formats (multipart/xxx and message/rfc822). -** -** We won't be called if we don't have to do a conversion, and -** appropriate MIME-Version: and Content-Type: fields have been -** output. Any Content-Transfer-Encoding: field has not been -** output, and we can add it here. -** -** Parameters: -** mci -- mailer connection information. -** header -- the header for this body part. -** e -- envelope. -** boundaries -- the currently pending message boundaries. -** NULL if we are processing the outer portion. -** flags -- to tweak processing. -** level -- recursion level. -** -** Returns: -** An indicator of what terminated the message part: -** MBT_FINAL -- the final boundary -** MBT_INTERMED -- an intermediate boundary -** MBT_NOTSEP -- an end of file -** SM_IO_EOF -- I/O error occurred -*/ - -struct args -{ - char *a_field; /* name of field */ - char *a_value; /* value of that field */ -}; - -int -mime8to7(mci, header, e, boundaries, flags, level) - register MCI *mci; - HDR *header; - register ENVELOPE *e; - char **boundaries; - int flags; - int level; -{ - register char *p; - int linelen; - int bt; - off_t offset; - size_t sectionsize, sectionhighbits; - int i; - char *type; - char *subtype; - char *cte; - char **pvp; - int argc = 0; - char *bp; - bool use_qp = false; - struct args argv[MAXMIMEARGS]; - char bbuf[128]; - char buf[MAXLINE]; - char pvpbuf[MAXLINE]; - extern unsigned char MimeTokenTab[256]; - - if (level > MAXMIMENESTING) - { - if (!bitset(EF_TOODEEP, e->e_flags)) - { - if (tTd(43, 4)) - sm_dprintf("mime8to7: too deep, level=%d\n", - level); - usrerr("mime8to7: recursion level %d exceeded", - level); - e->e_flags |= EF_DONT_MIME|EF_TOODEEP; - } - } - if (tTd(43, 1)) - { - sm_dprintf("mime8to7: flags = %x, boundaries =", flags); - if (boundaries[0] == NULL) - sm_dprintf(" <none>"); - else - { - for (i = 0; boundaries[i] != NULL; i++) - sm_dprintf(" %s", boundaries[i]); - } - sm_dprintf("\n"); - } - MapNLtoCRLF = true; - p = hvalue("Content-Transfer-Encoding", header); - if (p == NULL || - (pvp = prescan(p, '\0', pvpbuf, sizeof(pvpbuf), NULL, - MimeTokenTab, false)) == NULL || - pvp[0] == NULL) - { - cte = NULL; - } - else - { - cataddr(pvp, NULL, buf, sizeof(buf), '\0', false); - cte = sm_rpool_strdup_x(e->e_rpool, buf); - } - - type = subtype = NULL; - p = hvalue("Content-Type", header); - if (p == NULL) - { - if (bitset(M87F_DIGEST, flags)) - p = "message/rfc822"; - else - p = "text/plain"; - } - if (p != NULL && - (pvp = prescan(p, '\0', pvpbuf, sizeof(pvpbuf), NULL, - MimeTokenTab, false)) != NULL && - pvp[0] != NULL) - { - if (tTd(43, 40)) - { - for (i = 0; pvp[i] != NULL; i++) - sm_dprintf("pvp[%d] = \"%s\"\n", i, pvp[i]); - } - type = *pvp++; - if (*pvp != NULL && strcmp(*pvp, "/") == 0 && - *++pvp != NULL) - { - subtype = *pvp++; - } - - /* break out parameters */ - while (*pvp != NULL && argc < MAXMIMEARGS) - { - /* skip to semicolon separator */ - while (*pvp != NULL && strcmp(*pvp, ";") != 0) - pvp++; - if (*pvp++ == NULL || *pvp == NULL) - break; - - /* complain about empty values */ - if (strcmp(*pvp, ";") == 0) - { - usrerr("mime8to7: Empty parameter in Content-Type header"); - - /* avoid bounce loops */ - e->e_flags |= EF_DONT_MIME; - continue; - } - - /* extract field name */ - argv[argc].a_field = *pvp++; - - /* see if there is a value */ - if (*pvp != NULL && strcmp(*pvp, "=") == 0 && - (*++pvp == NULL || strcmp(*pvp, ";") != 0)) - { - argv[argc].a_value = *pvp; - argc++; - } - } - } - - /* check for disaster cases */ - if (type == NULL) - type = "-none-"; - if (subtype == NULL) - subtype = "-none-"; - - /* don't propagate some flags more than one level into the message */ - flags &= ~M87F_DIGEST; - - /* - ** Check for cases that can not be encoded. - ** - ** For example, you can't encode certain kinds of types - ** or already-encoded messages. If we find this case, - ** just copy it through. - */ - - (void) sm_snprintf(buf, sizeof(buf), "%.100s/%.100s", type, subtype); - if (wordinclass(buf, 'n') || (cte != NULL && !wordinclass(cte, 'e'))) - flags |= M87F_NO8BIT; - -# ifdef USE_B_CLASS - if (wordinclass(buf, 'b') || wordinclass(type, 'b')) - MapNLtoCRLF = false; -# endif /* USE_B_CLASS */ - if (wordinclass(buf, 'q') || wordinclass(type, 'q')) - use_qp = true; - - /* - ** Multipart requires special processing. - ** - ** Do a recursive descent into the message. - */ - - if (sm_strcasecmp(type, "multipart") == 0 && - (!bitset(M87F_NO8BIT, flags) || bitset(M87F_NO8TO7, flags)) && - !bitset(EF_TOODEEP, e->e_flags) - ) - { - - if (sm_strcasecmp(subtype, "digest") == 0) - flags |= M87F_DIGEST; - - for (i = 0; i < argc; i++) - { - if (sm_strcasecmp(argv[i].a_field, "boundary") == 0) - break; - } - if (i >= argc || argv[i].a_value == NULL) - { - usrerr("mime8to7: Content-Type: \"%s\": %s boundary", - i >= argc ? "missing" : "bogus", p); - p = "---"; - - /* avoid bounce loops */ - e->e_flags |= EF_DONT_MIME; - } - else - { - p = argv[i].a_value; - stripquotes(p); - } - if (sm_strlcpy(bbuf, p, sizeof(bbuf)) >= sizeof(bbuf)) - { - usrerr("mime8to7: multipart boundary \"%s\" too long", - p); - - /* avoid bounce loops */ - e->e_flags |= EF_DONT_MIME; - } - - if (tTd(43, 1)) - sm_dprintf("mime8to7: multipart boundary \"%s\"\n", - bbuf); - for (i = 0; i < MAXMIMENESTING; i++) - { - if (boundaries[i] == NULL) - break; - } - if (i >= MAXMIMENESTING) - { - if (tTd(43, 4)) - sm_dprintf("mime8to7: too deep, i=%d\n", i); - if (!bitset(EF_TOODEEP, e->e_flags)) - usrerr("mime8to7: multipart nesting boundary too deep"); - - /* avoid bounce loops */ - e->e_flags |= EF_DONT_MIME|EF_TOODEEP; - } - else - { - boundaries[i] = bbuf; - boundaries[i + 1] = NULL; - } - mci->mci_flags |= MCIF_INMIME; - - /* skip the early "comment" prologue */ - if (!putline("", mci)) - goto writeerr; - mci->mci_flags &= ~MCIF_INHEADER; - bt = MBT_FINAL; - while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf)) - != NULL) - { - bt = mimeboundary(buf, boundaries); - if (bt != MBT_NOTSEP) - break; - if (!putxline(buf, strlen(buf), mci, - PXLF_MAPFROM|PXLF_STRIP8BIT)) - goto writeerr; - if (tTd(43, 99)) - sm_dprintf(" ...%s", buf); - } - if (sm_io_eof(e->e_dfp)) - bt = MBT_FINAL; - while (bt != MBT_FINAL) - { - auto HDR *hdr = NULL; - - (void) sm_strlcpyn(buf, sizeof(buf), 2, "--", bbuf); - if (!putline(buf, mci)) - goto writeerr; - if (tTd(43, 35)) - sm_dprintf(" ...%s\n", buf); - collect(e->e_dfp, false, &hdr, e, false); - if (tTd(43, 101)) - putline("+++after collect", mci); - if (!putheader(mci, hdr, e, flags)) - goto writeerr; - if (tTd(43, 101)) - putline("+++after putheader", mci); - bt = mime8to7(mci, hdr, e, boundaries, flags, - level + 1); - if (bt == SM_IO_EOF) - goto writeerr; - } - (void) sm_strlcpyn(buf, sizeof(buf), 3, "--", bbuf, "--"); - if (!putline(buf, mci)) - goto writeerr; - if (tTd(43, 35)) - sm_dprintf(" ...%s\n", buf); - boundaries[i] = NULL; - mci->mci_flags &= ~MCIF_INMIME; - - /* skip the late "comment" epilogue */ - while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf)) - != NULL) - { - bt = mimeboundary(buf, boundaries); - if (bt != MBT_NOTSEP) - break; - if (!putxline(buf, strlen(buf), mci, - PXLF_MAPFROM|PXLF_STRIP8BIT)) - goto writeerr; - if (tTd(43, 99)) - sm_dprintf(" ...%s", buf); - } - if (sm_io_eof(e->e_dfp)) - bt = MBT_FINAL; - if (tTd(43, 3)) - sm_dprintf("\t\t\tmime8to7=>%s (multipart)\n", - MimeBoundaryNames[bt]); - return bt; - } - - /* - ** Message/xxx types -- recurse exactly once. - ** - ** Class 's' is predefined to have "rfc822" only. - */ - - if (sm_strcasecmp(type, "message") == 0) - { - if (!wordinclass(subtype, 's') || - bitset(EF_TOODEEP, e->e_flags)) - { - flags |= M87F_NO8BIT; - } - else - { - auto HDR *hdr = NULL; - - if (!putline("", mci)) - goto writeerr; - - mci->mci_flags |= MCIF_INMIME; - collect(e->e_dfp, false, &hdr, e, false); - if (tTd(43, 101)) - putline("+++after collect", mci); - if (!putheader(mci, hdr, e, flags)) - goto writeerr; - if (tTd(43, 101)) - putline("+++after putheader", mci); - if (hvalue("MIME-Version", hdr) == NULL && - !bitset(M87F_NO8TO7, flags) && - !putline("MIME-Version: 1.0", mci)) - goto writeerr; - bt = mime8to7(mci, hdr, e, boundaries, flags, - level + 1); - mci->mci_flags &= ~MCIF_INMIME; - return bt; - } - } - - /* - ** Non-compound body type - ** - ** Compute the ratio of seven to eight bit characters; - ** use that as a heuristic to decide how to do the - ** encoding. - */ - - sectionsize = sectionhighbits = 0; - if (!bitset(M87F_NO8BIT|M87F_NO8TO7, flags)) - { - /* remember where we were */ - offset = sm_io_tell(e->e_dfp, SM_TIME_DEFAULT); - if (offset == -1) - syserr("mime8to7: cannot sm_io_tell on %cf%s", - DATAFL_LETTER, e->e_id); - - /* do a scan of this body type to count character types */ - while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf)) - != NULL) - { - if (mimeboundary(buf, boundaries) != MBT_NOTSEP) - break; - for (p = buf; *p != '\0'; p++) - { - /* count bytes with the high bit set */ - sectionsize++; - if (bitset(0200, *p)) - sectionhighbits++; - } - - /* - ** Heuristic: if 1/4 of the first 4K bytes are 8-bit, - ** assume base64. This heuristic avoids double-reading - ** large graphics or video files. - */ - - if (sectionsize >= 4096 && - sectionhighbits > sectionsize / 4) - break; - } - - /* return to the original offset for processing */ - /* XXX use relative seeks to handle >31 bit file sizes? */ - if (sm_io_seek(e->e_dfp, SM_TIME_DEFAULT, offset, SEEK_SET) < 0) - syserr("mime8to7: cannot sm_io_fseek on %cf%s", - DATAFL_LETTER, e->e_id); - else - sm_io_clearerr(e->e_dfp); - } - - /* - ** Heuristically determine encoding method. - ** If more than 1/8 of the total characters have the - ** eighth bit set, use base64; else use quoted-printable. - ** However, only encode binary encoded data as base64, - ** since otherwise the NL=>CRLF mapping will be a problem. - */ - - if (tTd(43, 8)) - { - sm_dprintf("mime8to7: %ld high bit(s) in %ld byte(s), cte=%s, type=%s/%s\n", - (long) sectionhighbits, (long) sectionsize, - cte == NULL ? "[none]" : cte, - type == NULL ? "[none]" : type, - subtype == NULL ? "[none]" : subtype); - } - if (cte != NULL && sm_strcasecmp(cte, "binary") == 0) - sectionsize = sectionhighbits; - linelen = 0; - bp = buf; - if (sectionhighbits == 0) - { - /* no encoding necessary */ - if (cte != NULL && - bitset(MCIF_CVT8TO7|MCIF_CVT7TO8|MCIF_INMIME, - mci->mci_flags) && - !bitset(M87F_NO8TO7, flags)) - { - /* - ** Skip _unless_ in MIME mode and potentially - ** converting from 8 bit to 7 bit MIME. See - ** putheader() for the counterpart where the - ** CTE header is skipped in the opposite - ** situation. - */ - - (void) sm_snprintf(buf, sizeof(buf), - "Content-Transfer-Encoding: %.200s", cte); - if (!putline(buf, mci)) - goto writeerr; - if (tTd(43, 36)) - sm_dprintf(" ...%s\n", buf); - } - if (!putline("", mci)) - goto writeerr; - mci->mci_flags &= ~MCIF_INHEADER; - while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf)) - != NULL) - { - if (!bitset(MCIF_INLONGLINE, mci->mci_flags)) - { - bt = mimeboundary(buf, boundaries); - if (bt != MBT_NOTSEP) - break; - } - if (!putxline(buf, strlen(buf), mci, - PXLF_MAPFROM|PXLF_NOADDEOL)) - goto writeerr; - } - if (sm_io_eof(e->e_dfp)) - bt = MBT_FINAL; - } - else if (!MapNLtoCRLF || - (sectionsize / 8 < sectionhighbits && !use_qp)) - { - /* use base64 encoding */ - int c1, c2; - - if (tTd(43, 36)) - sm_dprintf(" ...Content-Transfer-Encoding: base64\n"); - if (!putline("Content-Transfer-Encoding: base64", mci)) - goto writeerr; - (void) sm_snprintf(buf, sizeof(buf), - "X-MIME-Autoconverted: from 8bit to base64 by %s id %s", - MyHostName, e->e_id); - if (!putline(buf, mci) || !putline("", mci)) - goto writeerr; - mci->mci_flags &= ~MCIF_INHEADER; - while ((c1 = mime_getchar_crlf(e->e_dfp, boundaries, &bt)) != - SM_IO_EOF) - { - if (linelen > 71) - { - *bp = '\0'; - if (!putline(buf, mci)) - goto writeerr; - linelen = 0; - bp = buf; - } - linelen += 4; - *bp++ = Base64Code[(c1 >> 2)]; - c1 = (c1 & 0x03) << 4; - c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt); - if (c2 == SM_IO_EOF) - { - *bp++ = Base64Code[c1]; - *bp++ = '='; - *bp++ = '='; - break; - } - c1 |= (c2 >> 4) & 0x0f; - *bp++ = Base64Code[c1]; - c1 = (c2 & 0x0f) << 2; - c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt); - if (c2 == SM_IO_EOF) - { - *bp++ = Base64Code[c1]; - *bp++ = '='; - break; - } - c1 |= (c2 >> 6) & 0x03; - *bp++ = Base64Code[c1]; - *bp++ = Base64Code[c2 & 0x3f]; - } - *bp = '\0'; - if (!putline(buf, mci)) - goto writeerr; - } - else - { - /* use quoted-printable encoding */ - int c1, c2; - int fromstate; - BITMAP256 badchars; - - /* set up map of characters that must be mapped */ - clrbitmap(badchars); - for (c1 = 0x00; c1 < 0x20; c1++) - setbitn(c1, badchars); - clrbitn('\t', badchars); - for (c1 = 0x7f; c1 < 0x100; c1++) - setbitn(c1, badchars); - setbitn('=', badchars); - if (bitnset(M_EBCDIC, mci->mci_mailer->m_flags)) - for (p = "!\"#$@[\\]^`{|}~"; *p != '\0'; p++) - setbitn(*p, badchars); - - if (tTd(43, 36)) - sm_dprintf(" ...Content-Transfer-Encoding: quoted-printable\n"); - if (!putline("Content-Transfer-Encoding: quoted-printable", - mci)) - goto writeerr; - (void) sm_snprintf(buf, sizeof(buf), - "X-MIME-Autoconverted: from 8bit to quoted-printable by %s id %s", - MyHostName, e->e_id); - if (!putline(buf, mci) || !putline("", mci)) - goto writeerr; - mci->mci_flags &= ~MCIF_INHEADER; - fromstate = 0; - c2 = '\n'; - while ((c1 = mime_getchar(e->e_dfp, boundaries, &bt)) != - SM_IO_EOF) - { - if (c1 == '\n') - { - if (c2 == ' ' || c2 == '\t') - { - *bp++ = '='; - *bp++ = Base16Code[(c2 >> 4) & 0x0f]; - *bp++ = Base16Code[c2 & 0x0f]; - } - if (buf[0] == '.' && bp == &buf[1]) - { - buf[0] = '='; - *bp++ = Base16Code[('.' >> 4) & 0x0f]; - *bp++ = Base16Code['.' & 0x0f]; - } - *bp = '\0'; - if (!putline(buf, mci)) - goto writeerr; - linelen = fromstate = 0; - bp = buf; - c2 = c1; - continue; - } - if (c2 == ' ' && linelen == 4 && fromstate == 4 && - bitnset(M_ESCFROM, mci->mci_mailer->m_flags)) - { - *bp++ = '='; - *bp++ = '2'; - *bp++ = '0'; - linelen += 3; - } - else if (c2 == ' ' || c2 == '\t') - { - *bp++ = c2; - linelen++; - } - if (linelen > 72 && - (linelen > 75 || c1 != '.' || - (linelen > 73 && c2 == '.'))) - { - if (linelen > 73 && c2 == '.') - bp--; - else - c2 = '\n'; - *bp++ = '='; - *bp = '\0'; - if (!putline(buf, mci)) - goto writeerr; - linelen = fromstate = 0; - bp = buf; - if (c2 == '.') - { - *bp++ = '.'; - linelen++; - } - } - if (bitnset(bitidx(c1), badchars)) - { - *bp++ = '='; - *bp++ = Base16Code[(c1 >> 4) & 0x0f]; - *bp++ = Base16Code[c1 & 0x0f]; - linelen += 3; - } - else if (c1 != ' ' && c1 != '\t') - { - if (linelen < 4 && c1 == "From"[linelen]) - fromstate++; - *bp++ = c1; - linelen++; - } - c2 = c1; - } - - /* output any saved character */ - if (c2 == ' ' || c2 == '\t') - { - *bp++ = '='; - *bp++ = Base16Code[(c2 >> 4) & 0x0f]; - *bp++ = Base16Code[c2 & 0x0f]; - linelen += 3; - } - - if (linelen > 0 || boundaries[0] != NULL) - { - *bp = '\0'; - if (!putline(buf, mci)) - goto writeerr; - } - - } - if (tTd(43, 3)) - sm_dprintf("\t\t\tmime8to7=>%s (basic)\n", MimeBoundaryNames[bt]); - return bt; - - writeerr: - return SM_IO_EOF; -} -/* -** MIME_GETCHAR -- get a character for MIME processing -** -** Treats boundaries as SM_IO_EOF. -** -** Parameters: -** fp -- the input file. -** boundaries -- the current MIME boundaries. -** btp -- if the return value is SM_IO_EOF, *btp is set to -** the type of the boundary. -** -** Returns: -** The next character in the input stream. -*/ - -static int -mime_getchar(fp, boundaries, btp) - register SM_FILE_T *fp; - char **boundaries; - int *btp; -{ - int c; - static unsigned char *bp = NULL; - static int buflen = 0; - static bool atbol = true; /* at beginning of line */ - static int bt = MBT_SYNTAX; /* boundary type of next SM_IO_EOF */ - static unsigned char buf[128]; /* need not be a full line */ - int start = 0; /* indicates position of - in buffer */ - - if (buflen == 1 && *bp == '\n') - { - /* last \n in buffer may be part of next MIME boundary */ - c = *bp; - } - else if (buflen > 0) - { - buflen--; - return *bp++; - } - else - c = sm_io_getc(fp, SM_TIME_DEFAULT); - bp = buf; - buflen = 0; - if (c == '\n') - { - /* might be part of a MIME boundary */ - *bp++ = c; - atbol = true; - c = sm_io_getc(fp, SM_TIME_DEFAULT); - if (c == '\n') - { - (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); - return c; - } - start = 1; - } - if (c != SM_IO_EOF) - *bp++ = c; - else - bt = MBT_FINAL; - if (atbol && c == '-') - { - /* check for a message boundary */ - c = sm_io_getc(fp, SM_TIME_DEFAULT); - if (c != '-') - { - if (c != SM_IO_EOF) - *bp++ = c; - else - bt = MBT_FINAL; - buflen = bp - buf - 1; - bp = buf; - return *bp++; - } - - /* got "--", now check for rest of separator */ - *bp++ = '-'; - while (bp < &buf[sizeof(buf) - 2] && - (c = sm_io_getc(fp, SM_TIME_DEFAULT)) != SM_IO_EOF && - c != '\n') - { - *bp++ = c; - } - *bp = '\0'; /* XXX simply cut off? */ - bt = mimeboundary((char *) &buf[start], boundaries); - switch (bt) - { - case MBT_FINAL: - case MBT_INTERMED: - /* we have a message boundary */ - buflen = 0; - *btp = bt; - return SM_IO_EOF; - } - - if (bp < &buf[sizeof(buf) - 2] && c != SM_IO_EOF) - *bp++ = c; - } - - atbol = c == '\n'; - buflen = bp - buf - 1; - if (buflen < 0) - { - *btp = bt; - return SM_IO_EOF; - } - bp = buf; - return *bp++; -} -/* -** MIME_GETCHAR_CRLF -- do mime_getchar, but translate NL => CRLF -** -** Parameters: -** fp -- the input file. -** boundaries -- the current MIME boundaries. -** btp -- if the return value is SM_IO_EOF, *btp is set to -** the type of the boundary. -** -** Returns: -** The next character in the input stream. -*/ - -static int -mime_getchar_crlf(fp, boundaries, btp) - register SM_FILE_T *fp; - char **boundaries; - int *btp; -{ - static bool sendlf = false; - int c; - - if (sendlf) - { - sendlf = false; - return '\n'; - } - c = mime_getchar(fp, boundaries, btp); - if (c == '\n' && MapNLtoCRLF) - { - sendlf = true; - return '\r'; - } - return c; -} -/* -** MIMEBOUNDARY -- determine if this line is a MIME boundary & its type -** -** Parameters: -** line -- the input line. -** boundaries -- the set of currently pending boundaries. -** -** Returns: -** MBT_NOTSEP -- if this is not a separator line -** MBT_INTERMED -- if this is an intermediate separator -** MBT_FINAL -- if this is a final boundary -** MBT_SYNTAX -- if this is a boundary for the wrong -** enclosure -- i.e., a syntax error. -*/ - -static int -mimeboundary(line, boundaries) - register char *line; - char **boundaries; -{ - int type = MBT_NOTSEP; - int i; - int savec; - - if (line[0] != '-' || line[1] != '-' || boundaries == NULL) - return MBT_NOTSEP; - i = strlen(line); - if (i > 0 && line[i - 1] == '\n') - i--; - - /* strip off trailing whitespace */ - while (i > 0 && (line[i - 1] == ' ' || line[i - 1] == '\t' -#if _FFR_MIME_CR_OK - || line[i - 1] == '\r' -#endif /* _FFR_MIME_CR_OK */ - )) - i--; - savec = line[i]; - line[i] = '\0'; - - if (tTd(43, 5)) - sm_dprintf("mimeboundary: line=\"%s\"... ", line); - - /* check for this as an intermediate boundary */ - if (isboundary(&line[2], boundaries) >= 0) - type = MBT_INTERMED; - else if (i > 2 && strncmp(&line[i - 2], "--", 2) == 0) - { - /* check for a final boundary */ - line[i - 2] = '\0'; - if (isboundary(&line[2], boundaries) >= 0) - type = MBT_FINAL; - line[i - 2] = '-'; - } - - line[i] = savec; - if (tTd(43, 5)) - sm_dprintf("%s\n", MimeBoundaryNames[type]); - return type; -} -/* -** DEFCHARSET -- return default character set for message -** -** The first choice for character set is for the mailer -** corresponding to the envelope sender. If neither that -** nor the global configuration file has a default character -** set defined, return "unknown-8bit" as recommended by -** RFC 1428 section 3. -** -** Parameters: -** e -- the envelope for this message. -** -** Returns: -** The default character set for that mailer. -*/ - -char * -defcharset(e) - register ENVELOPE *e; -{ - if (e != NULL && e->e_from.q_mailer != NULL && - e->e_from.q_mailer->m_defcharset != NULL) - return e->e_from.q_mailer->m_defcharset; - if (DefaultCharSet != NULL) - return DefaultCharSet; - return "unknown-8bit"; -} -/* -** ISBOUNDARY -- is a given string a currently valid boundary? -** -** Parameters: -** line -- the current input line. -** boundaries -- the list of valid boundaries. -** -** Returns: -** The index number in boundaries if the line is found. -** -1 -- otherwise. -** -*/ - -static int -isboundary(line, boundaries) - char *line; - char **boundaries; -{ - register int i; - - for (i = 0; i <= MAXMIMENESTING && boundaries[i] != NULL; i++) - { - if (strcmp(line, boundaries[i]) == 0) - return i; - } - return -1; -} -#endif /* MIME8TO7 */ - -#if MIME7TO8 -static int mime_fromqp __P((unsigned char *, unsigned char **, int)); - -/* -** MIME7TO8 -- output 7 bit encoded MIME body in 8 bit format -** -** This is a hack. Supports translating the two 7-bit body-encodings -** (quoted-printable and base64) to 8-bit coded bodies. -** -** There is not much point in supporting multipart here, as the UA -** will be able to deal with encoded MIME bodies if it can parse MIME -** multipart messages. -** -** Note also that we won't be called unless it is a text/plain MIME -** message, encoded base64 or QP and mailer flag '9' has been defined -** on mailer. -** -** Contributed by Marius Olaffson <marius@rhi.hi.is>. -** -** Parameters: -** mci -- mailer connection information. -** header -- the header for this body part. -** e -- envelope. -** -** Returns: -** true iff body was written successfully -*/ - -static char index_64[128] = -{ - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63, - 52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1, - -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, 11,12,13,14, - 15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1, - -1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40, - 41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1 -}; - -# define CHAR64(c) (((c) < 0 || (c) > 127) ? -1 : index_64[(c)]) - -bool -mime7to8(mci, header, e) - register MCI *mci; - HDR *header; - register ENVELOPE *e; -{ - int pxflags; - register char *p; - char *cte; - char **pvp; - unsigned char *fbufp; - char buf[MAXLINE]; - unsigned char fbuf[MAXLINE + 1]; - char pvpbuf[MAXLINE]; - extern unsigned char MimeTokenTab[256]; - - p = hvalue("Content-Transfer-Encoding", header); - if (p == NULL || - (pvp = prescan(p, '\0', pvpbuf, sizeof(pvpbuf), NULL, - MimeTokenTab, false)) == NULL || - pvp[0] == NULL) - { - /* "can't happen" -- upper level should have caught this */ - syserr("mime7to8: unparsable CTE %s", p == NULL ? "<NULL>" : p); - - /* avoid bounce loops */ - e->e_flags |= EF_DONT_MIME; - - /* cheap failsafe algorithm -- should work on text/plain */ - if (p != NULL) - { - (void) sm_snprintf(buf, sizeof(buf), - "Content-Transfer-Encoding: %s", p); - if (!putline(buf, mci)) - goto writeerr; - } - if (!putline("", mci)) - goto writeerr; - mci->mci_flags &= ~MCIF_INHEADER; - while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof(buf)) - != NULL) - { - if (!putline(buf, mci)) - goto writeerr; - } - return true; - } - cataddr(pvp, NULL, buf, sizeof(buf), '\0', false); - cte = sm_rpool_strdup_x(e->e_rpool, buf); - - mci->mci_flags |= MCIF_INHEADER; - if (!putline("Content-Transfer-Encoding: 8bit", mci)) - goto writeerr; - (void) sm_snprintf(buf, sizeof(buf), - "X-MIME-Autoconverted: from %.200s to 8bit by %s id %s", - cte, MyHostName, e->e_id); - if (!putline(buf, mci) || !putline("", mci)) - goto writeerr; - mci->mci_flags &= ~MCIF_INHEADER; - - /* - ** Translate body encoding to 8-bit. Supports two types of - ** encodings; "base64" and "quoted-printable". Assume qp if - ** it is not base64. - */ - - pxflags = PXLF_MAPFROM; - if (sm_strcasecmp(cte, "base64") == 0) - { - int c1, c2, c3, c4; - - fbufp = fbuf; - while ((c1 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT)) != - SM_IO_EOF) - { - if (isascii(c1) && isspace(c1)) - continue; - - do - { - c2 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); - } while (isascii(c2) && isspace(c2)); - if (c2 == SM_IO_EOF) - break; - - do - { - c3 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); - } while (isascii(c3) && isspace(c3)); - if (c3 == SM_IO_EOF) - break; - - do - { - c4 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); - } while (isascii(c4) && isspace(c4)); - if (c4 == SM_IO_EOF) - break; - - if (c1 == '=' || c2 == '=') - continue; - c1 = CHAR64(c1); - c2 = CHAR64(c2); - -#if MIME7TO8_OLD -#define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \ - ++fbufp; -#else /* MIME7TO8_OLD */ -#define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \ - { \ - ++fbufp; \ - pxflags |= PXLF_NOADDEOL; \ - } -#endif /* MIME7TO8_OLD */ - -#define PUTLINE64 \ - do \ - { \ - if (*fbufp++ == '\n' || fbufp >= &fbuf[MAXLINE]) \ - { \ - CHK_EOL; \ - if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags)) \ - goto writeerr; \ - pxflags &= ~PXLF_NOADDEOL; \ - fbufp = fbuf; \ - } \ - } while (0) - - *fbufp = (c1 << 2) | ((c2 & 0x30) >> 4); - PUTLINE64; - if (c3 == '=') - continue; - c3 = CHAR64(c3); - *fbufp = ((c2 & 0x0f) << 4) | ((c3 & 0x3c) >> 2); - PUTLINE64; - if (c4 == '=') - continue; - c4 = CHAR64(c4); - *fbufp = ((c3 & 0x03) << 6) | c4; - PUTLINE64; - } - } - else - { - int off; - - /* quoted-printable */ - pxflags |= PXLF_NOADDEOL; - fbufp = fbuf; - while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, - sizeof(buf)) != NULL) - { - off = mime_fromqp((unsigned char *) buf, &fbufp, - &fbuf[MAXLINE] - fbufp); -again: - if (off < -1) - continue; - - if (fbufp - fbuf > 0) - { - if (!putxline((char *) fbuf, fbufp - fbuf - 1, - mci, pxflags)) - goto writeerr; - } - fbufp = fbuf; - if (off >= 0 && buf[off] != '\0') - { - off = mime_fromqp((unsigned char *) (buf + off), - &fbufp, - &fbuf[MAXLINE] - fbufp); - goto again; - } - } - } - - /* force out partial last line */ - if (fbufp > fbuf) - { - *fbufp = '\0'; - if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags)) - goto writeerr; - } - - /* - ** The decoded text may end without an EOL. Since this function - ** is only called for text/plain MIME messages, it is safe to - ** add an extra one at the end just in case. This is a hack, - ** but so is auto-converting MIME in the first place. - */ - - if (!putline("", mci)) - goto writeerr; - - if (tTd(43, 3)) - sm_dprintf("\t\t\tmime7to8 => %s to 8bit done\n", cte); - return true; - - writeerr: - return false; -} -/* -** The following is based on Borenstein's "codes.c" module, with simplifying -** changes as we do not deal with multipart, and to do the translation in-core, -** with an attempt to prevent overrun of output buffers. -** -** What is needed here are changes to defend this code better against -** bad encodings. Questionable to always return 0xFF for bad mappings. -*/ - -static char index_hex[128] = -{ - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, - 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1, -1,-1,-1,-1, - -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1, - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, - -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1, - -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1 -}; - -# define HEXCHAR(c) (((c) < 0 || (c) > 127) ? -1 : index_hex[(c)]) - -/* -** MIME_FROMQP -- decode quoted printable string -** -** Parameters: -** infile -- input (encoded) string -** outfile -- output string -** maxlen -- size of output buffer -** -** Returns: -** -2 if decoding failure -** -1 if infile completely decoded into outfile -** >= 0 is the position in infile decoding -** reached before maxlen was reached -*/ - -static int -mime_fromqp(infile, outfile, maxlen) - unsigned char *infile; - unsigned char **outfile; - int maxlen; /* Max # of chars allowed in outfile */ -{ - int c1, c2; - int nchar = 0; - unsigned char *b; - - /* decrement by one for trailing '\0', at least one other char */ - if (--maxlen < 1) - return 0; - - b = infile; - while ((c1 = *infile++) != '\0' && nchar < maxlen) - { - if (c1 == '=') - { - if ((c1 = *infile++) == '\0') - break; - - if (c1 == '\n' || (c1 = HEXCHAR(c1)) == -1) - { - /* ignore it and the rest of the buffer */ - return -2; - } - else - { - do - { - if ((c2 = *infile++) == '\0') - { - c2 = -1; - break; - } - } while ((c2 = HEXCHAR(c2)) == -1); - - if (c2 == -1) - break; - nchar++; - *(*outfile)++ = c1 << 4 | c2; - } - } - else - { - nchar++; - *(*outfile)++ = c1; - if (c1 == '\n') - break; - } - } - *(*outfile)++ = '\0'; - if (nchar >= maxlen) - return (infile - b - 1); - return -1; -} -#endif /* MIME7TO8 */ |
