2 * S-nail - a mail user agent derived from Berkeley Mail.
4 * Copyright (c) 2000-2004 Gunnar Ritter, Freiburg i. Br., Germany.
5 * Copyright (c) 2012 Steffen "Daode" Nurpmeso.
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. All advertising materials mentioning features or use of this software
20 * must display the following acknowledgement:
21 * This product includes software developed by the University of
22 * California, Berkeley and its contributors.
23 * 4. Neither the name of the University nor the names of its contributors
24 * may be used to endorse or promote products derived from this software
25 * without specific prior written permission.
27 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
29 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
30 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
31 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
32 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
33 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
34 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
35 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
36 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
41 * Mail -- a mail program
53 static struct name
*tailof(struct name
*name
);
54 static struct name
*extract1(char *line
, enum gfield ntype
, char *separators
,
56 static char *yankword(char *ap
, char *wbuf
, char *separators
, int copypfx
);
57 static int same_name(char *n1
, char *n2
);
58 static struct name
*gexpand(struct name
*nlist
, struct grouphead
*gh
,
59 int metoo
, int ntype
);
60 static struct name
*put(struct name
*list
, struct name
*node
);
61 static struct name
*delname(struct name
*np
, char *name
);
64 * Allocate a single element of a name list,
65 * initialize its name field to the passed
69 nalloc(char *str
, enum gfield ntype
)
75 np
= (struct name
*)salloc(sizeof *np
);
81 np
->n_name
= savestr(skin(str
));
82 if (strcmp(np
->n_name
, str
)) {
85 mime_fromhdr(&in
, &out
, TD_ISPR
|TD_ICONV
);
86 np
->n_fullname
= savestr(out
.s
);
89 np
->n_fullname
= np
->n_name
;
90 } else if (ntype
& GSKIN
)
91 np
->n_fullname
= np
->n_name
= savestr(skin(str
));
93 np
->n_fullname
= np
->n_name
= savestr(str
);
98 ndup(struct name
*np
, enum gfield ntype
)
102 nnp
= (struct name
*)salloc(sizeof *np
);
106 nnp
->n_flags
= np
->n_flags
;
107 nnp
->n_name
= savestr(np
->n_name
);
108 nnp
->n_fullname
= (((ntype
& (GFULL
|GSKIN
)) == 0) ||
109 np
->n_name
== np
->n_fullname
)
110 ? nnp
->n_name
: savestr(np
->n_fullname
);
115 * Find the tail of a list and return it.
118 tailof(struct name
*name
)
125 while (np
->n_flink
!= NULL
)
131 * Extract a list of names from a line,
132 * and make a list of names from it.
133 * Return the list or NULL if none found.
136 extract(char *line
, enum gfield ntype
)
138 return extract1(line
, ntype
, " \t,(", 0);
142 sextract(char *line
, enum gfield ntype
)
144 if (line
&& strpbrk(line
, ",\"\\(<"))
145 return extract1(line
, ntype
, ",", 1);
147 return extract(line
, ntype
);
151 extract1(char *line
, enum gfield ntype
, char *separators
, int copypfx
)
154 struct name
*top
, *np
, *t
;
156 if (line
== NULL
|| *line
== '\0')
161 nbuf
= ac_alloc(strlen(line
) + 1);
162 while ((cp
= yankword(cp
, nbuf
, separators
, copypfx
)) != NULL
) {
163 t
= nalloc(nbuf
, ntype
);
176 * Turn a list of names into a string of the same names.
179 detract(struct name
*np
, enum gfield ntype
)
186 comma
= ntype
& GCOMMA
;
191 if ((debug
|| value("debug")) && comma
)
192 fprintf(stderr
, catgets(catd
, CATSET
, 145,
193 "detract asked to insert commas\n"));
194 for (p
= np
; p
!= NULL
; p
= p
->n_flink
) {
195 if (ntype
&& (p
->n_type
& GMASK
) != ntype
)
197 s
+= strlen(p
->n_fullname
) + 1;
206 for (p
= np
; p
!= NULL
; p
= p
->n_flink
) {
207 if (ntype
&& (p
->n_type
& GMASK
) != ntype
)
209 cp
= sstpcpy(cp
, p
->n_fullname
);
210 if (comma
&& p
->n_flink
!= NULL
)
215 if (comma
&& *--cp
== ',')
221 * Grab a single word (liberal word)
222 * Throw away things between ()'s, and take anything between <>.
223 * Strip trailing whitespace as *ap* may come directly from user.
226 yankword(char *ap
, char *wbuf
, char *separators
, int copypfx
)
232 while (blankchar(*cp
& 0377) || *cp
== ',')
235 if ((cp
= nexttoken(cp
)) == NULL
)
241 while (*cp
&& (*wp
++ = *cp
++) != '>');
245 while (*cp
&& (incomm
|| !strchr(separators
, *cp
))) {
247 if (cp
== ap
|| *(cp
- 1) != '\\') {
253 } else if (cp
!= ap
) {
262 while (wp
> wbuf
&& blankspacechar(wp
[-1]))
269 * For each recipient in the passed name list with a /
270 * in the name, append the message to the end of the named file
271 * and remove him from the recipient list.
273 * Recipients whose name begins with | are piped through the given
274 * program and removed.
278 outof(struct name
*names
, FILE *fo
, struct header
*hp
)
281 struct name
*np
, *top
;
293 if (!is_fileaddr(np
->n_name
) && np
->n_name
[0] != '|') {
297 ispipe
= np
->n_name
[0] == '|';
299 fname
= np
->n_name
+1;
301 fname
= expand(np
->n_name
);
304 * See if we have copied the complete message out yet.
311 if ((fout
= Ftemp(&tempEdit
, "Re", "w", 0600, 1))
313 perror(catgets(catd
, CATSET
, 146,
314 "temporary edit file"));
318 image
= open(tempEdit
, O_RDWR
);
322 perror(catgets(catd
, CATSET
, 147,
323 "temporary edit file"));
328 fcntl(image
, F_SETFD
, FD_CLOEXEC
);
329 fprintf(fout
, "From %s %s", myname
, date
);
331 while (lastc
= c
, (c
= getc(fo
)) != EOF
)
339 perror(catgets(catd
, CATSET
, 148,
340 "temporary edit file"));
345 * Now either copy "image" to the desired file
346 * or give it as the standard input to the desired
347 * program as appropriate.
357 * We can't really reuse the same image file,
358 * because multiple piped recipients will
359 * share the same lseek location and trample
362 if ((shell
= value("SHELL")) == NULL
)
365 sigaddset(&nset
, SIGHUP
);
366 sigaddset(&nset
, SIGINT
);
367 sigaddset(&nset
, SIGQUIT
);
368 pid
= start_command(shell
, &nset
,
369 image
, -1, "-c", fname
, NULL
);
377 if ((fout
= Zopen(fname
, "a", NULL
)) == NULL
) {
382 if ((f
= dup(image
)) < 0) {
386 fin
= Fdopen(f
, "r");
388 fprintf(stderr
, catgets(catd
, CATSET
, 149,
389 "Can't reopen image\n"));
395 while ((c
= getc(fin
)) != EOF
)
398 senderr
++, perror(fname
);
404 * In days of old we removed the entry from the
405 * the list; now for sake of header expansion
406 * we leave it in and mark it as deleted.
419 * Determine if the passed address is a local "send to file" address.
420 * If any of the network metacharacters precedes any slashes, it can't
421 * be a filename. We cheat with .'s to allow path names like ./...
424 is_fileaddr(char *name
)
428 if (strchr(name
, '@') != NULL
)
432 for (cp
= name
; *cp
; cp
++) {
433 if (*cp
== '!' || *cp
== '%')
442 same_name(char *n1
, char *n2
)
446 if (value("allnet") != NULL
) {
454 } while (c1
!= '\0' && c2
!= '\0' && c1
!= '@' && c2
!= '@');
457 return asccasecmp(n1
, n2
) == 0;
461 * Map all of the aliased users in the invoker's mailrc
462 * file and insert them into the list.
463 * Changed after all these months of service to recursively
464 * expand names (2/14/80).
468 usermap(struct name
*names
)
470 struct name
*new, *np
, *cp
;
471 struct grouphead
*gh
;
476 metoo
= (value("metoo") != NULL
);
478 if (np
->n_name
[0] == '\\') {
484 gh
= findgroup(np
->n_name
);
487 new = gexpand(new, gh
, metoo
, np
->n_type
);
496 * Recursively expand a group name. We limit the expansion to some
497 * fixed level to keep things from going haywire.
498 * Direct recursion is not expanded for convenience.
502 gexpand(struct name
*nlist
, struct grouphead
*gh
, int metoo
, int ntype
)
505 struct grouphead
*ngh
;
510 if (depth
> MAXEXP
) {
511 printf(catgets(catd
, CATSET
, 150,
512 "Expanding alias to depth larger than %d\n"), MAXEXP
);
516 for (gp
= gh
->g_list
; gp
!= NULL
; gp
= gp
->ge_link
) {
520 if (strcmp(cp
, gh
->g_name
) == 0)
522 if ((ngh
= findgroup(cp
)) != NULL
) {
523 nlist
= gexpand(nlist
, ngh
, metoo
, ntype
);
527 np
= nalloc(cp
, ntype
|GFULL
);
529 * At this point should allow to expand
530 * to self if only person in group
532 if (gp
== gh
->g_list
&& gp
->ge_link
== NULL
)
534 if (!metoo
&& same_name(cp
, myname
))
537 nlist
= put(nlist
, np
);
544 * Concatenate the two passed name lists, return the result.
547 cat(struct name
*n1
, struct name
*n2
)
562 * Unpack the name list onto a vector of strings.
563 * Return an error if the name list won't fit.
566 unpack(struct name
*np
)
570 int t
, extra
, metoo
, verbose
;
573 if ((t
= count(n
)) == 0)
574 panic(catgets(catd
, CATSET
, 151, "No names to unpack"));
576 * Compute the number of extra arguments we will need.
577 * We need at least two extra -- one for "mail" and one for
578 * the terminating 0 pointer. Additional spots may be needed
579 * to pass along -f to the host mailer.
583 metoo
= value("metoo") != NULL
;
586 verbose
= value("verbose") != NULL
;
590 top
= (char **)salloc((t
+ extra
) * sizeof *top
);
598 for (; n
!= NULL
; n
= n
->n_flink
)
599 if ((n
->n_type
& GDEL
) == 0)
606 * Remove all of the duplicates from the passed name list by
607 * insertion sorting them, then checking for dups.
608 * Return the head of the new list.
611 elide(struct name
*names
)
613 struct name
*np
, *t
, *new;
626 while (asccasecmp(t
->n_name
, np
->n_name
) < 0) {
627 if (t
->n_flink
== NULL
)
633 * If we ran out of t's, put the new entry after
634 * the current value of t.
637 if (asccasecmp(t
->n_name
, np
->n_name
) < 0) {
647 * Otherwise, put the new entry in front of the
648 * current t. If at the front of the list,
649 * the new guy becomes the new head of the list.
663 * The normal case -- we are inserting into the
664 * middle of the list.
670 x
->n_blink
= t
->n_blink
;
671 t
->n_blink
->n_flink
= x
;
676 * Now the list headed up by new is sorted.
677 * Go through it and remove duplicates.
683 while (t
->n_flink
!= NULL
&&
684 asccasecmp(np
->n_name
, t
->n_flink
->n_name
) == 0)
686 if (t
== np
|| t
== NULL
) {
692 * Now t points to the last entry with the same name
693 * as np. Make np point beyond t.
696 np
->n_flink
= t
->n_flink
;
697 if (t
->n_flink
!= NULL
)
698 t
->n_flink
->n_blink
= np
;
705 * Put another node onto a list of names and return
709 put(struct name
*list
, struct name
*node
)
711 node
->n_flink
= list
;
712 node
->n_blink
= NULL
;
714 list
->n_blink
= node
;
719 * Determine the number of undeleted elements in
720 * a name list and return it.
723 count(struct name
*np
)
727 for (c
= 0; np
!= NULL
; np
= np
->n_flink
)
728 if ((np
->n_type
& GDEL
) == 0)
734 * Delete the given name from a namelist.
737 delname(struct name
*np
, char *name
)
741 for (p
= np
; p
!= NULL
; p
= p
->n_flink
)
742 if (same_name(p
->n_name
, name
)) {
743 if (p
->n_blink
== NULL
) {
744 if (p
->n_flink
!= NULL
)
745 p
->n_flink
->n_blink
= NULL
;
749 if (p
->n_flink
== NULL
) {
750 if (p
->n_blink
!= NULL
)
751 p
->n_blink
->n_flink
= NULL
;
754 p
->n_blink
->n_flink
= p
->n_flink
;
755 p
->n_flink
->n_blink
= p
->n_blink
;
761 * Pretty print a name list
762 * Uncomment it if you need it.
767 prettyprint(struct name *name)
773 fprintf(stderr, "%s(%d) ", np->n_name, np->n_type);
776 fprintf(stderr, "\n");
781 delete_alternates(struct name
*np
)
786 np
= delname(np
, myname
);
788 for (ap
= altnames
; *ap
; ap
++)
789 np
= delname(np
, *ap
);
790 if ((xp
= sextract(value("from"), GEXTRA
|GSKIN
)) != NULL
)
792 np
= delname(np
, xp
->n_name
);
795 if ((xp
= sextract(value("replyto"), GEXTRA
|GSKIN
)) != NULL
)
797 np
= delname(np
, xp
->n_name
);
800 if ((xp
= sextract(value("sender"), GEXTRA
|GSKIN
)) != NULL
)
802 np
= delname(np
, xp
->n_name
);
809 is_myname(char *name
)
814 if (same_name(myname
, name
))
817 for (ap
= altnames
; *ap
; ap
++)
818 if (same_name(*ap
, name
))
820 if ((xp
= sextract(value("from"), GEXTRA
|GSKIN
)) != NULL
)
822 if (same_name(xp
->n_name
, name
))
826 if ((xp
= sextract(value("replyto"), GEXTRA
|GSKIN
)) != NULL
)
828 if (same_name(xp
->n_name
, name
))
832 if ((xp
= sextract(value("sender"), GEXTRA
|GSKIN
)) != NULL
)
834 if (same_name(xp
->n_name
, name
))