1 | /* vi: set sw=4 ts=4: */
|
---|
2 | /*
|
---|
3 | * Licensed under GPLv2 or later, see file LICENSE in this source tree.
|
---|
4 | */
|
---|
5 |
|
---|
6 | #include "libbb.h"
|
---|
7 | #include "bb_archive.h"
|
---|
8 |
|
---|
9 | void FAST_FUNC data_extract_all(archive_handle_t *archive_handle)
|
---|
10 | {
|
---|
11 | file_header_t *file_header = archive_handle->file_header;
|
---|
12 | int dst_fd;
|
---|
13 | int res;
|
---|
14 | char *hard_link;
|
---|
15 | #if ENABLE_FEATURE_TAR_LONG_OPTIONS
|
---|
16 | char *dst_name;
|
---|
17 | #else
|
---|
18 | # define dst_name (file_header->name)
|
---|
19 | #endif
|
---|
20 |
|
---|
21 | #if ENABLE_FEATURE_TAR_SELINUX
|
---|
22 | char *sctx = archive_handle->tar__sctx[PAX_NEXT_FILE];
|
---|
23 | if (!sctx)
|
---|
24 | sctx = archive_handle->tar__sctx[PAX_GLOBAL];
|
---|
25 | if (sctx) { /* setfscreatecon is 4 syscalls, avoid if possible */
|
---|
26 | setfscreatecon(sctx);
|
---|
27 | free(archive_handle->tar__sctx[PAX_NEXT_FILE]);
|
---|
28 | archive_handle->tar__sctx[PAX_NEXT_FILE] = NULL;
|
---|
29 | }
|
---|
30 | #endif
|
---|
31 |
|
---|
32 | /* Hard links are encoded as regular files of size 0
|
---|
33 | * with a nonempty link field */
|
---|
34 | hard_link = NULL;
|
---|
35 | if (S_ISREG(file_header->mode) && file_header->size == 0)
|
---|
36 | hard_link = file_header->link_target;
|
---|
37 |
|
---|
38 | #if ENABLE_FEATURE_TAR_LONG_OPTIONS
|
---|
39 | dst_name = file_header->name;
|
---|
40 | if (archive_handle->tar__strip_components) {
|
---|
41 | unsigned n = archive_handle->tar__strip_components;
|
---|
42 | do {
|
---|
43 | dst_name = strchr(dst_name, '/');
|
---|
44 | if (!dst_name || dst_name[1] == '\0') {
|
---|
45 | data_skip(archive_handle);
|
---|
46 | goto ret;
|
---|
47 | }
|
---|
48 | dst_name++;
|
---|
49 | /*
|
---|
50 | * Link target is shortened only for hardlinks:
|
---|
51 | * softlinks restored unchanged.
|
---|
52 | */
|
---|
53 | if (hard_link) {
|
---|
54 | // GNU tar 1.26 does not check that we reached end of link name:
|
---|
55 | // if "dir/hardlink" is hardlinked to "file",
|
---|
56 | // tar xvf a.tar --strip-components=1 says:
|
---|
57 | // tar: hardlink: Cannot hard link to '': No such file or directory
|
---|
58 | // and continues processing. We silently skip such entries.
|
---|
59 | hard_link = strchr(hard_link, '/');
|
---|
60 | if (!hard_link || hard_link[1] == '\0') {
|
---|
61 | data_skip(archive_handle);
|
---|
62 | goto ret;
|
---|
63 | }
|
---|
64 | hard_link++;
|
---|
65 | }
|
---|
66 | } while (--n != 0);
|
---|
67 | }
|
---|
68 | #endif
|
---|
69 |
|
---|
70 | if (archive_handle->ah_flags & ARCHIVE_CREATE_LEADING_DIRS) {
|
---|
71 | char *slash = strrchr(dst_name, '/');
|
---|
72 | if (slash) {
|
---|
73 | *slash = '\0';
|
---|
74 | bb_make_directory(dst_name, -1, FILEUTILS_RECUR);
|
---|
75 | *slash = '/';
|
---|
76 | }
|
---|
77 | }
|
---|
78 |
|
---|
79 | if (archive_handle->ah_flags & ARCHIVE_UNLINK_OLD) {
|
---|
80 | /* Remove the entry if it exists */
|
---|
81 | if (!S_ISDIR(file_header->mode)) {
|
---|
82 | if (hard_link) {
|
---|
83 | /* Ugly special case:
|
---|
84 | * tar cf t.tar hardlink1 hardlink2 hardlink1
|
---|
85 | * results in this tarball structure:
|
---|
86 | * hardlink1
|
---|
87 | * hardlink2 -> hardlink1
|
---|
88 | * hardlink1 -> hardlink1 <== !!!
|
---|
89 | */
|
---|
90 | if (strcmp(hard_link, dst_name) == 0)
|
---|
91 | goto ret;
|
---|
92 | }
|
---|
93 | /* Proceed with deleting */
|
---|
94 | if (unlink(dst_name) == -1
|
---|
95 | && errno != ENOENT
|
---|
96 | ) {
|
---|
97 | bb_perror_msg_and_die("can't remove old file %s",
|
---|
98 | dst_name);
|
---|
99 | }
|
---|
100 | }
|
---|
101 | }
|
---|
102 | else if (archive_handle->ah_flags & ARCHIVE_EXTRACT_NEWER) {
|
---|
103 | /* Remove the existing entry if its older than the extracted entry */
|
---|
104 | struct stat existing_sb;
|
---|
105 | if (lstat(dst_name, &existing_sb) == -1) {
|
---|
106 | if (errno != ENOENT) {
|
---|
107 | bb_perror_msg_and_die("can't stat old file");
|
---|
108 | }
|
---|
109 | }
|
---|
110 | else if (existing_sb.st_mtime >= file_header->mtime) {
|
---|
111 | if (!(archive_handle->ah_flags & ARCHIVE_EXTRACT_QUIET)
|
---|
112 | && !S_ISDIR(file_header->mode)
|
---|
113 | ) {
|
---|
114 | bb_error_msg("%s not created: newer or "
|
---|
115 | "same age file exists", dst_name);
|
---|
116 | }
|
---|
117 | data_skip(archive_handle);
|
---|
118 | goto ret;
|
---|
119 | }
|
---|
120 | else if ((unlink(dst_name) == -1) && (errno != EISDIR)) {
|
---|
121 | bb_perror_msg_and_die("can't remove old file %s",
|
---|
122 | dst_name);
|
---|
123 | }
|
---|
124 | }
|
---|
125 |
|
---|
126 | /* Handle hard links separately */
|
---|
127 | if (hard_link) {
|
---|
128 | res = link(hard_link, dst_name);
|
---|
129 | if (res != 0 && !(archive_handle->ah_flags & ARCHIVE_EXTRACT_QUIET)) {
|
---|
130 | bb_perror_msg("can't create %slink "
|
---|
131 | "from %s to %s", "hard",
|
---|
132 | dst_name,
|
---|
133 | hard_link);
|
---|
134 | }
|
---|
135 | /* Hardlinks have no separate mode/ownership, skip chown/chmod */
|
---|
136 | goto ret;
|
---|
137 | }
|
---|
138 |
|
---|
139 | /* Create the filesystem entry */
|
---|
140 | switch (file_header->mode & S_IFMT) {
|
---|
141 | case S_IFREG: {
|
---|
142 | /* Regular file */
|
---|
143 | char *dst_nameN;
|
---|
144 | int flags = O_WRONLY | O_CREAT | O_EXCL;
|
---|
145 | if (archive_handle->ah_flags & ARCHIVE_O_TRUNC)
|
---|
146 | flags = O_WRONLY | O_CREAT | O_TRUNC;
|
---|
147 | dst_nameN = dst_name;
|
---|
148 | #ifdef ARCHIVE_REPLACE_VIA_RENAME
|
---|
149 | if (archive_handle->ah_flags & ARCHIVE_REPLACE_VIA_RENAME)
|
---|
150 | /* rpm-style temp file name */
|
---|
151 | dst_nameN = xasprintf("%s;%x", dst_name, (int)getpid());
|
---|
152 | #endif
|
---|
153 | dst_fd = xopen3(dst_nameN,
|
---|
154 | flags,
|
---|
155 | file_header->mode
|
---|
156 | );
|
---|
157 | bb_copyfd_exact_size(archive_handle->src_fd, dst_fd, file_header->size);
|
---|
158 | close(dst_fd);
|
---|
159 | #ifdef ARCHIVE_REPLACE_VIA_RENAME
|
---|
160 | if (archive_handle->ah_flags & ARCHIVE_REPLACE_VIA_RENAME) {
|
---|
161 | xrename(dst_nameN, dst_name);
|
---|
162 | free(dst_nameN);
|
---|
163 | }
|
---|
164 | #endif
|
---|
165 | break;
|
---|
166 | }
|
---|
167 | case S_IFDIR:
|
---|
168 | res = mkdir(dst_name, file_header->mode);
|
---|
169 | if ((res == -1)
|
---|
170 | && (errno != EISDIR) /* btw, Linux doesn't return this */
|
---|
171 | && (errno != EEXIST)
|
---|
172 | && !(archive_handle->ah_flags & ARCHIVE_EXTRACT_QUIET)
|
---|
173 | ) {
|
---|
174 | bb_perror_msg("can't make dir %s", dst_name);
|
---|
175 | }
|
---|
176 | break;
|
---|
177 | case S_IFLNK:
|
---|
178 | /* Symlink */
|
---|
179 | //TODO: what if file_header->link_target == NULL (say, corrupted tarball?)
|
---|
180 | res = symlink(file_header->link_target, dst_name);
|
---|
181 | if (res != 0
|
---|
182 | && !(archive_handle->ah_flags & ARCHIVE_EXTRACT_QUIET)
|
---|
183 | ) {
|
---|
184 | bb_perror_msg("can't create %slink "
|
---|
185 | "from %s to %s", "sym",
|
---|
186 | dst_name,
|
---|
187 | file_header->link_target);
|
---|
188 | }
|
---|
189 | break;
|
---|
190 | case S_IFSOCK:
|
---|
191 | case S_IFBLK:
|
---|
192 | case S_IFCHR:
|
---|
193 | case S_IFIFO:
|
---|
194 | res = mknod(dst_name, file_header->mode, file_header->device);
|
---|
195 | if ((res == -1)
|
---|
196 | && !(archive_handle->ah_flags & ARCHIVE_EXTRACT_QUIET)
|
---|
197 | ) {
|
---|
198 | bb_perror_msg("can't create node %s", dst_name);
|
---|
199 | }
|
---|
200 | break;
|
---|
201 | default:
|
---|
202 | bb_error_msg_and_die("unrecognized file type");
|
---|
203 | }
|
---|
204 |
|
---|
205 | if (!S_ISLNK(file_header->mode)) {
|
---|
206 | if (!(archive_handle->ah_flags & ARCHIVE_DONT_RESTORE_OWNER)) {
|
---|
207 | uid_t uid = file_header->uid;
|
---|
208 | gid_t gid = file_header->gid;
|
---|
209 | #if ENABLE_FEATURE_TAR_UNAME_GNAME
|
---|
210 | if (!(archive_handle->ah_flags & ARCHIVE_NUMERIC_OWNER)) {
|
---|
211 | if (file_header->tar__uname) {
|
---|
212 | //TODO: cache last name/id pair?
|
---|
213 | struct passwd *pwd = getpwnam(file_header->tar__uname);
|
---|
214 | if (pwd) uid = pwd->pw_uid;
|
---|
215 | }
|
---|
216 | if (file_header->tar__gname) {
|
---|
217 | struct group *grp = getgrnam(file_header->tar__gname);
|
---|
218 | if (grp) gid = grp->gr_gid;
|
---|
219 | }
|
---|
220 | }
|
---|
221 | #endif
|
---|
222 | /* GNU tar 1.15.1 uses chown, not lchown */
|
---|
223 | chown(dst_name, uid, gid);
|
---|
224 | }
|
---|
225 | /* uclibc has no lchmod, glibc is even stranger -
|
---|
226 | * it has lchmod which seems to do nothing!
|
---|
227 | * so we use chmod... */
|
---|
228 | if (!(archive_handle->ah_flags & ARCHIVE_DONT_RESTORE_PERM)) {
|
---|
229 | chmod(dst_name, file_header->mode);
|
---|
230 | }
|
---|
231 | if (archive_handle->ah_flags & ARCHIVE_RESTORE_DATE) {
|
---|
232 | struct timeval t[2];
|
---|
233 |
|
---|
234 | t[1].tv_sec = t[0].tv_sec = file_header->mtime;
|
---|
235 | t[1].tv_usec = t[0].tv_usec = 0;
|
---|
236 | utimes(dst_name, t);
|
---|
237 | }
|
---|
238 | }
|
---|
239 |
|
---|
240 | ret: ;
|
---|
241 | #if ENABLE_FEATURE_TAR_SELINUX
|
---|
242 | if (sctx) {
|
---|
243 | /* reset the context after creating an entry */
|
---|
244 | setfscreatecon(NULL);
|
---|
245 | }
|
---|
246 | #endif
|
---|
247 | }
|
---|