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/*
23 * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
24 * Use is subject to license terms.
25 */
26
27/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
28/*	  All Rights Reserved  	*/
29
30
31#pragma ident	"%Z%%M%	%I%	%E% SMI"
32
33#include <unistd.h>
34#include <stdarg.h>
35#include <stdlib.h>
36#include <stdio.h>
37#include <errno.h>
38#include <sys/types.h>
39#include <ctype.h>
40#include <string.h>
41#include <sys/stat.h>
42#include <fcntl.h>
43#include <sys/stropts.h>
44#include <sys/sad.h>
45#include "ttymon.h"
46#include "tmstruct.h"
47#include "tmextern.h"
48
49#define	NSTRPUSH	9	/* should agree with the tunable in	*/
50				/* 		/etc/master.d/kernel	*/
51
52/*
53 *	check_device - check to see if the device exists,
54 *		     - and if it is a character device
55 *		     - return 0 if everything is ok. Otherwise, return -1
56 */
57int
58check_device(char *device)
59{
60	struct stat statbuf;
61
62	if ((device == NULL) || (*device == '\0')) {
63		log("error -- device field is missing");
64		return(-1);
65	}
66	if (*device != '/') {
67		log("error -- must specify full path name for \"%s\".", device);
68		return(-1);
69	}
70	if (access(device, 0) == 0) {
71		if (stat(device,&statbuf) < 0) {
72			log("stat(%s) failed: %s", device, strerror(errno));
73			return(-1);
74		}
75		if ((statbuf.st_mode & S_IFMT) != S_IFCHR) {
76			log("error -- \"%s\" not character special device",
77			    device);
78			return(-1);
79		}
80	}
81	else {
82		log("error -- device \"%s\" does not exist", device);
83		return(-1);
84	}
85	return(0);
86}
87
88/*
89 *	check_cmd - check to see if the cmd file exists,
90 *		  - and if it is executable
91 *		  - return 0 if everything is ok. Otherwise, return -1
92 */
93int
94check_cmd(char *cmd)
95{
96	struct stat statbuf;
97	char	tbuf[BUFSIZ];
98	char	*tp = tbuf;
99
100	if ((cmd == NULL) || (*cmd == '\0')) {
101		log("error -- server command is missing");
102		return(-1);
103	}
104	(void)strcpy(tp,cmd);
105	(void)strtok(tp, " \t");
106	if (*tp != '/') {
107		log("error -- must specify full path name for \"%s\".", tp);
108		return(-1);
109	}
110	if (access(tp, 0) == 0) {
111		if (stat(tp,&statbuf) < 0) {
112			log("stat(%s) failed.", tp);
113			return(-1);
114		}
115		if (!(statbuf.st_mode & 0111)) {
116			log("error -- \"%s\" not executable\n", tp);
117			return(-1);
118		}
119		if ((statbuf.st_mode & S_IFMT) != S_IFREG) {
120			log("error -- \"%s\" not a regular file", tp);
121			return(-1);
122		}
123	}
124	else {
125		log("error -- \"%s\" does not exist", tp);
126		return(-1);
127	}
128	return(0);
129}
130
131/*
132 * strcheck(sp, flag)	- check string
133 *				- if flag == ALNUM, all char. are expected to
134 *				  be alphanumeric
135 *				- if flag == NUM, all char. are expected to
136 *				  be digits and the number must be >= 0
137 *				- return 0 if successful, -1 if failed.
138 */
139int
140strcheck(sp, flag)
141char	*sp;		/* string ptr		*/
142int	flag;		/* either NUM or ALNUM	*/
143{
144	register	char	*cp;
145	if (flag == NUM) {
146		for (cp = sp; *cp; cp++) {
147			if (!isdigit(*cp)) {
148				return(-1);
149			}
150		}
151	}
152	else {	/* (flag == ALNUM) */
153		for (cp = sp; *cp; cp++) {
154			if (!isalnum(*cp)) {
155				return(-1);
156			}
157		}
158	}
159	return(0);
160}
161
162/*
163 * vml(modules)	- validate a list of modules
164 *		- return 0 if successful, -1 if failed
165 */
166int
167vml(modules)
168char	*modules;
169{
170	char	*modp, *svmodp;
171	int	i, fd;
172	struct str_mlist newmods[NSTRPUSH];	/* modlist for newlist	*/
173	struct str_list	newlist;		/* modules to be pushed	*/
174
175	if ((modules == NULL) || (*modules == '\0'))
176		return(0);
177
178	newlist.sl_modlist = newmods;
179	newlist.sl_nmods = NSTRPUSH;
180	if ((modp = malloc(strlen(modules) + 1)) == NULL) {
181		log("vml: malloc failed");
182		return (-1);
183	};
184	svmodp = modp;
185	(void)strcpy(modp, modules);
186	/*
187	 * pull mod names out of comma-separated list
188	 */
189	for ( i = 0, modp = strtok(modp, ",");
190	modp != NULL; i++, modp = strtok(NULL, ",") ) {
191		if ( i >= NSTRPUSH) {
192			log("too many modules in <%s>", modules);
193			i = -1;
194			break;
195		}
196		(void)strncpy(newlist.sl_modlist[i].l_name,
197					modp, FMNAMESZ);
198		newlist.sl_modlist[i].l_name[FMNAMESZ] = '\0';
199	}
200	free(svmodp);
201	if (i == -1)
202		return (-1);
203	newlist.sl_nmods = i;
204
205	/*
206	 * Is it a valid list of modules?
207	 */
208	if ((fd = open(USERDEV, O_RDWR)) == -1) {
209		if (errno == EBUSY) {
210			log("Warning - can't validate module list, /dev/sad/user busy");
211			return(0);
212		}
213		log("open /dev/sad/user failed: %s", strerror(errno));
214		return(-1);
215	}
216	if ( (i = ioctl(fd, SAD_VML, &newlist)) < 0 ) {
217		log("Validate modules ioctl failed, modules = <%s>: %s",
218		    modules, strerror(errno));
219		(void)close(fd);
220		return(-1);
221	}
222	if ( i != 0 ) {
223		log("Error - invalid STREAMS module list <%s>.", modules);
224		(void)close(fd);
225		return(-1);
226	}
227	(void)close(fd);
228	return(0);
229}
230
231/*
232 * copystr(s1, s2) - copy string s2 to string s1
233 *		   - also put '\' in front of ':'
234 */
235void
236copystr(s1,s2)
237char	*s1, *s2;
238{
239	while (*s2) {
240		if (*s2 == ':') {
241			*s1++ = '\\';
242		}
243		*s1++ = *s2++;
244	}
245	*s1 = '\0';
246}
247
248/*PRINTFLIKE1*/
249void
250cons_printf(const char *fmt, ...)
251{
252	char buf[MAXPATHLEN * 2]; /* enough space for msg including a path */
253	int fd;
254	va_list ap;
255
256	va_start(ap, fmt);
257	(void) vsnprintf(buf, sizeof (buf), fmt, ap);
258	va_end(ap);
259
260	if ((fd = open(CONSOLE, O_WRONLY|O_NOCTTY)) != -1)
261		(void) write(fd, buf, strlen(buf) + 1);
262	(void) close(fd);
263}
264