xref: /freebsd/bin/mv/mv.c (revision ae83180158c4c937f170e31eff311b18c0286a93)
1 /*
2  * Copyright (c) 1989, 1993, 1994
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * This code is derived from software contributed to Berkeley by
6  * Ken Smith of The State University of New York at Buffalo.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  * 3. All advertising materials mentioning features or use of this software
17  *    must display the following acknowledgement:
18  *	This product includes software developed by the University of
19  *	California, Berkeley and its contributors.
20  * 4. Neither the name of the University nor the names of its contributors
21  *    may be used to endorse or promote products derived from this software
22  *    without specific prior written permission.
23  *
24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34  * SUCH DAMAGE.
35  */
36 
37 #ifndef lint
38 static char const copyright[] =
39 "@(#) Copyright (c) 1989, 1993, 1994\n\
40 	The Regents of the University of California.  All rights reserved.\n";
41 #endif /* not lint */
42 
43 #ifndef lint
44 #if 0
45 static char sccsid[] = "@(#)mv.c	8.2 (Berkeley) 4/2/94";
46 #endif
47 #endif /* not lint */
48 #include <sys/cdefs.h>
49 __FBSDID("$FreeBSD$");
50 
51 #include <sys/param.h>
52 #include <sys/time.h>
53 #include <sys/wait.h>
54 #include <sys/stat.h>
55 #include <sys/mount.h>
56 
57 #include <err.h>
58 #include <errno.h>
59 #include <fcntl.h>
60 #include <grp.h>
61 #include <limits.h>
62 #include <paths.h>
63 #include <pwd.h>
64 #include <stdio.h>
65 #include <stdlib.h>
66 #include <string.h>
67 #include <sysexits.h>
68 #include <unistd.h>
69 
70 #include "pathnames.h"
71 
72 int fflg, iflg, nflg, vflg;
73 
74 int	copy(char *, char *);
75 int	do_move(char *, char *);
76 int	fastcopy(char *, char *, struct stat *);
77 void	usage(void);
78 
79 int
80 main(int argc, char *argv[])
81 {
82 	size_t baselen, len;
83 	int rval;
84 	char *p, *endp;
85 	struct stat sb;
86 	int ch;
87 	char path[PATH_MAX];
88 
89 	while ((ch = getopt(argc, argv, "finv")) != -1)
90 		switch (ch) {
91 		case 'i':
92 			iflg = 1;
93 			fflg = nflg = 0;
94 			break;
95 		case 'f':
96 			fflg = 1;
97 			iflg = nflg = 0;
98 			break;
99 		case 'n':
100 			nflg = 1;
101 			fflg = iflg = 0;
102 			break;
103 		case 'v':
104 			vflg = 1;
105 			break;
106 		default:
107 			usage();
108 		}
109 	argc -= optind;
110 	argv += optind;
111 
112 	if (argc < 2)
113 		usage();
114 
115 	/*
116 	 * If the stat on the target fails or the target isn't a directory,
117 	 * try the move.  More than 2 arguments is an error in this case.
118 	 */
119 	if (stat(argv[argc - 1], &sb) || !S_ISDIR(sb.st_mode)) {
120 		if (argc > 2)
121 			usage();
122 		exit(do_move(argv[0], argv[1]));
123 	}
124 
125 	/* It's a directory, move each file into it. */
126 	if (strlen(argv[argc - 1]) > sizeof(path) - 1)
127 		errx(1, "%s: destination pathname too long", *argv);
128 	(void)strcpy(path, argv[argc - 1]);
129 	baselen = strlen(path);
130 	endp = &path[baselen];
131 	if (!baselen || *(endp - 1) != '/') {
132 		*endp++ = '/';
133 		++baselen;
134 	}
135 	for (rval = 0; --argc; ++argv) {
136 		/*
137 		 * Find the last component of the source pathname.  It
138 		 * may have trailing slashes.
139 		 */
140 		p = *argv + strlen(*argv);
141 		while (p != *argv && p[-1] == '/')
142 			--p;
143 		while (p != *argv && p[-1] != '/')
144 			--p;
145 
146 		if ((baselen + (len = strlen(p))) >= PATH_MAX) {
147 			warnx("%s: destination pathname too long", *argv);
148 			rval = 1;
149 		} else {
150 			memmove(endp, p, (size_t)len + 1);
151 			if (do_move(*argv, path))
152 				rval = 1;
153 		}
154 	}
155 	exit(rval);
156 }
157 
158 int
159 do_move(char *from, char *to)
160 {
161 	struct stat sb;
162 	int ask, ch, first;
163 	char modep[15];
164 
165 	/*
166 	 * Check access.  If interactive and file exists, ask user if it
167 	 * should be replaced.  Otherwise if file exists but isn't writable
168 	 * make sure the user wants to clobber it.
169 	 */
170 	if (!fflg && !access(to, F_OK)) {
171 
172 		/* prompt only if source exist */
173 	        if (lstat(from, &sb) == -1) {
174 			warn("%s", from);
175 			return (1);
176 		}
177 
178 #define YESNO "(y/n [n]) "
179 		ask = 0;
180 		if (nflg) {
181 			if (vflg)
182 				printf("%s not overwritten\n", to);
183 			return (0);
184 		} else if (iflg) {
185 			(void)fprintf(stderr, "overwrite %s? %s", to, YESNO);
186 			ask = 1;
187 		} else if (access(to, W_OK) && !stat(to, &sb)) {
188 			strmode(sb.st_mode, modep);
189 			(void)fprintf(stderr, "override %s%s%s/%s for %s? %s",
190 			    modep + 1, modep[9] == ' ' ? "" : " ",
191 			    user_from_uid((unsigned long)sb.st_uid, 0),
192 			    group_from_gid((unsigned long)sb.st_gid, 0), to, YESNO);
193 			ask = 1;
194 		}
195 		if (ask) {
196 			first = ch = getchar();
197 			while (ch != '\n' && ch != EOF)
198 				ch = getchar();
199 			if (first != 'y' && first != 'Y') {
200 				(void)fprintf(stderr, "not overwritten\n");
201 				return (0);
202 			}
203 		}
204 	}
205 	if (!rename(from, to)) {
206 		if (vflg)
207 			printf("%s -> %s\n", from, to);
208 		return (0);
209 	}
210 
211 	if (errno == EXDEV) {
212 		struct statfs sfs;
213 		char path[PATH_MAX];
214 
215 		/* Can't mv(1) a mount point. */
216 		if (realpath(from, path) == NULL) {
217 			warnx("cannot resolve %s: %s", from, path);
218 			return (1);
219 		}
220 		if (!statfs(path, &sfs) && !strcmp(path, sfs.f_mntonname)) {
221 			warnx("cannot rename a mount point");
222 			return (1);
223 		}
224 	} else {
225 		warn("rename %s to %s", from, to);
226 		return (1);
227 	}
228 
229 	/*
230 	 * If rename fails because we're trying to cross devices, and
231 	 * it's a regular file, do the copy internally; otherwise, use
232 	 * cp and rm.
233 	 */
234 	if (lstat(from, &sb)) {
235 		warn("%s", from);
236 		return (1);
237 	}
238 	return (S_ISREG(sb.st_mode) ?
239 	    fastcopy(from, to, &sb) : copy(from, to));
240 }
241 
242 int
243 fastcopy(char *from, char *to, struct stat *sbp)
244 {
245 	struct timeval tval[2];
246 	static u_int blen;
247 	static char *bp;
248 	mode_t oldmode;
249 	int nread, from_fd, to_fd;
250 
251 	if ((from_fd = open(from, O_RDONLY, 0)) < 0) {
252 		warn("%s", from);
253 		return (1);
254 	}
255 	if (blen < sbp->st_blksize) {
256 		if (bp != NULL)
257 			free(bp);
258 		if ((bp = malloc((size_t)sbp->st_blksize)) == NULL) {
259 			blen = 0;
260 			warnx("malloc failed");
261 			return (1);
262 		}
263 		blen = sbp->st_blksize;
264 	}
265 	while ((to_fd =
266 	    open(to, O_CREAT | O_EXCL | O_TRUNC | O_WRONLY, 0)) < 0) {
267 		if (errno == EEXIST && unlink(to) == 0)
268 			continue;
269 		warn("%s", to);
270 		(void)close(from_fd);
271 		return (1);
272 	}
273 	while ((nread = read(from_fd, bp, (size_t)blen)) > 0)
274 		if (write(to_fd, bp, (size_t)nread) != nread) {
275 			warn("%s", to);
276 			goto err;
277 		}
278 	if (nread < 0) {
279 		warn("%s", from);
280 err:		if (unlink(to))
281 			warn("%s: remove", to);
282 		(void)close(from_fd);
283 		(void)close(to_fd);
284 		return (1);
285 	}
286 	(void)close(from_fd);
287 
288 	oldmode = sbp->st_mode & ALLPERMS;
289 	if (fchown(to_fd, sbp->st_uid, sbp->st_gid)) {
290 		warn("%s: set owner/group (was: %lu/%lu)", to,
291 		    (u_long)sbp->st_uid, (u_long)sbp->st_gid);
292 		if (oldmode & (S_ISUID | S_ISGID)) {
293 			warnx(
294 "%s: owner/group changed; clearing suid/sgid (mode was 0%03o)",
295 			    to, oldmode);
296 			sbp->st_mode &= ~(S_ISUID | S_ISGID);
297 		}
298 	}
299 	if (fchmod(to_fd, sbp->st_mode))
300 		warn("%s: set mode (was: 0%03o)", to, oldmode);
301 	/*
302 	 * XXX
303 	 * NFS doesn't support chflags; ignore errors unless there's reason
304 	 * to believe we're losing bits.  (Note, this still won't be right
305 	 * if the server supports flags and we were trying to *remove* flags
306 	 * on a file that we copied, i.e., that we didn't create.)
307 	 */
308 	errno = 0;
309 	if (fchflags(to_fd, (u_long)sbp->st_flags))
310 		if (errno != EOPNOTSUPP || sbp->st_flags != 0)
311 			warn("%s: set flags (was: 0%07o)", to, sbp->st_flags);
312 
313 	tval[0].tv_sec = sbp->st_atime;
314 	tval[1].tv_sec = sbp->st_mtime;
315 	tval[0].tv_usec = tval[1].tv_usec = 0;
316 	if (utimes(to, tval))
317 		warn("%s: set times", to);
318 
319 	if (close(to_fd)) {
320 		warn("%s", to);
321 		return (1);
322 	}
323 
324 	if (unlink(from)) {
325 		warn("%s: remove", from);
326 		return (1);
327 	}
328 	if (vflg)
329 		printf("%s -> %s\n", from, to);
330 	return (0);
331 }
332 
333 int
334 copy(char *from, char *to)
335 {
336 	int pid, status;
337 
338 	if ((pid = fork()) == 0) {
339 		execl(_PATH_CP, "mv", vflg ? "-PRpv" : "-PRp", "--", from, to,
340 		    (char *)NULL);
341 		warn("%s", _PATH_CP);
342 		_exit(1);
343 	}
344 	if (waitpid(pid, &status, 0) == -1) {
345 		warn("%s: waitpid", _PATH_CP);
346 		return (1);
347 	}
348 	if (!WIFEXITED(status)) {
349 		warn("%s: did not terminate normally", _PATH_CP);
350 		return (1);
351 	}
352 	if (WEXITSTATUS(status)) {
353 		warn("%s: terminated with %d (non-zero) status",
354 		    _PATH_CP, WEXITSTATUS(status));
355 		return (1);
356 	}
357 	if (!(pid = vfork())) {
358 		execl(_PATH_RM, "mv", "-rf", "--", from, (char *)NULL);
359 		warn("%s", _PATH_RM);
360 		_exit(1);
361 	}
362 	if (waitpid(pid, &status, 0) == -1) {
363 		warn("%s: waitpid", _PATH_RM);
364 		return (1);
365 	}
366 	if (!WIFEXITED(status)) {
367 		warn("%s: did not terminate normally", _PATH_RM);
368 		return (1);
369 	}
370 	if (WEXITSTATUS(status)) {
371 		warn("%s: terminated with %d (non-zero) status",
372 		    _PATH_RM, WEXITSTATUS(status));
373 		return (1);
374 	}
375 	return (0);
376 }
377 
378 void
379 usage(void)
380 {
381 
382 	(void)fprintf(stderr, "%s\n%s\n",
383 		      "usage: mv [-f | -i | -n] [-v] source target",
384 		      "       mv [-f | -i | -n] [-v] source ... directory");
385 	exit(EX_USAGE);
386 }
387