xref: /titanic_50/usr/src/cmd/bnu/mailst.c (revision f38cb554a534c6df738be3f4d23327e69888e634)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License, Version 1.0 only
6  * (the "License").  You may not use this file except in compliance
7  * with the License.
8  *
9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10  * or http://www.opensolaris.org/os/licensing.
11  * See the License for the specific language governing permissions
12  * and limitations under the License.
13  *
14  * When distributing Covered Code, include this CDDL HEADER in each
15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16  * If applicable, add the following below this CDDL HEADER, with the
17  * fields enclosed by brackets "[]" replaced with your own identifying
18  * information: Portions Copyright [yyyy] [name of copyright owner]
19  *
20  * CDDL HEADER END
21  */
22 /*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
23 /*	  All Rights Reserved  	*/
24 
25 /*
26  * Copyright (c) 2000 by Sun Microsystems, Inc.
27  * All rights reserved.
28  */
29 
30 #ident	"%Z%%M%	%I%	%E% SMI"	/* from SVR4 bnu:mailst.c 2.7 */
31 
32 #include "uucp.h"
33 
34 extern int xfappend();
35 
36 /*
37  * fork and execute a mail command sending
38  * string (str) to user (user).
39  * If file is non-null, the file is also sent.
40  * (this is used for mail returned to sender.)
41  *	user	 -> user to send mail to
42  *	subj	 -> subject for the mail
43  *	str	 -> string mailed to user
44  *	infile	 -> optional stdin mailed to user
45  *	errfile	 -> optional stderr mailed to user
46  */
47 void
48 mailst(user, subj, str, infile, errfile)
49 char *user, *subj, *str, *infile, *errfile;
50 {
51 	register FILE *fp, *fi;
52 	char cmd[BUFSIZ];
53 	char subject[BUFSIZ];
54 	char *c;
55 
56 	/* get rid of some stuff that could be dangerous */
57 	if ( (c = strpbrk(user, Shchar)) != NULL) {
58 		*c = NULLCHAR;
59 	}
60 
61 	/* limit subject to one line */
62 	if ((c = strchr(subj, '\n')) != NULL) {
63 		strncpy(subject, subj, c-subj);
64 		subject[c-subj] = NULLCHAR;
65 		subj = subject;
66 	}
67 
68 	(void) snprintf(cmd, sizeof (cmd), "%s %s '%s'", PATH, MAIL, user);
69 	if ((fp = popen(cmd, "w")) == NULL)
70 		return;
71 	(void) fprintf(fp, "To: %s\nSubject: %s\n\n%s\n", user, subj, str);
72 
73 	/* copy back stderr */
74 	if (*errfile != '\0' && NOTEMPTY(errfile) && (fi = fopen(errfile, "r")) != NULL) {
75 		fputs(gettext("\n\t===== stderr was =====\n"), fp);
76 		if (xfappend(fi, fp) != SUCCESS)
77 			fputs(gettext("\n\t===== well, i tried =====\n"), fp);
78 		(void) fclose(fi);
79 		fputc('\n', fp);
80 	}
81 
82 	/* copy back stdin */
83  	if (*infile) {
84  		if (!NOTEMPTY(infile))
85  			fputs(gettext("\n\t===== stdin was empty =====\n"), fp);
86  		else if (chkpth(infile, CK_READ) == FAIL) {
87  			fputs(gettext( "\n\t===== stdin was"
88 			    " denied read permission =====\n"), fp);
89 			snprintf(cmd, sizeof (cmd),
90 				"user %s, stdin %s", user, infile);
91 			logent(cmd, "DENIED");
92 		}
93  		else if ((fi = fopen(infile, "r")) == NULL) {
94  			fputs(gettext(
95 			    "\n\t===== stdin was unreadable =====\n"), fp);
96 			snprintf(cmd, sizeof (cmd),
97 				"user %s, stdin %s", user, infile);
98 			logent(cmd, "UNREADABLE");
99 		}
100  		else {
101  			fputs(gettext("\n\t===== stdin was =====\n"), fp);
102  			if (xfappend(fi, fp) != SUCCESS)
103  				fputs(gettext(
104 				    "\n\t===== well, i tried =====\n"), fp);
105  			(void) fclose(fi);
106  		}
107 		fputc('\n', fp);
108 	}
109 
110 	(void) pclose(fp);
111 	return;
112 }
113 #ifndef	V7
114 static char un[2*NAMESIZE];
115 void
116 setuucp(p)
117 char *p;
118 {
119    char **envp;
120 
121     envp = Env;
122     for ( ; *envp; envp++) {
123 	if(PREFIX("LOGNAME", *envp)) {
124 	    (void) snprintf(un, sizeof (un), "LOGNAME=%s",p);
125 	    envp[0] = &un[0];
126 	}
127     }
128    return;
129 }
130 #else
131 /*ARGSUSED*/
132 void
133 setuucp(p) char	*p; {}
134 #endif
135