busybox/libbb/copy_file.c

/* vi: set sw=4 ts=4: */
/*
 * Mini copy_file implementation for busybox
 *
 * Copyright (C) 2001 by Matt Kraai <kraai@alumni.carnegiemellon.edu>
 *
 * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
 *
 */

#include "libbb.h"

static int retry_overwrite(const char *dest, int flags)
{
	if (!(flags & (FILEUTILS_FORCE|FILEUTILS_INTERACTIVE))) {
		fprintf(stderr, "'%s' exists\n", dest);
		return -1;
	}
	if (flags & FILEUTILS_INTERACTIVE) {
		fprintf(stderr, "%s: overwrite '%s'? ", applet_name, dest);
		if (!bb_ask_confirmation())
			return 0; // not allowed to overwrite
	}
	if (unlink(dest) < 0) {
		bb_perror_msg("cannot remove '%s'", dest);
		return -1; // error
	}
	return 1; // ok (to try again)
}

int copy_file(const char *source, const char *dest, int flags)
{
	struct stat source_stat;
	struct stat dest_stat;
	int status = 0;
	signed char dest_exists = 0;
	signed char ovr;

#define FLAGS_DEREF (flags & FILEUTILS_DEREFERENCE)

	if ((FLAGS_DEREF ? stat : lstat)(source, &source_stat) < 0) {
		// This may be a dangling symlink.
		// Making [sym]links to dangling symlinks works, so...
		if (flags & (FILEUTILS_MAKE_SOFTLINK|FILEUTILS_MAKE_HARDLINK))
			goto make_links;
		bb_perror_msg("cannot stat '%s'", source);
		return -1;
	}

	if (lstat(dest, &dest_stat) < 0) {
		if (errno != ENOENT) {
			bb_perror_msg("cannot stat '%s'", dest);
			return -1;
		}
	} else {
		if (source_stat.st_dev == dest_stat.st_dev
		 && source_stat.st_ino == dest_stat.st_ino
		) {
			bb_error_msg("'%s' and '%s' are the same file", source, dest);
			return -1;
		}
		dest_exists = 1;
	}

	if (S_ISDIR(source_stat.st_mode)) {
		DIR *dp;
		struct dirent *d;
		mode_t saved_umask = 0;

		if (!(flags & FILEUTILS_RECUR)) {
			bb_error_msg("omitting directory '%s'", source);
			return -1;
		}

		/* Create DEST.  */
		if (dest_exists) {
			if (!S_ISDIR(dest_stat.st_mode)) {
				bb_error_msg("target '%s' is not a directory", dest);
				return -1;
			}
		} else {
			mode_t mode;
			saved_umask = umask(0);

			mode = source_stat.st_mode;
			if (!(flags & FILEUTILS_PRESERVE_STATUS))
				mode = source_stat.st_mode & ~saved_umask;
			mode |= S_IRWXU;

			if (mkdir(dest, mode) < 0) {
				umask(saved_umask);
				bb_perror_msg("cannot create directory '%s'", dest);
				return -1;
			}

			umask(saved_umask);
		}

		/* Recursively copy files in SOURCE.  */
		dp = opendir(source);
		if (dp == NULL) {
			status = -1;
			goto preserve_status;
		}

		while ((d = readdir(dp)) != NULL) {
			char *new_source, *new_dest;

			new_source = concat_subpath_file(source, d->d_name);
			if (new_source == NULL)
				continue;
			new_dest = concat_path_file(dest, d->d_name);
			if (copy_file(new_source, new_dest, flags) < 0)
				status = -1;
			free(new_source);
			free(new_dest);
		}
		closedir(dp);

		if (!dest_exists
		 && chmod(dest, source_stat.st_mode & ~saved_umask) < 0
		) {
			bb_perror_msg("cannot change permissions of '%s'", dest);
			status = -1;
		}

	} else if (flags & (FILEUTILS_MAKE_SOFTLINK|FILEUTILS_MAKE_HARDLINK)) {
		int (*lf)(const char *oldpath, const char *newpath);
 make_links:
		// Hmm... maybe
		// if (DEREF && MAKE_SOFTLINK) source = realpath(source) ?
		// (but realpath returns NULL on dangling symlinks...)
		lf = (flags & FILEUTILS_MAKE_SOFTLINK) ? symlink : link;
		if (lf(source, dest) < 0) {
			ovr = retry_overwrite(dest, flags);
			if (ovr <= 0)
				return ovr;
			if (lf(source, dest) < 0) {
				bb_perror_msg("cannot create link '%s'", dest);
				return -1;
			}
		}
		return 0;

	} else if (S_ISREG(source_stat.st_mode)
	// Huh? DEREF uses stat, which never returns links IIRC...
	 || (FLAGS_DEREF && S_ISLNK(source_stat.st_mode))
	) {
		int src_fd;
		int dst_fd;
		if (ENABLE_FEATURE_PRESERVE_HARDLINKS) {
			char *link_name;

			if (!FLAGS_DEREF
			 && is_in_ino_dev_hashtable(&source_stat, &link_name)
			) {
				if (link(link_name, dest) < 0) {
					ovr = retry_overwrite(dest, flags);
					if (ovr <= 0)
						return ovr;
					if (link(link_name, dest) < 0) {
						bb_perror_msg("cannot create link '%s'", dest);
						return -1;
					}
				}
				return 0;
			}
			// TODO: probably is_in_.. and add_to_...
			// can be combined: find_or_add_...
			add_to_ino_dev_hashtable(&source_stat, dest);
		}

		src_fd = open(source, O_RDONLY);
		if (src_fd == -1) {
			bb_perror_msg("cannot open '%s'", source);
			return -1;
		}

		// POSIX: if exists and -i, ask (w/o -i assume yes).
		// Then open w/o EXCL.
		// If open still fails and -f, try unlink, then try open again.
		// Result: a mess:
		// If dest is a softlink, we overwrite softlink's destination!
		// (or fail, if it points to dir/nonexistent location/etc).
		// This is strange, but POSIX-correct.
		// coreutils cp has --remove-destination to override this...
		dst_fd = open(dest, (flags & FILEUTILS_INTERACTIVE)
				? O_WRONLY|O_CREAT|O_TRUNC|O_EXCL
				: O_WRONLY|O_CREAT|O_TRUNC, source_stat.st_mode);
		if (dst_fd == -1) {
			// We would not do POSIX insanity. -i asks,
			// then _unlinks_ the offender. Presto.
			// Or else we will end up having 3 open()s!
			ovr = retry_overwrite(dest, flags);
			if (ovr <= 0) {
				close(src_fd);
				return ovr;
			}
			dst_fd = open(dest, O_WRONLY|O_CREAT|O_TRUNC, source_stat.st_mode);
			if (dst_fd == -1) {
				bb_perror_msg("cannot open '%s'", dest);
				close(src_fd);
				return -1;
			}
		}

		if (bb_copyfd_eof(src_fd, dst_fd) == -1)
			status = -1;
		if (close(dst_fd) < 0) {
			bb_perror_msg("cannot close '%s'", dest);
			status = -1;
		}
		if (close(src_fd) < 0) {
			bb_perror_msg("cannot close '%s'", source);
			status = -1;
		}

	} else if (S_ISBLK(source_stat.st_mode) || S_ISCHR(source_stat.st_mode)
	 || S_ISSOCK(source_stat.st_mode) || S_ISFIFO(source_stat.st_mode)
	 || S_ISLNK(source_stat.st_mode)
	) {
		// We are lazy here, a bit lax with races...
		if (dest_exists) {
			ovr = retry_overwrite(dest, flags);
			if (ovr <= 0)
				return ovr;
		}
		if (S_ISFIFO(source_stat.st_mode)) {
			if (mkfifo(dest, source_stat.st_mode) < 0) {
				bb_perror_msg("cannot create fifo '%s'", dest);
				return -1;
			}
		} else if (S_ISLNK(source_stat.st_mode)) {
			char *lpath;

			lpath = xreadlink(source);
			if (symlink(lpath, dest) < 0) {
				bb_perror_msg("cannot create symlink '%s'", dest);
				free(lpath);
				return -1;
			}
			free(lpath);

			if (flags & FILEUTILS_PRESERVE_STATUS)
				if (lchown(dest, source_stat.st_uid, source_stat.st_gid) < 0)
					bb_perror_msg("cannot preserve %s of '%s'", "ownership", dest);

			return 0;

		} else {
			if (mknod(dest, source_stat.st_mode, source_stat.st_rdev) < 0) {
				bb_perror_msg("cannot create '%s'", dest);
				return -1;
			}
		}
	} else {
		bb_error_msg("internal error: unrecognized file type");
		return -1;
	}

 preserve_status:

	if (flags & FILEUTILS_PRESERVE_STATUS
	/* Cannot happen: */
	/* && !(flags & (FILEUTILS_MAKE_SOFTLINK|FILEUTILS_MAKE_HARDLINK)) */
	) {
		struct utimbuf times;

		times.actime = source_stat.st_atime;
		times.modtime = source_stat.st_mtime;
		if (utime(dest, &times) < 0)
			bb_perror_msg("cannot preserve %s of '%s'", "times", dest);
		if (chown(dest, source_stat.st_uid, source_stat.st_gid) < 0) {
			source_stat.st_mode &= ~(S_ISUID | S_ISGID);
			bb_perror_msg("cannot preserve %s of '%s'", "ownership", dest);
		}
		if (chmod(dest, source_stat.st_mode) < 0)
			bb_perror_msg("cannot preserve %s of '%s'", "permissions", dest);
	}

	return status;
}
1	/* vi: set sw=4 ts=4: */
2	/*
3	* Mini copy_file implementation for busybox
4	*
5	* Copyright (C) 2001 by Matt Kraai <kraai@alumni.carnegiemellon.edu>
6	*
7	* Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
8	*
9	*/
10
11	#include "libbb.h"
12
13	static int retry_overwrite(const char *dest, int flags)
14	{
15	if (!(flags & (FILEUTILS_FORCE\|FILEUTILS_INTERACTIVE))) {
16	fprintf(stderr, "'%s' exists\n", dest);
17	return -1;
18	}
19	if (flags & FILEUTILS_INTERACTIVE) {
20	fprintf(stderr, "%s: overwrite '%s'? ", applet_name, dest);
21	if (!bb_ask_confirmation())
22	return 0; // not allowed to overwrite
23	}
24	if (unlink(dest) < 0) {
25	bb_perror_msg("cannot remove '%s'", dest);
26	return -1; // error
27	}
28	return 1; // ok (to try again)
29	}
30
31	int copy_file(const char source, const char dest, int flags)
32	{
33	struct stat source_stat;
34	struct stat dest_stat;
35	int status = 0;
36	signed char dest_exists = 0;
37	signed char ovr;
38
39	#define FLAGS_DEREF (flags & FILEUTILS_DEREFERENCE)
40
41	if ((FLAGS_DEREF ? stat : lstat)(source, &source_stat) < 0) {
42	// This may be a dangling symlink.
43	// Making [sym]links to dangling symlinks works, so...
44	if (flags & (FILEUTILS_MAKE_SOFTLINK\|FILEUTILS_MAKE_HARDLINK))
45	goto make_links;
46	bb_perror_msg("cannot stat '%s'", source);
47	return -1;
48	}
49
50	if (lstat(dest, &dest_stat) < 0) {
51	if (errno != ENOENT) {
52	bb_perror_msg("cannot stat '%s'", dest);
53	return -1;
54	}
55	} else {
56	if (source_stat.st_dev == dest_stat.st_dev
57	&& source_stat.st_ino == dest_stat.st_ino
58	) {
59	bb_error_msg("'%s' and '%s' are the same file", source, dest);
60	return -1;
61	}
62	dest_exists = 1;
63	}
64
65	if (S_ISDIR(source_stat.st_mode)) {
66	DIR *dp;
67	struct dirent *d;
68	mode_t saved_umask = 0;
69
70	if (!(flags & FILEUTILS_RECUR)) {
71	bb_error_msg("omitting directory '%s'", source);
72	return -1;
73	}
74
75	/* Create DEST. */
76	if (dest_exists) {
77	if (!S_ISDIR(dest_stat.st_mode)) {
78	bb_error_msg("target '%s' is not a directory", dest);
79	return -1;
80	}
81	} else {
82	mode_t mode;
83	saved_umask = umask(0);
84
85	mode = source_stat.st_mode;
86	if (!(flags & FILEUTILS_PRESERVE_STATUS))
87	mode = source_stat.st_mode & ~saved_umask;
88	mode \|= S_IRWXU;
89
90	if (mkdir(dest, mode) < 0) {
91	umask(saved_umask);
92	bb_perror_msg("cannot create directory '%s'", dest);
93	return -1;
94	}
95
96	umask(saved_umask);
97	}
98
99	/* Recursively copy files in SOURCE. */
100	dp = opendir(source);
101	if (dp == NULL) {
102	status = -1;
103	goto preserve_status;
104	}
105
106	while ((d = readdir(dp)) != NULL) {
107	char new_source, new_dest;
108
109	new_source = concat_subpath_file(source, d->d_name);
110	if (new_source == NULL)
111	continue;
112	new_dest = concat_path_file(dest, d->d_name);
113	if (copy_file(new_source, new_dest, flags) < 0)
114	status = -1;
115	free(new_source);
116	free(new_dest);
117	}
118	closedir(dp);
119
120	if (!dest_exists
121	&& chmod(dest, source_stat.st_mode & ~saved_umask) < 0
122	) {
123	bb_perror_msg("cannot change permissions of '%s'", dest);
124	status = -1;
125	}
126
127	} else if (flags & (FILEUTILS_MAKE_SOFTLINK\|FILEUTILS_MAKE_HARDLINK)) {
128	int (lf)(const char oldpath, const char *newpath);
129	make_links:
130	// Hmm... maybe
131	// if (DEREF && MAKE_SOFTLINK) source = realpath(source) ?
132	// (but realpath returns NULL on dangling symlinks...)
133	lf = (flags & FILEUTILS_MAKE_SOFTLINK) ? symlink : link;
134	if (lf(source, dest) < 0) {
135	ovr = retry_overwrite(dest, flags);
136	if (ovr <= 0)
137	return ovr;
138	if (lf(source, dest) < 0) {
139	bb_perror_msg("cannot create link '%s'", dest);
140	return -1;
141	}
142	}
143	return 0;
144
145	} else if (S_ISREG(source_stat.st_mode)
146	// Huh? DEREF uses stat, which never returns links IIRC...
147	\|\| (FLAGS_DEREF && S_ISLNK(source_stat.st_mode))
148	) {
149	int src_fd;
150	int dst_fd;
151	if (ENABLE_FEATURE_PRESERVE_HARDLINKS) {
152	char *link_name;
153
154	if (!FLAGS_DEREF
155	&& is_in_ino_dev_hashtable(&source_stat, &link_name)
156	) {
157	if (link(link_name, dest) < 0) {
158	ovr = retry_overwrite(dest, flags);
159	if (ovr <= 0)
160	return ovr;
161	if (link(link_name, dest) < 0) {
162	bb_perror_msg("cannot create link '%s'", dest);
163	return -1;
164	}
165	}
166	return 0;
167	}
168	// TODO: probably is_in_.. and add_to_...
169	// can be combined: find_or_add_...
170	add_to_ino_dev_hashtable(&source_stat, dest);
171	}
172
173	src_fd = open(source, O_RDONLY);
174	if (src_fd == -1) {
175	bb_perror_msg("cannot open '%s'", source);
176	return -1;
177	}
178
179	// POSIX: if exists and -i, ask (w/o -i assume yes).
180	// Then open w/o EXCL.
181	// If open still fails and -f, try unlink, then try open again.
182	// Result: a mess:
183	// If dest is a softlink, we overwrite softlink's destination!
184	// (or fail, if it points to dir/nonexistent location/etc).
185	// This is strange, but POSIX-correct.
186	// coreutils cp has --remove-destination to override this...
187	dst_fd = open(dest, (flags & FILEUTILS_INTERACTIVE)
188	? O_WRONLY\|O_CREAT\|O_TRUNC\|O_EXCL
189	: O_WRONLY\|O_CREAT\|O_TRUNC, source_stat.st_mode);
190	if (dst_fd == -1) {
191	// We would not do POSIX insanity. -i asks,
192	// then _unlinks_ the offender. Presto.
193	// Or else we will end up having 3 open()s!
194	ovr = retry_overwrite(dest, flags);
195	if (ovr <= 0) {
196	close(src_fd);
197	return ovr;
198	}
199	dst_fd = open(dest, O_WRONLY\|O_CREAT\|O_TRUNC, source_stat.st_mode);
200	if (dst_fd == -1) {
201	bb_perror_msg("cannot open '%s'", dest);
202	close(src_fd);
203	return -1;
204	}
205	}
206
207	if (bb_copyfd_eof(src_fd, dst_fd) == -1)
208	status = -1;
209	if (close(dst_fd) < 0) {
210	bb_perror_msg("cannot close '%s'", dest);
211	status = -1;
212	}
213	if (close(src_fd) < 0) {
214	bb_perror_msg("cannot close '%s'", source);
215	status = -1;
216	}
217
218	} else if (S_ISBLK(source_stat.st_mode) \|\| S_ISCHR(source_stat.st_mode)
219	\|\| S_ISSOCK(source_stat.st_mode) \|\| S_ISFIFO(source_stat.st_mode)
220	\|\| S_ISLNK(source_stat.st_mode)
221	) {
222	// We are lazy here, a bit lax with races...
223	if (dest_exists) {
224	ovr = retry_overwrite(dest, flags);
225	if (ovr <= 0)
226	return ovr;
227	}
228	if (S_ISFIFO(source_stat.st_mode)) {
229	if (mkfifo(dest, source_stat.st_mode) < 0) {
230	bb_perror_msg("cannot create fifo '%s'", dest);
231	return -1;
232	}
233	} else if (S_ISLNK(source_stat.st_mode)) {
234	char *lpath;
235
236	lpath = xreadlink(source);
237	if (symlink(lpath, dest) < 0) {
238	bb_perror_msg("cannot create symlink '%s'", dest);
239	free(lpath);
240	return -1;
241	}
242	free(lpath);
243
244	if (flags & FILEUTILS_PRESERVE_STATUS)
245	if (lchown(dest, source_stat.st_uid, source_stat.st_gid) < 0)
246	bb_perror_msg("cannot preserve %s of '%s'", "ownership", dest);
247
248	return 0;
249
250	} else {
251	if (mknod(dest, source_stat.st_mode, source_stat.st_rdev) < 0) {
252	bb_perror_msg("cannot create '%s'", dest);
253	return -1;
254	}
255	}
256	} else {
257	bb_error_msg("internal error: unrecognized file type");
258	return -1;
259	}
260
261	preserve_status:
262
263	if (flags & FILEUTILS_PRESERVE_STATUS
264	/* Cannot happen: */
265	/* && !(flags & (FILEUTILS_MAKE_SOFTLINK\|FILEUTILS_MAKE_HARDLINK)) */
266	) {
267	struct utimbuf times;
268
269	times.actime = source_stat.st_atime;
270	times.modtime = source_stat.st_mtime;
271	if (utime(dest, &times) < 0)
272	bb_perror_msg("cannot preserve %s of '%s'", "times", dest);
273	if (chown(dest, source_stat.st_uid, source_stat.st_gid) < 0) {
274	source_stat.st_mode &= ~(S_ISUID \| S_ISGID);
275	bb_perror_msg("cannot preserve %s of '%s'", "ownership", dest);
276	}
277	if (chmod(dest, source_stat.st_mode) < 0)
278	bb_perror_msg("cannot preserve %s of '%s'", "permissions", dest);
279	}
280
281	return status;
282	}