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