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 addtype
)
102 nnp
= (struct name
*)salloc(sizeof *np
);
105 nnp
->n_type
= np
->n_type
| addtype
;
106 nnp
->n_flags
= np
->n_flags
;
107 nnp
->n_name
= savestr(np
->n_name
);
108 nnp
->n_fullname
= (np
->n_name
== np
->n_fullname
) ? nnp
->n_name
109 : savestr(np
->n_fullname
);
114 * Find the tail of a list and return it.
117 tailof(struct name
*name
)
124 while (np
->n_flink
!= NULL
)
130 * Extract a list of names from a line,
131 * and make a list of names from it.
132 * Return the list or NULL if none found.
135 extract(char *line
, enum gfield ntype
)
137 return extract1(line
, ntype
, " \t,(", 0);
141 sextract(char *line
, enum gfield ntype
)
143 if (line
&& strpbrk(line
, ",\"\\(<"))
144 return extract1(line
, ntype
, ",", 1);
146 return extract(line
, ntype
);
150 extract1(char *line
, enum gfield ntype
, char *separators
, int copypfx
)
153 struct name
*top
, *np
, *t
;
155 if (line
== NULL
|| *line
== '\0')
160 nbuf
= ac_alloc(strlen(line
) + 1);
161 while ((cp
= yankword(cp
, nbuf
, separators
, copypfx
)) != NULL
) {
162 t
= nalloc(nbuf
, ntype
);
175 * Turn a list of names into a string of the same names.
178 detract(struct name
*np
, enum gfield ntype
)
185 comma
= ntype
& GCOMMA
;
190 if ((debug
|| value("debug")) && comma
)
191 fprintf(stderr
, catgets(catd
, CATSET
, 145,
192 "detract asked to insert commas\n"));
193 for (p
= np
; p
!= NULL
; p
= p
->n_flink
) {
194 if (ntype
&& (p
->n_type
& GMASK
) != ntype
)
196 s
+= strlen(p
->n_fullname
) + 1;
205 for (p
= np
; p
!= NULL
; p
= p
->n_flink
) {
206 if (ntype
&& (p
->n_type
& GMASK
) != ntype
)
208 cp
= sstpcpy(cp
, p
->n_fullname
);
209 if (comma
&& p
->n_flink
!= NULL
)
214 if (comma
&& *--cp
== ',')
220 * Grab a single word (liberal word)
221 * Throw away things between ()'s, and take anything between <>.
222 * Strip trailing whitespace as *ap* may come directly from user.
225 yankword(char *ap
, char *wbuf
, char *separators
, int copypfx
)
231 while (blankchar(*cp
& 0377) || *cp
== ',')
234 if ((cp
= nexttoken(cp
)) == NULL
)
240 while (*cp
&& (*wp
++ = *cp
++) != '>');
244 while (*cp
&& (incomm
|| !strchr(separators
, *cp
))) {
246 if (cp
== ap
|| *(cp
- 1) != '\\') {
252 } else if (cp
!= ap
) {
261 while (wp
> wbuf
&& blankspacechar(wp
[-1]))
268 * For each recipient in the passed name list with a /
269 * in the name, append the message to the end of the named file
270 * and remove him from the recipient list.
272 * Recipients whose name begins with | are piped through the given
273 * program and removed.
277 outof(struct name
*names
, FILE *fo
, struct header
*hp
)
280 struct name
*np
, *top
;
292 if (!is_fileaddr(np
->n_name
) && np
->n_name
[0] != '|') {
296 ispipe
= np
->n_name
[0] == '|';
298 fname
= np
->n_name
+1;
300 fname
= expand(np
->n_name
);
303 * See if we have copied the complete message out yet.
310 if ((fout
= Ftemp(&tempEdit
, "Re", "w", 0600, 1))
312 perror(catgets(catd
, CATSET
, 146,
313 "temporary edit file"));
317 image
= open(tempEdit
, O_RDWR
);
321 perror(catgets(catd
, CATSET
, 147,
322 "temporary edit file"));
327 fcntl(image
, F_SETFD
, FD_CLOEXEC
);
328 fprintf(fout
, "From %s %s", myname
, date
);
330 while (lastc
= c
, (c
= getc(fo
)) != EOF
)
338 perror(catgets(catd
, CATSET
, 148,
339 "temporary edit file"));
344 * Now either copy "image" to the desired file
345 * or give it as the standard input to the desired
346 * program as appropriate.
356 * We can't really reuse the same image file,
357 * because multiple piped recipients will
358 * share the same lseek location and trample
361 if ((shell
= value("SHELL")) == NULL
)
364 sigaddset(&nset
, SIGHUP
);
365 sigaddset(&nset
, SIGINT
);
366 sigaddset(&nset
, SIGQUIT
);
367 pid
= start_command(shell
, &nset
,
368 image
, -1, "-c", fname
, NULL
);
376 if ((fout
= Zopen(fname
, "a", NULL
)) == NULL
) {
381 if ((f
= dup(image
)) < 0) {
385 fin
= Fdopen(f
, "r");
387 fprintf(stderr
, catgets(catd
, CATSET
, 149,
388 "Can't reopen image\n"));
394 while ((c
= getc(fin
)) != EOF
)
397 senderr
++, perror(fname
);
403 * In days of old we removed the entry from the
404 * the list; now for sake of header expansion
405 * we leave it in and mark it as deleted.
418 * Determine if the passed address is a local "send to file" address.
419 * If any of the network metacharacters precedes any slashes, it can't
420 * be a filename. We cheat with .'s to allow path names like ./...
423 is_fileaddr(char *name
)
427 if (strchr(name
, '@') != NULL
)
431 for (cp
= name
; *cp
; cp
++) {
432 if (*cp
== '!' || *cp
== '%')
441 same_name(char *n1
, char *n2
)
445 if (value("allnet") != NULL
) {
453 } while (c1
!= '\0' && c2
!= '\0' && c1
!= '@' && c2
!= '@');
456 return asccasecmp(n1
, n2
) == 0;
460 * Map all of the aliased users in the invoker's mailrc
461 * file and insert them into the list.
462 * Changed after all these months of service to recursively
463 * expand names (2/14/80).
467 usermap(struct name
*names
)
469 struct name
*new, *np
, *cp
;
470 struct grouphead
*gh
;
475 metoo
= (value("metoo") != NULL
);
477 if (np
->n_name
[0] == '\\') {
483 gh
= findgroup(np
->n_name
);
486 new = gexpand(new, gh
, metoo
, np
->n_type
);
495 * Recursively expand a group name. We limit the expansion to some
496 * fixed level to keep things from going haywire.
497 * Direct recursion is not expanded for convenience.
501 gexpand(struct name
*nlist
, struct grouphead
*gh
, int metoo
, int ntype
)
504 struct grouphead
*ngh
;
509 if (depth
> MAXEXP
) {
510 printf(catgets(catd
, CATSET
, 150,
511 "Expanding alias to depth larger than %d\n"), MAXEXP
);
515 for (gp
= gh
->g_list
; gp
!= NULL
; gp
= gp
->ge_link
) {
519 if (strcmp(cp
, gh
->g_name
) == 0)
521 if ((ngh
= findgroup(cp
)) != NULL
) {
522 nlist
= gexpand(nlist
, ngh
, metoo
, ntype
);
526 np
= nalloc(cp
, ntype
|GFULL
);
528 * At this point should allow to expand
529 * to self if only person in group
531 if (gp
== gh
->g_list
&& gp
->ge_link
== NULL
)
533 if (!metoo
&& same_name(cp
, myname
))
536 nlist
= put(nlist
, np
);
543 * Concatenate the two passed name lists, return the result.
546 cat(struct name
*n1
, struct name
*n2
)
561 * Unpack the name list onto a vector of strings.
562 * Return an error if the name list won't fit.
565 unpack(struct name
*np
)
569 int t
, extra
, metoo
, verbose
;
572 if ((t
= count(n
)) == 0)
573 panic(catgets(catd
, CATSET
, 151, "No names to unpack"));
575 * Compute the number of extra arguments we will need.
576 * We need at least two extra -- one for "mail" and one for
577 * the terminating 0 pointer. Additional spots may be needed
578 * to pass along -f to the host mailer.
582 metoo
= value("metoo") != NULL
;
585 verbose
= value("verbose") != NULL
;
589 top
= (char **)salloc((t
+ extra
) * sizeof *top
);
597 for (; n
!= NULL
; n
= n
->n_flink
)
598 if ((n
->n_type
& GDEL
) == 0)
605 * Remove all of the duplicates from the passed name list by
606 * insertion sorting them, then checking for dups.
607 * Return the head of the new list.
610 elide(struct name
*names
)
612 struct name
*np
, *t
, *new;
625 while (asccasecmp(t
->n_name
, np
->n_name
) < 0) {
626 if (t
->n_flink
== NULL
)
632 * If we ran out of t's, put the new entry after
633 * the current value of t.
636 if (asccasecmp(t
->n_name
, np
->n_name
) < 0) {
646 * Otherwise, put the new entry in front of the
647 * current t. If at the front of the list,
648 * the new guy becomes the new head of the list.
662 * The normal case -- we are inserting into the
663 * middle of the list.
669 x
->n_blink
= t
->n_blink
;
670 t
->n_blink
->n_flink
= x
;
675 * Now the list headed up by new is sorted.
676 * Go through it and remove duplicates.
682 while (t
->n_flink
!= NULL
&&
683 asccasecmp(np
->n_name
, t
->n_flink
->n_name
) == 0)
685 if (t
== np
|| t
== NULL
) {
691 * Now t points to the last entry with the same name
692 * as np. Make np point beyond t.
695 np
->n_flink
= t
->n_flink
;
696 if (t
->n_flink
!= NULL
)
697 t
->n_flink
->n_blink
= np
;
704 * Put another node onto a list of names and return
708 put(struct name
*list
, struct name
*node
)
710 node
->n_flink
= list
;
711 node
->n_blink
= NULL
;
713 list
->n_blink
= node
;
718 * Determine the number of undeleted elements in
719 * a name list and return it.
722 count(struct name
*np
)
726 for (c
= 0; np
!= NULL
; np
= np
->n_flink
)
727 if ((np
->n_type
& GDEL
) == 0)
733 * Delete the given name from a namelist.
736 delname(struct name
*np
, char *name
)
740 for (p
= np
; p
!= NULL
; p
= p
->n_flink
)
741 if (same_name(p
->n_name
, name
)) {
742 if (p
->n_blink
== NULL
) {
743 if (p
->n_flink
!= NULL
)
744 p
->n_flink
->n_blink
= NULL
;
748 if (p
->n_flink
== NULL
) {
749 if (p
->n_blink
!= NULL
)
750 p
->n_blink
->n_flink
= NULL
;
753 p
->n_blink
->n_flink
= p
->n_flink
;
754 p
->n_flink
->n_blink
= p
->n_blink
;
760 * Pretty print a name list
761 * Uncomment it if you need it.
766 prettyprint(struct name *name)
772 fprintf(stderr, "%s(%d) ", np->n_name, np->n_type);
775 fprintf(stderr, "\n");
780 delete_alternates(struct name
*np
)
785 np
= delname(np
, myname
);
787 for (ap
= altnames
; *ap
; ap
++)
788 np
= delname(np
, *ap
);
789 if ((xp
= sextract(value("from"), GEXTRA
|GSKIN
)) != NULL
)
791 np
= delname(np
, xp
->n_name
);
794 if ((xp
= sextract(value("replyto"), GEXTRA
|GSKIN
)) != NULL
)
796 np
= delname(np
, xp
->n_name
);
799 if ((xp
= sextract(value("sender"), GEXTRA
|GSKIN
)) != NULL
)
801 np
= delname(np
, xp
->n_name
);
808 is_myname(char *name
)
813 if (same_name(myname
, name
))
816 for (ap
= altnames
; *ap
; ap
++)
817 if (same_name(*ap
, name
))
819 if ((xp
= sextract(value("from"), GEXTRA
|GSKIN
)) != NULL
)
821 if (same_name(xp
->n_name
, name
))
825 if ((xp
= sextract(value("replyto"), GEXTRA
|GSKIN
)) != NULL
)
827 if (same_name(xp
->n_name
, name
))
831 if ((xp
= sextract(value("sender"), GEXTRA
|GSKIN
)) != NULL
)
833 if (same_name(xp
->n_name
, name
))