2 * Heirloom mailx - 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
42 static char sccsid
[] = "@(#)names.c 2.22 (gritter) 3/4/06";
47 * Mail -- a mail program
59 static struct name
*tailof(struct name
*name
);
60 static struct name
*extract1(char *line
, enum gfield ntype
, char *separators
,
62 static char *yankword(char *ap
, char *wbuf
, char *separators
, int copypfx
);
63 static int same_name(char *n1
, char *n2
);
64 static struct name
*gexpand(struct name
*nlist
, struct grouphead
*gh
,
65 int metoo
, int ntype
);
66 static struct name
*put(struct name
*list
, struct name
*node
);
67 static struct name
*delname(struct name
*np
, char *name
);
70 * Allocate a single element of a name list,
71 * initialize its name field to the passed
75 nalloc(char *str
, enum gfield ntype
)
81 np
= (struct name
*)salloc(sizeof *np
);
87 np
->n_name
= savestr(skin(str
));
88 if (strcmp(np
->n_name
, str
)) {
91 mime_fromhdr(&in
, &out
, TD_ISPR
|TD_ICONV
);
92 np
->n_fullname
= savestr(out
.s
);
95 np
->n_fullname
= np
->n_name
;
96 } else if (ntype
& GSKIN
)
97 np
->n_fullname
= np
->n_name
= savestr(skin(str
));
99 np
->n_fullname
= np
->n_name
= savestr(str
);
104 ndup(struct name
*np
, enum gfield addtype
)
108 nnp
= (struct name
*)salloc(sizeof *np
);
111 nnp
->n_type
= np
->n_type
| addtype
;
112 nnp
->n_flags
= np
->n_flags
;
113 nnp
->n_name
= savestr(np
->n_name
);
114 nnp
->n_fullname
= (np
->n_name
== np
->n_fullname
) ? nnp
->n_name
115 : savestr(np
->n_fullname
);
120 * Find the tail of a list and return it.
123 tailof(struct name
*name
)
130 while (np
->n_flink
!= NULL
)
136 * Extract a list of names from a line,
137 * and make a list of names from it.
138 * Return the list or NULL if none found.
141 extract(char *line
, enum gfield ntype
)
143 return extract1(line
, ntype
, " \t,(", 0);
147 sextract(char *line
, enum gfield ntype
)
149 if (line
&& strpbrk(line
, ",\"\\(<"))
150 return extract1(line
, ntype
, ",", 1);
152 return extract(line
, ntype
);
156 extract1(char *line
, enum gfield ntype
, char *separators
, int copypfx
)
159 struct name
*top
, *np
, *t
;
161 if (line
== NULL
|| *line
== '\0')
166 nbuf
= ac_alloc(strlen(line
) + 1);
167 while ((cp
= yankword(cp
, nbuf
, separators
, copypfx
)) != NULL
) {
168 t
= nalloc(nbuf
, ntype
);
181 * Turn a list of names into a string of the same names.
184 detract(struct name
*np
, enum gfield ntype
)
191 comma
= ntype
& GCOMMA
;
196 if ((debug
|| value("debug")) && comma
)
197 fprintf(stderr
, catgets(catd
, CATSET
, 145,
198 "detract asked to insert commas\n"));
199 for (p
= np
; p
!= NULL
; p
= p
->n_flink
) {
200 if (ntype
&& (p
->n_type
& GMASK
) != ntype
)
202 s
+= strlen(p
->n_fullname
) + 1;
211 for (p
= np
; p
!= NULL
; p
= p
->n_flink
) {
212 if (ntype
&& (p
->n_type
& GMASK
) != ntype
)
214 cp
= sstpcpy(cp
, p
->n_fullname
);
215 if (comma
&& p
->n_flink
!= NULL
)
220 if (comma
&& *--cp
== ',')
226 * Grab a single word (liberal word)
227 * Throw away things between ()'s, and take anything between <>.
230 yankword(char *ap
, char *wbuf
, char *separators
, int copypfx
)
236 while (blankchar(*cp
& 0377) || *cp
== ',')
239 if ((cp
= nexttoken(cp
)) == NULL
)
245 while (*cp
&& (*wp
++ = *cp
++) != '>');
249 while (*cp
&& (incomm
|| !strchr(separators
, *cp
))) {
251 if (cp
== ap
|| *(cp
- 1) != '\\') {
257 } else if (cp
!= ap
) {
271 * For each recipient in the passed name list with a /
272 * in the name, append the message to the end of the named file
273 * and remove him from the recipient list.
275 * Recipients whose name begins with | are piped through the given
276 * program and removed.
280 outof(struct name
*names
, FILE *fo
, struct header
*hp
)
283 struct name
*np
, *top
;
295 if (!is_fileaddr(np
->n_name
) && np
->n_name
[0] != '|') {
299 ispipe
= np
->n_name
[0] == '|';
301 fname
= np
->n_name
+1;
303 fname
= expand(np
->n_name
);
306 * See if we have copied the complete message out yet.
313 if ((fout
= Ftemp(&tempEdit
, "Re", "w", 0600, 1))
315 perror(catgets(catd
, CATSET
, 146,
316 "temporary edit file"));
320 image
= open(tempEdit
, O_RDWR
);
324 perror(catgets(catd
, CATSET
, 147,
325 "temporary edit file"));
330 fcntl(image
, F_SETFD
, FD_CLOEXEC
);
331 fprintf(fout
, "From %s %s", myname
, date
);
333 while (lastc
= c
, (c
= getc(fo
)) != EOF
)
341 perror(catgets(catd
, CATSET
, 148,
342 "temporary edit file"));
347 * Now either copy "image" to the desired file
348 * or give it as the standard input to the desired
349 * program as appropriate.
359 * We can't really reuse the same image file,
360 * because multiple piped recipients will
361 * share the same lseek location and trample
364 if ((shell
= value("SHELL")) == NULL
)
367 sigaddset(&nset
, SIGHUP
);
368 sigaddset(&nset
, SIGINT
);
369 sigaddset(&nset
, SIGQUIT
);
370 pid
= start_command(shell
, &nset
,
371 image
, -1, "-c", fname
, NULL
);
379 if ((fout
= Zopen(fname
, "a", NULL
)) == NULL
) {
384 if ((f
= dup(image
)) < 0) {
388 fin
= Fdopen(f
, "r");
390 fprintf(stderr
, catgets(catd
, CATSET
, 149,
391 "Can't reopen image\n"));
397 while ((c
= getc(fin
)) != EOF
)
400 senderr
++, perror(fname
);
406 * In days of old we removed the entry from the
407 * the list; now for sake of header expansion
408 * we leave it in and mark it as deleted.
421 * Determine if the passed address is a local "send to file" address.
422 * If any of the network metacharacters precedes any slashes, it can't
423 * be a filename. We cheat with .'s to allow path names like ./...
426 is_fileaddr(char *name
)
430 if (strchr(name
, '@') != NULL
)
434 for (cp
= name
; *cp
; cp
++) {
435 if (*cp
== '!' || *cp
== '%')
444 same_name(char *n1
, char *n2
)
448 if (value("allnet") != NULL
) {
456 } while (c1
!= '\0' && c2
!= '\0' && c1
!= '@' && c2
!= '@');
459 return asccasecmp(n1
, n2
) == 0;
463 * Map all of the aliased users in the invoker's mailrc
464 * file and insert them into the list.
465 * Changed after all these months of service to recursively
466 * expand names (2/14/80).
470 usermap(struct name
*names
)
472 struct name
*new, *np
, *cp
;
473 struct grouphead
*gh
;
478 metoo
= (value("metoo") != NULL
);
480 if (np
->n_name
[0] == '\\') {
486 gh
= findgroup(np
->n_name
);
489 new = gexpand(new, gh
, metoo
, np
->n_type
);
498 * Recursively expand a group name. We limit the expansion to some
499 * fixed level to keep things from going haywire.
500 * Direct recursion is not expanded for convenience.
504 gexpand(struct name
*nlist
, struct grouphead
*gh
, int metoo
, int ntype
)
507 struct grouphead
*ngh
;
512 if (depth
> MAXEXP
) {
513 printf(catgets(catd
, CATSET
, 150,
514 "Expanding alias to depth larger than %d\n"), MAXEXP
);
518 for (gp
= gh
->g_list
; gp
!= NULL
; gp
= gp
->ge_link
) {
522 if (strcmp(cp
, gh
->g_name
) == 0)
524 if ((ngh
= findgroup(cp
)) != NULL
) {
525 nlist
= gexpand(nlist
, ngh
, metoo
, ntype
);
529 np
= nalloc(cp
, ntype
|GFULL
);
531 * At this point should allow to expand
532 * to self if only person in group
534 if (gp
== gh
->g_list
&& gp
->ge_link
== NULL
)
536 if (!metoo
&& same_name(cp
, myname
))
539 nlist
= put(nlist
, np
);
546 * Concatenate the two passed name lists, return the result.
549 cat(struct name
*n1
, struct name
*n2
)
564 * Unpack the name list onto a vector of strings.
565 * Return an error if the name list won't fit.
568 unpack(struct name
*np
)
572 int t
, extra
, metoo
, verbose
;
575 if ((t
= count(n
)) == 0)
576 panic(catgets(catd
, CATSET
, 151, "No names to unpack"));
578 * Compute the number of extra arguments we will need.
579 * We need at least two extra -- one for "mail" and one for
580 * the terminating 0 pointer. Additional spots may be needed
581 * to pass along -f to the host mailer.
585 metoo
= value("metoo") != NULL
;
588 verbose
= value("verbose") != NULL
;
592 top
= (char **)salloc((t
+ extra
) * sizeof *top
);
600 for (; n
!= NULL
; n
= n
->n_flink
)
601 if ((n
->n_type
& GDEL
) == 0)
608 * Remove all of the duplicates from the passed name list by
609 * insertion sorting them, then checking for dups.
610 * Return the head of the new list.
613 elide(struct name
*names
)
615 struct name
*np
, *t
, *new;
628 while (asccasecmp(t
->n_name
, np
->n_name
) < 0) {
629 if (t
->n_flink
== NULL
)
635 * If we ran out of t's, put the new entry after
636 * the current value of t.
639 if (asccasecmp(t
->n_name
, np
->n_name
) < 0) {
649 * Otherwise, put the new entry in front of the
650 * current t. If at the front of the list,
651 * the new guy becomes the new head of the list.
665 * The normal case -- we are inserting into the
666 * middle of the list.
672 x
->n_blink
= t
->n_blink
;
673 t
->n_blink
->n_flink
= x
;
678 * Now the list headed up by new is sorted.
679 * Go through it and remove duplicates.
685 while (t
->n_flink
!= NULL
&&
686 asccasecmp(np
->n_name
, t
->n_flink
->n_name
) == 0)
688 if (t
== np
|| t
== NULL
) {
694 * Now t points to the last entry with the same name
695 * as np. Make np point beyond t.
698 np
->n_flink
= t
->n_flink
;
699 if (t
->n_flink
!= NULL
)
700 t
->n_flink
->n_blink
= np
;
707 * Put another node onto a list of names and return
711 put(struct name
*list
, struct name
*node
)
713 node
->n_flink
= list
;
714 node
->n_blink
= NULL
;
716 list
->n_blink
= node
;
721 * Determine the number of undeleted elements in
722 * a name list and return it.
725 count(struct name
*np
)
729 for (c
= 0; np
!= NULL
; np
= np
->n_flink
)
730 if ((np
->n_type
& GDEL
) == 0)
736 * Delete the given name from a namelist.
739 delname(struct name
*np
, char *name
)
743 for (p
= np
; p
!= NULL
; p
= p
->n_flink
)
744 if (same_name(p
->n_name
, name
)) {
745 if (p
->n_blink
== NULL
) {
746 if (p
->n_flink
!= NULL
)
747 p
->n_flink
->n_blink
= NULL
;
751 if (p
->n_flink
== NULL
) {
752 if (p
->n_blink
!= NULL
)
753 p
->n_blink
->n_flink
= NULL
;
756 p
->n_blink
->n_flink
= p
->n_flink
;
757 p
->n_flink
->n_blink
= p
->n_blink
;
763 * Pretty print a name list
764 * Uncomment it if you need it.
769 prettyprint(struct name *name)
775 fprintf(stderr, "%s(%d) ", np->n_name, np->n_type);
778 fprintf(stderr, "\n");
783 delete_alternates(struct name
*np
)
788 np
= delname(np
, myname
);
790 for (ap
= altnames
; *ap
; ap
++)
791 np
= delname(np
, *ap
);
792 if ((xp
= sextract(value("from"), GEXTRA
|GSKIN
)) != NULL
)
794 np
= delname(np
, xp
->n_name
);
797 if ((xp
= sextract(value("replyto"), GEXTRA
|GSKIN
)) != NULL
)
799 np
= delname(np
, xp
->n_name
);
802 if ((xp
= sextract(value("sender"), GEXTRA
|GSKIN
)) != NULL
)
804 np
= delname(np
, xp
->n_name
);
811 is_myname(char *name
)
816 if (same_name(myname
, name
))
819 for (ap
= altnames
; *ap
; ap
++)
820 if (same_name(*ap
, name
))
822 if ((xp
= sextract(value("from"), GEXTRA
|GSKIN
)) != NULL
)
824 if (same_name(xp
->n_name
, name
))
828 if ((xp
= sextract(value("replyto"), GEXTRA
|GSKIN
)) != NULL
)
830 if (same_name(xp
->n_name
, name
))
834 if ((xp
= sextract(value("sender"), GEXTRA
|GSKIN
)) != NULL
)
836 if (same_name(xp
->n_name
, name
))