attachments.c

   1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
   2  *@ Handling of attachments.
   3  *
   4  * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
   5  * Copyright (c) 2012 - 2014 Steffen (Daode) Nurpmeso <sdaoden@users.sf.net>.
   6  */
   7 /*
   8  * Copyright (c) 1980, 1993
   9  * The Regents of the University of California.  All rights reserved.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  14  * 1. Redistributions of source code must retain the above copyright
  15  *    notice, this list of conditions and the following disclaimer.
  16  * 2. Redistributions in binary form must reproduce the above copyright
  17  *    notice, this list of conditions and the following disclaimer in the
  18  *    documentation and/or other materials provided with the distribution.
  19  * 3. All advertising materials mentioning features or use of this software
  20  *    must display the following acknowledgement:
  21  *    This product includes software developed by the University of
  22  *    California, Berkeley and its contributors.
  23  * 4. Neither the name of the University nor the names of its contributors
  24  *    may be used to endorse or promote products derived from this software
  25  *    without specific prior written permission.
  26  *
  27  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  28  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  29  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  30  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  31  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  32  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  33  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  34  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  35  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  36  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  37  * SUCH DAMAGE.
  38  */
  39
  40 #ifndef HAVE_AMALGAMATION
  41 # include "nail.h"
  42 #endif
  43
  44 /* We use calloc() for struct attachment */
  45 CTA(AC_DEFAULT == 0);
  46
  47 /* Fill in some attachment fields; don't be interactive if number==0n */
  48 static struct attachment * _fill_in(struct attachment *ap,
  49                               char const *file, ui32_t number);
  50
  51 /* Ask the user to edit file names and other data for the given attachment */
  52 static struct attachment * _read_attachment_data(struct attachment *ap,
  53                               ui32_t number);
  54
  55 /* Try to create temporary charset converted version */
  56 #ifdef HAVE_ICONV
  57 static int                 _attach_iconv(struct attachment *ap);
  58 #endif
  59
  60 static struct attachment *
  61 _fill_in(struct attachment *ap, char const *file, ui32_t number)
  62 {
  63    /* XXX The "attachment-ask-content-*" variables are left undocumented
  64     * since "they are for RFC connoisseurs only" ;) */
  65    char prefix[80 * 2];
  66    NYD_ENTER;
  67
  68    ap->a_name = file;
  69    if ((file = strrchr(file, '/')) != NULL)
  70       ++file;
  71    else
  72       file = ap->a_name;
  73
  74    ap->a_content_type = mime_classify_content_type_by_fileext(file);
  75    if (number > 0 && ok_blook(attachment_ask_content_type)) {
  76       snprintf(prefix, sizeof prefix, "#%u\tContent-Type: ", number);
  77       ap->a_content_type = readstr_input(prefix, ap->a_content_type);
  78    }
  79
  80    if (number > 0 && ok_blook(attachment_ask_content_disposition)) {
  81       snprintf(prefix, sizeof prefix, "#%u\tContent-Disposition: ", number);
  82       ap->a_content_disposition = readstr_input(prefix,
  83             ap->a_content_disposition);
  84    }
  85    if (ap->a_content_disposition == NULL)
  86       ap->a_content_disposition = "attachment";
  87
  88    if (number > 0 && ok_blook(attachment_ask_content_id)) {
  89       snprintf(prefix, sizeof prefix, "#%u\tContent-ID: ", number);
  90       ap->a_content_id = readstr_input(prefix, ap->a_content_id);
  91    }
  92
  93    if (number > 0 && ok_blook(attachment_ask_content_description)) {
  94       snprintf(prefix, sizeof prefix, "#%u\tContent-Description: ", number);
  95       ap->a_content_description = readstr_input(prefix,
  96             ap->a_content_description);
  97    }
  98    NYD_LEAVE;
  99    return ap;
 100 }
 101
 102 static struct attachment *
 103 _read_attachment_data(struct attachment *ap, ui32_t number)
 104 {
 105    char prefix[80 * 2];
 106    char const *cslc = NULL/*cc uninit?*/, *cp, *defcs;
 107    NYD_ENTER;
 108
 109    if (ap == NULL)
 110       ap = csalloc(1, sizeof *ap);
 111    else if (ap->a_msgno) {
 112       char *ecp = salloc(16);
 113       snprintf(ecp, 16, "#%u", (ui_it)ap->a_msgno);
 114       ap->a_msgno = 0;
 115       ap->a_name = ecp;
 116    } else if (ap->a_conv == AC_TMPFILE) {
 117       Fclose(ap->a_tmpf);
 118       ap->a_conv = AC_DEFAULT;
 119    }
 120
 121    snprintf(prefix, sizeof prefix, tr(50, "#%u\tfilename: "), number);
 122    for (;;) {
 123       if ((ap->a_name = readstr_input(prefix, ap->a_name)) == NULL) {
 124          ap = NULL;
 125          goto jleave;
 126       }
 127       /* May be a message number */
 128       if (ap->a_name[0] == '#') {
 129          char *ecp;
 130          int msgno = (int)strtol(ap->a_name + 1, &ecp, 10);
 131          if (msgno > 0 && msgno <= msgCount && *ecp == '\0') {
 132             ap->a_msgno = msgno;
 133             ap->a_content_description = tr(513, "Attached message content");
 134             if (options & OPT_INTERACTIVE)
 135                printf(tr(2, "~@: added message #%u\n"), msgno);
 136             goto jleave;
 137          }
 138       }
 139       if ((cp = file_expand(ap->a_name)) != NULL && access(cp, R_OK) == 0) {
 140          ap->a_name = cp;
 141          break;
 142       }
 143       perror(cp);
 144    }
 145
 146    ap = _fill_in(ap, cp, number);
 147
 148    /*
 149     * Character set of attachments: enum attach_conv
 150     */
 151    cslc = charset_get_lc();
 152 #ifdef HAVE_ICONV
 153    if (!(options & OPT_INTERACTIVE))
 154       goto jcs;
 155    if ((cp = ap->a_content_type) != NULL && ascncasecmp(cp, "text/", 5) != 0 &&
 156          !yorn(tr(162,
 157             "Filename doesn't indicate text content - want to edit charsets? "))
 158    ) {
 159       ap->a_conv = AC_DEFAULT;
 160       goto jleave;
 161    }
 162
 163    charset_iter_reset(NULL);
 164 jcs:
 165 #endif
 166    snprintf(prefix, sizeof prefix, tr(160, "#%u\tinput charset: "), number);
 167    if ((defcs = ap->a_input_charset) == NULL)
 168       defcs = cslc;
 169    cp = ap->a_input_charset = readstr_input(prefix, defcs);
 170 #ifdef HAVE_ICONV
 171    if (!(options & OPT_INTERACTIVE)) {
 172 #endif
 173       ap->a_conv = (cp != NULL) ? AC_FIX_INCS : AC_DEFAULT;
 174 #ifdef HAVE_ICONV
 175       goto jleave;
 176    }
 177
 178    snprintf(prefix, sizeof prefix, tr(161, "#%u\toutput (send) charset: "),
 179       number);
 180    if ((defcs = ap->a_charset) == NULL)
 181       defcs = charset_iter_next();
 182    defcs = ap->a_charset = readstr_input(prefix, defcs);
 183
 184    if (cp != NULL && defcs == NULL) {
 185       ap->a_conv = AC_FIX_INCS;
 186       goto jdone;
 187    }
 188    if (cp == NULL && defcs == NULL) {
 189       ap->a_conv = AC_DEFAULT;
 190       ap->a_input_charset = cslc;
 191       ap->a_charset = charset_iter_current();
 192    } else if (cp == NULL && defcs != NULL) {
 193       ap->a_conv = AC_FIX_OUTCS;
 194       ap->a_input_charset = cslc;
 195    } else
 196       ap->a_conv = AC_TMPFILE;
 197
 198    printf(tr(197, "Trying conversion from %s to %s\n"), ap->a_input_charset,
 199       ap->a_charset);
 200    if (_attach_iconv(ap))
 201       ap->a_conv = AC_TMPFILE;
 202    else {
 203       ap->a_input_charset = cp;
 204       ap->a_charset = defcs;
 205       goto jcs;
 206    }
 207 jdone:
 208 #endif
 209    if (options & OPT_INTERACTIVE)
 210       printf(tr(19, "~@: added attachment \"%s\"\n"), ap->a_name);
 211 jleave:
 212    NYD_LEAVE;
 213    return ap;
 214 }
 215
 216 #ifdef HAVE_ICONV
 217 static int
 218 _attach_iconv(struct attachment *ap)
 219 {
 220    struct str oul = {NULL, 0}, inl = {NULL, 0};
 221    FILE *fo = NULL, *fi = NULL;
 222    size_t cnt, lbsize;
 223    iconv_t icp;
 224    NYD_ENTER;
 225
 226    icp = n_iconv_open(ap->a_charset, ap->a_input_charset);
 227    if (icp == (iconv_t)-1) {
 228       if (errno == EINVAL)
 229          goto jeconv;
 230       else
 231          perror("iconv_open");
 232       goto jerr;
 233    }
 234
 235    if ((fi = Fopen(ap->a_name, "r")) == NULL) {
 236       perror(ap->a_name);
 237       goto jerr;
 238    }
 239    cnt = fsize(fi);
 240
 241    if ((fo = Ftmp(NULL, "atic", OF_RDWR | OF_UNLINK | OF_REGISTER, 0600)) ==
 242          NULL) {
 243       perror(tr(51, "temporary mail file"));
 244       goto jerr;
 245    }
 246
 247    for (lbsize = 0;;) {
 248       if (fgetline(&inl.s, &lbsize, &cnt, &inl.l, fi, 0) == NULL) {
 249          if (!cnt)
 250             break;
 251          perror(tr(195, "I/O read error occurred"));
 252          goto jerr;
 253       }
 254
 255       if (n_iconv_str(icp, &oul, &inl, NULL, FAL0) != 0)
 256          goto jeconv;
 257       if ((inl.l = fwrite(oul.s, sizeof *oul.s, oul.l, fo)) != oul.l) {
 258          perror(tr(196, "I/O write error occurred"));
 259          goto jerr;
 260       }
 261    }
 262    fflush_rewind(fo);
 263
 264    ap->a_tmpf = fo;
 265 jleave:
 266    if (inl.s != NULL)
 267       free(inl.s);
 268    if (oul.s != NULL)
 269       free(oul.s);
 270    if (fi != NULL)
 271       Fclose(fi);
 272    if (icp != (iconv_t)-1)
 273       n_iconv_close(icp);
 274    NYD_LEAVE;
 275    return (fo != NULL);
 276
 277 jeconv:
 278    fprintf(stderr, tr(179, "Cannot convert from %s to %s\n"),
 279       ap->a_input_charset, ap->a_charset);
 280 jerr:
 281    if (fo != NULL)
 282       Fclose(fo);
 283    fo = NULL;
 284    goto jleave;
 285 }
 286 #endif /* HAVE_ICONV */
 287
 288 FL struct attachment *
 289 add_attachment(struct attachment *aphead, char *file, struct attachment **newap)
 290 {
 291    struct attachment *nap = NULL, *ap;
 292    NYD_ENTER;
 293
 294    if ((file = file_expand(file)) == NULL)
 295       goto jleave;
 296    if (access(file, R_OK) != 0)
 297       goto jleave;
 298
 299    nap = _fill_in(csalloc(1, sizeof *nap), file, 0);
 300    if (newap != NULL)
 301       *newap = nap;
 302    if (aphead != NULL) {
 303       for (ap = aphead; ap->a_flink != NULL; ap = ap->a_flink)
 304          ;
 305       ap->a_flink = nap;
 306       nap->a_blink = ap;
 307    } else {
 308       nap->a_blink = NULL;
 309       aphead = nap;
 310    }
 311    nap = aphead;
 312 jleave:
 313    NYD_LEAVE;
 314    return nap;
 315 }
 316
 317 FL struct attachment *
 318 append_attachments(struct attachment *aphead, char *names)
 319 {
 320    char *cp;
 321    struct attachment *xaph, *nap;
 322    NYD_ENTER;
 323
 324    while ((cp = n_strsep(&names, ',', 1)) != NULL) {
 325       if ((xaph = add_attachment(aphead, cp, &nap)) != NULL) {
 326          aphead = xaph;
 327          if (options & OPT_INTERACTIVE)
 328             printf(tr(19, "~@: added attachment \"%s\"\n"), nap->a_name);
 329       } else
 330          perror(cp);
 331    }
 332    NYD_LEAVE;
 333    return aphead;
 334 }
 335
 336 FL struct attachment *
 337 edit_attachments(struct attachment *aphead)
 338 {
 339    struct attachment *ap, *nap;
 340    ui_it attno = 1;
 341    NYD_ENTER;
 342
 343    /* Modify already present ones? */
 344    for (ap = aphead; ap != NULL; ap = ap->a_flink) {
 345       if (_read_attachment_data(ap, attno) != NULL) {
 346          ++attno;
 347          continue;
 348       }
 349       nap = ap->a_flink;
 350       if (ap->a_blink != NULL)
 351          ap->a_blink->a_flink = nap;
 352       else
 353          aphead = nap;
 354       if (nap != NULL)
 355          nap->a_blink = ap->a_blink;
 356       else
 357          goto jleave;
 358    }
 359
 360    /* Add some more? */
 361    while ((nap = _read_attachment_data(NULL, attno)) != NULL) {
 362       if ((ap = aphead) != NULL) {
 363          while (ap->a_flink != NULL)
 364             ap = ap->a_flink;
 365          ap->a_flink = nap;
 366       }
 367       nap->a_blink = ap;
 368       nap->a_flink = NULL;
 369       if (aphead == NULL)
 370          aphead = nap;
 371       ++attno;
 372    }
 373 jleave:
 374    NYD_LEAVE;
 375    return aphead;
 376 }
 377
 378 /* vim:set fenc=utf-8:s-it-mode */