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 (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
23  * Use is subject to license terms.
24  */
25 
26 #pragma ident	"%Z%%M%	%I%	%E% SMI"
27 
28 #include	<ctype.h>
29 #include	<string.h>
30 #include	<stdio.h>
31 #include	<signal.h>
32 #include	<sys/wait.h>
33 #include	<sys/types.h>
34 #include	<sys/stat.h>
35 #include	<stdlib.h>
36 #include	<unistd.h>
37 #include	<time.h>
38 #include	<utmpx.h>
39 #include	<pwd.h>
40 #include	<fcntl.h>
41 #include	<stdarg.h>
42 #include	<locale.h>
43 #include	<stdlib.h>
44 #include	<limits.h>
45 #include	<wctype.h>
46 #include	<errno.h>
47 #include	<syslog.h>
48 
49 #define		TRUE	1
50 #define		FALSE	0
51 #define		FAILURE	-1
52 /*
53  *	DATE-TIME format
54  *  %a	abbreviated weekday name
55  *  %b  abbreviated month name
56  *  %e  day of month
57  *  %H  hour - 24 hour clock
58  *  %M  minute
59  *  %S  second
60  *
61  */
62 
63 extern char myhostname[];
64 extern char progname[];
65 
66 
67 static void openfail(int);
68 static void eof(void);
69 static void setsignals(void (*)());
70 
71 static FILE	*fp;	/* File pointer for receipient's terminal */
72 static char *rterm; /* Pointer to receipient's terminal */
73 
74 int
warn_send(char * receipient,char * msg)75 warn_send(char *receipient, char *msg)
76 {
77 	register struct utmpx *ubuf;
78 	static char rterminal[] = "/dev/\0 2345678901";
79 	extern FILE *fp;
80 	time_t tod;
81 	char time_buf[40];
82 	register int bad = 0;
83 	char	*rcp1, *rcp2, *rcp3;
84 
85 	(void) setlocale(LC_ALL, "");
86 #if !defined(TEXT_DOMAIN)
87 #define	TEXT_DOMAIN "SYS_TEST"
88 #endif
89 	(void) textdomain(TEXT_DOMAIN);
90 
91 
92 /*	Set "rterm" to location where receipient's terminal will go.	*/
93 
94 	rterm = &rterminal[sizeof ("/dev/") - 1];
95 
96 /*
97  * strip any realm or instance from principal so we can match against unix
98  * userid.
99  */
100 	rcp1 = strdup(receipient);
101 	rcp2 = strtok(rcp1, "@");
102 	rcp3 = strtok(rcp2, "/");
103 
104 /*
105  *	Scan through the "utmpx" file for the
106  *	entry for the person we want to send to.
107  */
108 
109 	setutxent();
110 	while ((ubuf = getutxent()) != NULL) {
111 		if (ubuf->ut_type == USER_PROCESS) {
112 			if (strncmp(rcp3, ubuf->ut_user,
113 				sizeof (ubuf->ut_user)) == 0) {
114 				strncpy(rterm, &ubuf->ut_line[0],
115 					sizeof (ubuf->ut_line)+1);
116 
117 /*	Try to open up the line to the receipient's terminal.		*/
118 
119 				signal(SIGALRM, openfail);
120 				alarm(5);
121 				fp = fopen(&rterminal[0], "w");
122 				alarm(0);
123 
124 /*	Catch signals SIGHUP, SIGINT, SIGQUIT, and SIGTERM, and send	*/
125 /*	<EOT> message to receipient.			*/
126 
127 				setsignals(eof);
128 
129 /*	Get the time of day, convert it to a string and throw away the	*/
130 /*	year information at the end of the string.			*/
131 
132 				time(&tod);
133 				cftime(time_buf, "%c", &tod);
134 				(void) fprintf(fp, gettext(
135 	    "\r\n\007\007\007\tMessage from %s@%s [ %s ] ...\r\n"),
136 					    progname, myhostname, time_buf);
137 				sleep(1);
138 				fprintf(fp, gettext("\r\nMessage to %s"), msg);
139 				fflush(fp);
140 
141 /*	Since "end of file" received, send <EOT> message to receipient.	*/
142 
143 				eof();
144 				fclose(fp);
145 			}
146 		}
147 	}
148 	free(rcp1);
149 
150 
151 /*	Did we find a place to talk to?  If we were looking for a */
152 /*	specific spot and didn't find it, complain and log it. */
153 
154 	if (*rterm == '\0')
155 		if (bad > 0) {
156 			(void) syslog(LOG_ERR, gettext("no place to send.\n"));
157 			return (1);
158 		}
159 
160 	endutxent();
161 	return (0);
162 }
163 
164 static void
165 setsignals(catch)
166 void (*catch)();
167 {
168 	signal(SIGHUP, catch);
169 	signal(SIGINT, catch);
170 	signal(SIGQUIT, catch);
171 	signal(SIGTERM, catch);
172 }
173 static void
openfail(int i)174 openfail(int i)
175 {
176 	extern char *rterm;
177 #if 0
178 	(void) fprintf(stderr,
179 		gettext("Timeout trying to open line(%s).\n"),
180 			rterm);
181 #endif
182 	syslog(LOG_ERR, gettext("Timeout trying to open line(%s).\n"),
183 			rterm ? rterm : "");
184 	exit(1);
185 }
186 
187 static void
eof(void)188 eof(void)
189 {
190 	extern FILE *fp;
191 
192 	(void) fprintf(fp, "%s\r\n", gettext("<EOT>"));
193 }
194