3 * replsbr.c -- routines to help repl along...
5 * This code is Copyright (c) 2002, by the authors of nmh. See the
6 * COPYRIGHT file in the root directory of the nmh distribution for
7 * complete copyright information.
11 #include <h/addrsbr.h>
12 #include <h/fmt_scan.h>
14 #include <sys/file.h> /* L_SET */
17 extern short ccto; /* from repl.c */
24 static char *badaddrs = NULL;
25 static char *dfhost = NULL;
27 static struct mailname mq;
28 static int nodupcheck = 0; /* If set, no check for duplicates */
31 * Buffer size for content part of header fields.
32 * We want this to be large enough so that we don't
33 * do a lot of extra FLDPLUS calls on m_getfld but
34 * small enough so that we don't snarf the entire
35 * message body when we're not going to use any of it.
39 static char *addrcomps[] = {
58 static int insert (struct mailname *);
59 static void replfilter (FILE *, FILE *, char *, int);
63 replout (FILE *inb, char *msg, char *drft, struct msgs *mp, int outputlinelen,
64 int mime, char *form, char *filter, char *fcc, int fmtproc)
66 register int state, i;
67 register struct comp *cptr;
71 int char_read = 0, format_len, mask;
72 char name[NAMESZ], *scanl;
74 static int dat[5]; /* aux. data for format routine */
79 mask = umask(~m_gmprot());
80 if ((out = fopen (drft, "w")) == NULL)
81 adios (drft, "unable to create");
85 /* get new format string */
86 cp = new_fs (form, NULL, NULL);
87 format_len = strlen (cp);
89 /* compile format string */
90 fmt_compile (cp, &fmt, 1);
92 for (ap = addrcomps; *ap; ap++) {
93 cptr = fmt_findcomp (*ap);
95 cptr->c_type |= CT_ADDR;
99 * ignore any components killed by command line switches
101 * This prevents the component from being found via fmt_findcomp(),
102 * which makes sure no text gets added to it when the message is processed.
104 * getcpy(NULL) returns a malloc'd zero-length string, so it can safely
108 cptr = fmt_findcomp ("to");
110 cptr->c_name = getcpy(NULL);
113 cptr = fmt_findcomp("cc");
115 cptr->c_name = getcpy(NULL);
117 /* set up the "fcc" pseudo-component */
119 cptr = fmt_findcomp ("fcc");
121 cptr->c_text = getcpy (fcc);
123 if ((cp = getenv("USER"))) {
124 cptr = fmt_findcomp ("user");
126 cptr->c_text = getcpy(cp);
132 * pick any interesting stuff out of msg "inb"
134 for (state = FLD;;) {
135 state = m_getfld (state, name, tmpbuf, sizeof(tmpbuf), inb);
140 * if we're interested in this component, save a pointer
141 * to the component text, then start using our next free
142 * buffer as the component temp buffer (buffer switching
143 * saves an extra copy of the component text).
146 i = fmt_addcomptext(name, tmpbuf);
148 char_read += msg_count;
149 while (state == FLDPLUS) {
150 state = m_getfld(state, name, tmpbuf,
151 sizeof(tmpbuf), inb);
152 fmt_appendcomp(i, name, tmpbuf);
153 char_read += msg_count;
157 while (state == FLDPLUS)
158 state = m_getfld (state, name, tmpbuf, SBUFSIZ, inb);
168 adios (NULL, "m_getfld() returned %d", state);
173 * format and output the header lines.
178 * if there's a "Subject" component, strip any "Re:"s off it
180 cptr = fmt_findcomp ("subject");
181 if (cptr && (cp = cptr->c_text)) {
182 register char *sp = cp;
193 if (sp != cptr->c_text) {
195 cptr->c_text = getcpy (sp);
199 i = format_len + char_read + 256;
200 scanl = mh_xmalloc ((size_t) i + 2);
204 dat[3] = outputlinelen;
206 fmt_scan (fmt, scanl, i + 1, i, dat);
209 fputs ("\nrepl: bad addresses:\n", out);
210 fputs ( badaddrs, out);
214 * Check if we should filter the message
215 * or add mhn directives
220 adios (drft, "error writing");
222 replfilter (inb, out, filter, fmtproc);
223 } else if (mime && mp) {
224 fprintf (out, "#forw [original message] +%s %s\n",
225 mp->foldpath, m_name (mp->lowsel));
230 adios (drft, "error writing");
233 /* return dynamically allocated buffers */
238 static char *buf; /* our current working buffer */
239 static char *bufend; /* end of working buffer */
240 static char *last_dst; /* buf ptr at end of last call */
241 static unsigned int bufsiz=0; /* current size of buf */
243 #define BUFINCR 512 /* how much to expand buf when if fills */
245 #define CPY(s) { cp = (s); while ((*dst++ = *cp++)) ; --dst; }
248 * check if there's enough room in buf for str.
249 * add more mem if needed
251 #define CHECKMEM(str) \
252 if ((len = strlen (str)) >= bufend - dst) {\
254 int n = last_dst - buf;\
255 bufsiz += ((dst + len - bufend) / BUFINCR + 1) * BUFINCR;\
256 buf = mh_xrealloc (buf, bufsiz);\
259 bufend = buf + bufsiz;\
264 * fmt_scan will call this routine if the user includes the function
265 * "(formataddr {component})" in a format string. "orig" is the
266 * original contents of the string register. "str" is the address
267 * string to be formatted and concatenated onto orig. This routine
268 * returns a pointer to the concatenated address string.
270 * We try to not do a lot of malloc/copy/free's (which is why we
271 * don't call "getcpy") but still place no upper limit on the
272 * length of the result string.
275 formataddr (char *orig, char *str)
278 char baddr[BUFSIZ], error[BUFSIZ];
279 register int isgroup;
283 register struct mailname *mp = NULL;
285 /* if we don't have a buffer yet, get one */
287 buf = mh_xmalloc (BUFINCR);
288 last_dst = buf; /* XXX */
289 bufsiz = BUFINCR - 6; /* leave some slop */
290 bufend = buf + bufsiz;
293 * If "orig" points to our buffer we can just pick up where we
294 * left off. Otherwise we have to copy orig into our buffer.
298 else if (!orig || !*orig) {
302 dst = last_dst; /* XXX */
307 /* concatenate all the new addresses onto 'buf' */
308 for (isgroup = 0; (cp = getname (str)); ) {
309 if ((mp = getm (cp, dfhost, dftype, AD_NAME, error)) == NULL) {
310 snprintf (baddr, sizeof(baddr), "\t%s -- %s\n", cp, error);
311 badaddrs = add (baddr, badaddrs);
314 if (isgroup && (mp->m_gname || !mp->m_ingrp)) {
319 /* if we get here we're going to add an address */
325 CHECKMEM (mp->m_gname);
345 * fmt_scan will call this routine if the user includes the function
346 * "(concataddr {component})" in a format string. This behaves exactly
347 * like formataddr, except that it does NOT suppress duplicate addresses
350 * As an implementation detail: I thought about splitting out formataddr()
351 * into the generic part and duplicate-suppressing part, but the call to
352 * insert() was buried deep within a couple of loops and I didn't see a
353 * way to do it easily. So instead we simply set a special flag to stop
354 * the duplicate check and call formataddr().
357 concataddr(char *orig, char *str)
362 cp = formataddr(orig, str);
368 insert (struct mailname *np)
371 register struct mailname *mp;
376 if (np->m_mbox == NULL)
379 for (mp = &mq; mp->m_next; mp = mp->m_next) {
380 if (!mh_strcasecmp (np->m_host, mp->m_next->m_host)
381 && !mh_strcasecmp (np->m_mbox, mp->m_next->m_mbox))
384 if (!ccme && ismymbox (np))
388 snprintf (buffer, sizeof(buffer), "Reply to %s? ", adrformat (np));
389 if (!gans (buffer, anoyes))
401 * This function expects that argument out has been fflushed by the caller.
405 replfilter (FILE *in, FILE *out, char *filter, int fmtproc)
415 if (access (filter, R_OK) == NOTOK)
416 adios (filter, "unable to read");
418 mhl = r1bindex (mhlproc, '/');
421 lseek (fileno(in), (off_t) 0, SEEK_SET);
423 switch (pid = vfork()) {
425 adios ("fork", "unable to");
428 dup2 (fileno (in), fileno (stdin));
429 dup2 (fileno (out), fileno (stdout));
433 arglist[1] = "-form";
435 arglist[3] = "-noclear";
439 arglist[4] = "-fmtproc";
440 arglist[5] = formatproc;
444 arglist[4] = "-nofmtproc";
451 execvp (mhlproc, arglist);
452 errstr = strerror(errno);
453 write(2, "unable to exec ", 15);
454 write(2, mhlproc, strlen(mhlproc));
456 write(2, errstr, strlen(errstr));
461 if (pidXwait (pid, mhl))
463 fseek (out, 0L, SEEK_END);