1c2aa98e2SPeter Wemm /* 2af9557fdSGregory Neil Shapiro * Copyright (c) 1998-2003, 2006 Sendmail, Inc. and its suppliers. 306f25ae9SGregory Neil Shapiro * All rights reserved. 4c2aa98e2SPeter Wemm * Copyright (c) 1994, 1996-1997 Eric P. Allman. All rights reserved. 5c2aa98e2SPeter Wemm * Copyright (c) 1994 6c2aa98e2SPeter Wemm * The Regents of the University of California. All rights reserved. 7c2aa98e2SPeter Wemm * 8c2aa98e2SPeter Wemm * By using this file, you agree to the terms and conditions set 9c2aa98e2SPeter Wemm * forth in the LICENSE file which can be found at the top level of 10c2aa98e2SPeter Wemm * the sendmail distribution. 11c2aa98e2SPeter Wemm * 12c2aa98e2SPeter Wemm */ 13c2aa98e2SPeter Wemm 1406f25ae9SGregory Neil Shapiro #include <sendmail.h> 15c2aa98e2SPeter Wemm #include <string.h> 16c2aa98e2SPeter Wemm 17af9557fdSGregory Neil Shapiro SM_RCSID("@(#)$Id: mime.c,v 8.142.2.1 2006/05/23 01:32:08 ca Exp $") 18c2aa98e2SPeter Wemm 19c2aa98e2SPeter Wemm /* 20c2aa98e2SPeter Wemm ** MIME support. 21c2aa98e2SPeter Wemm ** 22c2aa98e2SPeter Wemm ** I am indebted to John Beck of Hewlett-Packard, who contributed 23c2aa98e2SPeter Wemm ** his code to me for inclusion. As it turns out, I did not use 24c2aa98e2SPeter Wemm ** his code since he used a "minimum change" approach that used 25c2aa98e2SPeter Wemm ** several temp files, and I wanted a "minimum impact" approach 26c2aa98e2SPeter Wemm ** that would avoid copying. However, looking over his code 27c2aa98e2SPeter Wemm ** helped me cement my understanding of the problem. 28c2aa98e2SPeter Wemm ** 29c2aa98e2SPeter Wemm ** I also looked at, but did not directly use, Nathaniel 30c2aa98e2SPeter Wemm ** Borenstein's "code.c" module. Again, it functioned as 31c2aa98e2SPeter Wemm ** a file-to-file translator, which did not fit within my 32c2aa98e2SPeter Wemm ** design bounds, but it was a useful base for understanding 33c2aa98e2SPeter Wemm ** the problem. 34c2aa98e2SPeter Wemm */ 35c2aa98e2SPeter Wemm 36323f6dcbSGregory Neil Shapiro /* use "old" mime 7 to 8 algorithm by default */ 37323f6dcbSGregory Neil Shapiro #ifndef MIME7TO8_OLD 38323f6dcbSGregory Neil Shapiro # define MIME7TO8_OLD 1 39323f6dcbSGregory Neil Shapiro #endif /* ! MIME7TO8_OLD */ 40323f6dcbSGregory Neil Shapiro 41c2aa98e2SPeter Wemm #if MIME8TO7 4240266059SGregory Neil Shapiro static int isboundary __P((char *, char **)); 4340266059SGregory Neil Shapiro static int mimeboundary __P((char *, char **)); 4440266059SGregory Neil Shapiro static int mime_getchar __P((SM_FILE_T *, char **, int *)); 4540266059SGregory Neil Shapiro static int mime_getchar_crlf __P((SM_FILE_T *, char **, int *)); 46c2aa98e2SPeter Wemm 47c2aa98e2SPeter Wemm /* character set for hex and base64 encoding */ 4806f25ae9SGregory Neil Shapiro static char Base16Code[] = "0123456789ABCDEF"; 4906f25ae9SGregory Neil Shapiro static char Base64Code[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; 50c2aa98e2SPeter Wemm 51c2aa98e2SPeter Wemm /* types of MIME boundaries */ 52c2aa98e2SPeter Wemm # define MBT_SYNTAX 0 /* syntax error */ 53c2aa98e2SPeter Wemm # define MBT_NOTSEP 1 /* not a boundary */ 54c2aa98e2SPeter Wemm # define MBT_INTERMED 2 /* intermediate boundary (no trailing --) */ 55c2aa98e2SPeter Wemm # define MBT_FINAL 3 /* final boundary (trailing -- included) */ 56c2aa98e2SPeter Wemm 57c2aa98e2SPeter Wemm static char *MimeBoundaryNames[] = 58c2aa98e2SPeter Wemm { 59c2aa98e2SPeter Wemm "SYNTAX", "NOTSEP", "INTERMED", "FINAL" 60c2aa98e2SPeter Wemm }; 61c2aa98e2SPeter Wemm 6206f25ae9SGregory Neil Shapiro static bool MapNLtoCRLF; 63c2aa98e2SPeter Wemm 6440266059SGregory Neil Shapiro /* 65c2aa98e2SPeter Wemm ** MIME8TO7 -- output 8 bit body in 7 bit format 66c2aa98e2SPeter Wemm ** 67c2aa98e2SPeter Wemm ** The header has already been output -- this has to do the 68c2aa98e2SPeter Wemm ** 8 to 7 bit conversion. It would be easy if we didn't have 69c2aa98e2SPeter Wemm ** to deal with nested formats (multipart/xxx and message/rfc822). 70c2aa98e2SPeter Wemm ** 71c2aa98e2SPeter Wemm ** We won't be called if we don't have to do a conversion, and 72c2aa98e2SPeter Wemm ** appropriate MIME-Version: and Content-Type: fields have been 73c2aa98e2SPeter Wemm ** output. Any Content-Transfer-Encoding: field has not been 74c2aa98e2SPeter Wemm ** output, and we can add it here. 75c2aa98e2SPeter Wemm ** 76c2aa98e2SPeter Wemm ** Parameters: 77c2aa98e2SPeter Wemm ** mci -- mailer connection information. 78c2aa98e2SPeter Wemm ** header -- the header for this body part. 79c2aa98e2SPeter Wemm ** e -- envelope. 80c2aa98e2SPeter Wemm ** boundaries -- the currently pending message boundaries. 81c2aa98e2SPeter Wemm ** NULL if we are processing the outer portion. 82c2aa98e2SPeter Wemm ** flags -- to tweak processing. 83af9557fdSGregory Neil Shapiro ** level -- recursion level. 84c2aa98e2SPeter Wemm ** 85c2aa98e2SPeter Wemm ** Returns: 86c2aa98e2SPeter Wemm ** An indicator of what terminated the message part: 87c2aa98e2SPeter Wemm ** MBT_FINAL -- the final boundary 88c2aa98e2SPeter Wemm ** MBT_INTERMED -- an intermediate boundary 89c2aa98e2SPeter Wemm ** MBT_NOTSEP -- an end of file 904e4196cbSGregory Neil Shapiro ** SM_IO_EOF -- I/O error occurred 91c2aa98e2SPeter Wemm */ 92c2aa98e2SPeter Wemm 93c2aa98e2SPeter Wemm struct args 94c2aa98e2SPeter Wemm { 9506f25ae9SGregory Neil Shapiro char *a_field; /* name of field */ 9606f25ae9SGregory Neil Shapiro char *a_value; /* value of that field */ 97c2aa98e2SPeter Wemm }; 98c2aa98e2SPeter Wemm 99c2aa98e2SPeter Wemm int 100af9557fdSGregory Neil Shapiro mime8to7(mci, header, e, boundaries, flags, level) 101c2aa98e2SPeter Wemm register MCI *mci; 102c2aa98e2SPeter Wemm HDR *header; 103c2aa98e2SPeter Wemm register ENVELOPE *e; 104c2aa98e2SPeter Wemm char **boundaries; 105c2aa98e2SPeter Wemm int flags; 106af9557fdSGregory Neil Shapiro int level; 107c2aa98e2SPeter Wemm { 108c2aa98e2SPeter Wemm register char *p; 109c2aa98e2SPeter Wemm int linelen; 110c2aa98e2SPeter Wemm int bt; 111c2aa98e2SPeter Wemm off_t offset; 112c2aa98e2SPeter Wemm size_t sectionsize, sectionhighbits; 113c2aa98e2SPeter Wemm int i; 114c2aa98e2SPeter Wemm char *type; 115c2aa98e2SPeter Wemm char *subtype; 116c2aa98e2SPeter Wemm char *cte; 117c2aa98e2SPeter Wemm char **pvp; 118c2aa98e2SPeter Wemm int argc = 0; 119c2aa98e2SPeter Wemm char *bp; 12040266059SGregory Neil Shapiro bool use_qp = false; 121c2aa98e2SPeter Wemm struct args argv[MAXMIMEARGS]; 122c2aa98e2SPeter Wemm char bbuf[128]; 123c2aa98e2SPeter Wemm char buf[MAXLINE]; 124c2aa98e2SPeter Wemm char pvpbuf[MAXLINE]; 12540266059SGregory Neil Shapiro extern unsigned char MimeTokenTab[256]; 126c2aa98e2SPeter Wemm 127af9557fdSGregory Neil Shapiro if (level > MAXMIMENESTING) 128af9557fdSGregory Neil Shapiro { 129af9557fdSGregory Neil Shapiro if (!bitset(EF_TOODEEP, e->e_flags)) 130af9557fdSGregory Neil Shapiro { 131af9557fdSGregory Neil Shapiro if (tTd(43, 4)) 132af9557fdSGregory Neil Shapiro sm_dprintf("mime8to7: too deep, level=%d\n", 133af9557fdSGregory Neil Shapiro level); 134af9557fdSGregory Neil Shapiro usrerr("mime8to7: recursion level %d exceeded", 135af9557fdSGregory Neil Shapiro level); 136af9557fdSGregory Neil Shapiro e->e_flags |= EF_DONT_MIME|EF_TOODEEP; 137af9557fdSGregory Neil Shapiro } 138af9557fdSGregory Neil Shapiro } 139c2aa98e2SPeter Wemm if (tTd(43, 1)) 140c2aa98e2SPeter Wemm { 14140266059SGregory Neil Shapiro sm_dprintf("mime8to7: flags = %x, boundaries =", flags); 142c2aa98e2SPeter Wemm if (boundaries[0] == NULL) 14340266059SGregory Neil Shapiro sm_dprintf(" <none>"); 144c2aa98e2SPeter Wemm else 145c2aa98e2SPeter Wemm { 146c2aa98e2SPeter Wemm for (i = 0; boundaries[i] != NULL; i++) 14740266059SGregory Neil Shapiro sm_dprintf(" %s", boundaries[i]); 148c2aa98e2SPeter Wemm } 14940266059SGregory Neil Shapiro sm_dprintf("\n"); 150c2aa98e2SPeter Wemm } 15140266059SGregory Neil Shapiro MapNLtoCRLF = true; 152c2aa98e2SPeter Wemm p = hvalue("Content-Transfer-Encoding", header); 153c2aa98e2SPeter Wemm if (p == NULL || 154c2aa98e2SPeter Wemm (pvp = prescan(p, '\0', pvpbuf, sizeof pvpbuf, NULL, 155e92d3f3fSGregory Neil Shapiro MimeTokenTab, false)) == NULL || 156c2aa98e2SPeter Wemm pvp[0] == NULL) 157c2aa98e2SPeter Wemm { 158c2aa98e2SPeter Wemm cte = NULL; 159c2aa98e2SPeter Wemm } 160c2aa98e2SPeter Wemm else 161c2aa98e2SPeter Wemm { 162c2aa98e2SPeter Wemm cataddr(pvp, NULL, buf, sizeof buf, '\0'); 16340266059SGregory Neil Shapiro cte = sm_rpool_strdup_x(e->e_rpool, buf); 164c2aa98e2SPeter Wemm } 165c2aa98e2SPeter Wemm 166c2aa98e2SPeter Wemm type = subtype = NULL; 167c2aa98e2SPeter Wemm p = hvalue("Content-Type", header); 168c2aa98e2SPeter Wemm if (p == NULL) 169c2aa98e2SPeter Wemm { 170c2aa98e2SPeter Wemm if (bitset(M87F_DIGEST, flags)) 171c2aa98e2SPeter Wemm p = "message/rfc822"; 172c2aa98e2SPeter Wemm else 173c2aa98e2SPeter Wemm p = "text/plain"; 174c2aa98e2SPeter Wemm } 175c2aa98e2SPeter Wemm if (p != NULL && 176c2aa98e2SPeter Wemm (pvp = prescan(p, '\0', pvpbuf, sizeof pvpbuf, NULL, 177e92d3f3fSGregory Neil Shapiro MimeTokenTab, false)) != NULL && 178c2aa98e2SPeter Wemm pvp[0] != NULL) 179c2aa98e2SPeter Wemm { 180c2aa98e2SPeter Wemm if (tTd(43, 40)) 181c2aa98e2SPeter Wemm { 182c2aa98e2SPeter Wemm for (i = 0; pvp[i] != NULL; i++) 18340266059SGregory Neil Shapiro sm_dprintf("pvp[%d] = \"%s\"\n", i, pvp[i]); 184c2aa98e2SPeter Wemm } 185c2aa98e2SPeter Wemm type = *pvp++; 186c2aa98e2SPeter Wemm if (*pvp != NULL && strcmp(*pvp, "/") == 0 && 187c2aa98e2SPeter Wemm *++pvp != NULL) 188c2aa98e2SPeter Wemm { 189c2aa98e2SPeter Wemm subtype = *pvp++; 190c2aa98e2SPeter Wemm } 191c2aa98e2SPeter Wemm 192c2aa98e2SPeter Wemm /* break out parameters */ 193c2aa98e2SPeter Wemm while (*pvp != NULL && argc < MAXMIMEARGS) 194c2aa98e2SPeter Wemm { 195c2aa98e2SPeter Wemm /* skip to semicolon separator */ 196c2aa98e2SPeter Wemm while (*pvp != NULL && strcmp(*pvp, ";") != 0) 197c2aa98e2SPeter Wemm pvp++; 198c2aa98e2SPeter Wemm if (*pvp++ == NULL || *pvp == NULL) 199c2aa98e2SPeter Wemm break; 200c2aa98e2SPeter Wemm 20106f25ae9SGregory Neil Shapiro /* complain about empty values */ 20206f25ae9SGregory Neil Shapiro if (strcmp(*pvp, ";") == 0) 20306f25ae9SGregory Neil Shapiro { 20406f25ae9SGregory Neil Shapiro usrerr("mime8to7: Empty parameter in Content-Type header"); 20506f25ae9SGregory Neil Shapiro 20606f25ae9SGregory Neil Shapiro /* avoid bounce loops */ 20706f25ae9SGregory Neil Shapiro e->e_flags |= EF_DONT_MIME; 20806f25ae9SGregory Neil Shapiro continue; 20906f25ae9SGregory Neil Shapiro } 21006f25ae9SGregory Neil Shapiro 211c2aa98e2SPeter Wemm /* extract field name */ 21206f25ae9SGregory Neil Shapiro argv[argc].a_field = *pvp++; 213c2aa98e2SPeter Wemm 214c2aa98e2SPeter Wemm /* see if there is a value */ 215c2aa98e2SPeter Wemm if (*pvp != NULL && strcmp(*pvp, "=") == 0 && 216c2aa98e2SPeter Wemm (*++pvp == NULL || strcmp(*pvp, ";") != 0)) 217c2aa98e2SPeter Wemm { 21806f25ae9SGregory Neil Shapiro argv[argc].a_value = *pvp; 219c2aa98e2SPeter Wemm argc++; 220c2aa98e2SPeter Wemm } 221c2aa98e2SPeter Wemm } 222c2aa98e2SPeter Wemm } 223c2aa98e2SPeter Wemm 224c2aa98e2SPeter Wemm /* check for disaster cases */ 225c2aa98e2SPeter Wemm if (type == NULL) 226c2aa98e2SPeter Wemm type = "-none-"; 227c2aa98e2SPeter Wemm if (subtype == NULL) 228c2aa98e2SPeter Wemm subtype = "-none-"; 229c2aa98e2SPeter Wemm 230af9557fdSGregory Neil Shapiro /* don't propagate some flags more than one level into the message */ 231c2aa98e2SPeter Wemm flags &= ~M87F_DIGEST; 232c2aa98e2SPeter Wemm 233c2aa98e2SPeter Wemm /* 234c2aa98e2SPeter Wemm ** Check for cases that can not be encoded. 235c2aa98e2SPeter Wemm ** 236c2aa98e2SPeter Wemm ** For example, you can't encode certain kinds of types 237c2aa98e2SPeter Wemm ** or already-encoded messages. If we find this case, 238c2aa98e2SPeter Wemm ** just copy it through. 239c2aa98e2SPeter Wemm */ 240c2aa98e2SPeter Wemm 24140266059SGregory Neil Shapiro (void) sm_snprintf(buf, sizeof buf, "%.100s/%.100s", type, subtype); 242c2aa98e2SPeter Wemm if (wordinclass(buf, 'n') || (cte != NULL && !wordinclass(cte, 'e'))) 243c2aa98e2SPeter Wemm flags |= M87F_NO8BIT; 244c2aa98e2SPeter Wemm 245c2aa98e2SPeter Wemm # ifdef USE_B_CLASS 246c2aa98e2SPeter Wemm if (wordinclass(buf, 'b') || wordinclass(type, 'b')) 24740266059SGregory Neil Shapiro MapNLtoCRLF = false; 24806f25ae9SGregory Neil Shapiro # endif /* USE_B_CLASS */ 249c2aa98e2SPeter Wemm if (wordinclass(buf, 'q') || wordinclass(type, 'q')) 25040266059SGregory Neil Shapiro use_qp = true; 251c2aa98e2SPeter Wemm 252c2aa98e2SPeter Wemm /* 253c2aa98e2SPeter Wemm ** Multipart requires special processing. 254c2aa98e2SPeter Wemm ** 255c2aa98e2SPeter Wemm ** Do a recursive descent into the message. 256c2aa98e2SPeter Wemm */ 257c2aa98e2SPeter Wemm 25840266059SGregory Neil Shapiro if (sm_strcasecmp(type, "multipart") == 0 && 259af9557fdSGregory Neil Shapiro (!bitset(M87F_NO8BIT, flags) || bitset(M87F_NO8TO7, flags)) && 260af9557fdSGregory Neil Shapiro !bitset(EF_TOODEEP, e->e_flags) 261af9557fdSGregory Neil Shapiro ) 262c2aa98e2SPeter Wemm { 263c2aa98e2SPeter Wemm 26440266059SGregory Neil Shapiro if (sm_strcasecmp(subtype, "digest") == 0) 265c2aa98e2SPeter Wemm flags |= M87F_DIGEST; 266c2aa98e2SPeter Wemm 267c2aa98e2SPeter Wemm for (i = 0; i < argc; i++) 268c2aa98e2SPeter Wemm { 26940266059SGregory Neil Shapiro if (sm_strcasecmp(argv[i].a_field, "boundary") == 0) 270c2aa98e2SPeter Wemm break; 271c2aa98e2SPeter Wemm } 27206f25ae9SGregory Neil Shapiro if (i >= argc || argv[i].a_value == NULL) 273c2aa98e2SPeter Wemm { 27406f25ae9SGregory Neil Shapiro usrerr("mime8to7: Content-Type: \"%s\": %s boundary", 275c2aa98e2SPeter Wemm i >= argc ? "missing" : "bogus", p); 276c2aa98e2SPeter Wemm p = "---"; 277c2aa98e2SPeter Wemm 278c2aa98e2SPeter Wemm /* avoid bounce loops */ 279c2aa98e2SPeter Wemm e->e_flags |= EF_DONT_MIME; 280c2aa98e2SPeter Wemm } 281c2aa98e2SPeter Wemm else 282c2aa98e2SPeter Wemm { 28306f25ae9SGregory Neil Shapiro p = argv[i].a_value; 284c2aa98e2SPeter Wemm stripquotes(p); 285c2aa98e2SPeter Wemm } 28640266059SGregory Neil Shapiro if (sm_strlcpy(bbuf, p, sizeof bbuf) >= sizeof bbuf) 287c2aa98e2SPeter Wemm { 28806f25ae9SGregory Neil Shapiro usrerr("mime8to7: multipart boundary \"%s\" too long", 289c2aa98e2SPeter Wemm p); 290c2aa98e2SPeter Wemm 291c2aa98e2SPeter Wemm /* avoid bounce loops */ 292c2aa98e2SPeter Wemm e->e_flags |= EF_DONT_MIME; 293c2aa98e2SPeter Wemm } 29406f25ae9SGregory Neil Shapiro 295c2aa98e2SPeter Wemm if (tTd(43, 1)) 29640266059SGregory Neil Shapiro sm_dprintf("mime8to7: multipart boundary \"%s\"\n", 29740266059SGregory Neil Shapiro bbuf); 298c2aa98e2SPeter Wemm for (i = 0; i < MAXMIMENESTING; i++) 299193538b7SGregory Neil Shapiro { 300c2aa98e2SPeter Wemm if (boundaries[i] == NULL) 301c2aa98e2SPeter Wemm break; 302193538b7SGregory Neil Shapiro } 303c2aa98e2SPeter Wemm if (i >= MAXMIMENESTING) 304c2aa98e2SPeter Wemm { 305af9557fdSGregory Neil Shapiro if (tTd(43, 4)) 306af9557fdSGregory Neil Shapiro sm_dprintf("mime8to7: too deep, i=%d\n", i); 307af9557fdSGregory Neil Shapiro if (!bitset(EF_TOODEEP, e->e_flags)) 30806f25ae9SGregory Neil Shapiro usrerr("mime8to7: multipart nesting boundary too deep"); 309c2aa98e2SPeter Wemm 310c2aa98e2SPeter Wemm /* avoid bounce loops */ 311af9557fdSGregory Neil Shapiro e->e_flags |= EF_DONT_MIME|EF_TOODEEP; 312c2aa98e2SPeter Wemm } 313c2aa98e2SPeter Wemm else 314c2aa98e2SPeter Wemm { 315c2aa98e2SPeter Wemm boundaries[i] = bbuf; 316c2aa98e2SPeter Wemm boundaries[i + 1] = NULL; 317c2aa98e2SPeter Wemm } 318c2aa98e2SPeter Wemm mci->mci_flags |= MCIF_INMIME; 319c2aa98e2SPeter Wemm 320c2aa98e2SPeter Wemm /* skip the early "comment" prologue */ 3214e4196cbSGregory Neil Shapiro if (!putline("", mci)) 3224e4196cbSGregory Neil Shapiro goto writeerr; 323c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INHEADER; 32406f25ae9SGregory Neil Shapiro bt = MBT_FINAL; 32540266059SGregory Neil Shapiro while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf) 32640266059SGregory Neil Shapiro != NULL) 327c2aa98e2SPeter Wemm { 328c2aa98e2SPeter Wemm bt = mimeboundary(buf, boundaries); 329c2aa98e2SPeter Wemm if (bt != MBT_NOTSEP) 330c2aa98e2SPeter Wemm break; 3314e4196cbSGregory Neil Shapiro if (!putxline(buf, strlen(buf), mci, 3324e4196cbSGregory Neil Shapiro PXLF_MAPFROM|PXLF_STRIP8BIT)) 3334e4196cbSGregory Neil Shapiro goto writeerr; 334c2aa98e2SPeter Wemm if (tTd(43, 99)) 33540266059SGregory Neil Shapiro sm_dprintf(" ...%s", buf); 336c2aa98e2SPeter Wemm } 33740266059SGregory Neil Shapiro if (sm_io_eof(e->e_dfp)) 338c2aa98e2SPeter Wemm bt = MBT_FINAL; 339c2aa98e2SPeter Wemm while (bt != MBT_FINAL) 340c2aa98e2SPeter Wemm { 341c2aa98e2SPeter Wemm auto HDR *hdr = NULL; 342c2aa98e2SPeter Wemm 34340266059SGregory Neil Shapiro (void) sm_strlcpyn(buf, sizeof buf, 2, "--", bbuf); 3444e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 3454e4196cbSGregory Neil Shapiro goto writeerr; 346c2aa98e2SPeter Wemm if (tTd(43, 35)) 34740266059SGregory Neil Shapiro sm_dprintf(" ...%s\n", buf); 348a7ec597cSGregory Neil Shapiro collect(e->e_dfp, false, &hdr, e, false); 349c2aa98e2SPeter Wemm if (tTd(43, 101)) 350c2aa98e2SPeter Wemm putline("+++after collect", mci); 3514e4196cbSGregory Neil Shapiro if (!putheader(mci, hdr, e, flags)) 3524e4196cbSGregory Neil Shapiro goto writeerr; 353c2aa98e2SPeter Wemm if (tTd(43, 101)) 354c2aa98e2SPeter Wemm putline("+++after putheader", mci); 355af9557fdSGregory Neil Shapiro bt = mime8to7(mci, hdr, e, boundaries, flags, 356af9557fdSGregory Neil Shapiro level + 1); 3574e4196cbSGregory Neil Shapiro if (bt == SM_IO_EOF) 3584e4196cbSGregory Neil Shapiro goto writeerr; 359c2aa98e2SPeter Wemm } 36040266059SGregory Neil Shapiro (void) sm_strlcpyn(buf, sizeof buf, 3, "--", bbuf, "--"); 3614e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 3624e4196cbSGregory Neil Shapiro goto writeerr; 363c2aa98e2SPeter Wemm if (tTd(43, 35)) 36440266059SGregory Neil Shapiro sm_dprintf(" ...%s\n", buf); 365c2aa98e2SPeter Wemm boundaries[i] = NULL; 366c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INMIME; 367c2aa98e2SPeter Wemm 368c2aa98e2SPeter Wemm /* skip the late "comment" epilogue */ 36940266059SGregory Neil Shapiro while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf) 37040266059SGregory Neil Shapiro != NULL) 371c2aa98e2SPeter Wemm { 372c2aa98e2SPeter Wemm bt = mimeboundary(buf, boundaries); 373c2aa98e2SPeter Wemm if (bt != MBT_NOTSEP) 374c2aa98e2SPeter Wemm break; 3754e4196cbSGregory Neil Shapiro if (!putxline(buf, strlen(buf), mci, 3764e4196cbSGregory Neil Shapiro PXLF_MAPFROM|PXLF_STRIP8BIT)) 3774e4196cbSGregory Neil Shapiro goto writeerr; 378c2aa98e2SPeter Wemm if (tTd(43, 99)) 37940266059SGregory Neil Shapiro sm_dprintf(" ...%s", buf); 380c2aa98e2SPeter Wemm } 38140266059SGregory Neil Shapiro if (sm_io_eof(e->e_dfp)) 382c2aa98e2SPeter Wemm bt = MBT_FINAL; 383c2aa98e2SPeter Wemm if (tTd(43, 3)) 38440266059SGregory Neil Shapiro sm_dprintf("\t\t\tmime8to7=>%s (multipart)\n", 385c2aa98e2SPeter Wemm MimeBoundaryNames[bt]); 386c2aa98e2SPeter Wemm return bt; 387c2aa98e2SPeter Wemm } 388c2aa98e2SPeter Wemm 389c2aa98e2SPeter Wemm /* 390c2aa98e2SPeter Wemm ** Message/xxx types -- recurse exactly once. 391c2aa98e2SPeter Wemm ** 392c2aa98e2SPeter Wemm ** Class 's' is predefined to have "rfc822" only. 393c2aa98e2SPeter Wemm */ 394c2aa98e2SPeter Wemm 39540266059SGregory Neil Shapiro if (sm_strcasecmp(type, "message") == 0) 396c2aa98e2SPeter Wemm { 397af9557fdSGregory Neil Shapiro if (!wordinclass(subtype, 's') || 398af9557fdSGregory Neil Shapiro bitset(EF_TOODEEP, e->e_flags)) 399c2aa98e2SPeter Wemm { 400c2aa98e2SPeter Wemm flags |= M87F_NO8BIT; 401c2aa98e2SPeter Wemm } 402c2aa98e2SPeter Wemm else 403c2aa98e2SPeter Wemm { 404c2aa98e2SPeter Wemm auto HDR *hdr = NULL; 405c2aa98e2SPeter Wemm 4064e4196cbSGregory Neil Shapiro if (!putline("", mci)) 4074e4196cbSGregory Neil Shapiro goto writeerr; 408c2aa98e2SPeter Wemm 409c2aa98e2SPeter Wemm mci->mci_flags |= MCIF_INMIME; 410a7ec597cSGregory Neil Shapiro collect(e->e_dfp, false, &hdr, e, false); 411c2aa98e2SPeter Wemm if (tTd(43, 101)) 412c2aa98e2SPeter Wemm putline("+++after collect", mci); 4134e4196cbSGregory Neil Shapiro if (!putheader(mci, hdr, e, flags)) 4144e4196cbSGregory Neil Shapiro goto writeerr; 415c2aa98e2SPeter Wemm if (tTd(43, 101)) 416c2aa98e2SPeter Wemm putline("+++after putheader", mci); 41794c01205SGregory Neil Shapiro if (hvalue("MIME-Version", hdr) == NULL && 4184e4196cbSGregory Neil Shapiro !bitset(M87F_NO8TO7, flags) && 4194e4196cbSGregory Neil Shapiro !putline("MIME-Version: 1.0", mci)) 4204e4196cbSGregory Neil Shapiro goto writeerr; 421af9557fdSGregory Neil Shapiro bt = mime8to7(mci, hdr, e, boundaries, flags, 422af9557fdSGregory Neil Shapiro level + 1); 423c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INMIME; 424c2aa98e2SPeter Wemm return bt; 425c2aa98e2SPeter Wemm } 426c2aa98e2SPeter Wemm } 427c2aa98e2SPeter Wemm 428c2aa98e2SPeter Wemm /* 429c2aa98e2SPeter Wemm ** Non-compound body type 430c2aa98e2SPeter Wemm ** 431c2aa98e2SPeter Wemm ** Compute the ratio of seven to eight bit characters; 432c2aa98e2SPeter Wemm ** use that as a heuristic to decide how to do the 433c2aa98e2SPeter Wemm ** encoding. 434c2aa98e2SPeter Wemm */ 435c2aa98e2SPeter Wemm 436c2aa98e2SPeter Wemm sectionsize = sectionhighbits = 0; 437065a643dSPeter Wemm if (!bitset(M87F_NO8BIT|M87F_NO8TO7, flags)) 438c2aa98e2SPeter Wemm { 439c2aa98e2SPeter Wemm /* remember where we were */ 44040266059SGregory Neil Shapiro offset = sm_io_tell(e->e_dfp, SM_TIME_DEFAULT); 441c2aa98e2SPeter Wemm if (offset == -1) 44240266059SGregory Neil Shapiro syserr("mime8to7: cannot sm_io_tell on %cf%s", 44340266059SGregory Neil Shapiro DATAFL_LETTER, e->e_id); 444c2aa98e2SPeter Wemm 445c2aa98e2SPeter Wemm /* do a scan of this body type to count character types */ 44640266059SGregory Neil Shapiro while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf) 44740266059SGregory Neil Shapiro != NULL) 448c2aa98e2SPeter Wemm { 449c2aa98e2SPeter Wemm if (mimeboundary(buf, boundaries) != MBT_NOTSEP) 450c2aa98e2SPeter Wemm break; 451c2aa98e2SPeter Wemm for (p = buf; *p != '\0'; p++) 452c2aa98e2SPeter Wemm { 453c2aa98e2SPeter Wemm /* count bytes with the high bit set */ 454c2aa98e2SPeter Wemm sectionsize++; 455c2aa98e2SPeter Wemm if (bitset(0200, *p)) 456c2aa98e2SPeter Wemm sectionhighbits++; 457c2aa98e2SPeter Wemm } 458c2aa98e2SPeter Wemm 459c2aa98e2SPeter Wemm /* 460c2aa98e2SPeter Wemm ** Heuristic: if 1/4 of the first 4K bytes are 8-bit, 461c2aa98e2SPeter Wemm ** assume base64. This heuristic avoids double-reading 462c2aa98e2SPeter Wemm ** large graphics or video files. 463c2aa98e2SPeter Wemm */ 464c2aa98e2SPeter Wemm 465c2aa98e2SPeter Wemm if (sectionsize >= 4096 && 466c2aa98e2SPeter Wemm sectionhighbits > sectionsize / 4) 467c2aa98e2SPeter Wemm break; 468c2aa98e2SPeter Wemm } 469c2aa98e2SPeter Wemm 470c2aa98e2SPeter Wemm /* return to the original offset for processing */ 471c2aa98e2SPeter Wemm /* XXX use relative seeks to handle >31 bit file sizes? */ 47240266059SGregory Neil Shapiro if (sm_io_seek(e->e_dfp, SM_TIME_DEFAULT, offset, SEEK_SET) < 0) 47340266059SGregory Neil Shapiro syserr("mime8to7: cannot sm_io_fseek on %cf%s", 47440266059SGregory Neil Shapiro DATAFL_LETTER, e->e_id); 475c2aa98e2SPeter Wemm else 47640266059SGregory Neil Shapiro sm_io_clearerr(e->e_dfp); 477c2aa98e2SPeter Wemm } 478c2aa98e2SPeter Wemm 479c2aa98e2SPeter Wemm /* 480c2aa98e2SPeter Wemm ** Heuristically determine encoding method. 481c2aa98e2SPeter Wemm ** If more than 1/8 of the total characters have the 482c2aa98e2SPeter Wemm ** eighth bit set, use base64; else use quoted-printable. 483c2aa98e2SPeter Wemm ** However, only encode binary encoded data as base64, 484c2aa98e2SPeter Wemm ** since otherwise the NL=>CRLF mapping will be a problem. 485c2aa98e2SPeter Wemm */ 486c2aa98e2SPeter Wemm 487c2aa98e2SPeter Wemm if (tTd(43, 8)) 488c2aa98e2SPeter Wemm { 48940266059SGregory Neil Shapiro sm_dprintf("mime8to7: %ld high bit(s) in %ld byte(s), cte=%s, type=%s/%s\n", 490c2aa98e2SPeter Wemm (long) sectionhighbits, (long) sectionsize, 491c2aa98e2SPeter Wemm cte == NULL ? "[none]" : cte, 492c2aa98e2SPeter Wemm type == NULL ? "[none]" : type, 493c2aa98e2SPeter Wemm subtype == NULL ? "[none]" : subtype); 494c2aa98e2SPeter Wemm } 49540266059SGregory Neil Shapiro if (cte != NULL && sm_strcasecmp(cte, "binary") == 0) 496c2aa98e2SPeter Wemm sectionsize = sectionhighbits; 497c2aa98e2SPeter Wemm linelen = 0; 498c2aa98e2SPeter Wemm bp = buf; 499c2aa98e2SPeter Wemm if (sectionhighbits == 0) 500c2aa98e2SPeter Wemm { 501c2aa98e2SPeter Wemm /* no encoding necessary */ 5022e43090eSPeter Wemm if (cte != NULL && 50306f25ae9SGregory Neil Shapiro bitset(MCIF_CVT8TO7|MCIF_CVT7TO8|MCIF_INMIME, 50406f25ae9SGregory Neil Shapiro mci->mci_flags) && 5052e43090eSPeter Wemm !bitset(M87F_NO8TO7, flags)) 506c2aa98e2SPeter Wemm { 507065a643dSPeter Wemm /* 5082e43090eSPeter Wemm ** Skip _unless_ in MIME mode and potentially 5092e43090eSPeter Wemm ** converting from 8 bit to 7 bit MIME. See 5102e43090eSPeter Wemm ** putheader() for the counterpart where the 5112e43090eSPeter Wemm ** CTE header is skipped in the opposite 5122e43090eSPeter Wemm ** situation. 513065a643dSPeter Wemm */ 514065a643dSPeter Wemm 51540266059SGregory Neil Shapiro (void) sm_snprintf(buf, sizeof buf, 516c2aa98e2SPeter Wemm "Content-Transfer-Encoding: %.200s", cte); 5174e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 5184e4196cbSGregory Neil Shapiro goto writeerr; 519c2aa98e2SPeter Wemm if (tTd(43, 36)) 52040266059SGregory Neil Shapiro sm_dprintf(" ...%s\n", buf); 521c2aa98e2SPeter Wemm } 5224e4196cbSGregory Neil Shapiro if (!putline("", mci)) 5234e4196cbSGregory Neil Shapiro goto writeerr; 524c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INHEADER; 52540266059SGregory Neil Shapiro while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf) 52640266059SGregory Neil Shapiro != NULL) 527c2aa98e2SPeter Wemm { 528c2aa98e2SPeter Wemm bt = mimeboundary(buf, boundaries); 529c2aa98e2SPeter Wemm if (bt != MBT_NOTSEP) 530c2aa98e2SPeter Wemm break; 5314e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 5324e4196cbSGregory Neil Shapiro goto writeerr; 533c2aa98e2SPeter Wemm } 53440266059SGregory Neil Shapiro if (sm_io_eof(e->e_dfp)) 535c2aa98e2SPeter Wemm bt = MBT_FINAL; 536c2aa98e2SPeter Wemm } 537c2aa98e2SPeter Wemm else if (!MapNLtoCRLF || 538c2aa98e2SPeter Wemm (sectionsize / 8 < sectionhighbits && !use_qp)) 539c2aa98e2SPeter Wemm { 540c2aa98e2SPeter Wemm /* use base64 encoding */ 541c2aa98e2SPeter Wemm int c1, c2; 542c2aa98e2SPeter Wemm 543c2aa98e2SPeter Wemm if (tTd(43, 36)) 54440266059SGregory Neil Shapiro sm_dprintf(" ...Content-Transfer-Encoding: base64\n"); 5454e4196cbSGregory Neil Shapiro if (!putline("Content-Transfer-Encoding: base64", mci)) 5464e4196cbSGregory Neil Shapiro goto writeerr; 54740266059SGregory Neil Shapiro (void) sm_snprintf(buf, sizeof buf, 548c2aa98e2SPeter Wemm "X-MIME-Autoconverted: from 8bit to base64 by %s id %s", 549c2aa98e2SPeter Wemm MyHostName, e->e_id); 5504e4196cbSGregory Neil Shapiro if (!putline(buf, mci) || !putline("", mci)) 5514e4196cbSGregory Neil Shapiro goto writeerr; 552c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INHEADER; 55340266059SGregory Neil Shapiro while ((c1 = mime_getchar_crlf(e->e_dfp, boundaries, &bt)) != 55440266059SGregory Neil Shapiro SM_IO_EOF) 555c2aa98e2SPeter Wemm { 556c2aa98e2SPeter Wemm if (linelen > 71) 557c2aa98e2SPeter Wemm { 558c2aa98e2SPeter Wemm *bp = '\0'; 5594e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 5604e4196cbSGregory Neil Shapiro goto writeerr; 561c2aa98e2SPeter Wemm linelen = 0; 562c2aa98e2SPeter Wemm bp = buf; 563c2aa98e2SPeter Wemm } 564c2aa98e2SPeter Wemm linelen += 4; 565c2aa98e2SPeter Wemm *bp++ = Base64Code[(c1 >> 2)]; 566c2aa98e2SPeter Wemm c1 = (c1 & 0x03) << 4; 567c2aa98e2SPeter Wemm c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt); 56840266059SGregory Neil Shapiro if (c2 == SM_IO_EOF) 569c2aa98e2SPeter Wemm { 570c2aa98e2SPeter Wemm *bp++ = Base64Code[c1]; 571c2aa98e2SPeter Wemm *bp++ = '='; 572c2aa98e2SPeter Wemm *bp++ = '='; 573c2aa98e2SPeter Wemm break; 574c2aa98e2SPeter Wemm } 575c2aa98e2SPeter Wemm c1 |= (c2 >> 4) & 0x0f; 576c2aa98e2SPeter Wemm *bp++ = Base64Code[c1]; 577c2aa98e2SPeter Wemm c1 = (c2 & 0x0f) << 2; 578c2aa98e2SPeter Wemm c2 = mime_getchar_crlf(e->e_dfp, boundaries, &bt); 57940266059SGregory Neil Shapiro if (c2 == SM_IO_EOF) 580c2aa98e2SPeter Wemm { 581c2aa98e2SPeter Wemm *bp++ = Base64Code[c1]; 582c2aa98e2SPeter Wemm *bp++ = '='; 583c2aa98e2SPeter Wemm break; 584c2aa98e2SPeter Wemm } 585c2aa98e2SPeter Wemm c1 |= (c2 >> 6) & 0x03; 586c2aa98e2SPeter Wemm *bp++ = Base64Code[c1]; 587c2aa98e2SPeter Wemm *bp++ = Base64Code[c2 & 0x3f]; 588c2aa98e2SPeter Wemm } 589c2aa98e2SPeter Wemm *bp = '\0'; 5904e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 5914e4196cbSGregory Neil Shapiro goto writeerr; 592c2aa98e2SPeter Wemm } 593c2aa98e2SPeter Wemm else 594c2aa98e2SPeter Wemm { 595c2aa98e2SPeter Wemm /* use quoted-printable encoding */ 596c2aa98e2SPeter Wemm int c1, c2; 597c2aa98e2SPeter Wemm int fromstate; 59806f25ae9SGregory Neil Shapiro BITMAP256 badchars; 599c2aa98e2SPeter Wemm 600c2aa98e2SPeter Wemm /* set up map of characters that must be mapped */ 601c2aa98e2SPeter Wemm clrbitmap(badchars); 602c2aa98e2SPeter Wemm for (c1 = 0x00; c1 < 0x20; c1++) 603c2aa98e2SPeter Wemm setbitn(c1, badchars); 604c2aa98e2SPeter Wemm clrbitn('\t', badchars); 605c2aa98e2SPeter Wemm for (c1 = 0x7f; c1 < 0x100; c1++) 606c2aa98e2SPeter Wemm setbitn(c1, badchars); 607c2aa98e2SPeter Wemm setbitn('=', badchars); 608c2aa98e2SPeter Wemm if (bitnset(M_EBCDIC, mci->mci_mailer->m_flags)) 609c2aa98e2SPeter Wemm for (p = "!\"#$@[\\]^`{|}~"; *p != '\0'; p++) 610c2aa98e2SPeter Wemm setbitn(*p, badchars); 611c2aa98e2SPeter Wemm 612c2aa98e2SPeter Wemm if (tTd(43, 36)) 61340266059SGregory Neil Shapiro sm_dprintf(" ...Content-Transfer-Encoding: quoted-printable\n"); 6144e4196cbSGregory Neil Shapiro if (!putline("Content-Transfer-Encoding: quoted-printable", 6154e4196cbSGregory Neil Shapiro mci)) 6164e4196cbSGregory Neil Shapiro goto writeerr; 61740266059SGregory Neil Shapiro (void) sm_snprintf(buf, sizeof buf, 618c2aa98e2SPeter Wemm "X-MIME-Autoconverted: from 8bit to quoted-printable by %s id %s", 619c2aa98e2SPeter Wemm MyHostName, e->e_id); 6204e4196cbSGregory Neil Shapiro if (!putline(buf, mci) || !putline("", mci)) 6214e4196cbSGregory Neil Shapiro goto writeerr; 622c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INHEADER; 623c2aa98e2SPeter Wemm fromstate = 0; 624c2aa98e2SPeter Wemm c2 = '\n'; 62540266059SGregory Neil Shapiro while ((c1 = mime_getchar(e->e_dfp, boundaries, &bt)) != 62640266059SGregory Neil Shapiro SM_IO_EOF) 627c2aa98e2SPeter Wemm { 628c2aa98e2SPeter Wemm if (c1 == '\n') 629c2aa98e2SPeter Wemm { 630c2aa98e2SPeter Wemm if (c2 == ' ' || c2 == '\t') 631c2aa98e2SPeter Wemm { 632c2aa98e2SPeter Wemm *bp++ = '='; 633c2aa98e2SPeter Wemm *bp++ = Base16Code[(c2 >> 4) & 0x0f]; 634c2aa98e2SPeter Wemm *bp++ = Base16Code[c2 & 0x0f]; 635c2aa98e2SPeter Wemm } 636c2aa98e2SPeter Wemm if (buf[0] == '.' && bp == &buf[1]) 637c2aa98e2SPeter Wemm { 638c2aa98e2SPeter Wemm buf[0] = '='; 639c2aa98e2SPeter Wemm *bp++ = Base16Code[('.' >> 4) & 0x0f]; 640c2aa98e2SPeter Wemm *bp++ = Base16Code['.' & 0x0f]; 641c2aa98e2SPeter Wemm } 642c2aa98e2SPeter Wemm *bp = '\0'; 6434e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 6444e4196cbSGregory Neil Shapiro goto writeerr; 645c2aa98e2SPeter Wemm linelen = fromstate = 0; 646c2aa98e2SPeter Wemm bp = buf; 647c2aa98e2SPeter Wemm c2 = c1; 648c2aa98e2SPeter Wemm continue; 649c2aa98e2SPeter Wemm } 650c2aa98e2SPeter Wemm if (c2 == ' ' && linelen == 4 && fromstate == 4 && 651c2aa98e2SPeter Wemm bitnset(M_ESCFROM, mci->mci_mailer->m_flags)) 652c2aa98e2SPeter Wemm { 653c2aa98e2SPeter Wemm *bp++ = '='; 654c2aa98e2SPeter Wemm *bp++ = '2'; 655c2aa98e2SPeter Wemm *bp++ = '0'; 656c2aa98e2SPeter Wemm linelen += 3; 657c2aa98e2SPeter Wemm } 658c2aa98e2SPeter Wemm else if (c2 == ' ' || c2 == '\t') 659c2aa98e2SPeter Wemm { 660c2aa98e2SPeter Wemm *bp++ = c2; 661c2aa98e2SPeter Wemm linelen++; 662c2aa98e2SPeter Wemm } 663c2aa98e2SPeter Wemm if (linelen > 72 && 664c2aa98e2SPeter Wemm (linelen > 75 || c1 != '.' || 665c2aa98e2SPeter Wemm (linelen > 73 && c2 == '.'))) 666c2aa98e2SPeter Wemm { 667c2aa98e2SPeter Wemm if (linelen > 73 && c2 == '.') 668c2aa98e2SPeter Wemm bp--; 669c2aa98e2SPeter Wemm else 670c2aa98e2SPeter Wemm c2 = '\n'; 671c2aa98e2SPeter Wemm *bp++ = '='; 672c2aa98e2SPeter Wemm *bp = '\0'; 6734e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 6744e4196cbSGregory Neil Shapiro goto writeerr; 675c2aa98e2SPeter Wemm linelen = fromstate = 0; 676c2aa98e2SPeter Wemm bp = buf; 677c2aa98e2SPeter Wemm if (c2 == '.') 678c2aa98e2SPeter Wemm { 679c2aa98e2SPeter Wemm *bp++ = '.'; 680c2aa98e2SPeter Wemm linelen++; 681c2aa98e2SPeter Wemm } 682c2aa98e2SPeter Wemm } 683193538b7SGregory Neil Shapiro if (bitnset(bitidx(c1), badchars)) 684c2aa98e2SPeter Wemm { 685c2aa98e2SPeter Wemm *bp++ = '='; 686c2aa98e2SPeter Wemm *bp++ = Base16Code[(c1 >> 4) & 0x0f]; 687c2aa98e2SPeter Wemm *bp++ = Base16Code[c1 & 0x0f]; 688c2aa98e2SPeter Wemm linelen += 3; 689c2aa98e2SPeter Wemm } 690c2aa98e2SPeter Wemm else if (c1 != ' ' && c1 != '\t') 691c2aa98e2SPeter Wemm { 692c2aa98e2SPeter Wemm if (linelen < 4 && c1 == "From"[linelen]) 693c2aa98e2SPeter Wemm fromstate++; 694c2aa98e2SPeter Wemm *bp++ = c1; 695c2aa98e2SPeter Wemm linelen++; 696c2aa98e2SPeter Wemm } 697c2aa98e2SPeter Wemm c2 = c1; 698c2aa98e2SPeter Wemm } 699c2aa98e2SPeter Wemm 700c2aa98e2SPeter Wemm /* output any saved character */ 701c2aa98e2SPeter Wemm if (c2 == ' ' || c2 == '\t') 702c2aa98e2SPeter Wemm { 703c2aa98e2SPeter Wemm *bp++ = '='; 704c2aa98e2SPeter Wemm *bp++ = Base16Code[(c2 >> 4) & 0x0f]; 705c2aa98e2SPeter Wemm *bp++ = Base16Code[c2 & 0x0f]; 706c2aa98e2SPeter Wemm linelen += 3; 707c2aa98e2SPeter Wemm } 708c2aa98e2SPeter Wemm 709c2aa98e2SPeter Wemm if (linelen > 0 || boundaries[0] != NULL) 710c2aa98e2SPeter Wemm { 711c2aa98e2SPeter Wemm *bp = '\0'; 7124e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 7134e4196cbSGregory Neil Shapiro goto writeerr; 714c2aa98e2SPeter Wemm } 715c2aa98e2SPeter Wemm 716c2aa98e2SPeter Wemm } 717c2aa98e2SPeter Wemm if (tTd(43, 3)) 71840266059SGregory Neil Shapiro sm_dprintf("\t\t\tmime8to7=>%s (basic)\n", MimeBoundaryNames[bt]); 719c2aa98e2SPeter Wemm return bt; 7204e4196cbSGregory Neil Shapiro 7214e4196cbSGregory Neil Shapiro writeerr: 7224e4196cbSGregory Neil Shapiro return SM_IO_EOF; 723c2aa98e2SPeter Wemm } 72440266059SGregory Neil Shapiro /* 725c2aa98e2SPeter Wemm ** MIME_GETCHAR -- get a character for MIME processing 726c2aa98e2SPeter Wemm ** 72740266059SGregory Neil Shapiro ** Treats boundaries as SM_IO_EOF. 728c2aa98e2SPeter Wemm ** 729c2aa98e2SPeter Wemm ** Parameters: 730c2aa98e2SPeter Wemm ** fp -- the input file. 731c2aa98e2SPeter Wemm ** boundaries -- the current MIME boundaries. 73240266059SGregory Neil Shapiro ** btp -- if the return value is SM_IO_EOF, *btp is set to 733c2aa98e2SPeter Wemm ** the type of the boundary. 734c2aa98e2SPeter Wemm ** 735c2aa98e2SPeter Wemm ** Returns: 736c2aa98e2SPeter Wemm ** The next character in the input stream. 737c2aa98e2SPeter Wemm */ 738c2aa98e2SPeter Wemm 73906f25ae9SGregory Neil Shapiro static int 740c2aa98e2SPeter Wemm mime_getchar(fp, boundaries, btp) 74140266059SGregory Neil Shapiro register SM_FILE_T *fp; 742c2aa98e2SPeter Wemm char **boundaries; 743c2aa98e2SPeter Wemm int *btp; 744c2aa98e2SPeter Wemm { 745c2aa98e2SPeter Wemm int c; 74640266059SGregory Neil Shapiro static unsigned char *bp = NULL; 747c2aa98e2SPeter Wemm static int buflen = 0; 74840266059SGregory Neil Shapiro static bool atbol = true; /* at beginning of line */ 74940266059SGregory Neil Shapiro static int bt = MBT_SYNTAX; /* boundary type of next SM_IO_EOF */ 75040266059SGregory Neil Shapiro static unsigned char buf[128]; /* need not be a full line */ 751065a643dSPeter Wemm int start = 0; /* indicates position of - in buffer */ 752c2aa98e2SPeter Wemm 753065a643dSPeter Wemm if (buflen == 1 && *bp == '\n') 754065a643dSPeter Wemm { 755065a643dSPeter Wemm /* last \n in buffer may be part of next MIME boundary */ 756065a643dSPeter Wemm c = *bp; 757065a643dSPeter Wemm } 758065a643dSPeter Wemm else if (buflen > 0) 759c2aa98e2SPeter Wemm { 760c2aa98e2SPeter Wemm buflen--; 761c2aa98e2SPeter Wemm return *bp++; 762c2aa98e2SPeter Wemm } 763065a643dSPeter Wemm else 76440266059SGregory Neil Shapiro c = sm_io_getc(fp, SM_TIME_DEFAULT); 765c2aa98e2SPeter Wemm bp = buf; 766c2aa98e2SPeter Wemm buflen = 0; 767c2aa98e2SPeter Wemm if (c == '\n') 768c2aa98e2SPeter Wemm { 769c2aa98e2SPeter Wemm /* might be part of a MIME boundary */ 770c2aa98e2SPeter Wemm *bp++ = c; 77140266059SGregory Neil Shapiro atbol = true; 77240266059SGregory Neil Shapiro c = sm_io_getc(fp, SM_TIME_DEFAULT); 773c2aa98e2SPeter Wemm if (c == '\n') 774c2aa98e2SPeter Wemm { 77540266059SGregory Neil Shapiro (void) sm_io_ungetc(fp, SM_TIME_DEFAULT, c); 776c2aa98e2SPeter Wemm return c; 777c2aa98e2SPeter Wemm } 778065a643dSPeter Wemm start = 1; 779c2aa98e2SPeter Wemm } 78040266059SGregory Neil Shapiro if (c != SM_IO_EOF) 781c2aa98e2SPeter Wemm *bp++ = c; 782c2aa98e2SPeter Wemm else 783c2aa98e2SPeter Wemm bt = MBT_FINAL; 784c2aa98e2SPeter Wemm if (atbol && c == '-') 785c2aa98e2SPeter Wemm { 786c2aa98e2SPeter Wemm /* check for a message boundary */ 78740266059SGregory Neil Shapiro c = sm_io_getc(fp, SM_TIME_DEFAULT); 788c2aa98e2SPeter Wemm if (c != '-') 789c2aa98e2SPeter Wemm { 79040266059SGregory Neil Shapiro if (c != SM_IO_EOF) 791c2aa98e2SPeter Wemm *bp++ = c; 792c2aa98e2SPeter Wemm else 793c2aa98e2SPeter Wemm bt = MBT_FINAL; 794c2aa98e2SPeter Wemm buflen = bp - buf - 1; 795c2aa98e2SPeter Wemm bp = buf; 796c2aa98e2SPeter Wemm return *bp++; 797c2aa98e2SPeter Wemm } 798c2aa98e2SPeter Wemm 799c2aa98e2SPeter Wemm /* got "--", now check for rest of separator */ 800c2aa98e2SPeter Wemm *bp++ = '-'; 801c2aa98e2SPeter Wemm while (bp < &buf[sizeof buf - 2] && 80240266059SGregory Neil Shapiro (c = sm_io_getc(fp, SM_TIME_DEFAULT)) != SM_IO_EOF && 80340266059SGregory Neil Shapiro c != '\n') 804c2aa98e2SPeter Wemm { 805c2aa98e2SPeter Wemm *bp++ = c; 806c2aa98e2SPeter Wemm } 80740266059SGregory Neil Shapiro *bp = '\0'; /* XXX simply cut off? */ 808065a643dSPeter Wemm bt = mimeboundary((char *) &buf[start], boundaries); 809c2aa98e2SPeter Wemm switch (bt) 810c2aa98e2SPeter Wemm { 811c2aa98e2SPeter Wemm case MBT_FINAL: 812c2aa98e2SPeter Wemm case MBT_INTERMED: 813c2aa98e2SPeter Wemm /* we have a message boundary */ 814c2aa98e2SPeter Wemm buflen = 0; 815c2aa98e2SPeter Wemm *btp = bt; 81640266059SGregory Neil Shapiro return SM_IO_EOF; 817c2aa98e2SPeter Wemm } 818c2aa98e2SPeter Wemm 819e92d3f3fSGregory Neil Shapiro if (bp < &buf[sizeof buf - 2] && c != SM_IO_EOF) 820c2aa98e2SPeter Wemm *bp++ = c; 821c2aa98e2SPeter Wemm } 822c2aa98e2SPeter Wemm 823e92d3f3fSGregory Neil Shapiro atbol = c == '\n'; 824c2aa98e2SPeter Wemm buflen = bp - buf - 1; 825c2aa98e2SPeter Wemm if (buflen < 0) 826c2aa98e2SPeter Wemm { 827c2aa98e2SPeter Wemm *btp = bt; 82840266059SGregory Neil Shapiro return SM_IO_EOF; 829c2aa98e2SPeter Wemm } 830c2aa98e2SPeter Wemm bp = buf; 831c2aa98e2SPeter Wemm return *bp++; 832c2aa98e2SPeter Wemm } 83340266059SGregory Neil Shapiro /* 834c2aa98e2SPeter Wemm ** MIME_GETCHAR_CRLF -- do mime_getchar, but translate NL => CRLF 835c2aa98e2SPeter Wemm ** 836c2aa98e2SPeter Wemm ** Parameters: 837c2aa98e2SPeter Wemm ** fp -- the input file. 838c2aa98e2SPeter Wemm ** boundaries -- the current MIME boundaries. 83940266059SGregory Neil Shapiro ** btp -- if the return value is SM_IO_EOF, *btp is set to 840c2aa98e2SPeter Wemm ** the type of the boundary. 841c2aa98e2SPeter Wemm ** 842c2aa98e2SPeter Wemm ** Returns: 843c2aa98e2SPeter Wemm ** The next character in the input stream. 844c2aa98e2SPeter Wemm */ 845c2aa98e2SPeter Wemm 84606f25ae9SGregory Neil Shapiro static int 847c2aa98e2SPeter Wemm mime_getchar_crlf(fp, boundaries, btp) 84840266059SGregory Neil Shapiro register SM_FILE_T *fp; 849c2aa98e2SPeter Wemm char **boundaries; 850c2aa98e2SPeter Wemm int *btp; 851c2aa98e2SPeter Wemm { 85240266059SGregory Neil Shapiro static bool sendlf = false; 853c2aa98e2SPeter Wemm int c; 854c2aa98e2SPeter Wemm 855c2aa98e2SPeter Wemm if (sendlf) 856c2aa98e2SPeter Wemm { 85740266059SGregory Neil Shapiro sendlf = false; 858c2aa98e2SPeter Wemm return '\n'; 859c2aa98e2SPeter Wemm } 860c2aa98e2SPeter Wemm c = mime_getchar(fp, boundaries, btp); 861c2aa98e2SPeter Wemm if (c == '\n' && MapNLtoCRLF) 862c2aa98e2SPeter Wemm { 86340266059SGregory Neil Shapiro sendlf = true; 864c2aa98e2SPeter Wemm return '\r'; 865c2aa98e2SPeter Wemm } 866c2aa98e2SPeter Wemm return c; 867c2aa98e2SPeter Wemm } 86840266059SGregory Neil Shapiro /* 869c2aa98e2SPeter Wemm ** MIMEBOUNDARY -- determine if this line is a MIME boundary & its type 870c2aa98e2SPeter Wemm ** 871c2aa98e2SPeter Wemm ** Parameters: 872c2aa98e2SPeter Wemm ** line -- the input line. 873c2aa98e2SPeter Wemm ** boundaries -- the set of currently pending boundaries. 874c2aa98e2SPeter Wemm ** 875c2aa98e2SPeter Wemm ** Returns: 876c2aa98e2SPeter Wemm ** MBT_NOTSEP -- if this is not a separator line 877c2aa98e2SPeter Wemm ** MBT_INTERMED -- if this is an intermediate separator 878c2aa98e2SPeter Wemm ** MBT_FINAL -- if this is a final boundary 879c2aa98e2SPeter Wemm ** MBT_SYNTAX -- if this is a boundary for the wrong 880c2aa98e2SPeter Wemm ** enclosure -- i.e., a syntax error. 881c2aa98e2SPeter Wemm */ 882c2aa98e2SPeter Wemm 88306f25ae9SGregory Neil Shapiro static int 884c2aa98e2SPeter Wemm mimeboundary(line, boundaries) 885c2aa98e2SPeter Wemm register char *line; 886c2aa98e2SPeter Wemm char **boundaries; 887c2aa98e2SPeter Wemm { 888c2aa98e2SPeter Wemm int type = MBT_NOTSEP; 889c2aa98e2SPeter Wemm int i; 890c2aa98e2SPeter Wemm int savec; 891c2aa98e2SPeter Wemm 892c2aa98e2SPeter Wemm if (line[0] != '-' || line[1] != '-' || boundaries == NULL) 893c2aa98e2SPeter Wemm return MBT_NOTSEP; 894c2aa98e2SPeter Wemm i = strlen(line); 895193538b7SGregory Neil Shapiro if (i > 0 && line[i - 1] == '\n') 896c2aa98e2SPeter Wemm i--; 897c2aa98e2SPeter Wemm 898c2aa98e2SPeter Wemm /* strip off trailing whitespace */ 899b6bacd31SGregory Neil Shapiro while (i > 0 && (line[i - 1] == ' ' || line[i - 1] == '\t' 900b6bacd31SGregory Neil Shapiro #if _FFR_MIME_CR_OK 901b6bacd31SGregory Neil Shapiro || line[i - 1] == '\r' 902b6bacd31SGregory Neil Shapiro #endif /* _FFR_MIME_CR_OK */ 903b6bacd31SGregory Neil Shapiro )) 904c2aa98e2SPeter Wemm i--; 905c2aa98e2SPeter Wemm savec = line[i]; 906c2aa98e2SPeter Wemm line[i] = '\0'; 907c2aa98e2SPeter Wemm 908c2aa98e2SPeter Wemm if (tTd(43, 5)) 90940266059SGregory Neil Shapiro sm_dprintf("mimeboundary: line=\"%s\"... ", line); 910c2aa98e2SPeter Wemm 911c2aa98e2SPeter Wemm /* check for this as an intermediate boundary */ 912c2aa98e2SPeter Wemm if (isboundary(&line[2], boundaries) >= 0) 913c2aa98e2SPeter Wemm type = MBT_INTERMED; 914c2aa98e2SPeter Wemm else if (i > 2 && strncmp(&line[i - 2], "--", 2) == 0) 915c2aa98e2SPeter Wemm { 916c2aa98e2SPeter Wemm /* check for a final boundary */ 917c2aa98e2SPeter Wemm line[i - 2] = '\0'; 918c2aa98e2SPeter Wemm if (isboundary(&line[2], boundaries) >= 0) 919c2aa98e2SPeter Wemm type = MBT_FINAL; 920c2aa98e2SPeter Wemm line[i - 2] = '-'; 921c2aa98e2SPeter Wemm } 922c2aa98e2SPeter Wemm 923c2aa98e2SPeter Wemm line[i] = savec; 924c2aa98e2SPeter Wemm if (tTd(43, 5)) 92540266059SGregory Neil Shapiro sm_dprintf("%s\n", MimeBoundaryNames[type]); 926c2aa98e2SPeter Wemm return type; 927c2aa98e2SPeter Wemm } 92840266059SGregory Neil Shapiro /* 929c2aa98e2SPeter Wemm ** DEFCHARSET -- return default character set for message 930c2aa98e2SPeter Wemm ** 931c2aa98e2SPeter Wemm ** The first choice for character set is for the mailer 932c2aa98e2SPeter Wemm ** corresponding to the envelope sender. If neither that 933c2aa98e2SPeter Wemm ** nor the global configuration file has a default character 934c2aa98e2SPeter Wemm ** set defined, return "unknown-8bit" as recommended by 935c2aa98e2SPeter Wemm ** RFC 1428 section 3. 936c2aa98e2SPeter Wemm ** 937c2aa98e2SPeter Wemm ** Parameters: 938c2aa98e2SPeter Wemm ** e -- the envelope for this message. 939c2aa98e2SPeter Wemm ** 940c2aa98e2SPeter Wemm ** Returns: 941c2aa98e2SPeter Wemm ** The default character set for that mailer. 942c2aa98e2SPeter Wemm */ 943c2aa98e2SPeter Wemm 944c2aa98e2SPeter Wemm char * 945c2aa98e2SPeter Wemm defcharset(e) 946c2aa98e2SPeter Wemm register ENVELOPE *e; 947c2aa98e2SPeter Wemm { 948c2aa98e2SPeter Wemm if (e != NULL && e->e_from.q_mailer != NULL && 949c2aa98e2SPeter Wemm e->e_from.q_mailer->m_defcharset != NULL) 950c2aa98e2SPeter Wemm return e->e_from.q_mailer->m_defcharset; 951c2aa98e2SPeter Wemm if (DefaultCharSet != NULL) 952c2aa98e2SPeter Wemm return DefaultCharSet; 953c2aa98e2SPeter Wemm return "unknown-8bit"; 954c2aa98e2SPeter Wemm } 95540266059SGregory Neil Shapiro /* 956c2aa98e2SPeter Wemm ** ISBOUNDARY -- is a given string a currently valid boundary? 957c2aa98e2SPeter Wemm ** 958c2aa98e2SPeter Wemm ** Parameters: 959c2aa98e2SPeter Wemm ** line -- the current input line. 960c2aa98e2SPeter Wemm ** boundaries -- the list of valid boundaries. 961c2aa98e2SPeter Wemm ** 962c2aa98e2SPeter Wemm ** Returns: 963c2aa98e2SPeter Wemm ** The index number in boundaries if the line is found. 964c2aa98e2SPeter Wemm ** -1 -- otherwise. 965c2aa98e2SPeter Wemm ** 966c2aa98e2SPeter Wemm */ 967c2aa98e2SPeter Wemm 96806f25ae9SGregory Neil Shapiro static int 969c2aa98e2SPeter Wemm isboundary(line, boundaries) 970c2aa98e2SPeter Wemm char *line; 971c2aa98e2SPeter Wemm char **boundaries; 972c2aa98e2SPeter Wemm { 973c2aa98e2SPeter Wemm register int i; 974c2aa98e2SPeter Wemm 975193538b7SGregory Neil Shapiro for (i = 0; i <= MAXMIMENESTING && boundaries[i] != NULL; i++) 976c2aa98e2SPeter Wemm { 977c2aa98e2SPeter Wemm if (strcmp(line, boundaries[i]) == 0) 978c2aa98e2SPeter Wemm return i; 979c2aa98e2SPeter Wemm } 980c2aa98e2SPeter Wemm return -1; 981c2aa98e2SPeter Wemm } 982c2aa98e2SPeter Wemm #endif /* MIME8TO7 */ 98340266059SGregory Neil Shapiro 984c2aa98e2SPeter Wemm #if MIME7TO8 985605302a5SGregory Neil Shapiro static int mime_fromqp __P((unsigned char *, unsigned char **, int)); 986c2aa98e2SPeter Wemm 987c2aa98e2SPeter Wemm /* 988c2aa98e2SPeter Wemm ** MIME7TO8 -- output 7 bit encoded MIME body in 8 bit format 989c2aa98e2SPeter Wemm ** 990c2aa98e2SPeter Wemm ** This is a hack. Supports translating the two 7-bit body-encodings 991c2aa98e2SPeter Wemm ** (quoted-printable and base64) to 8-bit coded bodies. 992c2aa98e2SPeter Wemm ** 993c2aa98e2SPeter Wemm ** There is not much point in supporting multipart here, as the UA 994c2aa98e2SPeter Wemm ** will be able to deal with encoded MIME bodies if it can parse MIME 995c2aa98e2SPeter Wemm ** multipart messages. 996c2aa98e2SPeter Wemm ** 997605302a5SGregory Neil Shapiro ** Note also that we won't be called unless it is a text/plain MIME 998c2aa98e2SPeter Wemm ** message, encoded base64 or QP and mailer flag '9' has been defined 999c2aa98e2SPeter Wemm ** on mailer. 1000c2aa98e2SPeter Wemm ** 1001c2aa98e2SPeter Wemm ** Contributed by Marius Olaffson <marius@rhi.hi.is>. 1002c2aa98e2SPeter Wemm ** 1003c2aa98e2SPeter Wemm ** Parameters: 1004c2aa98e2SPeter Wemm ** mci -- mailer connection information. 1005c2aa98e2SPeter Wemm ** header -- the header for this body part. 1006c2aa98e2SPeter Wemm ** e -- envelope. 1007c2aa98e2SPeter Wemm ** 1008c2aa98e2SPeter Wemm ** Returns: 10094e4196cbSGregory Neil Shapiro ** true iff body was written successfully 1010c2aa98e2SPeter Wemm */ 1011c2aa98e2SPeter Wemm 1012c2aa98e2SPeter Wemm static char index_64[128] = 1013c2aa98e2SPeter Wemm { 1014c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1015c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1016c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63, 1017c2aa98e2SPeter Wemm 52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1, 1018c2aa98e2SPeter Wemm -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, 11,12,13,14, 1019c2aa98e2SPeter Wemm 15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1, 1020c2aa98e2SPeter Wemm -1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40, 1021c2aa98e2SPeter Wemm 41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1 1022c2aa98e2SPeter Wemm }; 1023c2aa98e2SPeter Wemm 1024c2aa98e2SPeter Wemm # define CHAR64(c) (((c) < 0 || (c) > 127) ? -1 : index_64[(c)]) 1025c2aa98e2SPeter Wemm 10264e4196cbSGregory Neil Shapiro bool 1027c2aa98e2SPeter Wemm mime7to8(mci, header, e) 1028c2aa98e2SPeter Wemm register MCI *mci; 1029c2aa98e2SPeter Wemm HDR *header; 1030c2aa98e2SPeter Wemm register ENVELOPE *e; 1031c2aa98e2SPeter Wemm { 1032605302a5SGregory Neil Shapiro int pxflags; 1033c2aa98e2SPeter Wemm register char *p; 1034c2aa98e2SPeter Wemm char *cte; 1035c2aa98e2SPeter Wemm char **pvp; 103640266059SGregory Neil Shapiro unsigned char *fbufp; 1037c2aa98e2SPeter Wemm char buf[MAXLINE]; 103840266059SGregory Neil Shapiro unsigned char fbuf[MAXLINE + 1]; 1039c2aa98e2SPeter Wemm char pvpbuf[MAXLINE]; 104040266059SGregory Neil Shapiro extern unsigned char MimeTokenTab[256]; 1041c2aa98e2SPeter Wemm 1042c2aa98e2SPeter Wemm p = hvalue("Content-Transfer-Encoding", header); 1043c2aa98e2SPeter Wemm if (p == NULL || 1044c2aa98e2SPeter Wemm (pvp = prescan(p, '\0', pvpbuf, sizeof pvpbuf, NULL, 1045e92d3f3fSGregory Neil Shapiro MimeTokenTab, false)) == NULL || 1046c2aa98e2SPeter Wemm pvp[0] == NULL) 1047c2aa98e2SPeter Wemm { 1048c2aa98e2SPeter Wemm /* "can't happen" -- upper level should have caught this */ 1049c2aa98e2SPeter Wemm syserr("mime7to8: unparsable CTE %s", p == NULL ? "<NULL>" : p); 1050c2aa98e2SPeter Wemm 1051c2aa98e2SPeter Wemm /* avoid bounce loops */ 1052c2aa98e2SPeter Wemm e->e_flags |= EF_DONT_MIME; 1053c2aa98e2SPeter Wemm 1054c2aa98e2SPeter Wemm /* cheap failsafe algorithm -- should work on text/plain */ 1055c2aa98e2SPeter Wemm if (p != NULL) 1056c2aa98e2SPeter Wemm { 105740266059SGregory Neil Shapiro (void) sm_snprintf(buf, sizeof buf, 1058c2aa98e2SPeter Wemm "Content-Transfer-Encoding: %s", p); 10594e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 10604e4196cbSGregory Neil Shapiro goto writeerr; 1061c2aa98e2SPeter Wemm } 10624e4196cbSGregory Neil Shapiro if (!putline("", mci)) 10634e4196cbSGregory Neil Shapiro goto writeerr; 1064c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INHEADER; 106540266059SGregory Neil Shapiro while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, sizeof buf) 106640266059SGregory Neil Shapiro != NULL) 10674e4196cbSGregory Neil Shapiro { 10684e4196cbSGregory Neil Shapiro if (!putline(buf, mci)) 10694e4196cbSGregory Neil Shapiro goto writeerr; 10704e4196cbSGregory Neil Shapiro } 10714e4196cbSGregory Neil Shapiro return true; 1072c2aa98e2SPeter Wemm } 1073c2aa98e2SPeter Wemm cataddr(pvp, NULL, buf, sizeof buf, '\0'); 107440266059SGregory Neil Shapiro cte = sm_rpool_strdup_x(e->e_rpool, buf); 1075c2aa98e2SPeter Wemm 1076c2aa98e2SPeter Wemm mci->mci_flags |= MCIF_INHEADER; 10774e4196cbSGregory Neil Shapiro if (!putline("Content-Transfer-Encoding: 8bit", mci)) 10784e4196cbSGregory Neil Shapiro goto writeerr; 107940266059SGregory Neil Shapiro (void) sm_snprintf(buf, sizeof buf, 1080c2aa98e2SPeter Wemm "X-MIME-Autoconverted: from %.200s to 8bit by %s id %s", 1081c2aa98e2SPeter Wemm cte, MyHostName, e->e_id); 10824e4196cbSGregory Neil Shapiro if (!putline(buf, mci) || !putline("", mci)) 10834e4196cbSGregory Neil Shapiro goto writeerr; 1084c2aa98e2SPeter Wemm mci->mci_flags &= ~MCIF_INHEADER; 1085c2aa98e2SPeter Wemm 1086c2aa98e2SPeter Wemm /* 1087c2aa98e2SPeter Wemm ** Translate body encoding to 8-bit. Supports two types of 1088c2aa98e2SPeter Wemm ** encodings; "base64" and "quoted-printable". Assume qp if 1089c2aa98e2SPeter Wemm ** it is not base64. 1090c2aa98e2SPeter Wemm */ 1091c2aa98e2SPeter Wemm 1092605302a5SGregory Neil Shapiro pxflags = PXLF_MAPFROM; 109340266059SGregory Neil Shapiro if (sm_strcasecmp(cte, "base64") == 0) 1094c2aa98e2SPeter Wemm { 1095c2aa98e2SPeter Wemm int c1, c2, c3, c4; 1096c2aa98e2SPeter Wemm 1097c2aa98e2SPeter Wemm fbufp = fbuf; 109840266059SGregory Neil Shapiro while ((c1 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT)) != 109940266059SGregory Neil Shapiro SM_IO_EOF) 1100c2aa98e2SPeter Wemm { 1101c2aa98e2SPeter Wemm if (isascii(c1) && isspace(c1)) 1102c2aa98e2SPeter Wemm continue; 1103c2aa98e2SPeter Wemm 1104c2aa98e2SPeter Wemm do 1105c2aa98e2SPeter Wemm { 110640266059SGregory Neil Shapiro c2 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); 1107c2aa98e2SPeter Wemm } while (isascii(c2) && isspace(c2)); 110840266059SGregory Neil Shapiro if (c2 == SM_IO_EOF) 1109c2aa98e2SPeter Wemm break; 1110c2aa98e2SPeter Wemm 1111c2aa98e2SPeter Wemm do 1112c2aa98e2SPeter Wemm { 111340266059SGregory Neil Shapiro c3 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); 1114c2aa98e2SPeter Wemm } while (isascii(c3) && isspace(c3)); 111540266059SGregory Neil Shapiro if (c3 == SM_IO_EOF) 1116c2aa98e2SPeter Wemm break; 1117c2aa98e2SPeter Wemm 1118c2aa98e2SPeter Wemm do 1119c2aa98e2SPeter Wemm { 112040266059SGregory Neil Shapiro c4 = sm_io_getc(e->e_dfp, SM_TIME_DEFAULT); 1121c2aa98e2SPeter Wemm } while (isascii(c4) && isspace(c4)); 112240266059SGregory Neil Shapiro if (c4 == SM_IO_EOF) 1123c2aa98e2SPeter Wemm break; 1124c2aa98e2SPeter Wemm 1125c2aa98e2SPeter Wemm if (c1 == '=' || c2 == '=') 1126c2aa98e2SPeter Wemm continue; 1127c2aa98e2SPeter Wemm c1 = CHAR64(c1); 1128c2aa98e2SPeter Wemm c2 = CHAR64(c2); 1129c2aa98e2SPeter Wemm 1130323f6dcbSGregory Neil Shapiro #if MIME7TO8_OLD 1131323f6dcbSGregory Neil Shapiro #define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \ 1132323f6dcbSGregory Neil Shapiro ++fbufp; 1133323f6dcbSGregory Neil Shapiro #else /* MIME7TO8_OLD */ 1134323f6dcbSGregory Neil Shapiro #define CHK_EOL if (*--fbufp != '\n' || (fbufp > fbuf && *--fbufp != '\r')) \ 1135323f6dcbSGregory Neil Shapiro { \ 1136323f6dcbSGregory Neil Shapiro ++fbufp; \ 1137323f6dcbSGregory Neil Shapiro pxflags |= PXLF_NOADDEOL; \ 1138323f6dcbSGregory Neil Shapiro } 1139323f6dcbSGregory Neil Shapiro #endif /* MIME7TO8_OLD */ 1140323f6dcbSGregory Neil Shapiro 1141323f6dcbSGregory Neil Shapiro #define PUTLINE64 \ 1142323f6dcbSGregory Neil Shapiro do \ 1143323f6dcbSGregory Neil Shapiro { \ 1144323f6dcbSGregory Neil Shapiro if (*fbufp++ == '\n' || fbufp >= &fbuf[MAXLINE]) \ 1145323f6dcbSGregory Neil Shapiro { \ 1146323f6dcbSGregory Neil Shapiro CHK_EOL; \ 11474e4196cbSGregory Neil Shapiro if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags)) \ 11484e4196cbSGregory Neil Shapiro goto writeerr; \ 1149323f6dcbSGregory Neil Shapiro pxflags &= ~PXLF_NOADDEOL; \ 1150323f6dcbSGregory Neil Shapiro fbufp = fbuf; \ 1151323f6dcbSGregory Neil Shapiro } \ 1152323f6dcbSGregory Neil Shapiro } while (0) 1153323f6dcbSGregory Neil Shapiro 1154c2aa98e2SPeter Wemm *fbufp = (c1 << 2) | ((c2 & 0x30) >> 4); 1155323f6dcbSGregory Neil Shapiro PUTLINE64; 1156c2aa98e2SPeter Wemm if (c3 == '=') 1157c2aa98e2SPeter Wemm continue; 1158c2aa98e2SPeter Wemm c3 = CHAR64(c3); 1159c2aa98e2SPeter Wemm *fbufp = ((c2 & 0x0f) << 4) | ((c3 & 0x3c) >> 2); 1160323f6dcbSGregory Neil Shapiro PUTLINE64; 1161c2aa98e2SPeter Wemm if (c4 == '=') 1162c2aa98e2SPeter Wemm continue; 1163c2aa98e2SPeter Wemm c4 = CHAR64(c4); 1164c2aa98e2SPeter Wemm *fbufp = ((c3 & 0x03) << 6) | c4; 1165323f6dcbSGregory Neil Shapiro PUTLINE64; 1166c2aa98e2SPeter Wemm } 1167c2aa98e2SPeter Wemm } 1168c2aa98e2SPeter Wemm else 1169c2aa98e2SPeter Wemm { 1170605302a5SGregory Neil Shapiro int off; 1171605302a5SGregory Neil Shapiro 1172c2aa98e2SPeter Wemm /* quoted-printable */ 1173605302a5SGregory Neil Shapiro pxflags |= PXLF_NOADDEOL; 1174c2aa98e2SPeter Wemm fbufp = fbuf; 1175605302a5SGregory Neil Shapiro while (sm_io_fgets(e->e_dfp, SM_TIME_DEFAULT, buf, 1176605302a5SGregory Neil Shapiro sizeof buf) != NULL) 1177c2aa98e2SPeter Wemm { 1178605302a5SGregory Neil Shapiro off = mime_fromqp((unsigned char *) buf, &fbufp, 1179605302a5SGregory Neil Shapiro &fbuf[MAXLINE] - fbufp); 1180605302a5SGregory Neil Shapiro again: 1181605302a5SGregory Neil Shapiro if (off < -1) 1182c2aa98e2SPeter Wemm continue; 1183c2aa98e2SPeter Wemm 1184c2aa98e2SPeter Wemm if (fbufp - fbuf > 0) 11854e4196cbSGregory Neil Shapiro { 11864e4196cbSGregory Neil Shapiro if (!putxline((char *) fbuf, fbufp - fbuf - 1, 11874e4196cbSGregory Neil Shapiro mci, pxflags)) 11884e4196cbSGregory Neil Shapiro goto writeerr; 11894e4196cbSGregory Neil Shapiro } 1190c2aa98e2SPeter Wemm fbufp = fbuf; 1191605302a5SGregory Neil Shapiro if (off >= 0 && buf[off] != '\0') 1192605302a5SGregory Neil Shapiro { 1193605302a5SGregory Neil Shapiro off = mime_fromqp((unsigned char *) (buf + off), 1194605302a5SGregory Neil Shapiro &fbufp, 1195605302a5SGregory Neil Shapiro &fbuf[MAXLINE] - fbufp); 1196605302a5SGregory Neil Shapiro goto again; 1197605302a5SGregory Neil Shapiro } 1198c2aa98e2SPeter Wemm } 1199c2aa98e2SPeter Wemm } 1200c2aa98e2SPeter Wemm 1201c2aa98e2SPeter Wemm /* force out partial last line */ 1202c2aa98e2SPeter Wemm if (fbufp > fbuf) 1203c2aa98e2SPeter Wemm { 1204c2aa98e2SPeter Wemm *fbufp = '\0'; 12054e4196cbSGregory Neil Shapiro if (!putxline((char *) fbuf, fbufp - fbuf, mci, pxflags)) 12064e4196cbSGregory Neil Shapiro goto writeerr; 1207c2aa98e2SPeter Wemm } 1208605302a5SGregory Neil Shapiro 1209605302a5SGregory Neil Shapiro /* 1210605302a5SGregory Neil Shapiro ** The decoded text may end without an EOL. Since this function 1211605302a5SGregory Neil Shapiro ** is only called for text/plain MIME messages, it is safe to 1212605302a5SGregory Neil Shapiro ** add an extra one at the end just in case. This is a hack, 1213605302a5SGregory Neil Shapiro ** but so is auto-converting MIME in the first place. 1214605302a5SGregory Neil Shapiro */ 1215605302a5SGregory Neil Shapiro 12164e4196cbSGregory Neil Shapiro if (!putline("", mci)) 12174e4196cbSGregory Neil Shapiro goto writeerr; 1218605302a5SGregory Neil Shapiro 1219c2aa98e2SPeter Wemm if (tTd(43, 3)) 122040266059SGregory Neil Shapiro sm_dprintf("\t\t\tmime7to8 => %s to 8bit done\n", cte); 12214e4196cbSGregory Neil Shapiro return true; 12224e4196cbSGregory Neil Shapiro 12234e4196cbSGregory Neil Shapiro writeerr: 12244e4196cbSGregory Neil Shapiro return false; 1225c2aa98e2SPeter Wemm } 122640266059SGregory Neil Shapiro /* 1227c2aa98e2SPeter Wemm ** The following is based on Borenstein's "codes.c" module, with simplifying 1228c2aa98e2SPeter Wemm ** changes as we do not deal with multipart, and to do the translation in-core, 1229c2aa98e2SPeter Wemm ** with an attempt to prevent overrun of output buffers. 1230c2aa98e2SPeter Wemm ** 123140266059SGregory Neil Shapiro ** What is needed here are changes to defend this code better against 1232c2aa98e2SPeter Wemm ** bad encodings. Questionable to always return 0xFF for bad mappings. 1233c2aa98e2SPeter Wemm */ 1234c2aa98e2SPeter Wemm 1235c2aa98e2SPeter Wemm static char index_hex[128] = 1236c2aa98e2SPeter Wemm { 1237c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1238c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1239c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1240c2aa98e2SPeter Wemm 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1, -1,-1,-1,-1, 1241c2aa98e2SPeter Wemm -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1242c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1243c2aa98e2SPeter Wemm -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1, 1244c2aa98e2SPeter Wemm -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1 1245c2aa98e2SPeter Wemm }; 1246c2aa98e2SPeter Wemm 1247c2aa98e2SPeter Wemm # define HEXCHAR(c) (((c) < 0 || (c) > 127) ? -1 : index_hex[(c)]) 1248c2aa98e2SPeter Wemm 1249605302a5SGregory Neil Shapiro /* 1250605302a5SGregory Neil Shapiro ** MIME_FROMQP -- decode quoted printable string 1251605302a5SGregory Neil Shapiro ** 1252605302a5SGregory Neil Shapiro ** Parameters: 1253605302a5SGregory Neil Shapiro ** infile -- input (encoded) string 1254605302a5SGregory Neil Shapiro ** outfile -- output string 1255605302a5SGregory Neil Shapiro ** maxlen -- size of output buffer 1256605302a5SGregory Neil Shapiro ** 1257605302a5SGregory Neil Shapiro ** Returns: 1258605302a5SGregory Neil Shapiro ** -2 if decoding failure 1259605302a5SGregory Neil Shapiro ** -1 if infile completely decoded into outfile 1260605302a5SGregory Neil Shapiro ** >= 0 is the position in infile decoding 1261605302a5SGregory Neil Shapiro ** reached before maxlen was reached 1262605302a5SGregory Neil Shapiro */ 1263605302a5SGregory Neil Shapiro 126406f25ae9SGregory Neil Shapiro static int 1265605302a5SGregory Neil Shapiro mime_fromqp(infile, outfile, maxlen) 126640266059SGregory Neil Shapiro unsigned char *infile; 126740266059SGregory Neil Shapiro unsigned char **outfile; 1268c2aa98e2SPeter Wemm int maxlen; /* Max # of chars allowed in outfile */ 1269c2aa98e2SPeter Wemm { 1270c2aa98e2SPeter Wemm int c1, c2; 1271c2aa98e2SPeter Wemm int nchar = 0; 1272605302a5SGregory Neil Shapiro unsigned char *b; 1273c2aa98e2SPeter Wemm 1274605302a5SGregory Neil Shapiro /* decrement by one for trailing '\0', at least one other char */ 1275605302a5SGregory Neil Shapiro if (--maxlen < 1) 127640266059SGregory Neil Shapiro return 0; 127740266059SGregory Neil Shapiro 1278605302a5SGregory Neil Shapiro b = infile; 1279605302a5SGregory Neil Shapiro while ((c1 = *infile++) != '\0' && nchar < maxlen) 1280c2aa98e2SPeter Wemm { 1281c2aa98e2SPeter Wemm if (c1 == '=') 1282c2aa98e2SPeter Wemm { 1283605302a5SGregory Neil Shapiro if ((c1 = *infile++) == '\0') 1284c2aa98e2SPeter Wemm break; 1285c2aa98e2SPeter Wemm 1286c2aa98e2SPeter Wemm if (c1 == '\n' || (c1 = HEXCHAR(c1)) == -1) 1287c2aa98e2SPeter Wemm { 1288605302a5SGregory Neil Shapiro /* ignore it and the rest of the buffer */ 1289605302a5SGregory Neil Shapiro return -2; 1290c2aa98e2SPeter Wemm } 1291c2aa98e2SPeter Wemm else 1292c2aa98e2SPeter Wemm { 1293c2aa98e2SPeter Wemm do 1294c2aa98e2SPeter Wemm { 1295c2aa98e2SPeter Wemm if ((c2 = *infile++) == '\0') 1296c2aa98e2SPeter Wemm { 1297c2aa98e2SPeter Wemm c2 = -1; 1298c2aa98e2SPeter Wemm break; 1299c2aa98e2SPeter Wemm } 1300c2aa98e2SPeter Wemm } while ((c2 = HEXCHAR(c2)) == -1); 1301c2aa98e2SPeter Wemm 1302605302a5SGregory Neil Shapiro if (c2 == -1) 1303c2aa98e2SPeter Wemm break; 1304605302a5SGregory Neil Shapiro nchar++; 1305c2aa98e2SPeter Wemm *(*outfile)++ = c1 << 4 | c2; 1306c2aa98e2SPeter Wemm } 1307c2aa98e2SPeter Wemm } 1308c2aa98e2SPeter Wemm else 1309c2aa98e2SPeter Wemm { 1310605302a5SGregory Neil Shapiro nchar++; 1311c2aa98e2SPeter Wemm *(*outfile)++ = c1; 1312c2aa98e2SPeter Wemm if (c1 == '\n') 1313c2aa98e2SPeter Wemm break; 1314c2aa98e2SPeter Wemm } 1315c2aa98e2SPeter Wemm } 1316c2aa98e2SPeter Wemm *(*outfile)++ = '\0'; 1317605302a5SGregory Neil Shapiro if (nchar >= maxlen) 1318605302a5SGregory Neil Shapiro return (infile - b - 1); 1319605302a5SGregory Neil Shapiro return -1; 1320c2aa98e2SPeter Wemm } 1321c2aa98e2SPeter Wemm #endif /* MIME7TO8 */ 1322