mailutils/mime.c

   1 /* vi: set sw=4 ts=4: */
   2 /*
   3  * makemime: create MIME-encoded message
   4  * reformime: parse MIME-encoded message
   5  *
   6  * Copyright (C) 2008 by Vladimir Dronnikov <dronnikov@gmail.com>
   7  *
   8  * Licensed under GPLv2, see file LICENSE in this tarball for details.
   9  */
  10 #include "libbb.h"
  11 #include "mail.h"
  12
  13 /*
  14   makemime -c type [-o file] [-e encoding] [-C charset] [-N name] \
  15                    [-a "Header: Contents"] file
  16            -m [ type ] [-o file] [-e encoding] [-a "Header: Contents"] file
  17            -j [-o file] file1 file2
  18            @file
  19
  20    file:  filename    - read or write from filename
  21           -           - read or write from stdin or stdout
  22           &n          - read or write from file descriptor n
  23           \( opts \)  - read from child process, that generates [ opts ]
  24
  25 Options:
  26
  27   -c type         - create a new MIME section from "file" with this
  28                     Content-Type: (default is application/octet-stream).
  29   -C charset      - MIME charset of a new text/plain section.
  30   -N name         - MIME content name of the new mime section.
  31   -m [ type ]     - create a multipart mime section from "file" of this
  32                     Content-Type: (default is multipart/mixed).
  33   -e encoding     - use the given encoding (7bit, 8bit, quoted-printable,
  34                     or base64), instead of guessing.  Omit "-e" and use
  35                     -c auto to set Content-Type: to text/plain or
  36                     application/octet-stream based on picked encoding.
  37   -j file1 file2  - join mime section file2 to multipart section file1.
  38   -o file         - write the result to file, instead of stdout (not
  39                     allowed in child processes).
  40   -a header       - prepend an additional header to the output.
  41
  42   @file - read all of the above options from file, one option or
  43           value on each line.
  44   {which version of makemime is this? What do we support?}
  45 */
  46
  47
  48 /* In busybox 1.15.0.svn, makemime generates output like this
  49  * (empty lines are shown exactly!):
  50 {headers added with -a HDR}
  51 Mime-Version: 1.0
  52 Content-Type: multipart/mixed; boundary="24269534-2145583448-1655890676"
  53
  54 --24269534-2145583448-1655890676
  55 Content-Type: {set by -c, e.g. text/plain}; charset={set by -C, e.g. us-ascii}
  56 Content-Disposition: inline; filename="A"
  57 Content-Transfer-Encoding: base64
  58
  59 ...file A contents...
  60 --24269534-2145583448-1655890676
  61 Content-Type: {set by -c, e.g. text/plain}; charset={set by -C, e.g. us-ascii}
  62 Content-Disposition: inline; filename="B"
  63 Content-Transfer-Encoding: base64
  64
  65 ...file B contents...
  66 --24269534-2145583448-1655890676--
  67
  68 */
  69
  70
  71 /* For reference: here is an example email to LKML which has
  72  * 1st unnamed part (so it serves as an email body)
  73  * and one attached file:
  74 ...other headers...
  75 Content-Type: multipart/mixed; boundary="=-tOfTf3byOS0vZgxEWcX+"
  76 ...other headers...
  77 Mime-Version: 1.0
  78 ...other headers...
  79
  80
  81 --=-tOfTf3byOS0vZgxEWcX+
  82 Content-Type: text/plain
  83 Content-Transfer-Encoding: 7bit
  84
  85 ...email text...
  86 ...email text...
  87
  88
  89 --=-tOfTf3byOS0vZgxEWcX+
  90 Content-Disposition: attachment; filename="xyz"
  91 Content-Type: text/plain; name="xyz"; charset="UTF-8"
  92 Content-Transfer-Encoding: 7bit
  93
  94 ...file contents...
  95 ...file contents...
  96
  97 --=-tOfTf3byOS0vZgxEWcX+--
  98
  99 ...random junk added by mailing list robots and such...
 100 */
 101
 102 int makemime_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
 103 int makemime_main(int argc UNUSED_PARAM, char **argv)
 104 {
 105         llist_t *opt_headers = NULL, *l;
 106         const char *opt_output;
 107 #define boundary opt_output
 108
 109         enum {
 110                 OPT_c = 1 << 0,         // Content-Type:
 111                 OPT_e = 1 << 1,         // Content-Transfer-Encoding. Ignored. Assumed base64
 112                 OPT_o = 1 << 2,         // output to
 113                 OPT_C = 1 << 3,         // charset
 114                 OPT_N = 1 << 4,         // COMPAT
 115                 OPT_a = 1 << 5,         // additional headers
 116                 OPT_m = 1 << 6,         // COMPAT
 117                 OPT_j = 1 << 7,         // COMPAT
 118         };
 119
 120         INIT_G();
 121
 122         // parse options
 123         opt_complementary = "a::";
 124         opts = getopt32(argv,
 125                 "c:e:o:C:N:a:m:j:",
 126                 &G.content_type, NULL, &opt_output, &G.opt_charset, NULL, &opt_headers, NULL, NULL
 127         );
 128         //argc -= optind;
 129         argv += optind;
 130
 131         // respect -o output
 132         if (opts & OPT_o)
 133                 freopen(opt_output, "w", stdout);
 134
 135         // no files given on command line? -> use stdin
 136         if (!*argv)
 137                 *--argv = (char *)"-";
 138
 139         // put additional headers
 140         for (l = opt_headers; l; l = l->link)
 141                 puts(l->data);
 142
 143         // make a random string -- it will delimit message parts
 144         srand(monotonic_us());
 145         boundary = xasprintf("%u-%u-%u",
 146                         (unsigned)rand(), (unsigned)rand(), (unsigned)rand());
 147
 148         // put multipart header
 149         printf(
 150                 "Mime-Version: 1.0\n"
 151                 "Content-Type: multipart/mixed; boundary=\"%s\"\n"
 152                 , boundary
 153         );
 154
 155         // put attachments
 156         while (*argv) {
 157                 printf(
 158                         "\n--%s\n"
 159                         "Content-Type: %s; charset=%s\n"
 160                         "Content-Disposition: inline; filename=\"%s\"\n"
 161                         "Content-Transfer-Encoding: base64\n"
 162                         , boundary
 163                         , G.content_type
 164                         , G.opt_charset
 165                         , bb_get_last_path_component_strip(*argv)
 166                 );
 167                 encode_base64(*argv++, (const char *)stdin, "");
 168         }
 169
 170         // put multipart footer
 171         printf("\n--%s--\n" "\n", boundary);
 172
 173         return EXIT_SUCCESS;
 174 #undef boundary
 175 }
 176
 177 static const char *find_token(const char *const string_array[], const char *key, const char *defvalue)
 178 {
 179         const char *r = NULL;
 180         for (int i = 0; string_array[i] != 0; i++) {
 181                 if (strcasecmp(string_array[i], key) == 0) {
 182                         r = (char *)string_array[i+1];
 183                         break;
 184                 }
 185         }
 186         return (r) ? r : defvalue;
 187 }
 188
 189 static const char *xfind_token(const char *const string_array[], const char *key)
 190 {
 191         const char *r = find_token(string_array, key, NULL);
 192         if (r)
 193                 return r;
 194         bb_error_msg_and_die("header: %s", key);
 195 }
 196
 197 enum {
 198         OPT_x = 1 << 0,
 199         OPT_X = 1 << 1,
 200 #if ENABLE_FEATURE_REFORMIME_COMPAT
 201         OPT_d = 1 << 2,
 202         OPT_e = 1 << 3,
 203         OPT_i = 1 << 4,
 204         OPT_s = 1 << 5,
 205         OPT_r = 1 << 6,
 206         OPT_c = 1 << 7,
 207         OPT_m = 1 << 8,
 208         OPT_h = 1 << 9,
 209         OPT_o = 1 << 10,
 210         OPT_O = 1 << 11,
 211 #endif
 212 };
 213
 214 static int parse(const char *boundary, char **argv)
 215 {
 216         char *line, *s, *p;
 217         const char *type;
 218         int boundary_len = strlen(boundary);
 219         const char *delims = " ;\"\t\r\n";
 220         const char *uniq;
 221         int ntokens;
 222         const char *tokens[32]; // 32 is enough
 223
 224         // prepare unique string pattern
 225         uniq = xasprintf("%%llu.%u.%s", (unsigned)getpid(), safe_gethostname());
 226
 227 //bb_info_msg("PARSE[%s]", terminator);
 228
 229         while ((line = xmalloc_fgets_str(stdin, "\r\n\r\n")) != NULL) {
 230
 231                 // seek to start of MIME section
 232                 // N.B. to avoid false positives let us seek to the _last_ occurance
 233                 p = NULL;
 234                 s = line;
 235                 while ((s = strcasestr(s, "Content-Type:")) != NULL)
 236                         p = s++;
 237                 if (!p)
 238                         goto next;
 239 //bb_info_msg("L[%s]", p);
 240
 241                 // split to tokens
 242                 // TODO: strip of comments which are of form: (comment-text)
 243                 ntokens = 0;
 244                 tokens[ntokens] = NULL;
 245                 for (s = strtok(p, delims); s; s = strtok(NULL, delims)) {
 246                         tokens[ntokens] = s;
 247                         if (ntokens < ARRAY_SIZE(tokens) - 1)
 248                                 ntokens++;
 249 //bb_info_msg("L[%d][%s]", ntokens, s);
 250                 }
 251                 tokens[ntokens] = NULL;
 252 //bb_info_msg("N[%d]", ntokens);
 253
 254                 // analyse tokens
 255                 type = find_token(tokens, "Content-Type:", "text/plain");
 256 //bb_info_msg("T[%s]", type);
 257                 if (0 == strncasecmp(type, "multipart/", 10)) {
 258                         if (0 == strcasecmp(type+10, "mixed")) {
 259                                 parse(xfind_token(tokens, "boundary="), argv);
 260                         } else
 261                                 bb_error_msg_and_die("no support of content type '%s'", type);
 262                 } else {
 263                         pid_t pid = pid;
 264                         int rc;
 265                         FILE *fp;
 266                         // fetch charset
 267                         const char *charset = find_token(tokens, "charset=", CONFIG_FEATURE_MIME_CHARSET);
 268                         // fetch encoding
 269                         const char *encoding = find_token(tokens, "Content-Transfer-Encoding:", "7bit");
 270                         // compose target filename
 271                         char *filename = (char *)find_token(tokens, "filename=", NULL);
 272                         if (!filename)
 273                                 filename = xasprintf(uniq, monotonic_us());
 274                         else
 275                                 filename = bb_get_last_path_component_strip(xstrdup(filename));
 276
 277                         // start external helper, if any
 278                         if (opts & OPT_X) {
 279                                 int fd[2];
 280                                 xpipe(fd);
 281                                 pid = vfork();
 282                                 if (0 == pid) {
 283                                         // child reads from fd[0]
 284                                         close(fd[1]);
 285                                         xmove_fd(fd[0], STDIN_FILENO);
 286                                         xsetenv("CONTENT_TYPE", type);
 287                                         xsetenv("CHARSET", charset);
 288                                         xsetenv("ENCODING", encoding);
 289                                         xsetenv("FILENAME", filename);
 290                                         BB_EXECVP(*argv, argv);
 291                                         _exit(EXIT_FAILURE);
 292                                 }
 293                                 // parent dumps to fd[1]
 294                                 close(fd[0]);
 295                                 fp = fdopen(fd[1], "w");
 296                                 signal(SIGPIPE, SIG_IGN); // ignore EPIPE
 297                         // or create a file for dump
 298                         } else {
 299                                 char *fname = xasprintf("%s%s", *argv, filename);
 300                                 fp = xfopen_for_write(fname);
 301                                 free(fname);
 302                         }
 303
 304                         // housekeeping
 305                         free(filename);
 306
 307                         // dump to fp
 308                         if (0 == strcasecmp(encoding, "base64")) {
 309                                 decode_base64(stdin, fp);
 310                         } else if (0 != strcasecmp(encoding, "7bit")
 311                                 && 0 != strcasecmp(encoding, "8bit")
 312                         ) {
 313                                 // quoted-printable, binary, user-defined are unsupported so far
 314                                 bb_error_msg_and_die("no support of encoding '%s'", encoding);
 315                         } else {
 316                                 // N.B. we have written redundant \n. so truncate the file
 317                                 // The following weird 2-tacts reading technique is due to
 318                                 // we have to not write extra \n at the end of the file
 319                                 // In case of -x option we could truncate the resulting file as
 320                                 // fseek(fp, -1, SEEK_END);
 321                                 // if (ftruncate(fileno(fp), ftell(fp)))
 322                                 //      bb_perror_msg("ftruncate");
 323                                 // But in case of -X we have to be much more careful. There is
 324                                 // no means to truncate what we already have sent to the helper.
 325                                 p = xmalloc_fgets_str(stdin, "\r\n");
 326                                 while (p) {
 327                                         s = xmalloc_fgets_str(stdin, "\r\n");
 328                                         if (s == NULL)
 329                                                 break;
 330                                         if ('-' == s[0]
 331                                          && '-' == s[1]
 332                                          && 0 == strncmp(s+2, boundary, boundary_len)
 333                                         ) {
 334                                                 break;
 335                                         }
 336                                         fputs(p, fp);
 337                                         p = s;
 338                                 }
 339
 340 /*
 341                                 while ((s = xmalloc_fgetline_str(stdin, "\r\n")) != NULL) {
 342                                         if ('-' == s[0] && '-' == s[1]
 343                                                 && 0 == strncmp(s+2, boundary, boundary_len))
 344                                                 break;
 345                                         fprintf(fp, "%s\n", s);
 346                                 }
 347                                 // N.B. we have written redundant \n. so truncate the file
 348                                 fseek(fp, -1, SEEK_END);
 349                                 if (ftruncate(fileno(fp), ftell(fp)))
 350                                         bb_perror_msg("ftruncate");
 351 */
 352                         }
 353                         fclose(fp);
 354
 355                         // finalize helper
 356                         if (opts & OPT_X) {
 357                                 signal(SIGPIPE, SIG_DFL);
 358                                 // exit if helper exited >0
 359                                 rc = wait4pid(pid);
 360                                 if (rc)
 361                                         return rc+20;
 362                         }
 363
 364                         // check multipart finalized
 365                         if (s && '-' == s[2+boundary_len] && '-' == s[2+boundary_len+1]) {
 366                                 free(line);
 367                                 break;
 368                         }
 369                 }
 370  next:
 371                 free(line);
 372         }
 373
 374 //bb_info_msg("ENDPARSE[%s]", boundary);
 375
 376         return EXIT_SUCCESS;
 377 }
 378
 379 /*
 380 Usage: reformime [options]
 381     -d - parse a delivery status notification.
 382     -e - extract contents of MIME section.
 383     -x - extract MIME section to a file.
 384     -X - pipe MIME section to a program.
 385     -i - show MIME info.
 386     -s n.n.n.n - specify MIME section.
 387     -r - rewrite message, filling in missing MIME headers.
 388     -r7 - also convert 8bit/raw encoding to quoted-printable, if possible.
 389     -r8 - also convert quoted-printable encoding to 8bit, if possible.
 390     -c charset - default charset for rewriting, -o, and -O.
 391     -m [file] [file]... - create a MIME message digest.
 392     -h "header" - decode RFC 2047-encoded header.
 393     -o "header" - encode unstructured header using RFC 2047.
 394     -O "header" - encode address list header using RFC 2047.
 395 */
 396
 397 int reformime_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
 398 int reformime_main(int argc UNUSED_PARAM, char **argv)
 399 {
 400         const char *opt_prefix = "";
 401
 402         INIT_G();
 403
 404         // parse options
 405         // N.B. only -x and -X are supported so far
 406         opt_complementary = "x--X:X--x" IF_FEATURE_REFORMIME_COMPAT(":m::");
 407         opts = getopt32(argv,
 408                 "x:X" IF_FEATURE_REFORMIME_COMPAT("deis:r:c:m:h:o:O:"),
 409                 &opt_prefix
 410                 IF_FEATURE_REFORMIME_COMPAT(, NULL, NULL, &G.opt_charset, NULL, NULL, NULL, NULL)
 411         );
 412         //argc -= optind;
 413         argv += optind;
 414
 415         return parse("", (opts & OPT_X) ? argv : (char **)&opt_prefix);
 416 }