diplodocus.org Git - nmh/blob - uip/forwsbr.c

   1 /* forwsbr.c -- subroutine to build a draft from a component file
   2  *
   3  * This code is Copyright (c) 2012, by the authors of nmh.  See the
   4  * COPYRIGHT file in the root directory of the nmh distribution for
   5  * complete copyright information.
   6  */
   7
   8 #include <h/mh.h>
   9 #include <fcntl.h>
  10 #include <h/fmt_scan.h>
  11 #include <h/tws.h>
  12 #include <h/utils.h>
  13 #include "../sbr/m_mktemp.h"
  14
  15 /*
  16  * Take from replsbr.c - a buffer big enough to read in data header lines
  17  * in reasonable chunks but not enough to slurp in the whole message
  18  */
  19
  20 static char msgbuf[NMH_BUFSIZ];
  21 #define COMPFREE(c) mh_xfree(c->c_text)
  22
  23 /*
  24  * A list of components we treat as addresses
  25  */
  26
  27 static char *addrcomps[] = {
  28     "from",
  29     "sender",
  30     "reply-to",
  31     "to",
  32     "cc",
  33     "bcc",
  34     "resent-from",
  35     "resent-sender",
  36     "resent-reply-to",
  37     "resent-to",
  38     "resent-cc",
  39     "resent-bcc",
  40     NULL
  41 };
  42
  43 int
  44 build_form (char *form, char *digest, int *dat, char *from, char *to,
  45             char *cc, char *fcc, char *subject, char *inputfile)
  46 {
  47     int in;
  48     int fmtsize, state;
  49     int i;
  50     char *nfs;
  51     char tmpfil[BUFSIZ], name[NAMESZ], **ap;
  52     charstring_t line;
  53     FILE *tmp;
  54     struct comp *cptr;
  55     struct format *fmt;
  56     char *cp = NULL;
  57     m_getfld_state_t gstate = 0;
  58
  59     /*
  60      * Open the message we'll be scanning for components
  61      */
  62
  63     if ((tmp = fopen(inputfile, "r")) == NULL)
  64         adios (inputfile, "Unable to open");
  65
  66     /* Get new format string */
  67     nfs = new_fs (form, NULL, NULL);
  68     fmtsize = strlen (nfs) + 256;
  69
  70     /* Compile format string */
  71     (void) fmt_compile (nfs, &fmt, 1);
  72
  73     /*
  74      * Mark any components tagged as address components
  75      */
  76
  77     for (ap = addrcomps; *ap; ap++) {
  78         cptr = fmt_findcomp (*ap);
  79         if (cptr)
  80             cptr->c_type |= CT_ADDR;
  81     }
  82
  83     /*
  84      * Process our message and save all relevant components
  85      *
  86      * A lot of this is taken from replsbr.c; should we try to merge
  87      * these routines?
  88      */
  89
  90     for (;;) {
  91         int msg_count = sizeof msgbuf;
  92         state = m_getfld (&gstate, name, msgbuf, &msg_count, tmp);
  93         switch (state) {
  94             case FLD:
  95             case FLDPLUS:
  96                 /*
  97                  * If we find a component that we're interested in, save
  98                  * a copy.  We don't do all of that weird buffer switching
  99                  * that replout does.
 100                  */
 101
 102                 i = fmt_addcomptext(name, msgbuf);
 103                 if (i != -1) {
 104                     while (state == FLDPLUS) {
 105                         msg_count = sizeof msgbuf;
 106                         state = m_getfld (&gstate, name, msgbuf, &msg_count, tmp);
 107                         fmt_appendcomp(i, name, msgbuf);
 108                     }
 109                 }
 110                 while (state == FLDPLUS) {
 111                     msg_count = sizeof msgbuf;
 112                     state = m_getfld (&gstate, name, msgbuf, &msg_count, tmp);
 113                 }
 114                 break;
 115
 116             case LENERR:
 117             case FMTERR:
 118             case BODY:
 119             case FILEEOF:
 120                 goto finished;
 121
 122             default:
 123                 adios(NULL, "m_getfld() returned %d", state);
 124         }
 125     }
 126
 127     /*
 128      * Override any components just in case they were included in the
 129      * input message.  Also include command-line components given here
 130      *
 131      * With the memory rework I've changed things so we always get copies
 132      * of these strings; I don't like the idea that the caller of this
 133      * function has to know to pass in already-allocated memory (and that
 134      * it will be free()'d by us).
 135      */
 136
 137 finished:
 138     m_getfld_state_destroy (&gstate);
 139
 140     cptr = fmt_findcomp ("digest");
 141     if (cptr) {
 142         COMPFREE(cptr);
 143         cptr->c_text = getcpy(digest);
 144     }
 145     cptr = fmt_findcomp ("nmh-date");
 146     if (cptr) {
 147         COMPFREE(cptr);
 148         cptr->c_text = getcpy(dtimenow (0));
 149     }
 150     cptr = fmt_findcomp ("nmh-from");
 151     if (cptr) {
 152         COMPFREE(cptr);
 153         cptr->c_text = getcpy(from);
 154     }
 155     cptr = fmt_findcomp ("nmh-to");
 156     if (cptr) {
 157         COMPFREE(cptr);
 158         cptr->c_text = getcpy(to);
 159     }
 160     cptr = fmt_findcomp ("nmh-cc");
 161     if (cptr) {
 162         COMPFREE(cptr);
 163         cptr->c_text = getcpy(cc);
 164     }
 165     cptr = fmt_findcomp ("nmh-subject");
 166     if (cptr) {
 167         COMPFREE(cptr);
 168         cptr->c_text = getcpy(subject);
 169     }
 170     cptr = fmt_findcomp ("fcc");
 171     if (cptr) {
 172         COMPFREE(cptr);
 173         cptr->c_text = getcpy(fcc);
 174     }
 175
 176     cp = m_mktemp2(NULL, invo_name, NULL, &tmp);
 177     if (cp == NULL) {
 178         adios(NULL, "unable to create temporary file in %s", get_temp_dir());
 179     }
 180     strncpy (tmpfil, cp, sizeof(tmpfil));
 181     (void) m_unlink (tmpfil);
 182     if ((in = dup (fileno (tmp))) == NOTOK)
 183         adios ("dup", "unable to");
 184
 185     line = charstring_create (fmtsize);
 186     fmt_scan (fmt, line, fmtsize, dat, NULL);
 187     fputs (charstring_buffer (line), tmp);
 188     charstring_free (line);
 189     if (fclose (tmp))
 190         adios (tmpfil, "error writing");
 191
 192     lseek(in, 0, SEEK_SET);
 193
 194     /*
 195      * Free any component buffers that we allocated
 196      */
 197
 198     fmt_free(fmt, 1);
 199
 200     return in;
 201 }