xref: /illumos-gate/usr/src/ucbcmd/install.d/install.c (revision 8c0b080c8ed055a259d8cd26b9f005211c6a9753)
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 1996 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  * University Copyright- Copyright (c) 1982, 1986, 1988
32  * The Regents of the University of California
33  * All Rights Reserved
34  *
35  * University Acknowledgment- Portions of this document are derived from
36  * software developed by the University of California, Berkeley, and its
37  * contributors.
38  */
39 
40 #include <sys/param.h>
41 #include <sys/types.h>
42 #include <sys/stat.h>
43 #include <sys/file.h>
44 #include <fcntl.h>
45 #include <grp.h>
46 #include <pwd.h>
47 #include <stdio.h>
48 #include <ctype.h>
49 #include <errno.h>
50 #include <locale.h>
51 
52 #define	DEF_GROUP	"staff"		/* default group */
53 #define	DEF_OWNER	"root"		/* default owner */
54 #define	DEF_MODE	0755		/* default mode */
55 
56 char *group = DEF_GROUP;
57 char *owner = DEF_OWNER;
58 int mode    = DEF_MODE;
59 int sflag = 0;
60 struct passwd *pp;
61 struct group *gp;
62 extern int errno;
63 int copy();
64 void usage();
65 
66 int
main(int argc,char ** argv)67 main(int argc, char **argv)
68 {
69 	extern char	*optarg;
70 	extern int	optind;
71 	struct stat	stb;
72 	char	*dirname;
73 	int	ch;
74 	int	i;
75 	int	rc;
76 	int	dflag = 0;
77 	int	gflag = 0;
78 	int	oflag = 0;
79 	int	mflag = 0;
80 
81 	(void) setlocale(LC_ALL, "");
82 
83 #if !defined(TEXT_DOMAIN)
84 #define TEXT_DOMAIN "SYS_TEST"
85 #endif
86 	(void) textdomain(TEXT_DOMAIN);
87 
88 	while ((ch = getopt(argc, argv, "dcg:o:m:s")) != EOF)
89 		switch((char)ch) {
90 		case 'c':
91 			break;	/* always do "copy" */
92 		case 'd':
93 			dflag++;
94 			break;
95 		case 'g':
96 			gflag++;
97 			group = optarg;
98 			break;
99 		case 'm':
100 			mflag++;
101 			mode = atoo(optarg);
102 			break;
103 		case 'o':
104 			oflag++;
105 			owner = optarg;
106 			break;
107 		case 's':
108 			sflag++;
109 			break;
110 		case '?':
111 		default:
112 			usage();
113 		}
114 	argc -= optind;
115 	argv += optind;
116 
117 	/* get group and owner id's */
118 	if (!(gp = getgrnam(group))) {
119 		fprintf(stderr, gettext("install: unknown group %s.\n"), group);
120 		exit(1);
121 	}
122 	if (!(pp = getpwnam(owner))) {
123 		fprintf(stderr, gettext("install: unknown user %s.\n"), owner);
124 		exit(1);
125 	}
126 
127 	if (dflag) {		/* install a directory */
128 		int exists = 0;
129 
130 		if (argc != 1)
131 			usage();
132 		dirname = argv[0];
133 		if (mkdirp(dirname, 0777) < 0) {
134 			exists = errno == EEXIST;
135 			if (!exists) {
136 				fprintf(stderr, gettext("install: mkdir: %s: %s\n"), dirname, strerror(errno));
137 				exit(1);
138 			}
139 		}
140 		if (stat(dirname, &stb) < 0) {
141 			fprintf(stderr, gettext("install: stat: %s: %s\n"), dirname, strerror(errno));
142 			exit(1);
143 		}
144 		if ((stb.st_mode&S_IFMT) != S_IFDIR) {
145 			fprintf(stderr, gettext("install: %s is not a directory\n"), dirname);
146 		}
147 		/* make sure directory setgid bit is inherited */
148 		mode = (mode & ~S_ISGID) | (stb.st_mode & S_ISGID);
149 		if (mflag && chmod(dirname, mode)) {
150 			fprintf(stderr, gettext("install: chmod: %s: %s\n"), dirname, strerror(errno));
151 			if (!exists)
152 				(void) unlink(dirname);
153 			exit(1) ;
154 		}
155 		if (oflag && chown(dirname, pp->pw_uid, -1) && errno != EPERM) {
156 			fprintf(stderr, gettext("install: chown: %s: %s\n"), dirname, strerror(errno));
157 			if (!exists)
158 				(void) unlink(dirname);
159 			exit(1) ;
160 		}
161 		if (gflag && chown(dirname, -1, gp->gr_gid) && errno != EPERM) {
162 			fprintf(stderr, gettext("install: chgrp: %s: %s\n"), dirname, strerror(errno));
163 			if (!exists)
164 				(void) unlink(dirname);
165 			exit(1) ;
166 		}
167 		exit(0);
168 	}
169 
170 	if (argc < 2)
171 		usage();
172 
173         if (argc > 2) {		/* last arg must be a directory */
174                 if (stat(argv[argc-1], &stb) < 0)
175                         usage();
176                 if ((stb.st_mode&S_IFMT) != S_IFDIR)
177                         usage();
178         }
179         rc = 0;
180         for (i = 0; i < argc-1; i++)
181                 rc |= install(argv[i], argv[argc-1]);
182         return (rc);
183 }
184 
185 int
install(from,to)186 install(from, to)
187 	char *from, *to;
188 {
189 	int to_fd;
190 	int devnull;
191 	int status = 0;
192 	char *path;
193 	struct stat from_sb, to_sb;
194 	static char pbuf[MAXPATHLEN];
195 	char buf[MAXPATHLEN + 10];
196 
197 	/* check source */
198 	if (stat(from, &from_sb)) {
199 		fprintf(stderr, gettext("install: %s: %s\n"), from, strerror(errno));
200 		return (1);
201 	}
202 	/* special case for removing files */
203 	devnull = !strcmp(from, "/dev/null");
204 	if (!devnull && !((from_sb.st_mode&S_IFMT) == S_IFREG)) {
205 		fprintf(stderr, gettext("install: %s isn't a regular file.\n"), from);
206 		return (1);
207 	}
208 
209 	/* build target path, find out if target is same as source */
210 	if (!stat(path = to, &to_sb)) {
211 		if ((to_sb.st_mode&S_IFMT) == S_IFDIR) {
212 			char *C, *strrchr();
213 
214 			(void) sprintf(path = pbuf, "%s/%s", to, (C = strrchr(from, '/')) ? ++C : from);
215 			if (stat(path, &to_sb))
216 				goto nocompare;
217 		}
218 		if ((to_sb.st_mode&S_IFMT) != S_IFREG) {
219 			fprintf(stderr, gettext("install: %s isn't a regular file.\n"), path);
220 			return (1);
221 		}
222 		if (to_sb.st_dev == from_sb.st_dev && to_sb.st_ino == from_sb.st_ino) {
223 			fprintf(stderr, gettext("install: %s and %s are the same file.\n"), from, path);
224 			return (1);
225 		}
226 		/* unlink now... avoid ETXTBSY errors later */
227 		(void) unlink(path);
228 	}
229 
230 nocompare:
231 	/* open target, set mode, owner, group */
232 	if ((to_fd = open(path, O_CREAT|O_WRONLY|O_TRUNC, 0)) < 0) {
233 		fprintf(stderr, gettext("install: %s: %s\n"), path, strerror(errno));
234 		return (1);
235 	}
236 	if (fchmod(to_fd, mode)) {
237 		fprintf(stderr, gettext("install: chmod: %s: %s\n"), path, strerror(errno));
238 		status = 1;
239 		close(to_fd);
240 		goto inst_done;
241 	}
242 	if (!devnull) {
243 		status = copy(from, to_fd, path);  /* copy */
244 		close(to_fd);
245 	}
246 	if (sflag) {
247 		sprintf(buf, "strip %s", path);
248 		system(buf);
249 	}
250 	if (chown(path, pp->pw_uid, gp->gr_gid) && errno != EPERM) {
251 		fprintf(stderr, gettext("install: chown: %s: %s\n"), path, strerror(errno));
252 		status = 1;
253 	}
254 
255 inst_done:
256 	if (status)
257 		(void) unlink(path);
258 	return (status);
259 }
260 
261 /*
262  * copy --
263  *	copy from one file to another
264  */
265 int
copy(from_name,to_fd,to_name)266 copy(from_name, to_fd, to_name)
267 	int to_fd;
268 	char *from_name, *to_name;
269 {
270 	int n, from_fd;
271 	int status = 0;
272 	char buf[MAXBSIZE];
273 
274 	if ((from_fd = open(from_name, O_RDONLY, 0)) < 0) {
275 		fprintf(stderr, gettext("install: open: %s: %s\n"), from_name, strerror(errno));
276 		return (1);
277 	}
278 	while ((n = read(from_fd, buf, sizeof(buf))) > 0)
279 		if (write(to_fd, buf, n) != n) {
280 			fprintf(stderr, gettext("install: write: %s: %s\n"), to_name, strerror(errno));
281 		status = 1;
282 		goto copy_done;
283 		}
284 	if (n == -1) {
285 		fprintf(stderr, gettext("install: read: %s: %s\n"), from_name, strerror(errno));
286 		status = 1;
287 		goto copy_done;
288 	}
289 
290 copy_done:
291 	(void) close(from_fd);
292 	return (status);
293 }
294 
295 /*
296  * atoo --
297  *      octal string to int
298  */
299 int
atoo(str)300 atoo(str)
301         char   *str;
302 {
303         int    val;
304 
305         for (val = 0; isdigit(*str); ++str)
306                 val = val * 8 + *str - '0';
307         return(val);
308 }
309 
310 
311 /*
312  * usage --
313  *	print a usage message and die
314  */
315 void
usage()316 usage()
317 {
318 	fputs(gettext("usage: install [-cs] [-g group] [-m mode] [-o owner] file ...  destination\n"), stderr);
319 	fputs(gettext("       install  -d   [-g group] [-m mode] [-o owner] dir\n"), stderr);
320 	exit(1);
321 }
322 
323 /*
324  * mkdirp --
325  *	make a directory and parents if needed
326  */
327 int
mkdirp(dir,mode)328 mkdirp(dir, mode)
329 	char *dir;
330 	int mode;
331 {
332 	int err;
333 	char *slash;
334 	char *strrchr();
335 	extern int errno;
336 
337 	if (mkdir(dir, mode) == 0)
338 		return (0);
339 	if (errno != ENOENT)
340 		return (-1);
341 	slash = strrchr(dir, '/');
342 	if (slash == NULL)
343 		return (-1);
344 	*slash = '\0';
345 	err = mkdirp(dir, 0777);
346 	*slash = '/';
347 	if (err)
348 		return (err);
349 	return mkdir(dir, mode);
350 }
351