X-Git-Url: http://git.marmaro.de/?p=mmh;a=blobdiff_plain;f=uip%2Fsend.c;h=1529c0faa13e16cdf96f6d1fbf6b2abe83a2716b;hp=d06b6c4ae40c3e8407df5483dedf57f7ab18eee7;hb=f3cb7cde0e6f10451b6848678d95860d512224b9;hpb=5dd6771b28c257af405d7248639ed0e3bcdce38b diff --git a/uip/send.c b/uip/send.c index d06b6c4..1529c0f 100644 --- a/uip/send.c +++ b/uip/send.c @@ -1,488 +1,841 @@ - /* - * send.c -- send a composed message - * - * This code is Copyright (c) 2002, by the authors of nmh. See the - * COPYRIGHT file in the root directory of the nmh distribution for - * complete copyright information. - */ +** send.c -- send a composed message +** +** This code is Copyright (c) 2002, by the authors of nmh. See the +** COPYRIGHT file in the root directory of the nmh distribution for +** complete copyright information. +*/ #include #include #include #include +#include +#include +#include +#include +#include + +#ifdef TIME_WITH_SYS_TIME +# include +# include +#else +# ifdef TM_IN_SYS_TIME +# include +# else +# include +# endif +#endif +int debugsw = 0; /* global */ +int forwsw = 1; +int pushsw = 0; +int verbsw = 0; +char *altmsg = NULL; +char *annotext = NULL; +char *distfile = NULL; + +static jmp_buf env; + +/* name of temp file for body content */ +static char body_file_name[MAXPATHLEN + 1]; +/* name of mhbuild composition temporary file */ +static char composition_file_name[MAXPATHLEN + 1]; +static int field_size; /* size of header field buffer */ +static char *field; /* header field buffer */ +static FILE *draft_file; /* draft file pointer */ +static FILE *body_file; /* body file pointer */ +static FILE *composition_file; /* composition file pointer */ -#ifndef CYRUS_SASL -# define SASLminc(a) (a) -#else /* CYRUS_SASL */ -# define SASLminc(a) 0 -#endif /* CYRUS_SASL */ +/* +** static prototypes +*/ +static int sendsbr(char **, int, char *, struct stat *, int); +static void armed_done(int) NORETURN; +static void alert(char *, int); +static int tmp_fd(void); +static void anno(struct stat *); +static int sendaux(char **, int, char *, struct stat *); +static int attach(char *); +static void clean_up_temporary_files(void); +static int get_line(void); +static void make_mime_composition_file_entry(char *); -#ifndef TLS_SUPPORT -# define TLSminc(a) (a) -#else /* TLS_SUPPORT */ -# define TLSminc(a) 0 -#endif /* TLS_SUPPORT */ static struct swit switches[] = { -#define ALIASW 0 - { "alias aliasfile", 0 }, -#define DEBUGSW 1 - { "debug", -5 }, -#define DRAFTSW 2 - { "draft", 0 }, -#define DFOLDSW 3 - { "draftfolder +folder", 6 }, -#define DMSGSW 4 - { "draftmessage msg", 6 }, -#define NDFLDSW 5 - { "nodraftfolder", 0 }, -#define FILTSW 6 - { "filter filterfile", 0 }, -#define NFILTSW 7 - { "nofilter", 0 }, -#define FRMTSW 8 - { "format", 0 }, -#define NFRMTSW 9 - { "noformat", 0 }, -#define FORWSW 10 - { "forward", 0 }, -#define NFORWSW 11 - { "noforward", 0 }, -#define MIMESW 12 - { "mime", 0 }, -#define NMIMESW 13 - { "nomime", 0 }, -#define MSGDSW 14 - { "msgid", 0 }, -#define NMSGDSW 15 - { "nomsgid", 0 }, -#define PUSHSW 16 - { "push", 0 }, -#define NPUSHSW 17 - { "nopush", 0 }, -#define SPLITSW 18 - { "split seconds", 0 }, -#define UNIQSW 19 - { "unique", -6 }, -#define NUNIQSW 20 - { "nounique", -8 }, -#define VERBSW 21 - { "verbose", 0 }, -#define NVERBSW 22 - { "noverbose", 0 }, -#define WATCSW 23 - { "watch", 0 }, -#define NWATCSW 24 - { "nowatch", 0 }, -#define WIDTHSW 25 - { "width columns", 0 }, -#define VERSIONSW 26 - { "version", 0 }, -#define HELPSW 27 - { "help", 0 }, -#define BITSTUFFSW 28 - { "dashstuffing", -12 }, -#define NBITSTUFFSW 29 - { "nodashstuffing", -14 }, -#define MAILSW 30 - { "mail", -4 }, -#define SAMLSW 31 - { "saml", -4 }, -#define SENDSW 32 - { "send", -4 }, -#define SOMLSW 33 - { "soml", -4 }, -#define CLIESW 34 - { "client host", -6 }, -#define SERVSW 35 - { "server host", 6 }, -#define SNOOPSW 36 - { "snoop", 5 }, -#define SASLSW 37 - { "sasl", SASLminc(4) }, -#define SASLMECHSW 38 - { "saslmech mechanism", SASLminc(-5) }, -#define USERSW 39 - { "user username", SASLminc(-4) }, -#define ATTACHSW 40 - { "attach", 6 }, -#define ATTACHFORMATSW 41 - { "attachformat", 7 }, -#define PORTSW 42 - { "port server-port-name/number" , 4 }, -#define TLSSW 43 - { "tls", TLSminc(-3) }, - { NULL, 0 } +#define ALIASW 0 + { "alias aliasfile", 0 }, +#define DEBUGSW 1 + { "debug", -5 }, +#define FORWSW 2 + { "forward", 0 }, +#define NFORWSW 3 + { "noforward", 0 }, +#define PUSHSW 4 + { "push", 0 }, +#define NPUSHSW 5 + { "nopush", 0 }, +#define VERBSW 6 + { "verbose", 0 }, +#define NVERBSW 7 + { "noverbose", 0 }, +#define WATCSW 8 + { "watch", 0 }, +#define NWATCSW 9 + { "nowatch", 0 }, +#define VERSIONSW 10 + { "version", 0 }, +#define HELPSW 11 + { "help", 0 }, + { NULL, 0 } }; -static struct swit anyl[] = { -#define NOSW 0 - { "no", 0 }, -#define YESW 1 - { "yes", 0 }, -#define LISTDSW 2 - { "list", 0 }, - { NULL, 0 } -}; - -extern int debugsw; /* from sendsbr.c */ -extern int forwsw; -extern int inplace; -extern int pushsw; -extern int splitsw; -extern int unique; -extern int verbsw; - -extern char *altmsg; /* .. */ -extern char *annotext; -extern char *distfile; - int -main (int argc, char **argv) +main(int argc, char **argv) { - int msgp = 0, distsw = 0, vecp = 1; - int isdf = 0, mime = 0; - int msgnum, status; - char *cp, *dfolder = NULL, *maildir = NULL; - char buf[BUFSIZ], **ap, **argp, **arguments; - char *msgs[MAXARGS], *vec[MAXARGS]; - struct msgs *mp; - struct stat st; - char *attach = (char *)0; /* header field name for attachments */ - int attachformat = 0; /* mhbuild format specifier for attachments */ -#ifdef UCI - FILE *fp; -#endif /* UCI */ + int msgp = 0, nfiles = 0, distsw = 0, vecp = 1; + int msgnum, status; + int in, out; + char *cp, *maildir = NULL; + char buf[BUFSIZ], **ap, **argp, **arguments; + char *msgs[MAXARGS], *vec[MAXARGS]; + char *files[MAXARGS]; + struct msgs *mp; + struct stat st; + struct stat st2; + #ifdef LOCALE - setlocale(LC_ALL, ""); + setlocale(LC_ALL, ""); #endif - invo_name = r1bindex (argv[0], '/'); - - /* read user profile/context */ - context_read(); - - arguments = getarguments (invo_name, argc, argv, 1); - argp = arguments; - - vec[vecp++] = "-library"; - vec[vecp++] = getcpy (m_maildir ("")); - - while ((cp = *argp++)) { - if (*cp == '-') { - switch (smatch (++cp, switches)) { - case AMBIGSW: - ambigsw (cp, switches); - done (1); - case UNKWNSW: - adios (NULL, "-%s unknown\n", cp); - - case HELPSW: - snprintf (buf, sizeof(buf), "%s [file] [switches]", invo_name); - print_help (buf, switches, 1); - done (1); - case VERSIONSW: - print_version(invo_name); - done (1); - - case DRAFTSW: - msgs[msgp++] = draft; - continue; - - case DFOLDSW: - if (dfolder) - adios (NULL, "only one draft folder at a time!"); - if (!(cp = *argp++) || *cp == '-') - adios (NULL, "missing argument to %s", argp[-2]); - dfolder = path (*cp == '+' || *cp == '@' ? cp + 1 : cp, - *cp != '@' ? TFOLDER : TSUBCWF); - continue; - case DMSGSW: - if (!(cp = *argp++) || *cp == '-') - adios (NULL, "missing argument to %s", argp[-2]); - msgs[msgp++] = cp; - continue; - case NDFLDSW: - dfolder = NULL; - isdf = NOTOK; - continue; - - case PUSHSW: - pushsw++; - continue; - case NPUSHSW: - pushsw = 0; - continue; - - case SPLITSW: - if (!(cp = *argp++) || sscanf (cp, "%d", &splitsw) != 1) - adios (NULL, "missing argument to %s", argp[-2]); - continue; - - case UNIQSW: - unique++; - continue; - case NUNIQSW: - unique = 0; - continue; - - case FORWSW: - forwsw++; - continue; - case NFORWSW: - forwsw = 0; - continue; - - case VERBSW: - verbsw++; - vec[vecp++] = --cp; - continue; - case NVERBSW: - verbsw = 0; - vec[vecp++] = --cp; - continue; - - case MIMESW: - mime++; - vec[vecp++] = --cp; - continue; - case NMIMESW: - mime = 0; - vec[vecp++] = --cp; - continue; - - case DEBUGSW: - debugsw++; /* fall */ - case NFILTSW: - case FRMTSW: - case NFRMTSW: - case BITSTUFFSW: - case NBITSTUFFSW: - case MSGDSW: - case NMSGDSW: - case WATCSW: - case NWATCSW: - case MAILSW: - case SAMLSW: - case SENDSW: - case SOMLSW: - case SNOOPSW: - case SASLSW: - case TLSSW: - vec[vecp++] = --cp; - continue; - - case ALIASW: - case FILTSW: - case WIDTHSW: - case CLIESW: - case SERVSW: - case SASLMECHSW: - case USERSW: - case PORTSW: - vec[vecp++] = --cp; - if (!(cp = *argp++) || *cp == '-') - adios (NULL, "missing argument to %s", argp[-2]); - vec[vecp++] = cp; - continue; - - case ATTACHSW: - if (!(attach = *argp++) || *attach == '-') - adios (NULL, "missing argument to %s", argp[-2]); - continue; - - case ATTACHFORMATSW: - if (! *argp || **argp == '-') - adios (NULL, "missing argument to %s", argp[-1]); - else { - attachformat = atoi (*argp); - if (attachformat < 0 || - attachformat > ATTACHFORMATS - 1) { - advise (NULL, "unsupported attachformat %d", - attachformat); - continue; + invo_name = mhbasename(argv[0]); + + /* read user profile/context */ + context_read(); + + arguments = getarguments(invo_name, argc, argv, 1); + argp = arguments; + + vec[vecp++] = "-library"; + vec[vecp++] = getcpy(toabsdir("+")); + + while ((cp = *argp++)) { + if (*cp == '-') { + switch (smatch(++cp, switches)) { + case AMBIGSW: + ambigsw(cp, switches); + done(1); + case UNKWNSW: + adios(NULL, "-%s unknown\n", cp); + + case HELPSW: + snprintf(buf, sizeof(buf), + "%s [file] [switches]", + invo_name); + print_help(buf, switches, 1); + done(1); + case VERSIONSW: + print_version(invo_name); + done(1); + + case PUSHSW: + pushsw++; + continue; + case NPUSHSW: + pushsw = 0; + continue; + + case FORWSW: + forwsw++; + continue; + case NFORWSW: + forwsw = 0; + continue; + + case VERBSW: + verbsw++; + vec[vecp++] = --cp; + continue; + case NVERBSW: + verbsw = 0; + vec[vecp++] = --cp; + continue; + + case DEBUGSW: + debugsw++; /* fall */ + case WATCSW: + case NWATCSW: + vec[vecp++] = --cp; + continue; + + case ALIASW: + vec[vecp++] = --cp; + if (!(cp = *argp++) || *cp == '-') { + adios(NULL, "missing argument to %s", + argp[-2]); + } + vec[vecp++] = cp; + continue; + + } + } else { + if (*cp == '/') { + files[nfiles++] = cp; + } else { + msgs[msgp++] = cp; + } + } + } + + /* check for "Aliasfile:" profile entry */ + if ((cp = context_find("Aliasfile"))) { + char *dp = NULL; + + for (ap=brkstring(dp=getcpy(cp), " ", "\n"); ap && *ap; ap++) { + vec[vecp++] = "-alias"; + vec[vecp++] = getcpy(etcpath(*ap)); + } + } + + if (!msgp && !nfiles) { + msgs[msgp++] = seq_cur; + } + maildir = toabsdir(draftfolder); + + if (chdir(maildir) == NOTOK) { + adios(maildir, "unable to change directory to"); + } + + if (!(mp = folder_read(draftfolder))) { + adios(NULL, "unable to read draft folder %s", draftfolder); + } + if (mp->nummsg == 0) { + adios(NULL, "no messages in draft folder %s", draftfolder); + } + /* parse all the message ranges/sequences and set SELECTED */ + for (msgnum = 0; msgnum < msgp; msgnum++) { + if (!m_convert(mp, msgs[msgnum])) { + done(1); + } + } + seq_setprev(mp); + + for (msgp = 0, msgnum = mp->lowsel; msgnum <= mp->hghsel; msgnum++) { + if (is_selected(mp, msgnum)) { + files[nfiles++] = getcpy(m_name(msgnum)); + unset_exists(mp, msgnum); + } + } + + mp->msgflags |= SEQMOD; + seq_save(mp); + + if (!(cp = getenv("SIGNATURE")) || !*cp) { + if ((cp = context_find("signature")) && *cp) { + m_putenv("SIGNATURE", cp); + } + } + + for (msgnum = 0; msgnum < nfiles; msgnum++) { + if (stat(files[msgnum], &st) == NOTOK) { + adios(files[msgnum], "unable to stat draft file"); + } + } + + if (!(annotext = getenv("mhannotate")) || !*annotext) { + annotext = NULL; + } + if (!(altmsg = getenv("mhaltmsg")) || !*altmsg) { + altmsg = NULL; /* used by dist interface - see below */ + } + + if ((cp = getenv("mhdist")) && *cp && (distsw = atoi(cp)) && altmsg) { + vec[vecp++] = "-dist"; + distfile = getcpy(m_mktemp2(altmsg, invo_name, NULL, NULL)); + if (link(altmsg, distfile) == NOTOK) { + if (errno != EXDEV) { + adios(distfile, "unable to link %s to", + altmsg); + } + free(distfile); + distfile = getcpy(m_mktemp2(NULL, invo_name, + NULL, NULL)); + if ((in = open(altmsg, O_RDONLY)) == NOTOK) { + adios(altmsg, "unable to open"); } - } - ++argp; - continue; - } + fstat(in, &st2); + if ((out = creat(distfile, (int)st2.st_mode & 0777)) == + NOTOK) { + adios(distfile, "unable to write"); + } + cpydata(in, out, altmsg, distfile); + close(in); + close(out); + } } else { - msgs[msgp++] = cp; - } - } - - /* - * check for "Aliasfile:" profile entry - */ - if ((cp = context_find ("Aliasfile"))) { - char *dp = NULL; - - for (ap = brkstring(dp = getcpy(cp), " ", "\n"); ap && *ap; ap++) { - vec[vecp++] = "-alias"; - vec[vecp++] = *ap; - } - } - - if (dfolder == NULL) { - if (msgp == 0) { -#ifdef WHATNOW - if ((cp = getenv ("mhdraft")) && *cp) { - msgs[msgp++] = cp; - goto go_to_it; - } -#endif /* WHATNOW */ - msgs[msgp++] = getcpy (m_draft (NULL, NULL, 1, &isdf)); - if (stat (msgs[0], &st) == NOTOK) - adios (msgs[0], "unable to stat draft file"); - cp = concat ("Use \"", msgs[0], "\"? ", NULL); - for (status = LISTDSW; status != YESW;) { - if (!(argp = getans (cp, anyl))) - done (1); - switch (status = smatch (*argp, anyl)) { - case NOSW: - done (0); - case YESW: + distfile = NULL; + } + + if (!altmsg || stat(altmsg, &st) == NOTOK) { + st.st_mtime = 0; + st.st_dev = 0; + st.st_ino = 0; + } + if (pushsw) { + push(); + } + status = 0; + vec[0] = mhbasename(postproc); + closefds(3); + + for (msgnum = 0; msgnum < nfiles; msgnum++) { + switch (sendsbr(vec, vecp, files[msgnum], &st, 1)) { + case DONE: + done(++status); + case NOTOK: + status++; /* fall */ + case OK: break; - case LISTDSW: - showfile (++argp, msgs[0]); + } + } + + context_save(); + done(status); + return 1; +} + + +/* +** message sending back-end +*/ +static int +sendsbr(char **vec, int vecp, char *drft, struct stat *st, int rename_drft) +{ + int status; + char buffer[BUFSIZ]; + char *original_draft; + char *p; /* string pointer for building file name */ + + /* + ** Save the original name of the draft file. The name of the + ** draft file is changed to a temporary file containing the built + ** MIME message if there are attachments. We need the original + ** name so that it can be renamed after the message is sent. + */ + original_draft = drft; + + /* + ** Convert the draft to a MIME message. + ** Use the mhbuild composition file for the draft if there was + ** a successful conversion because that now contains the MIME + ** message. A nice side effect of this is that it leaves the + ** original draft file untouched so that it can be retrieved + ** and modified if desired. + */ + switch (attach(drft)) { + case OK: + drft = composition_file_name; + break; + + case NOTOK: + return (NOTOK); + + case DONE: + break; + } + + done=armed_done; + switch (setjmp(env)) { + case OK: + status = sendaux(vec, vecp, drft, st) ? NOTOK : OK; + /* rename the original draft */ + if (rename_drft && status == OK && + rename(original_draft, strncpy(buffer, + m_backup(original_draft), sizeof(buffer))) + == NOTOK) { + advise(buffer, "unable to rename %s to", drft); + } + break; + + default: + status = DONE; + break; + } + + done=exit; + if (distfile) { + unlink(distfile); + } + + /* + ** Get rid of any temporary files that we created for attachments. + ** Also get rid of the renamed composition file that mhbuild + ** leaves as a turd. It looks confusing, but we use the body + ** file name to help build the renamed composition file name. + */ + if (drft == composition_file_name) { + clean_up_temporary_files(); + + if (strlen(composition_file_name) >= + sizeof (composition_file_name) - 6) { + advise(NULL, "unable to remove original composition file."); + } else { + if (!(p = strrchr(composition_file_name, '/'))) { + p = composition_file_name; + } else { + p++; + } + strcpy(body_file_name, p); + *p++ = ','; + strcpy(p, body_file_name); + strcat(p, ".orig"); + + unlink(composition_file_name); + } + } + + return status; +} + +static int +attach(char *draft_file_name) +{ + char buf[MAXPATHLEN + 6]; + int c; + int has_attachment; + int has_body; + int non_ascii; /* msg body contains non-ASCII chars */ + int length; /* length of attachment header field name */ + char *p; + + if (!(draft_file = fopen(draft_file_name, "r"))) { + adios(NULL, "can't open draft file `%s'.", draft_file_name); + } + + /* We'll grow the buffer as needed. */ + field = (char *)mh_xmalloc(field_size = 256); + + /* + ** Scan the draft file for an attachment header field name. + */ + length = strlen(attach_hdr); + has_attachment = 0; + while (get_line() != EOF && *field != '\0' && *field != '-') { + if (strncasecmp(field, attach_hdr, length)==0 && + field[length] == ':') { + has_attachment = 1; + } + } + + /* + ** Look for at least one non-blank line in the body of the + ** message which indicates content in the body. + ** Check if body contains at least one non-blank (= not empty) + ** and if it contains any non-ASCII chars (= need MIME). + */ + has_body = 0; + non_ascii = 0; + while (get_line() != EOF) { + for (p = field; *p != '\0'; p++) { + if (*p != ' ' && *p != '\t') { + has_body = 1; + } + if (*p > 127 || *p < 0) { + non_ascii = 1; + } + } + if (has_body && non_ascii) { + break; /* that's been already enough information */ + } + } + + if (!has_attachment && non_ascii==0) { + /* We don't need to convert it to MIME. */ + return DONE; + } + + /* + ** Else: mimify + */ + + /* Make names for the temporary files. */ + strncpy(body_file_name, + m_mktemp(toabsdir(invo_name), NULL, NULL), + sizeof (body_file_name)); + strncpy(composition_file_name, + m_mktemp(toabsdir(invo_name), NULL, NULL), + sizeof (composition_file_name)); + + if (has_body) { + body_file = fopen(body_file_name, "w"); + } + composition_file = fopen(composition_file_name, "w"); + + if ((has_body && !body_file) || !composition_file) { + clean_up_temporary_files(); + adios(NULL, "unable to open all of the temporary files."); + } + + /* Copy non-attachment header fields to the temp composition file. */ + rewind(draft_file); + while (get_line() != EOF && *field && *field != '-') { + if (strncasecmp(field, attach_hdr, length) != 0 || + field[length] != ':') { + fprintf(composition_file, "%s\n", field); + } + } + fputs("--------\n", composition_file); + + if (has_body) { + /* Copy the message body to the temporary file. */ + while ((c = getc(draft_file)) != EOF) { + putc(c, body_file); + } + fclose(body_file); + + /* Add a mhbuild MIME composition file line for the body */ + /* charset will be discovered/guessed by buildmimeproc */ + fprintf(composition_file, "#text/plain %s\n", body_file_name); + } + + /* + ** Now, go back to the beginning of the draft file and look for + ** header fields that specify attachments. Add a mhbuild MIME + ** composition file for each. + */ + rewind(draft_file); + while (get_line() != EOF && *field && *field != '-') { + if (strncasecmp(field, attach_hdr, length) == 0 && + field[length] == ':') { + for (p = field+length+1; *p==' ' || *p=='\t'; p++) { + continue; + } + if (*p == '+') { + /* forwarded message */ + fprintf(composition_file, "#forw [forwarded message(s)] %s\n", p); + } else { + /* regular attachment */ + make_mime_composition_file_entry(p); + } + } + } + fclose(composition_file); + + /* + ** We're ready to roll! Run mhbuild on the composition file. + ** Note that mhbuild is in the context as buildmimeproc. + */ + sprintf(buf, "%s %s", buildmimeproc, composition_file_name); + + if (system(buf) != 0) { + /* some problem */ + clean_up_temporary_files(); + return (NOTOK); + } + + return (OK); +} + +static void +clean_up_temporary_files(void) +{ + unlink(body_file_name); + unlink(composition_file_name); + + return; +} + +static int +get_line(void) +{ + int c; /* current character */ + int n; /* number of bytes in buffer */ + char *p; + + /* + ** Get a line from the input file, growing the field buffer as + ** needed. We do this so that we can fit an entire line in the + ** buffer making it easy to do a string comparison on both the + ** field name and the field body which might be a long path name. + */ + for (n = 0, p = field; (c = getc(draft_file)) != EOF; *p++ = c) { + if (c == '\n' && (c = getc(draft_file)) != ' ' && c != '\t') { + ungetc(c, draft_file); + c = '\n'; break; - default: - advise (NULL, "say what?"); + } + if (++n >= field_size - 1) { + field = (char *)mh_xrealloc(field, field_size += 256); + p = field + n - 1; + } + } + *p = '\0'; + + return (c); +} + +static void +make_mime_composition_file_entry(char *file_name) +{ + FILE *fp; + struct node *np; + char *cp; + char content_type[BUFSIZ]; + char cmdbuf[BUFSIZ]; + char *cmd = mimetypequeryproc; + + for (np = m_defs; np; np = np->n_next) { + if (strcasecmp(np->n_name, mimetypequery)==0) { + cmd = np->n_field; break; } - } + } + snprintf(cmdbuf, sizeof cmdbuf, "%s %s", cmd, file_name); + + if (!(fp = popen(cmdbuf, "r"))) { + clean_up_temporary_files(); + adios(NULL, "unable to determine content type with `%s'", + cmdbuf); + } + if (fgets(content_type, sizeof content_type, fp) && + (cp = strrchr(content_type, '\n'))) { + *cp = '\0'; } else { - for (msgnum = 0; msgnum < msgp; msgnum++) - msgs[msgnum] = getcpy (m_maildir (msgs[msgnum])); + strcpy(content_type, "application/octet-stream"); + admonish(NULL, "problems with `%s', using fall back type `%s'", + cmdbuf, content_type); } - } else { - if (!context_find ("path")) - free (path ("./", TFOLDER)); + pclose(fp); - if (!msgp) - msgs[msgp++] = "cur"; - maildir = m_maildir (dfolder); + /* TODO: don't use access(2) because it checks for ruid, not euid */ + if (access(file_name, R_OK) != 0) { + clean_up_temporary_files(); + adios(NULL, "unable to access file `%s'", file_name); + } - if (chdir (maildir) == NOTOK) - adios (maildir, "unable to change directory to"); + fprintf(composition_file, "#%s; name=\"%s\" <>{attachment}", + content_type, + (!(cp = strrchr(file_name, '/'))) ? file_name : cp + 1); - /* read folder and create message structure */ - if (!(mp = folder_read (dfolder))) - adios (NULL, "unable to read folder %s", dfolder); + fprintf(composition_file, " %s\n", file_name); - /* check for empty folder */ - if (mp->nummsg == 0) - adios (NULL, "no messages in %s", dfolder); + return; +} - /* parse all the message ranges/sequences and set SELECTED */ - for (msgnum = 0; msgnum < msgp; msgnum++) - if (!m_convert (mp, msgs[msgnum])) - done (1); - seq_setprev (mp); /* set the previous-sequence */ +/* +** The back-end of the message sending back-end. +** Annotate original message, and call `postproc' to send message. +*/ +static int +sendaux(char **vec, int vecp, char *drft, struct stat *st) +{ + pid_t child_id; + int i, status, fd; + char backup[BUFSIZ]; + + /* + ** fd collects the output of postproc, and is used for the + ** failure notice if we need to send one in alert(). + */ + fd = pushsw ? tmp_fd() : NOTOK; + + vec[vecp++] = drft; + if (distfile && distout(drft, distfile, backup) == NOTOK) { + done(1); + } + vec[vecp] = NULL; - for (msgp = 0, msgnum = mp->lowsel; msgnum <= mp->hghsel; msgnum++) { - if (is_selected (mp, msgnum)) { - msgs[msgp++] = getcpy (m_name (msgnum)); - unset_exists (mp, msgnum); - } + for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++) { + sleep(5); + } + switch (child_id) { + case -1: + /* oops -- fork error */ + adios("fork", "unable to"); + break; /* NOT REACHED */ + + case 0: + /* + ** child process -- send it + ** + ** If fd is ok, then we are pushing and fd points to temp + ** file, so capture anything on stdout and stderr there. + */ + if (fd != NOTOK) { + dup2(fd, fileno(stdout)); + dup2(fd, fileno(stderr)); + close(fd); + } + execvp(postproc, vec); + fprintf(stderr, "unable to exec "); + perror(postproc); + _exit(-1); + break; /* NOT REACHED */ + + default: + /* parent process -- wait for it */ + if ((status = pidwait(child_id, NOTOK)) == OK) { + if (annotext) { + anno(st); + } + } else { + /* + ** If postproc failed, and we have good fd (which + ** means we pushed), then mail error message + ** (and possibly the draft) back to the user. + */ + if (fd != NOTOK) { + alert(drft, fd); + close(fd); + } else { + advise(NULL, "message not delivered to anyone"); + } + if (distfile) { + unlink(drft); + if (rename(backup, drft) == NOTOK) { + advise(drft, "unable to rename %s to", + backup); + } + } + } + break; } - mp->msgflags |= SEQMOD; - seq_save (mp); - } - -#ifdef WHATNOW -go_to_it: -#endif /* WHATNOW */ - - if ((cp = getenv ("SIGNATURE")) == NULL || *cp == 0) - if ((cp = context_find ("signature")) && *cp) - m_putenv ("SIGNATURE", cp); -#ifdef UCI - else { - snprintf (buf, sizeof(buf), "%s/.signature", mypath); - if ((fp = fopen (buf, "r")) != NULL - && fgets (buf, sizeof buf, fp) != NULL) { - fclose (fp); - if (cp = strchr (buf, '\n')) - *cp = 0; - m_putenv ("SIGNATURE", buf); - } - } -#endif /* UCI */ - - for (msgnum = 0; msgnum < msgp; msgnum++) - if (stat (msgs[msgnum], &st) == NOTOK) - adios (msgs[msgnum], "unable to stat draft file"); - - if ((annotext = getenv ("mhannotate")) == NULL || *annotext == 0) - annotext = NULL; - if (annotext && ((cp = getenv ("mhinplace")) != NULL && *cp != 0)) - inplace = atoi (cp); - if ((altmsg = getenv ("mhaltmsg")) == NULL || *altmsg == 0) - altmsg = NULL; /* used by dist interface - see below */ - - if ((cp = getenv ("mhdist")) - && *cp - && (distsw = atoi (cp)) - && altmsg) { - vec[vecp++] = "-dist"; - distfile = getcpy (m_mktemp2 (altmsg, invo_name, NULL, NULL)); - if (link (altmsg, distfile) == NOTOK) { - if (errno != EXDEV -#ifdef EISREMOTE - && errno != EISREMOTE -#endif /* EISREMOTE */ - ) - adios (distfile, "unable to link %s to", altmsg); - free (distfile); - distfile = getcpy (m_mktemp2(NULL, invo_name, NULL, NULL)); - { - int in, out; - struct stat st; - - if ((in = open (altmsg, O_RDONLY)) == NOTOK) - adios (altmsg, "unable to open"); - fstat(in, &st); - if ((out = creat (distfile, (int) st.st_mode & 0777)) == NOTOK) - adios (distfile, "unable to write"); - cpydata (in, out, altmsg, distfile); - close (in); - close (out); - } - } - } else { - distfile = NULL; - } - - if (altmsg == NULL || stat (altmsg, &st) == NOTOK) { - st.st_mtime = 0; - st.st_dev = 0; - st.st_ino = 0; - } - if (pushsw) - push (); - - status = 0; - vec[0] = r1bindex (postproc, '/'); - closefds (3); - - for (msgnum = 0; msgnum < msgp; msgnum++) { - switch (sendsbr (vec, vecp, msgs[msgnum], &st, 1, attach, - attachformat)) { - case DONE: - done (++status); - case NOTOK: - status++; /* fall */ - case OK: + return status; +} + + +/* +** Mail error notification (and possibly a copy of the +** message) back to the user, using the mailproc +*/ +static void +alert(char *file, int out) +{ + pid_t child_id; + int i, in; + char buf[BUFSIZ]; + + for (i = 0; (child_id = fork()) == NOTOK && i < 5; i++) { + sleep(5); + } + + switch (child_id) { + case NOTOK: + /* oops -- fork error */ + advise("fork", "unable to"); + + case OK: + /* child process -- send it */ + SIGNAL(SIGHUP, SIG_IGN); + SIGNAL(SIGINT, SIG_IGN); + SIGNAL(SIGQUIT, SIG_IGN); + SIGNAL(SIGTERM, SIG_IGN); + if (forwsw) { + if ((in = open(file, O_RDONLY)) == NOTOK) { + admonish(file, "unable to re-open"); + } else { + lseek(out, (off_t) 0, SEEK_END); + strncpy(buf, "\nMessage not delivered to anyone.\n", sizeof(buf)); + write(out, buf, strlen(buf)); + strncpy(buf, "\n------- Unsent Draft\n\n", sizeof(buf)); + write(out, buf, strlen(buf)); + cpydgst(in, out, file, "temporary file"); + close(in); + strncpy(buf, "\n------- End of Unsent Draft\n", sizeof(buf)); + write(out, buf, strlen(buf)); + if (rename(file, strncpy(buf, m_backup(file), sizeof(buf))) == NOTOK) { + admonish(buf, "unable to rename %s to", file); + } + } + } + lseek(out, (off_t) 0, SEEK_SET); + dup2(out, fileno(stdin)); + close(out); + /* create subject for error notification */ + snprintf(buf, sizeof(buf), "send failed on %s", + forwsw ? "enclosed draft" : file); + + execlp(mailproc, mhbasename(mailproc), getusername(), + "-subject", buf, NULL); + fprintf(stderr, "unable to exec "); + perror(mailproc); + _exit(-1); + + default: /* no waiting... */ break; } - } +} + + +static int +tmp_fd(void) +{ + int fd; + char *tfile = NULL; + + tfile = m_mktemp2(NULL, invo_name, &fd, NULL); + if (tfile == NULL) return NOTOK; + fchmod(fd, 0600); + + if (debugsw) { + advise(NULL, "temporary file %s selected", tfile); + } else { + if (unlink(tfile) == NOTOK) { + advise(tfile, "unable to remove"); + } + } + + return fd; +} + + +static void +anno(struct stat *st) +{ + struct stat st2; + char *msgs, *folder; + char buf[BUFSIZ]; + + if (altmsg && (stat(altmsg, &st2) == NOTOK || + st->st_mtime != st2.st_mtime || + st->st_dev != st2.st_dev || + st->st_ino != st2.st_ino)) { + if (debugsw) { + admonish(NULL, "$mhaltmsg mismatch"); + } + return; + } + + if (!(folder = getenv("mhfolder")) || !*folder) { + if (debugsw) { + admonish(NULL, "$mhfolder not set"); + } + return; + } + if (!(msgs = getenv("mhmessages")) || !*msgs) { + if (debugsw) { + admonish(NULL, "$mhmessages not set"); + } + return; + } + if (debugsw) { + advise(NULL, "annotate as `%s': %s %s", annotext, + folder, msgs); + } + snprintf(buf, sizeof buf, "anno -comp '%s' '+%s' %s", + annotext, folder, msgs); + if (system(buf) != 0) { + advise(NULL, "unable to annotate"); + } +} + + +static void +armed_done(int status) +{ + longjmp(env, status ? status : NOTOK); - context_save (); /* save the context file */ - done (status); - return 1; + exit(status); }