1 /*@ S-nail - a mail user agent derived from Berkeley Mail.
2 *@ Message sending lifecycle, header composing, etc.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
8 * Copyright (c) 1980, 1993
9 * The Regents of the University of California. All rights reserved.
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
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. Neither the name of the University nor the names of its contributors
20 * may be used to endorse or promote products derived from this software
21 * without specific prior written permission.
23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 #define n_FILE sendout
38 #ifndef HAVE_AMALGAMATION
43 #define SEND_LINESIZE \
44 ((1024 / B64_ENCODE_INPUT_PER_LINE) * B64_ENCODE_INPUT_PER_LINE)
50 _FMT_GMASK
= FMT_COMMA
| FMT_FILES
52 n_CTA(!(_FMT_GMASK
& FMT_DOMIME
),
53 "Code-required condition not satisfied but actual bit carrier value");
55 static char const *__sendout_ident
; /* TODO temporary hack; rewrite puthead() */
56 static char * _sendout_boundary
;
57 static si8_t _sendout_error
;
60 static enum okay
_putname(char const *line
, enum gfield w
,
61 enum sendaction action
, size_t *gotcha
,
62 char const *prefix
, FILE *fo
, struct name
**xp
,
63 enum gfield addflags
);
65 /* Place Content-Type:, Content-Transfer-Encoding:, Content-Disposition:
66 * headers, respectively */
67 static int _put_ct(FILE *fo
, char const *contenttype
,
69 SINLINE
int _put_cte(FILE *fo
, enum conversion conv
);
70 static int _put_cd(FILE *fo
, char const *cd
, char const *filename
);
72 /* Put all entries of the given header list */
73 static bool_t
_sendout_header_list(FILE *fo
, struct n_header_field
*hfp
,
76 /* Write an attachment to the file buffer, converting to MIME */
77 static int _attach_file(struct attachment
*ap
, FILE *fo
);
78 static int __attach_file(struct attachment
*ap
, FILE *fo
);
80 /* There are non-local receivers, collect credentials etc. */
81 static bool_t
_sendbundle_setup_creds(struct sendbundle
*sbpm
,
84 /* Attach a message to the file buffer */
85 static int attach_message(struct attachment
*ap
, FILE *fo
);
87 /* Generate the body of a MIME multipart message */
88 static int make_multipart(struct header
*hp
, int convert
, FILE *fi
,
89 FILE *fo
, char const *contenttype
, char const *charset
);
91 /* Prepend a header in front of the collected stuff and return the new file */
92 static FILE * infix(struct header
*hp
, FILE *fi
);
94 /* Check whether Disposition-Notification-To: is desired */
95 static bool_t
_check_dispo_notif(struct name
*mdn
, struct header
*hp
,
98 /* Send mail to a bunch of user names. The interface is through mail() */
99 static int sendmail_internal(void *v
, int recipient_record
);
101 /* Deal with file and pipe addressees */
102 static struct name
* _outof(struct name
*names
, FILE *fo
, bool_t
*senderror
);
104 /* Record outgoing mail if instructed to do so; in *record* unless to is set */
105 static bool_t
mightrecord(FILE *fp
, struct name
*to
, bool_t resend
);
107 static bool_t
a_sendout__savemail(char const *name
, FILE *fp
, bool_t resend
);
110 static bool_t
_transfer(struct sendbundle
*sbp
);
112 static bool_t
__mta_start(struct sendbundle
*sbp
);
113 static char const ** __mta_prepare_args(struct name
*to
, struct header
*hp
);
114 static void __mta_debug(struct sendbundle
*sbp
, char const *mta
,
117 /* Create a Message-ID: header field. Use either host name or from address */
118 static char * _message_id(struct header
*hp
);
120 /* Format the given header line to not exceed 72 characters */
121 static int fmt(char const *str
, struct name
*np
, FILE *fo
,
124 /* Rewrite a message for resending, adding the Resent-Headers */
125 static int infix_resend(FILE *fi
, FILE *fo
, struct message
*mp
,
126 struct name
*to
, int add_resent
);
129 _putname(char const *line
, enum gfield w
, enum sendaction action
,
130 size_t *gotcha
, char const *prefix
, FILE *fo
, struct name
**xp
,
131 enum gfield addflags
)
137 np
= lextract(line
, GEXTRA
| GFULL
| addflags
);
142 else if (fmt(prefix
, np
, fo
, ((w
& GCOMMA
) |
143 ((action
!= SEND_TODISP
) ? FMT_DOMIME
: 0))))
145 else if (gotcha
!= NULL
)
152 _put_ct(FILE *fo
, char const *contenttype
, char const *charset
)
157 if ((rv
= fprintf(fo
, "Content-Type: %s", contenttype
)) < 0)
163 if (putc(';', fo
) == EOF
)
167 if (strlen(contenttype
) + sizeof("Content-Type: ;")-1 > 50) {
168 if (putc('\n', fo
) == EOF
)
174 size_t l
= strlen(charset
);
175 char *lcs
= salloc(l
+1);
177 for(l
= 0; *charset
!= '\0'; ++l
, ++charset
)
178 lcs
[l
] = lowerconv(*charset
);
182 if ((i
= fprintf(fo
, " charset=%s", charset
)) < 0)
187 if (putc('\n', fo
) == EOF
)
199 _put_cte(FILE *fo
, enum conversion conv
)
205 * This is the default value -- that is,
206 * "Content-Transfer-Encoding: 7BIT" is assumed if the
207 * Content-Transfer-Encoding header field is not present.
209 rv
= (conv
== CONV_7BIT
) ? 0
210 : fprintf(fo
, "Content-Transfer-Encoding: %s\n",
211 mime_enc_from_conversion(conv
));
217 _put_cd(FILE *fo
, char const *cd
, char const *filename
)
226 /* xxx Ugly with the trailing space in case of wrap! */
227 if ((rv
= fprintf(fo
, "Content-Disposition: %s; ", cd
)) < 0)
230 if (!(mpc
= mime_param_create(&f
, "filename", filename
)))
232 /* Always fold if result contains newlines */
233 if (mpc
< 0 || f
.l
+ rv
> MIME_LINELEN
) { /* FIXME MIME_LINELEN_MAX */
234 if (putc('\n', fo
) == EOF
|| putc(' ', fo
) == EOF
)
238 if (fputs(f
.s
, fo
) == EOF
|| putc('\n', fo
) == EOF
)
252 _sendout_header_list(FILE *fo
, struct n_header_field
*hfp
, bool_t nodisp
){
256 for(rv
= TRU1
; hfp
!= NULL
; hfp
= hfp
->hf_next
)
257 if(fwrite(hfp
->hf_dat
, sizeof(char), hfp
->hf_nl
, fo
) != hfp
->hf_nl
||
258 putc(':', fo
) == EOF
|| putc(' ', fo
) == EOF
||
259 xmime_write(hfp
->hf_dat
+ hfp
->hf_nl
+1, hfp
->hf_bl
, fo
,
260 (!nodisp
? CONV_NONE
: CONV_TOHDR
),
261 (!nodisp
? TD_ISPR
| TD_ICONV
: TD_ICONV
)) < 0 ||
262 putc('\n', fo
) == EOF
){
271 _attach_file(struct attachment
*ap
, FILE *fo
)
273 /* TODO of course, the MIME classification needs to performed once
274 * TODO only, not for each and every charset anew ... ;-// */
275 char *charset_iter_orig
[2];
280 /* Is this already in target charset? Simply copy over */
281 if (ap
->a_conv
== AC_TMPFILE
) {
282 err
= __attach_file(ap
, fo
);
284 DBG( ap
->a_tmpf
= NULL
; )
288 /* If we don't apply charset conversion at all (fixed input=ouput charset)
289 * we also simply copy over, since it's the users desire */
290 if (ap
->a_conv
== AC_FIX_INCS
) {
291 ap
->a_charset
= ap
->a_input_charset
;
292 err
= __attach_file(ap
, fo
);
295 assert(ap
->a_input_charset
!= NULL
);
297 /* Otherwise we need to iterate over all possible output charsets */
298 if ((offs
= ftell(fo
)) == -1) {
302 charset_iter_recurse(charset_iter_orig
);
303 for (charset_iter_reset(NULL
);; charset_iter_next()) {
304 if (!charset_iter_is_valid()) {
308 err
= __attach_file(ap
, fo
);
309 if (err
== 0 || (err
!= EILSEQ
&& err
!= EINVAL
))
312 if (fseek(fo
, offs
, SEEK_SET
) == -1) {
316 if (ap
->a_conv
!= AC_DEFAULT
) {
320 ap
->a_charset
= NULL
;
322 charset_iter_restore(charset_iter_orig
);
329 __attach_file(struct attachment
*ap
, FILE *fo
) /* XXX linelength */
331 int err
= 0, do_iconv
;
334 enum conversion convert
;
336 size_t bufsize
, lncnt
, inlen
;
339 /* Either charset-converted temporary file, or plain path */
340 if (ap
->a_conv
== AC_TMPFILE
) {
342 assert(ftell(fi
) == 0);
343 } else if ((fi
= Fopen(ap
->a_path
, "r")) == NULL
) {
345 n_err(_("%s: %s\n"), n_shexp_quote_cp(ap
->a_path
, FAL0
), strerror(err
));
349 /* MIME part header for attachment */
350 { char const *ct
, *cp
;
352 ct
= ap
->a_content_type
;
353 charset
= ap
->a_charset
;
354 convert
= mime_type_classify_file(fi
, (char const**)&ct
,
355 &charset
, &do_iconv
);
356 if (charset
== NULL
|| ap
->a_conv
== AC_FIX_INCS
||
357 ap
->a_conv
== AC_TMPFILE
)
360 if (fprintf(fo
, "\n--%s\n", _sendout_boundary
) < 0 ||
361 _put_ct(fo
, ct
, charset
) < 0 || _put_cte(fo
, convert
) < 0 ||
362 _put_cd(fo
, ap
->a_content_disposition
, ap
->a_name
) < 0)
365 if(ap
->a_content_id
!= NULL
&&
366 fprintf(fo
, "Content-ID: <%s>\n", ap
->a_content_id
->n_name
) < 0)
369 if ((cp
= ap
->a_content_description
) != NULL
&&
370 (fputs("Content-Description: ", fo
) == EOF
||
371 xmime_write(cp
, strlen(cp
), fo
, CONV_TOHDR
, (TD_ISPR
| TD_ICONV
)
372 ) < 0 || putc('\n', fo
) == EOF
))
375 if (putc('\n', fo
) == EOF
) {
383 if (iconvd
!= (iconv_t
)-1)
384 n_iconv_close(iconvd
);
386 if (asccasecmp(charset
, ap
->a_input_charset
) &&
387 (iconvd
= n_iconv_open(charset
, ap
->a_input_charset
)
388 ) == (iconv_t
)-1 && (err
= errno
) != 0) {
390 n_err(_("Cannot convert from %s to %s\n"), ap
->a_input_charset
,
393 n_err(_("iconv_open: %s\n"), strerror(err
));
399 bufsize
= SEND_LINESIZE
;
400 buf
= smalloc(bufsize
);
401 if (convert
== CONV_TOQP
403 || iconvd
!= (iconv_t
)-1
408 if (convert
== CONV_TOQP
410 || iconvd
!= (iconv_t
)-1
413 if (fgetline(&buf
, &bufsize
, &lncnt
, &inlen
, fi
, 0) == NULL
)
415 } else if ((inlen
= fread(buf
, sizeof *buf
, bufsize
, fi
)) == 0)
417 if (xmime_write(buf
, inlen
, fo
, convert
, TD_ICONV
) < 0) {
427 if (ap
->a_conv
!= AC_TMPFILE
)
435 _sendbundle_setup_creds(struct sendbundle
*sbp
, bool_t signing_caps
)
437 bool_t v15
, rv
= FAL0
;
444 v15
= ok_blook(v15_compat
);
445 shost
= (v15
? ok_vlook(smtp_hostname
) : NULL
);
446 from
= ((signing_caps
|| !v15
|| shost
== NULL
)
447 ? skin(myorigin(sbp
->sb_hp
)) : NULL
);
452 n_err(_("No *from* address for signing specified\n"));
456 sbp
->sb_signer
.l
= strlen(sbp
->sb_signer
.s
= from
);
460 if ((smtp
= ok_vlook(smtp
)) == NULL
) { /* TODO v15 url_creat(,ok_vlook(mta)*/
463 /* *smtp* OBSOLETE message in mta_start() */
464 if ((smtp
= ok_vlook(mta
)) == NULL
||
465 (proto
= n_servbyname(smtp
, NULL
)) == NULL
|| *proto
== '\0') {
471 if (!url_parse(&sbp
->sb_url
, CPROTO_SMTP
, smtp
))
478 sbp
->sb_url
.url_u_h
.l
= strlen(sbp
->sb_url
.url_u_h
.s
= from
);
480 __sendout_ident
= sbp
->sb_url
.url_u_h
.s
;
481 if (!ccred_lookup(&sbp
->sb_ccred
, &sbp
->sb_url
))
484 if (sbp
->sb_url
.url_had_user
|| sbp
->sb_url
.url_pass
.s
!= NULL
) {
485 n_err(_("New-style URL used without *v15-compat* being set\n"));
488 /* TODO part of the entire myorigin() disaster, get rid of this! */
491 n_err(_("Your configuration requires a *from* address, "
492 "but none was given\n"));
495 if (!ccred_lookup_old(&sbp
->sb_ccred
, CPROTO_SMTP
, from
))
497 sbp
->sb_url
.url_u_h
.l
= strlen(sbp
->sb_url
.url_u_h
.s
= from
);
501 #endif /* HAVE_SMTP */
502 #if defined HAVE_SSL || defined HAVE_SMTP
510 attach_message(struct attachment
*ap
, FILE *fo
)
517 fprintf(fo
, "\n--%s\nContent-Type: message/rfc822\n"
518 "Content-Disposition: inline\n", _sendout_boundary
);
519 if ((ccp
= ap
->a_content_description
) != NULL
)
520 fprintf(fo
, "Content-Description: %s\n", ccp
);/* TODO MIME! */
523 mp
= message
+ ap
->a_msgno
- 1;
525 rv
= (sendmp(mp
, fo
, 0, NULL
, SEND_RFC822
, NULL
) < 0) ? -1 : 0;
531 make_multipart(struct header
*hp
, int convert
, FILE *fi
, FILE *fo
,
532 char const *contenttype
, char const *charset
)
534 struct attachment
*att
;
538 fputs("This is a multi-part message in MIME format.\n", fo
);
539 if (fsize(fi
) != 0) {
541 size_t sz
, bufsize
, cnt
;
543 if (fprintf(fo
, "\n--%s\n", _sendout_boundary
) < 0 ||
544 _put_ct(fo
, contenttype
, charset
) < 0 ||
545 _put_cte(fo
, convert
) < 0 ||
546 fprintf(fo
, "Content-Disposition: inline\n\n") < 0)
549 buf
= smalloc(bufsize
= SEND_LINESIZE
);
550 if (convert
== CONV_TOQP
552 || iconvd
!= (iconv_t
)-1
559 if (convert
== CONV_TOQP
561 || iconvd
!= (iconv_t
)-1
564 if (fgetline(&buf
, &bufsize
, &cnt
, &sz
, fi
, 0) == NULL
)
566 } else if ((sz
= fread(buf
, sizeof *buf
, bufsize
, fi
)) == 0)
569 if (xmime_write(buf
, sz
, fo
, convert
, TD_ICONV
) < 0) {
580 for (att
= hp
->h_attach
; att
!= NULL
; att
= att
->a_flink
) {
582 if (attach_message(att
, fo
) != 0)
584 } else if (_attach_file(att
, fo
) != 0)
588 /* the final boundary with two attached dashes */
589 fprintf(fo
, "\n--%s--\n", _sendout_boundary
);
597 infix(struct header
*hp
, FILE *fi
) /* TODO check */
599 FILE *nfo
, *nfi
= NULL
;
601 char const *contenttype
, *charset
= NULL
;
602 enum conversion convert
;
603 int do_iconv
= 0, err
;
605 char const *tcs
, *convhdr
= NULL
;
609 if ((nfo
= Ftmp(&tempMail
, "infix", OF_WRONLY
| OF_HOLDSIGS
| OF_REGISTER
))
611 n_perr(_("temporary mail file"), 0);
614 if ((nfi
= Fopen(tempMail
, "r")) == NULL
) {
618 Ftmp_release(&tempMail
);
622 pstate
&= ~PS_HEADER_NEEDED_MIME
; /* TODO a hack should be carrier tracked */
624 contenttype
= "text/plain"; /* XXX mail body - always text/plain, want XX? */
625 if((options
& OPT_Mm_FLAG
) && option_Mm_arg
!= NULL
)
626 contenttype
= option_Mm_arg
;
627 convert
= mime_type_classify_file(fi
, &contenttype
, &charset
, &do_iconv
);
630 tcs
= ok_vlook(ttycharset
);
631 if ((convhdr
= need_hdrconv(hp
))) {
632 if (iconvd
!= (iconv_t
)-1) /* XXX */
633 n_iconv_close(iconvd
);
634 if (asccasecmp(convhdr
, tcs
) != 0 &&
635 (iconvd
= n_iconv_open(convhdr
, tcs
)) == (iconv_t
)-1 &&
640 if (puthead(FAL0
, hp
, nfo
,
641 (GTO
| GSUBJECT
| GCC
| GBCC
| GNL
| GCOMMA
| GUA
| GMIME
| GMSGID
|
642 GIDENT
| GREF
| GDATE
), SEND_MBOX
, convert
, contenttype
, charset
))
645 if (iconvd
!= (iconv_t
)-1)
646 n_iconv_close(iconvd
);
650 if (do_iconv
&& charset
!= NULL
) { /*TODO charset->mime_type_classify_file*/
651 if (asccasecmp(charset
, tcs
) != 0 &&
652 (iconvd
= n_iconv_open(charset
, tcs
)) == (iconv_t
)-1 &&
653 (err
= errno
) != 0) {
656 n_err(_("Cannot convert from %s to %s\n"), tcs
, charset
);
658 n_perr("iconv_open", 0);
664 if (hp
->h_attach
!= NULL
) {
665 if (make_multipart(hp
, convert
, fi
, nfo
, contenttype
, charset
) != 0)
668 size_t sz
, bufsize
, cnt
;
671 if (convert
== CONV_TOQP
673 || iconvd
!= (iconv_t
)-1
679 buf
= smalloc(bufsize
= SEND_LINESIZE
);
681 if (convert
== CONV_TOQP
683 || iconvd
!= (iconv_t
)-1
686 if (fgetline(&buf
, &bufsize
, &cnt
, &sz
, fi
, 0) == NULL
)
688 } else if ((sz
= fread(buf
, sizeof *buf
, bufsize
, fi
)) == 0)
690 if (xmime_write(buf
, sz
, nfo
, convert
, TD_ICONV
) < 0) {
697 if (err
|| ferror(fi
)) {
702 if (iconvd
!= (iconv_t
)-1)
703 n_iconv_close(iconvd
);
711 if (iconvd
!= (iconv_t
)-1)
712 n_iconv_close(iconvd
);
716 if ((err
= ferror(nfo
)))
717 n_perr(_("temporary mail file"), 0);
732 _check_dispo_notif(struct name
*mdn
, struct header
*hp
, FILE *fo
)
738 /* TODO smtp_disposition_notification (RFC 3798): relation to return-path
739 * TODO not yet checked */
740 if (!ok_blook(disposition_notification_send
))
743 if (mdn
!= NULL
&& mdn
!= (struct name
*)0x1)
745 else if ((from
= myorigin(hp
)) == NULL
) {
746 if (options
& OPT_D_V
)
747 n_err(_("*disposition-notification-send*: no *from* set\n"));
751 if (fmt("Disposition-Notification-To:", nalloc(n_UNCONST(from
), 0), fo
, 0))
759 sendmail_internal(void *v
, int recipient_record
)
766 memset(&head
, 0, sizeof head
);
767 head
.h_to
= lextract(str
, GTO
| GFULL
);
768 rv
= mail1(&head
, 0, NULL
, NULL
, recipient_record
, 0);
774 _outof(struct name
*names
, FILE *fo
, bool_t
*senderror
)
776 ui32_t pipecnt
, xcnt
, i
;
780 FILE *fin
= NULL
, *fout
;
783 /* Look through all recipients and do a quick return if no file or pipe
784 * addressee is found */
785 fda
= NULL
; /* Silence cc */
786 for (pipecnt
= xcnt
= 0, np
= names
; np
!= NULL
; np
= np
->n_flink
) {
787 if (np
->n_type
& GDEL
)
789 switch (np
->n_flags
& NAME_ADDRSPEC_ISFILEORPIPE
) {
790 case NAME_ADDRSPEC_ISFILE
:
793 case NAME_ADDRSPEC_ISPIPE
:
798 if (pipecnt
== 0 && xcnt
== 0)
801 /* Otherwise create an array of file descriptors for each found pipe
802 * addressee to get around the dup(2)-shared-file-offset problem, i.e.,
803 * each pipe subprocess needs its very own file descriptor, and we need
805 * To make our life a bit easier let's just use the auto-reclaimed
807 if (pipecnt
== 0 || (options
& OPT_DEBUG
)) {
812 fda
= salloc(sizeof(int) * pipecnt
);
813 for (i
= 0; i
< pipecnt
; ++i
)
815 sh
= ok_vlook(SHELL
);
818 for (np
= names
; np
!= NULL
; np
= np
->n_flink
) {
819 if (!(np
->n_flags
& NAME_ADDRSPEC_ISFILEORPIPE
))
822 /* In days of old we removed the entry from the the list; now for sake of
823 * header expansion we leave it in and mark it as deleted */
826 if(options
& OPT_D_VV
)
827 n_err(_(">>> Writing message via %s\n"),
828 n_shexp_quote_cp(np
->n_name
, FAL0
));
829 /* We _do_ write to STDOUT, anyway! */
830 if((options
& OPT_DEBUG
) && ((np
->n_flags
& NAME_ADDRSPEC_ISPIPE
) ||
831 np
->n_name
[0] != '-' || np
->n_name
[1] != '\0'))
834 /* See if we have copied the complete message out yet. If not, do so */
839 if ((fout
= Ftmp(&tempEdit
, "outof",
840 OF_WRONLY
| OF_HOLDSIGS
| OF_REGISTER
)) == NULL
) {
841 n_perr(_("Creation of temporary image"), 0);
845 if ((image
= open(tempEdit
, O_RDWR
| _O_CLOEXEC
)) >= 0) {
847 for (i
= 0; i
< pipecnt
; ++i
) {
848 int fd
= open(tempEdit
, O_RDONLY
| _O_CLOEXEC
);
859 Ftmp_release(&tempEdit
);
862 n_perr(_("Creating descriptor duplicate of temporary image"), 0);
868 fprintf(fout
, "From %s %s", ok_vlook(LOGNAME
), time_current
.tc_ctime
);
870 while (i
= c
, (c
= getc(fo
)) != EOF
)
878 n_perr(_("Finalizing write of temporary image"), 0);
884 /* If we have to serve file addressees, open reader */
885 if (xcnt
!= 0 && (fin
= Fdopen(image
, "r", FAL0
)) == NULL
) {
886 n_perr(_("Failed to open a temporary image duplicate"), 0);
894 /* From now on use xcnt as a counter for pipecnt */
898 /* Now either copy "image" to the desired file or give it as the standard
899 * input to the desired program as appropriate */
900 if (np
->n_flags
& NAME_ADDRSPEC_ISPIPE
) {
905 sigaddset(&nset
, SIGHUP
);
906 sigaddset(&nset
, SIGINT
);
907 sigaddset(&nset
, SIGQUIT
);
908 pid
= start_command(sh
, &nset
, fda
[xcnt
++], COMMAND_FD_NULL
, "-c",
909 np
->n_name
+ 1, NULL
, NULL
);
911 n_err(_("Piping message to %s failed\n"),
912 n_shexp_quote_cp(np
->n_name
, FAL0
));
919 char const *fname
, *fnameq
;
921 if ((fname
= fexpand(np
->n_name
, FEXP_LOCAL
| FEXP_NOPROTO
)) == NULL
) {
925 fnameq
= n_shexp_quote_cp(fname
, FAL0
);
927 if(fname
[0] == '-' && fname
[1] == '\0')
929 else if ((fout
= Zopen(fname
, "a")) == NULL
) {
930 n_err(_("Writing message to %s failed: %s\n"),
931 fnameq
, strerror(errno
));
936 while ((c
= getc(fin
)) != EOF
)
939 n_err(_("Writing message to %s failed: %s\n"),
940 fnameq
, _("write error"));
955 for (i
= 0; i
< pipecnt
; ++i
)
966 if (np
->n_flags
& NAME_ADDRSPEC_ISFILEORPIPE
)
974 mightrecord(FILE *fp
, struct name
*to
, bool_t resend
)
981 if (options
& OPT_DEBUG
)
983 else if (to
!= NULL
) {
984 cp
= savestr(skinned_name(to
));
985 for (cq
= cp
; *cq
!= '\0' && *cq
!= '@'; ++cq
)
989 cp
= ok_vlook(record
);
992 if ((ep
= expand(cp
)) == NULL
) {
997 if (*ep
!= '/' && *ep
!= '+' && ok_blook(outfolder
) &&
998 which_protocol(ep
) == PROTO_FILE
) {
999 size_t i
= strlen(cp
);
1000 cq
= salloc(i
+ 1 +1);
1002 memcpy(cq
+ 1, cp
, i
+1);
1004 if ((ep
= fexpand(cp
, FEXP_LOCAL
| FEXP_NOPROTO
)) == NULL
) {
1010 if (!a_sendout__savemail(ep
, fp
, resend
)) {
1012 n_err(_("Failed to save message in %s - message not sent\n"),
1013 n_shexp_quote_cp(ep
, FAL0
));
1014 exit_status
|= EXIT_ERR
;
1015 savedeadletter(fp
, 1);
1024 a_sendout__savemail(char const *name
, FILE *fp
, bool_t resend
){
1026 size_t bufsize
, buflen
, cnt
;
1027 bool_t rv
, emptyline
;
1031 buf
= smalloc(bufsize
= LINESIZE
);
1032 rv
= emptyline
= FAL0
;
1034 if((fo
= Zopen(name
, "a+")) == NULL
){
1035 if((fo
= Zopen(name
, "wx")) == NULL
){
1042 /* TODO RETURN check, but be aware of protocols: v15: Mailbox->lock()! */
1043 n_file_lock(fileno(fo
), FLT_WRITE
, 0,0, UIZ_MAX
);
1048 if(fseek(fo
, -2L, SEEK_END
) == 0){ /* TODO Should be Mailbox::->append */
1049 switch(fread(buf
, sizeof *buf
, 2, fo
)){
1074 fprintf(fo
, "From %s %s", ok_vlook(LOGNAME
), time_current
.tc_ctime
);
1075 for(emptyline
= FAL0
, buflen
= 0, cnt
= fsize(fp
);
1076 fgetline(&buf
, &bufsize
, &cnt
, &buflen
, fp
, 0) != NULL
;){
1077 /* Only if we are resending it can happen that we have to quote From_
1078 * lines here; we don't generate messages which are ambiguous ourselves */
1080 if(emptyline
&& is_head(buf
, buflen
, FAL0
))
1082 }DBG(else assert(!is_head(buf
, buflen
, FAL0
)); )
1084 emptyline
= (buflen
> 0 && *buf
== '\n');
1085 fwrite(buf
, sizeof *buf
, buflen
, fo
);
1087 if(buflen
> 0 && buf
[buflen
- 1] != '\n')
1107 _transfer(struct sendbundle
*sbp
)
1114 for (cnt
= 0, np
= sbp
->sb_to
; np
!= NULL
;) {
1115 char const k
[] = "smime-encrypt-";
1116 size_t nl
= strlen(np
->n_name
);
1117 char *cp
, *vs
= ac_alloc(sizeof(k
)-1 + nl
+1);
1118 memcpy(vs
, k
, sizeof(k
) -1);
1119 memcpy(vs
+ sizeof(k
) -1, np
->n_name
, nl
+1);
1121 if ((cp
= vok_vlook(vs
)) != NULL
) {
1125 if ((ef
= smime_encrypt(sbp
->sb_input
, cp
, np
->n_name
)) != NULL
) {
1126 FILE *fisave
= sbp
->sb_input
;
1127 struct name
*nsave
= sbp
->sb_to
;
1129 sbp
->sb_to
= ndup(np
, np
->n_type
& ~(GFULL
| GSKIN
));
1131 if (!__mta_start(sbp
))
1134 sbp
->sb_input
= fisave
;
1139 n_err(_("No SSL support compiled in\n"));
1142 n_err(_("Message not sent to: %s\n"), np
->n_name
);
1143 _sendout_error
= TRU1
;
1147 rewind(sbp
->sb_input
);
1149 if (np
->n_flink
!= NULL
)
1150 np
->n_flink
->n_blink
= np
->n_blink
;
1151 if (np
->n_blink
!= NULL
)
1152 np
->n_blink
->n_flink
= np
->n_flink
;
1153 if (np
== sbp
->sb_to
)
1154 sbp
->sb_to
= np
->n_flink
;
1163 if (cnt
> 0 && (ok_blook(smime_force_encryption
) || !__mta_start(sbp
)))
1170 __mta_start(struct sendbundle
*sbp
)
1174 char const **args
, *mta
;
1178 if((mta
= ok_vlook(smtp
)) != NULL
){
1179 OBSOLETE(_("please don't use *smtp*, but assign an SMTP URL to *mta*"));
1180 /* For *smtp* the smtp:// protocol was optional; be simple: don't check
1181 * that *smtp* is misused with file:// or so */
1182 if(n_servbyname(mta
, NULL
) == NULL
)
1183 mta
= savecat("smtp://", mta
);
1188 if((proto
= ok_vlook(sendmail
)) != NULL
)
1189 OBSOLETE(_("please use *mta* instead of *sendmail*"));
1190 if((mta
= ok_vlook(mta
)) == NULL
){ /* TODO v15: mta = ok_vlook(mta); */
1197 /* TODO for now this is pretty hacky: in v15 we should simply create
1198 * TODO an URL object; i.e., be able to do so, and it does it right
1199 * TODO I.e.,: url_creat(&url, ok_vlook(mta)); */
1200 else if((proto
= n_servbyname(mta
, NULL
)) != NULL
){
1202 mta
+= sizeof("file://") -1;
1211 char const *mta_base
;
1213 if((mta
= fexpand(mta_base
= mta
, FEXP_LOCAL
| FEXP_NOPROTO
)) == NULL
){
1214 n_err(_("*mta* variable expansion failure: %s\n"),
1215 n_shexp_quote_cp(mta_base
, FAL0
));
1219 args
= __mta_prepare_args(sbp
->sb_to
, sbp
->sb_hp
);
1220 if (options
& OPT_DEBUG
) {
1221 __mta_debug(sbp
, mta
, args
);
1226 n_UNINIT(args
, NULL
);
1228 n_err(_("No SMTP support compiled in\n"));
1231 if (options
& OPT_DEBUG
) {
1232 (void)smtp_mta(sbp
);
1239 /* Fork, set up the temporary mail file as standard input for "mail", and
1240 * exec with the user list we generated far above */
1241 if ((pid
= fork_child()) == -1) {
1244 savedeadletter(sbp
->sb_input
, 0);
1245 _sendout_error
= TRU1
;
1250 sigaddset(&nset
, SIGHUP
);
1251 sigaddset(&nset
, SIGINT
);
1252 sigaddset(&nset
, SIGQUIT
);
1253 sigaddset(&nset
, SIGTSTP
);
1254 sigaddset(&nset
, SIGTTIN
);
1255 sigaddset(&nset
, SIGTTOU
);
1256 freopen("/dev/null", "r", stdin
);
1259 prepare_child(&nset
, 0, 1);
1268 prepare_child(&nset
, fileno(sbp
->sb_input
), -1);
1269 execv(mta
, n_UNCONST(args
));
1271 ecp
= (e
!= ENOENT
) ? strerror(e
)
1272 : _("executable not found (adjust *mta* variable)");
1273 n_err(_("Cannot start %s: %s\n"), n_shexp_quote_cp(mta
, FAL0
), ecp
);
1275 savedeadletter(sbp
->sb_input
, 1);
1276 n_err(_("... message not sent\n"));
1280 if ((options
& (OPT_DEBUG
| OPT_VERB
)) || ok_blook(sendwait
)) {
1281 if (!(rv
= wait_child(pid
, NULL
)))
1282 _sendout_error
= TRU1
;
1292 static char const **
1293 __mta_prepare_args(struct name
*to
, struct header
*hp
)
1295 size_t vas_cnt
, i
, j
;
1297 char const **args
, *cp
, *cp_v15compat
;
1301 if((cp_v15compat
= ok_vlook(sendmail_arguments
)) != NULL
)
1302 OBSOLETE(_("please use *mta-arguments*, not *sendmail-arguments*"));
1303 if((cp
= ok_vlook(mta_arguments
)) == NULL
)
1305 if ((cp
/* TODO v15: = ok_vlook(mta_arguments)*/) == NULL
) {
1309 /* Don't assume anything on the content but do allocate exactly j slots;
1310 * like this getrawlist will never overflow (and return -1) */
1312 vas
= n_lofi_alloc(sizeof(*vas
) * j
);
1313 vas_cnt
= (size_t)getrawlist(FAL0
, vas
, j
, cp
, j
);
1316 i
= 4 + smopts_cnt
+ vas_cnt
+ 4 + 1 + count(to
) + 1;
1317 args
= salloc(i
* sizeof(char*));
1319 if((cp_v15compat
= ok_vlook(sendmail_progname
)) != NULL
)
1320 OBSOLETE(_("please use *mta-argv0*, not *sendmail-progname*"));
1321 if((cp
= ok_vlook(mta_argv0
)) == NULL
)
1325 args
[0] = cp
/* TODO v15: = ok_vlook(mta_argv0) */;
1327 if ((snda
= ok_blook(sendmail_no_default_arguments
)))
1328 OBSOLETE(_("please use *mta-no-default-arguments*, "
1329 "not *sendmail-no-default-arguments*"));
1330 snda
|= ok_blook(mta_no_default_arguments
);
1331 if ((snda
/* TODO v15: = ok_blook(mta_no_default_arguments)*/))
1336 if (ok_blook(metoo
))
1338 if (options
& OPT_VERB
)
1342 for (j
= 0; j
< smopts_cnt
; ++j
, ++i
)
1343 args
[i
] = smopts
[j
];
1345 for (j
= 0; j
< vas_cnt
; ++j
, ++i
)
1348 /* -r option? In conjunction with -t we act compatible to postfix(1) and
1349 * ignore it (it is -f / -F there) if the message specified From:/Sender:.
1350 * The interdependency with -t has been resolved in puthead() */
1351 if (!snda
&& ((options
& OPT_r_FLAG
) || ok_blook(r_option_implicit
))) {
1352 struct name
const *np
;
1354 if (hp
!= NULL
&& (np
= hp
->h_from
) != NULL
) {
1355 /* However, what wasn't resolved there was the case that the message
1356 * specified multiple From: addresses and a Sender: */
1357 if ((pstate
& PS_t_FLAG
) && hp
->h_sender
!= NULL
)
1360 if (np
->n_fullextra
!= NULL
) {
1362 args
[i
++] = np
->n_fullextra
;
1366 assert(option_r_arg
== NULL
);
1367 cp
= skin(myorigin(NULL
));
1376 /* Terminate option list to avoid false interpretation of system-wide
1377 * aliases that start with hyphen */
1381 /* Receivers follow */
1382 for (; to
!= NULL
; to
= to
->n_flink
)
1383 if (!(to
->n_type
& GDEL
))
1384 args
[i
++] = to
->n_name
;
1394 __mta_debug(struct sendbundle
*sbp
, char const *mta
, char const **args
)
1396 size_t cnt
, bufsize
, llen
;
1400 n_err(_(">>> MTA: %s, arguments:"), n_shexp_quote_cp(mta
, FAL0
));
1401 for (; *args
!= NULL
; ++args
)
1402 n_err(" %s", n_shexp_quote_cp(*args
, FAL0
));
1405 fflush_rewind(sbp
->sb_input
);
1407 cnt
= fsize(sbp
->sb_input
);
1410 while (fgetline(&buf
, &bufsize
, &cnt
, &llen
, sbp
->sb_input
, TRU1
) != NULL
) {
1412 n_err(">>> %s\n", buf
);
1420 _message_id(struct header
*hp
)
1422 char *rv
= NULL
, sep
;
1428 if (hp
!= NULL
&& hp
->h_message_id
!= NULL
) {
1429 i
= strlen(hp
->h_message_id
->n_name
);
1430 rl
= sizeof("Message-ID: <>") -1;
1431 rv
= salloc(rl
+ i
+1);
1432 memcpy(rv
, "Message-ID: <", --rl
);
1433 memcpy(rv
+ rl
, hp
->h_message_id
->n_name
, i
);
1440 if (ok_blook(message_id_disable
))
1445 if ((h
= __sendout_ident
) != NULL
)
1447 if (ok_vlook(hostname
) != NULL
) {
1453 if (hp
!= NULL
&& (h
= skin(myorigin(hp
))) != NULL
&& strchr(h
, '@') != NULL
)
1459 tmp
= &time_current
.tc_gm
;
1460 i
= sizeof("Message-ID: <%04d%02d%02d%02d%02d%02d.%s%c%s>") -1 +
1463 snprintf(rv
, i
, "Message-ID: <%04d%02d%02d%02d%02d%02d.%s%c%s>",
1464 tmp
->tm_year
+ 1900, tmp
->tm_mon
+ 1, tmp
->tm_mday
,
1465 tmp
->tm_hour
, tmp
->tm_min
, tmp
->tm_sec
,
1466 getrandstring(rl
), sep
, h
);
1467 rv
[i
] = '\0'; /* Because we don't test snprintf(3) return */
1474 fmt(char const *str
, struct name
*np
, FILE *fo
, enum fmt_flags ff
)
1482 } m
= (ff
& GCOMMA
) ? m_COMMA
: 0;
1489 fwrite(str
, sizeof *str
, col
, fo
);
1491 #define _X(S) (col == sizeof(S) -1 && !asccasecmp(str, S))
1494 } else if (_X("reply-to:") || _X("mail-followup-to:") ||
1495 _X("references:") || _X("disposition-notification-to:"))
1496 m
|= m_NOPF
| m_NONAME
;
1497 else if (ok_blook(add_file_recipients
)) {
1499 } else if (_X("to:") || _X("cc:") || _X("bcc:") || _X("resent-to:"))
1504 for (; np
!= NULL
; np
= np
->n_flink
) {
1505 if (is_addr_invalid(np
,
1506 EACM_NOLOG
| (m
& m_NONAME
? EACM_NONAME
: EACM_NONE
)))
1508 /* File and pipe addresses only printed with set *add-file-recipients* */
1509 if ((m
& m_NOPF
) && is_fileorpipe_addr(np
))
1512 if ((m
& (m_INIT
| m_COMMA
)) == (m_INIT
| m_COMMA
)) {
1513 if (putc(',', fo
) == EOF
)
1519 len
= strlen(np
->n_fullname
);
1520 if (np
->n_type
& GREF
)
1522 ++col
; /* The separating space */
1523 if ((m
& m_INIT
) && /*col > 1 &&*/
1524 UICMP(z
, col
+ len
, >,
1525 (np
->n_type
& GREF
? MIME_LINELEN
: 72))) {
1526 if (fputs("\n ", fo
) == EOF
)
1532 m
= (m
& ~m_CSEEN
) | m_INIT
;
1537 /* GREF needs to be placed in angle brackets, but which are missing */
1538 hb
= np
->n_fullname
;
1539 if(np
->n_type
& GREF
){
1540 assert(len
== strlen(np
->n_fullname
) + 2);
1541 hb
= n_lofi_alloc(len
+1);
1546 memcpy(&hb
[1], np
->n_fullname
, len
);
1549 len
= xmime_write(hb
, len
, fo
,
1550 ((ff
& FMT_DOMIME
) ? CONV_TOHDR_A
: CONV_NONE
), TD_ICONV
);
1551 if(np
->n_type
& GREF
)
1559 if (putc('\n', fo
) != EOF
)
1567 infix_resend(FILE *fi
, FILE *fo
, struct message
*mp
, struct name
*to
,
1570 size_t cnt
, c
, bufsize
= 0;
1573 struct name
*fromfield
= NULL
, *senderfield
= NULL
, *mdn
;
1579 /* Write the Resent-Fields */
1581 fputs("Resent-", fo
);
1583 if ((cp
= myaddrs(NULL
)) != NULL
) {
1584 if (_putname(cp
, GCOMMA
, SEND_MBOX
, NULL
, "Resent-From:", fo
,
1588 /* TODO RFC 5322: Resent-Sender SHOULD NOT be used if it's EQ -From: */
1589 if ((cp
= ok_vlook(sender
)) != NULL
) {
1590 if (_putname(cp
, GCOMMA
, SEND_MBOX
, NULL
, "Resent-Sender:", fo
,
1594 if (fmt("Resent-To:", to
, fo
, FMT_COMMA
))
1596 if (((cp
= ok_vlook(stealthmua
)) == NULL
|| !strcmp(cp
, "noagent")) &&
1597 (cp
= _message_id(NULL
)) != NULL
)
1598 fprintf(fo
, "Resent-%s\n", cp
);
1601 if ((mdn
= n_UNCONST(check_from_and_sender(fromfield
, senderfield
))) == NULL
)
1603 if (!_check_dispo_notif(mdn
, NULL
, fo
))
1606 /* Write the original headers */
1608 if (fgetline(&buf
, &bufsize
, &cnt
, &c
, fi
, 0) == NULL
)
1610 if (ascncasecmp("status:", buf
, 7) &&
1611 ascncasecmp("disposition-notification-to:", buf
, 28) &&
1612 !is_head(buf
, c
, FAL0
))
1613 fwrite(buf
, sizeof *buf
, c
, fo
);
1614 if (cnt
> 0 && *buf
== '\n')
1618 /* Write the message body */
1620 if (fgetline(&buf
, &bufsize
, &cnt
, &c
, fi
, 0) == NULL
)
1622 if (cnt
== 0 && *buf
== '\n')
1624 fwrite(buf
, sizeof *buf
, c
, fo
);
1629 n_perr(_("temporary mail file"), 0);
1639 mail(struct name
*to
, struct name
*cc
, struct name
*bcc
, char *subject
,
1640 struct attachment
*attach
, char *quotefile
, int recipient_record
)
1646 memset(&head
, 0, sizeof head
);
1648 /* The given subject may be in RFC1522 format. */
1649 if (subject
!= NULL
) {
1651 in
.l
= strlen(subject
);
1652 mime_fromhdr(&in
, &out
, /* TODO ??? TD_ISPR |*/ TD_ICONV
);
1653 head
.h_subject
= out
.s
;
1658 head
.h_attach
= attach
;
1660 mail1(&head
, 0, NULL
, quotefile
, recipient_record
, 0);
1662 if (subject
!= NULL
)
1674 rv
= sendmail_internal(v
, 0);
1685 rv
= sendmail_internal(v
, 1);
1691 mail1(struct header
*hp
, int printheaders
, struct message
*quote
,
1692 char *quotefile
, int recipient_record
, int doprefix
)
1695 struct sendbundle sb
;
1702 _sendout_error
= FAL0
;
1703 __sendout_ident
= NULL
;
1707 n_SIGMAN_ENTER_SWITCH(&sm
, n_SIGMAN_ALL
) {
1714 /* Update some globals we likely need first */
1715 time_current_update(&time_current
, TRU1
);
1717 /* Collect user's mail from standard input. Get the result as mtf */
1718 mtf
= collect(hp
, printheaders
, quote
, quotefile
, doprefix
, &_sendout_error
);
1725 if (options
& OPT_INTERACTIVE
) {
1726 if (ok_blook(asksign
))
1727 dosign
= getapproval(_("Sign this message"), TRU1
);
1730 if (fsize(mtf
) == 0) {
1731 if (options
& OPT_E_FLAG
)
1733 if (hp
->h_subject
== NULL
)
1734 printf(_("No message, no subject; hope that's ok\n"));
1735 else if (ok_blook(bsdcompat
) || ok_blook(bsdmsgs
))
1736 printf(_("Null message body; hope that's ok\n"));
1739 if (dosign
== TRUM1
)
1740 dosign
= ok_blook(smime_sign
); /* TODO USER@HOST <-> *from* +++!!! */
1743 n_err(_("No SSL support compiled in\n"));
1748 /* XXX Update time_current again; once collect() offers editing of more
1749 * XXX headers, including Date:, this must only happen if Date: is the
1750 * XXX same that it was before collect() (e.g., postponing etc.).
1751 * XXX But *do* update otherwise because the mail seems to be backdated
1752 * XXX if the user edited some time, which looks odd and it happened
1753 * XXX to me that i got mis-dated response mails due to that... */
1754 time_current_update(&time_current
, TRU1
);
1756 /* TODO hrmpf; the MIME/send layer rewrite MUST address the init crap:
1757 * TODO setup the header ONCE; note this affects edit.c, collect.c ...,
1758 * TODO but: offer a hook that rebuilds/expands/checks/fixates all
1759 * TODO header fields ONCE, call that ONCE after user editing etc. has
1760 * TODO completed (one edit cycle) */
1762 /* Take the user names from the combined to and cc lists and do all the
1763 * alias processing. The POSIX standard says:
1764 * The names shall be substituted when alias is used as a recipient
1765 * address specified by the user in an outgoing message (that is,
1766 * other recipients addressed indirectly through the reply command
1767 * shall not be substituted in this manner).
1768 * S-nail thus violates POSIX, as has been pointed out correctly by
1769 * Martin Neitzel, but logic and usability of POSIX standards is not seldom
1770 * disputable anyway. Go for user friendliness */
1772 to
= namelist_vaporise_head(hp
,
1774 (!(expandaddr_to_eaf() & EAF_NAME
) ? EACM_NONAME
: EACM_NONE
)),
1775 TRU1
, &_sendout_error
);
1777 n_err(_("No recipients specified\n"));
1780 if (_sendout_error
< 0) {
1781 n_err(_("Some addressees were classified as \"hard error\"\n"));
1786 memset(&sb
, 0, sizeof sb
);
1790 if ((dosign
|| count_nonlocal(to
) > 0) &&
1791 !_sendbundle_setup_creds(&sb
, (dosign
> 0)))
1792 /* TODO saving $DEAD and recovering etc is not yet well defined */
1795 /* 'Bit ugly kind of control flow until we find a charset that does it */
1796 for (charset_iter_reset(hp
->h_charset
);; charset_iter_next()) {
1799 if (!charset_iter_is_valid())
1801 else if ((nmtf
= infix(hp
, mtf
)) != NULL
)
1803 else if ((err
= errno
) == EILSEQ
|| err
== EINVAL
) {
1808 n_perr(_("Failed to create encoded message"), 0);
1816 if ((nmtf
= smime_sign(mtf
, sb
.sb_signer
.s
)) == NULL
)
1823 /* TODO truly - i still don't get what follows: (1) we deliver file
1824 * TODO and pipe addressees, (2) we mightrecord() and (3) we transfer
1825 * TODO even if (1) savedeadletter() etc. To me this doesn't make sense? */
1827 /* Deliver pipe and file addressees */
1828 to
= _outof(to
, mtf
, &_sendout_error
);
1830 savedeadletter(mtf
, FAL0
);
1832 to
= elide(to
); /* XXX needed only to drop GDELs due to _outof()! */
1834 { ui32_t cnt
= count(to
);
1835 if ((!recipient_record
|| cnt
> 0) &&
1836 !mightrecord(mtf
, (recipient_record
? to
: NULL
), FAL0
))
1844 } else if (!_sendout_error
)
1848 n_sigman_cleanup_ping(&sm
);
1852 temporary_unroll_compose_mode();
1855 exit_status
|= EXIT_SEND_ERROR
;
1857 n_sigman_leave(&sm
, n_SIGMAN_VIPSIGS_NTTYOUT
);
1861 _sendout_error
= TRU1
;
1862 savedeadletter(mtf
, TRU1
);
1863 n_err(_("... message not sent\n"));
1868 mkdate(FILE *fo
, char const *field
)
1870 struct tm tmpgm
, *tmptr
;
1871 int tzdiff
, tzdiff_hour
, tzdiff_min
, rv
;
1874 memcpy(&tmpgm
, &time_current
.tc_gm
, sizeof tmpgm
);
1875 tzdiff
= time_current
.tc_time
- mktime(&tmpgm
);
1876 tzdiff_hour
= (int)(tzdiff
/ 60);
1877 tzdiff_min
= tzdiff_hour
% 60;
1879 tmptr
= &time_current
.tc_local
;
1880 if (tmptr
->tm_isdst
> 0)
1882 rv
= fprintf(fo
, "%s: %s, %02d %s %04d %02d:%02d:%02d %+05d\n",
1884 weekday_names
[tmptr
->tm_wday
],
1885 tmptr
->tm_mday
, month_names
[tmptr
->tm_mon
],
1886 tmptr
->tm_year
+ 1900, tmptr
->tm_hour
,
1887 tmptr
->tm_min
, tmptr
->tm_sec
,
1888 tzdiff_hour
* 100 + tzdiff_min
);
1894 puthead(bool_t nosend_msg
, struct header
*hp
, FILE *fo
, enum gfield w
,
1895 enum sendaction action
, enum conversion convert
, char const *contenttype
,
1896 char const *charset
)
1898 #define FMT_CC_AND_BCC() \
1900 if ((w & GCC) && (hp->h_cc != NULL || nosend_msg == TRUM1)) {\
1901 if (fmt("Cc:", hp->h_cc, fo, ff))\
1905 if ((w & GBCC) && (hp->h_bcc != NULL || nosend_msg == TRUM1)) {\
1906 if (fmt("Bcc:", hp->h_bcc, fo, ff))\
1914 struct name
*np
, *fromasender
= NULL
;
1915 int stealthmua
, rv
= 1;
1920 if ((addr
= ok_vlook(stealthmua
)) != NULL
)
1921 stealthmua
= !strcmp(addr
, "noagent") ? -1 : 1;
1925 nodisp
= (action
!= SEND_TODISP
);
1926 ff
= (w
& (GCOMMA
| GFILES
)) | (nodisp
? FMT_DOMIME
: 0);
1929 mkdate(fo
, "Date"), ++gotcha
;
1931 if (hp
->h_from
== NULL
|| hp
->h_sender
== NULL
)
1932 setup_from_and_sender(hp
);
1934 if (hp
->h_from
!= NULL
) {
1935 if (fmt("From:", hp
->h_from
, fo
, ff
))
1940 if (hp
->h_sender
!= NULL
) {
1941 if (fmt("Sender:", hp
->h_sender
, fo
, ff
))
1946 fromasender
= n_UNCONST(check_from_and_sender(hp
->h_from
, hp
->h_sender
));
1947 if (fromasender
== NULL
)
1949 /* Note that fromasender is (NULL,) 0x1 or real sender here */
1953 if ((w
& GTO
) && (hp
->h_to
!= NULL
|| nosend_msg
== TRUM1
)) {
1954 if (fmt("To:", hp
->h_to
, fo
, ff
))
1959 /* TODO Thought about undisclosed recipients:;, but would be such a fake
1960 * TODO given that we cannot handle group addresses. Ridiculous */
1964 if ((xto
= hp
->h_to
) != NULL
) {
1965 char const ud
[] = "To: Undisclosed recipients:;\n" /* TODO groups */;
1967 if (count_nonlocal(xto
) != 0 || ok_blook(add_file_recipients
) ||
1968 (hp
->h_cc
!= NULL
&& count_nonlocal(hp
->h_cc
) > 0))
1970 if (fwrite(ud
, 1, sizeof(ud
) -1, fo
) != sizeof(ud
) -1)
1973 } else if (nosend_msg
== TRUM1
) {
1975 if (fmt("To:", hp
->h_to
, fo
, ff
))
1982 if (!ok_blook(bsdcompat
) && !ok_blook(bsdorder
))
1985 if ((w
& GSUBJECT
) && (hp
->h_subject
!= NULL
|| nosend_msg
== TRUM1
)) {
1986 if (fwrite("Subject: ", sizeof(char), 9, fo
) != 9)
1988 if (hp
->h_subject
!= NULL
) {
1989 char *sub
= subject_re_trim(hp
->h_subject
);
1990 size_t sublen
= strlen(sub
);
1992 /* Trimmed something, (re-)add Re: */
1993 if (sub
!= hp
->h_subject
) {
1994 if (fwrite("Re: ", 1, 4, fo
) != 4) /* RFC mandates eng. "Re: " */
1997 xmime_write(sub
, sublen
, fo
,
1998 (!nodisp
? CONV_NONE
: CONV_TOHDR
),
1999 (!nodisp
? TD_ISPR
| TD_ICONV
: TD_ICONV
)) < 0)
2002 /* This may be, e.g., a Fwd: XXX yes, unfortunately we do like that */
2003 else if (*sub
!= '\0') {
2004 if (xmime_write(sub
, sublen
, fo
, (!nodisp
? CONV_NONE
: CONV_TOHDR
),
2005 (!nodisp
? TD_ISPR
| TD_ICONV
: TD_ICONV
)) < 0)
2013 if (ok_blook(bsdcompat
) || ok_blook(bsdorder
))
2016 if ((w
& GMSGID
) && stealthmua
<= 0 && (addr
= _message_id(hp
)) != NULL
) {
2017 if (fputs(addr
, fo
) == EOF
|| putc('\n', fo
) == EOF
)
2022 if ((np
= hp
->h_ref
) != NULL
&& (w
& GREF
)) {
2023 if (fmt("References:", np
, fo
, 0))
2025 if (hp
->h_in_reply_to
== NULL
&& np
->n_name
!= NULL
) {
2026 while (np
->n_flink
!= NULL
)
2028 if (!is_addr_invalid(np
, /* TODO check that on parser side! */
2029 /*EACM_STRICT | TODO '/' valid!! */ EACM_NOLOG
| EACM_NONAME
)) {
2031 "In-Reply-To: <%s>\n", np
->n_name
/*TODO RFC5322 3.6.4*/) < 0)
2035 n_err(_("Invalid address in mail header: %s\n"), np
->n_name
);
2040 if ((np
= hp
->h_in_reply_to
) != NULL
&& (w
& GREF
)) {
2042 "In-Reply-To: <%s>\n", np
->n_name
/*TODO RFC 5322 3.6.4*/) < 0)
2048 /* Reply-To:. Be careful not to destroy a possible user input, duplicate
2049 * the list first.. TODO it is a terrible codebase.. */
2050 if ((np
= hp
->h_replyto
) != NULL
)
2051 np
= namelist_dup(np
, np
->n_type
);
2052 else if ((addr
= ok_vlook(replyto
)) != NULL
)
2053 np
= lextract(addr
, GEXTRA
| GFULL
);
2056 checkaddrs(usermap(np
, TRU1
), EACM_STRICT
| EACM_NOLOG
,
2058 if (fmt("Reply-To:", np
, fo
, ff
))
2064 if ((w
& GIDENT
) && !nosend_msg
) {
2065 /* Mail-Followup-To: TODO factor out this huge block of code */
2066 /* Place ourselfs in there if any non-subscribed list is an addressee */
2067 if ((hp
->h_flags
& HF_LIST_REPLY
) || hp
->h_mft
!= NULL
||
2068 ok_blook(followup_to
)) {
2069 enum {_ANYLIST
=1<<(HF__NEXT_SHIFT
+0), _HADMFT
=1<<(HF__NEXT_SHIFT
+1)};
2071 ui32_t f
= hp
->h_flags
| (hp
->h_mft
!= NULL
? _HADMFT
: 0);
2072 struct name
*mft
, *x
;
2074 /* But for that, we have to remove all incarnations of ourselfs first.
2075 * TODO It is total crap that we have delete_alternates(), is_myname()
2076 * TODO or whatever; these work only with variables, not with data
2077 * TODO that is _currently_ in some header fields!!! v15.0: complete
2078 * TODO rewrite, object based, lazy evaluated, on-the-fly marked.
2079 * TODO then this should be a really cheap thing in here... */
2080 np
= elide(delete_alternates(cat(
2081 namelist_dup(hp
->h_to
, GEXTRA
| GFULL
),
2082 namelist_dup(hp
->h_cc
, GEXTRA
| GFULL
))));
2083 addr
= hp
->h_list_post
;
2085 for (mft
= NULL
; (x
= np
) != NULL
;) {
2089 if ((ml
= is_mlist(x
->n_name
, FAL0
)) == MLIST_OTHER
&&
2090 addr
!= NULL
&& !asccasecmp(addr
, x
->n_name
))
2093 /* Any non-subscribed list? Add ourselves */
2098 case MLIST_SUBSCRIBED
:
2102 if (!(f
& HF_LIST_REPLY
)) {
2104 if (!is_addr_invalid(x
,
2105 EACM_STRICT
| EACM_NOLOG
| EACM_NONAME
)) {
2108 } /* XXX write some warning? if verbose?? */
2111 /* And if this is a reply that honoured a MFT: header then we'll
2112 * also add all members of the original MFT: that are still
2113 * addressed by us, regardless of all other circumstances */
2114 else if (f
& _HADMFT
) {
2116 for (ox
= hp
->h_mft
; ox
!= NULL
; ox
= ox
->n_flink
)
2117 if (!asccasecmp(ox
->n_name
, x
->n_name
))
2124 if (f
& (_ANYLIST
| _HADMFT
) && mft
!= NULL
) {
2125 if (((f
& HF_MFT_SENDER
) ||
2126 ((f
& (_ANYLIST
| _HADMFT
)) == _HADMFT
)) &&
2127 (np
= fromasender
) != NULL
&& np
!= (struct name
*)0x1) {
2128 np
= ndup(np
, (np
->n_type
& ~GMASK
) | GEXTRA
| GFULL
);
2133 if (fmt("Mail-Followup-To:", mft
, fo
, ff
))
2139 if (!_check_dispo_notif(fromasender
, hp
, fo
))
2143 if ((w
& GUA
) && stealthmua
== 0) {
2144 if (fprintf(fo
, "User-Agent: %s %s\n", uagent
, ok_vlook(version
)) < 0)
2149 /* The user may have placed headers when editing */
2151 struct n_header_field
*hfp
;
2153 if((hfp
= hp
->h_user_headers
) != NULL
){
2154 if(!_sendout_header_list(fo
, hfp
, nodisp
))
2160 /* Custom headers, as via *customhdr* */
2162 struct n_header_field
*hfp
;
2164 /* With iconv support we likely have a cached result */
2165 if((hfp
= hp
->h_custom_headers
) == NULL
)
2166 hp
->h_custom_headers
= hfp
= n_customhdr_query();
2168 if(!_sendout_header_list(fo
, hfp
, nodisp
))
2174 /* We don't need MIME unless.. we need MIME?! */
2175 if ((w
& GMIME
) && ((pstate
& PS_HEADER_NEEDED_MIME
) ||
2176 hp
->h_attach
!= NULL
||
2177 ((options
& OPT_Mm_FLAG
) && option_Mm_arg
!= NULL
) ||
2178 convert
!= CONV_7BIT
|| asccasecmp(charset
, "US-ASCII"))) {
2180 if (fputs("MIME-Version: 1.0\n", fo
) == EOF
)
2182 if (hp
->h_attach
!= NULL
) {
2183 _sendout_boundary
= mime_param_boundary_create();/*TODO carrier*/
2185 "Content-Type: multipart/mixed;\n boundary=\"%s\"\n",
2186 _sendout_boundary
) < 0)
2189 if (_put_ct(fo
, contenttype
, charset
) < 0 || _put_cte(fo
, convert
) < 0)
2194 if (gotcha
&& (w
& GNL
))
2195 if (putc('\n', fo
) == EOF
)
2201 #undef FMT_CC_AND_BCC
2205 resend_msg(struct message
*mp
, struct name
*to
, int add_resent
) /* TODO check */
2207 struct sendbundle sb
;
2208 FILE *ibuf
, *nfo
, *nfi
;
2210 enum okay rv
= STOP
;
2213 _sendout_error
= FAL0
;
2214 __sendout_ident
= NULL
;
2216 /* Update some globals we likely need first */
2217 time_current_update(&time_current
, TRU1
);
2219 if ((to
= checkaddrs(to
,
2221 (!(expandaddr_to_eaf() & EAF_NAME
) ? EACM_NONAME
: EACM_NONE
)),
2222 &_sendout_error
)) == NULL
)
2224 /* For the _sendout_error<0 case we want to wait until we can write DEAD! */
2225 if (_sendout_error
< 0)
2226 n_err(_("Some addressees were classified as \"hard error\"\n"));
2228 if ((nfo
= Ftmp(&tempMail
, "resend", OF_WRONLY
| OF_HOLDSIGS
| OF_REGISTER
))
2230 _sendout_error
= TRU1
;
2231 n_perr(_("temporary mail file"), 0);
2234 if ((nfi
= Fopen(tempMail
, "r")) == NULL
)
2235 n_perr(tempMail
, 0);
2236 Ftmp_release(&tempMail
);
2240 if ((ibuf
= setinput(&mb
, mp
, NEED_BODY
)) == NULL
)
2243 memset(&sb
, 0, sizeof sb
);
2246 if (count_nonlocal(to
) > 0 && !_sendbundle_setup_creds(&sb
, FAL0
))
2247 /* ..wait until we can write DEAD */
2248 _sendout_error
= -1;
2250 if (infix_resend(ibuf
, nfo
, mp
, to
, add_resent
) != 0) {
2252 savedeadletter(nfi
, TRU1
);
2253 n_err(_("... message not sent\n"));
2258 _sendout_error
= TRU1
;
2262 if (_sendout_error
< 0)
2268 to
= _outof(to
, nfi
, &_sendout_error
);
2271 savedeadletter(nfi
, FAL0
);
2273 if (count(to
= elide(to
)) != 0) {
2274 if (!ok_blook(record_resent
) || mightrecord(nfi
, NULL
, TRU1
)) {
2276 /*sb.sb_input = nfi;*/
2280 } else if (!_sendout_error
)
2286 exit_status
|= EXIT_SEND_ERROR
;
2292 savedeadletter(FILE *fp
, bool_t fflush_rewind_first
){
2293 struct n_string line
;
2295 enum {a_NONE
, a_INIT
= 1<<0, a_BODY
= 1<<1, a_NL
= 1<<2} flags
;
2298 char const *cp
, *cpq
;
2304 if(fflush_rewind_first
){
2311 cp
= n_getdeadletter();
2312 cpq
= n_shexp_quote_cp(cp
, FAL0
);
2314 if(options
& OPT_DEBUG
){
2315 n_err(_(">>> Would (try to) write $DEAD %s\n"), cpq
);
2319 if((dbuf
= Fopen(cp
, "w")) == NULL
){
2320 n_perr(_("Cannot save to $DEAD"), 0);
2323 n_file_lock(fileno(dbuf
), FLT_WRITE
, 0,0, UIZ_MAX
); /* XXX Natomic */
2328 /* TODO savedeadletter() non-conforming: should check whether we have any
2329 * TODO headers, if not we need to place "something", anything will do.
2330 * TODO MIME is completely missing, we use MBOXO quoting!! Yuck.
2331 * TODO I/O error handling missing. Yuck! */
2332 n_string_reserve(n_string_creat_auto(&line
), 2 * SEND_LINESIZE
);
2333 bytes
= (ul_i
)fprintf(dbuf
, "From %s %s",
2334 ok_vlook(LOGNAME
), time_current
.tc_ctime
);
2336 for(flags
= a_NONE
, c
= '\0'; c
!= EOF
; bytes
+= line
.s_len
, ++lines
){
2337 n_string_trunc(&line
, 0);
2338 while((c
= getc(fp
)) != EOF
&& c
!= '\n')
2339 n_string_push_c(&line
, c
);
2341 /* TODO It may be that we have only some plain text. It may be that we
2342 * TODO have a complete MIME encoded message. We don't know, and we
2343 * TODO have no usable mechanism to dig it!! tWe need v15! */
2344 if(!(flags
& a_INIT
)){
2347 /* Throw away leading empty lines! */
2350 for(i
= 0; i
< line
.s_len
; ++i
){
2351 if(fieldnamechar(line
.s_dat
[i
]))
2353 if(line
.s_dat
[i
] == ':'){
2357 /* We have no headers, this is already a body line! */
2358 flags
|= a_INIT
| a_BODY
;
2362 /* Well, i had to check whether the RFC allows this. Assume we've
2363 * passed the headers, too, then! */
2365 flags
|= a_INIT
| a_BODY
;
2368 if(line
.s_len
>= 5 && !memcmp(line
.s_dat
, "From ", 5))
2369 n_string_unshift_c(&line
, '>');
2372 flags
|= a_BODY
| a_NL
;
2376 n_string_push_c(&line
, '\n');
2377 fwrite(line
.s_dat
, sizeof *line
.s_dat
, line
.s_len
, dbuf
);
2379 if(!(flags
& a_NL
)){
2384 n_string_gut(&line
);
2387 printf("%lu/%lu\n", lines
, bytes
);
2395 #undef SEND_LINESIZE