blob: 526edb69d59eed7cb80b8cd9094fb99e67f3d3f1 [file] [log] [blame]
Erik Andersene49d5ec2000-02-08 19:58:47 +00001/* vi: set sw=4 ts=4: */
Eric Andersencc8ed391999-10-05 16:24:54 +00002/*
Eric Andersenc7bda1c2004-03-15 08:29:22 +00003 * Mini tar implementation for busybox
Erik Andersen6acaa402000-03-26 14:03:20 +00004 *
Eric Andersenaff114c2004-04-14 17:51:38 +00005 * Modified to use common extraction code used by ar, cpio, dpkg-deb, dpkg
Denis Vlasenko0beaff82007-09-21 13:16:32 +00006 * by Glenn McGrath
Glenn L McGrath2e772ed2001-10-05 02:58:48 +00007 *
Erik Andersen61677fe2000-04-13 01:18:56 +00008 * Note, that as of BusyBox-0.43, tar has been completely rewritten from the
Eric Andersenaff114c2004-04-14 17:51:38 +00009 * ground up. It still has remnants of the old code lying about, but it is
Eric Andersen77d92682001-05-23 20:32:09 +000010 * very different now (i.e., cleaner, less global variables, etc.)
Eric Andersenc4996011999-10-20 22:08:37 +000011 *
Eric Andersenc7bda1c2004-03-15 08:29:22 +000012 * Copyright (C) 1999-2004 by Erik Andersen <andersen@codepoet.org>
Eric Andersen96bcfd31999-11-12 01:30:18 +000013 *
Erik Andersen6acaa402000-03-26 14:03:20 +000014 * Based in part in the tar implementation in sash
15 * Copyright (c) 1999 by David I. Bell
16 * Permission is granted to use, distribute, or modify this source,
17 * provided that this copyright notice remains intact.
18 * Permission to distribute sash derived code under the GPL has been granted.
19 *
Erik Andersen68a9ea42000-04-04 18:39:50 +000020 * Based in part on the tar implementation from busybox-0.28
Erik Andersen6acaa402000-03-26 14:03:20 +000021 * Copyright (C) 1995 Bruce Perens
Erik Andersen6acaa402000-03-26 14:03:20 +000022 *
Bernhard Reutner-Fischerd9cf7ac2006-04-12 18:39:58 +000023 * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
Eric Andersencc8ed391999-10-05 16:24:54 +000024 */
25
Rob Landley1bfca7b2006-09-10 03:20:37 +000026#include <fnmatch.h>
Denis Vlasenkob6adbf12007-05-26 19:00:18 +000027#include "libbb.h"
Denis Vlasenko218f2f42007-01-24 22:02:01 +000028#include "unarchive.h"
Eric Andersencc8ed391999-10-05 16:24:54 +000029
Denis Vlasenko87cf2ee2008-02-13 17:06:53 +000030/* FIXME: Stop using this non-standard feature */
31#ifndef FNM_LEADING_DIR
32#define FNM_LEADING_DIR 0
33#endif
34
Denis Vlasenko431a7c92008-02-19 11:26:28 +000035
Denis Vlasenko74324c82007-06-04 10:16:52 +000036#define block_buf bb_common_bufsiz1
37
Denis Vlasenko431a7c92008-02-19 11:26:28 +000038
39#if !ENABLE_FEATURE_TAR_GZIP && !ENABLE_FEATURE_TAR_BZIP2
40/* Do not pass gzip flag to writeTarFile() */
41#define writeTarFile(tar_fd, verboseFlag, dereferenceFlag, include, exclude, gzip) \
42 writeTarFile(tar_fd, verboseFlag, dereferenceFlag, include, exclude)
43#endif
44
45
Denis Vlasenkod031ffa2006-11-24 21:54:44 +000046#if ENABLE_FEATURE_TAR_CREATE
Eric Andersencc8ed391999-10-05 16:24:54 +000047
Glenn L McGrath2e772ed2001-10-05 02:58:48 +000048/* Tar file constants */
Glenn L McGrath2e772ed2001-10-05 02:58:48 +000049
Rob Landley3ee6c242005-10-15 03:06:21 +000050#define TAR_BLOCK_SIZE 512
Eric Andersencc8ed391999-10-05 16:24:54 +000051
Erik Andersen298854f2000-03-23 01:09:18 +000052/* POSIX tar Header Block, from POSIX 1003.1-1990 */
Denis Vlasenko376ce1e2006-11-24 14:51:01 +000053#define NAME_SIZE 100
54#define NAME_SIZE_STR "100"
Denis Vlasenko218f2f42007-01-24 22:02:01 +000055typedef struct TarHeader TarHeader;
Denis Vlasenko376ce1e2006-11-24 14:51:01 +000056struct TarHeader { /* byte offset */
57 char name[NAME_SIZE]; /* 0-99 */
58 char mode[8]; /* 100-107 */
59 char uid[8]; /* 108-115 */
60 char gid[8]; /* 116-123 */
61 char size[12]; /* 124-135 */
62 char mtime[12]; /* 136-147 */
63 char chksum[8]; /* 148-155 */
64 char typeflag; /* 156-156 */
65 char linkname[NAME_SIZE]; /* 157-256 */
Denis Vlasenko85128622007-11-16 20:35:30 +000066 /* POSIX: "ustar" NUL "00" */
67 /* GNU tar: "ustar " NUL */
Paul Fox16aec392007-11-17 19:11:05 +000068 /* Normally it's defined as magic[6] followed by
69 * version[2], but we put them together to save code.
70 */
Denis Vlasenko85128622007-11-16 20:35:30 +000071 char magic[8]; /* 257-264 */
Denis Vlasenko376ce1e2006-11-24 14:51:01 +000072 char uname[32]; /* 265-296 */
73 char gname[32]; /* 297-328 */
74 char devmajor[8]; /* 329-336 */
75 char devminor[8]; /* 337-344 */
76 char prefix[155]; /* 345-499 */
Paul Fox16aec392007-11-17 19:11:05 +000077 char padding[12]; /* 500-512 (pad to exactly TAR_BLOCK_SIZE) */
Erik Andersen298854f2000-03-23 01:09:18 +000078};
Eric Andersencc8ed391999-10-05 16:24:54 +000079
Eric Andersen3d957c82000-12-07 00:34:58 +000080/*
Denis Vlasenko4fbb5842006-11-24 14:55:23 +000081** writeTarFile(), writeFileToTarball(), and writeTarHeader() are
Eric Andersen3d957c82000-12-07 00:34:58 +000082** the only functions that deal with the HardLinkInfo structure.
83** Even these functions use the xxxHardLinkInfo() functions.
84*/
85typedef struct HardLinkInfo HardLinkInfo;
Glenn L McGratha0ee8812002-08-22 13:44:08 +000086struct HardLinkInfo {
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +000087 HardLinkInfo *next; /* Next entry in list */
88 dev_t dev; /* Device number */
89 ino_t ino; /* Inode number */
90 short linkCount; /* (Hard) Link Count */
91 char name[1]; /* Start of filename (must be last) */
Eric Andersen3d957c82000-12-07 00:34:58 +000092};
93
Erik Andersen68a9ea42000-04-04 18:39:50 +000094/* Some info to be carried along when creating a new tarball */
Denis Vlasenko218f2f42007-01-24 22:02:01 +000095typedef struct TarBallInfo TarBallInfo;
Glenn L McGratha0ee8812002-08-22 13:44:08 +000096struct TarBallInfo {
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +000097 int tarFd; /* Open-for-write file descriptor
98 * for the tarball */
99 struct stat statBuf; /* Stat info for the tarball, letting
100 * us know the inode and device that the
101 * tarball lives, so we can avoid trying
102 * to include the tarball into itself */
103 int verboseFlag; /* Whether to print extra stuff or not */
104 const llist_t *excludeList; /* List of files to not include */
105 HardLinkInfo *hlInfoHead; /* Hard Link Tracking Information */
106 HardLinkInfo *hlInfo; /* Hard Link Info for the current file */
Erik Andersen68a9ea42000-04-04 18:39:50 +0000107};
Erik Andersen68a9ea42000-04-04 18:39:50 +0000108
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000109/* A nice enum with all the possible tar file content types */
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000110enum TarFileType {
111 REGTYPE = '0', /* regular file */
112 REGTYPE0 = '\0', /* regular file (ancient bug compat) */
113 LNKTYPE = '1', /* hard link */
114 SYMTYPE = '2', /* symbolic link */
115 CHRTYPE = '3', /* character special */
116 BLKTYPE = '4', /* block special */
117 DIRTYPE = '5', /* directory */
118 FIFOTYPE = '6', /* FIFO special */
119 CONTTYPE = '7', /* reserved */
120 GNULONGLINK = 'K', /* GNU long (>100 chars) link name */
121 GNULONGNAME = 'L', /* GNU long (>100 chars) file name */
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000122};
123typedef enum TarFileType TarFileType;
Erik Andersen68a9ea42000-04-04 18:39:50 +0000124
Eric Andersen3d957c82000-12-07 00:34:58 +0000125/* Might be faster (and bigger) if the dev/ino were stored in numeric order;) */
Denis Vlasenko7e0fbf92007-09-04 19:33:22 +0000126static void addHardLinkInfo(HardLinkInfo **hlInfoHeadPtr,
Glenn L McGrathf66de642002-11-25 23:57:27 +0000127 struct stat *statbuf,
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000128 const char *fileName)
Eric Andersen3d957c82000-12-07 00:34:58 +0000129{
130 /* Note: hlInfoHeadPtr can never be NULL! */
131 HardLinkInfo *hlInfo;
132
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000133 hlInfo = xmalloc(sizeof(HardLinkInfo) + strlen(fileName));
Glenn L McGrathf66de642002-11-25 23:57:27 +0000134 hlInfo->next = *hlInfoHeadPtr;
135 *hlInfoHeadPtr = hlInfo;
136 hlInfo->dev = statbuf->st_dev;
137 hlInfo->ino = statbuf->st_ino;
138 hlInfo->linkCount = statbuf->st_nlink;
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000139 strcpy(hlInfo->name, fileName);
Eric Andersen3d957c82000-12-07 00:34:58 +0000140}
141
Denis Vlasenko7e0fbf92007-09-04 19:33:22 +0000142static void freeHardLinkInfo(HardLinkInfo **hlInfoHeadPtr)
Eric Andersen3d957c82000-12-07 00:34:58 +0000143{
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000144 HardLinkInfo *hlInfo;
145 HardLinkInfo *hlInfoNext;
Eric Andersen3d957c82000-12-07 00:34:58 +0000146
147 if (hlInfoHeadPtr) {
148 hlInfo = *hlInfoHeadPtr;
149 while (hlInfo) {
150 hlInfoNext = hlInfo->next;
151 free(hlInfo);
152 hlInfo = hlInfoNext;
153 }
154 *hlInfoHeadPtr = NULL;
155 }
Eric Andersen3d957c82000-12-07 00:34:58 +0000156}
157
158/* Might be faster (and bigger) if the dev/ino were stored in numeric order;) */
Denis Vlasenko7e0fbf92007-09-04 19:33:22 +0000159static HardLinkInfo *findHardLinkInfo(HardLinkInfo *hlInfo, struct stat *statbuf)
Eric Andersen3d957c82000-12-07 00:34:58 +0000160{
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000161 while (hlInfo) {
Glenn L McGrathf66de642002-11-25 23:57:27 +0000162 if ((statbuf->st_ino == hlInfo->ino) && (statbuf->st_dev == hlInfo->dev))
Eric Andersen3d957c82000-12-07 00:34:58 +0000163 break;
164 hlInfo = hlInfo->next;
165 }
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000166 return hlInfo;
Eric Andersen3d957c82000-12-07 00:34:58 +0000167}
168
Erik Andersen6acaa402000-03-26 14:03:20 +0000169/* Put an octal string into the specified buffer.
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000170 * The number is zero padded and possibly null terminated.
Denis Vlasenko87cd4a82006-11-25 23:47:32 +0000171 * Stores low-order bits only if whole value does not fit. */
172static void putOctal(char *cp, int len, off_t value)
Erik Andersen6acaa402000-03-26 14:03:20 +0000173{
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000174 char tempBuffer[sizeof(off_t)*3+1];
Erik Andersen5661fe02000-04-05 01:00:52 +0000175 char *tempString = tempBuffer;
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000176 int width;
Erik Andersen6acaa402000-03-26 14:03:20 +0000177
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000178 width = sprintf(tempBuffer, "%0*"OFF_FMT"o", len, value);
179 tempString += (width - len);
Erik Andersen6acaa402000-03-26 14:03:20 +0000180
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000181 /* If string has leading zeroes, we can drop one */
182 /* and field will have trailing '\0' */
183 /* (increases chances of compat with other tars) */
184 if (tempString[0] == '0')
185 tempString++;
Erik Andersen6acaa402000-03-26 14:03:20 +0000186
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000187 /* Copy the string to the field */
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000188 memcpy(cp, tempString, len);
Erik Andersen6acaa402000-03-26 14:03:20 +0000189}
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000190#define PUT_OCTAL(a, b) putOctal((a), sizeof(a), (b))
191
192static void chksum_and_xwrite(int fd, struct TarHeader* hp)
193{
Denis Vlasenkodcbd51d2007-03-03 20:06:59 +0000194 /* POSIX says that checksum is done on unsigned bytes
Denis Vlasenko940494f2007-03-04 18:09:50 +0000195 * (Sun and HP-UX gets it wrong... more details in
Denis Vlasenkodcbd51d2007-03-03 20:06:59 +0000196 * GNU tar source) */
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000197 const unsigned char *cp;
198 int chksum, size;
199
200 strcpy(hp->magic, "ustar ");
201
202 /* Calculate and store the checksum (i.e., the sum of all of the bytes of
203 * the header). The checksum field must be filled with blanks for the
204 * calculation. The checksum field is formatted differently from the
205 * other fields: it has 6 digits, a null, then a space -- rather than
206 * digits, followed by a null like the other fields... */
207 memset(hp->chksum, ' ', sizeof(hp->chksum));
208 cp = (const unsigned char *) hp;
209 chksum = 0;
210 size = sizeof(*hp);
211 do { chksum += *cp++; } while (--size);
212 putOctal(hp->chksum, sizeof(hp->chksum)-1, chksum);
213
214 /* Now write the header out to disk */
215 xwrite(fd, hp, sizeof(*hp));
216}
217
218#if ENABLE_FEATURE_TAR_GNU_EXTENSIONS
219static void writeLongname(int fd, int type, const char *name, int dir)
220{
221 static const struct {
222 char mode[8]; /* 100-107 */
223 char uid[8]; /* 108-115 */
224 char gid[8]; /* 116-123 */
225 char size[12]; /* 124-135 */
226 char mtime[12]; /* 136-147 */
227 } prefilled = {
228 "0000000",
229 "0000000",
230 "0000000",
231 "00000000000",
232 "00000000000",
233 };
234 struct TarHeader header;
235 int size;
236
237 dir = !!dir; /* normalize: 0/1 */
238 size = strlen(name) + 1 + dir; /* GNU tar uses strlen+1 */
239 /* + dir: account for possible '/' */
240
Bernhard Reutner-Fischer6f0540e2006-12-12 11:50:44 +0000241 memset(&header, 0, sizeof(header));
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000242 strcpy(header.name, "././@LongLink");
243 memcpy(header.mode, prefilled.mode, sizeof(prefilled));
244 PUT_OCTAL(header.size, size);
245 header.typeflag = type;
246 chksum_and_xwrite(fd, &header);
247
248 /* Write filename[/] and pad the block. */
249 /* dir=0: writes 'name<NUL>', pads */
250 /* dir=1: writes 'name', writes '/<NUL>', pads */
251 dir *= 2;
252 xwrite(fd, name, size - dir);
253 xwrite(fd, "/", dir);
254 size = (-size) & (TAR_BLOCK_SIZE-1);
Bernhard Reutner-Fischer6f0540e2006-12-12 11:50:44 +0000255 memset(&header, 0, size);
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000256 xwrite(fd, &header, size);
257}
258#endif
Erik Andersen6acaa402000-03-26 14:03:20 +0000259
Erik Andersen68a9ea42000-04-04 18:39:50 +0000260/* Write out a tar header for the specified file/directory/whatever */
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000261void BUG_tar_header_size(void);
Rob Landley88621d72006-08-29 19:41:06 +0000262static int writeTarHeader(struct TarBallInfo *tbInfo,
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000263 const char *header_name, const char *fileName, struct stat *statbuf)
Erik Andersen6acaa402000-03-26 14:03:20 +0000264{
Erik Andersen5661fe02000-04-05 01:00:52 +0000265 struct TarHeader header;
Erik Andersen3364d782000-03-28 00:58:14 +0000266
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000267 if (sizeof(header) != 512)
268 BUG_tar_header_size();
269
Bernhard Reutner-Fischer6f0540e2006-12-12 11:50:44 +0000270 memset(&header, 0, sizeof(struct TarHeader));
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000271
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000272 strncpy(header.name, header_name, sizeof(header.name));
Erik Andersenecd51242000-04-08 03:08:21 +0000273
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000274 /* POSIX says to mask mode with 07777. */
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000275 PUT_OCTAL(header.mode, statbuf->st_mode & 07777);
276 PUT_OCTAL(header.uid, statbuf->st_uid);
277 PUT_OCTAL(header.gid, statbuf->st_gid);
Denis Vlasenkob8a8e602006-11-24 14:59:45 +0000278 memset(header.size, '0', sizeof(header.size)-1); /* Regular file size is handled later */
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000279 PUT_OCTAL(header.mtime, statbuf->st_mtime);
Erik Andersen68a9ea42000-04-04 18:39:50 +0000280
Denis Vlasenkoc50f3702006-11-24 14:57:31 +0000281 /* Enter the user and group names */
282 safe_strncpy(header.uname, get_cached_username(statbuf->st_uid), sizeof(header.uname));
283 safe_strncpy(header.gname, get_cached_groupname(statbuf->st_gid), sizeof(header.gname));
Erik Andersen5661fe02000-04-05 01:00:52 +0000284
Eric Andersen3d957c82000-12-07 00:34:58 +0000285 if (tbInfo->hlInfo) {
286 /* This is a hard link */
287 header.typeflag = LNKTYPE;
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000288 strncpy(header.linkname, tbInfo->hlInfo->name,
289 sizeof(header.linkname));
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000290#if ENABLE_FEATURE_TAR_GNU_EXTENSIONS
291 /* Write out long linkname if needed */
292 if (header.linkname[sizeof(header.linkname)-1])
293 writeLongname(tbInfo->tarFd, GNULONGLINK,
294 tbInfo->hlInfo->name, 0);
295#endif
Eric Andersen3d957c82000-12-07 00:34:58 +0000296 } else if (S_ISLNK(statbuf->st_mode)) {
Denis Vlasenko6ca04442007-02-11 16:19:28 +0000297 char *lpath = xmalloc_readlink_or_warn(fileName);
298 if (!lpath)
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000299 return FALSE;
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000300 header.typeflag = SYMTYPE;
301 strncpy(header.linkname, lpath, sizeof(header.linkname));
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000302#if ENABLE_FEATURE_TAR_GNU_EXTENSIONS
303 /* Write out long linkname if needed */
304 if (header.linkname[sizeof(header.linkname)-1])
305 writeLongname(tbInfo->tarFd, GNULONGLINK, lpath, 0);
306#else
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000307 /* If it is larger than 100 bytes, bail out */
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000308 if (header.linkname[sizeof(header.linkname)-1]) {
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000309 free(lpath);
310 bb_error_msg("names longer than "NAME_SIZE_STR" chars not supported");
311 return FALSE;
312 }
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000313#endif
Mark Whitley8a633262001-04-30 18:17:00 +0000314 free(lpath);
Erik Andersen68a9ea42000-04-04 18:39:50 +0000315 } else if (S_ISDIR(statbuf->st_mode)) {
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000316 header.typeflag = DIRTYPE;
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000317 /* Append '/' only if there is a space for it */
318 if (!header.name[sizeof(header.name)-1])
319 header.name[strlen(header.name)] = '/';
Erik Andersen68a9ea42000-04-04 18:39:50 +0000320 } else if (S_ISCHR(statbuf->st_mode)) {
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000321 header.typeflag = CHRTYPE;
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000322 PUT_OCTAL(header.devmajor, major(statbuf->st_rdev));
323 PUT_OCTAL(header.devminor, minor(statbuf->st_rdev));
Erik Andersen68a9ea42000-04-04 18:39:50 +0000324 } else if (S_ISBLK(statbuf->st_mode)) {
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000325 header.typeflag = BLKTYPE;
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000326 PUT_OCTAL(header.devmajor, major(statbuf->st_rdev));
327 PUT_OCTAL(header.devminor, minor(statbuf->st_rdev));
Erik Andersen68a9ea42000-04-04 18:39:50 +0000328 } else if (S_ISFIFO(statbuf->st_mode)) {
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000329 header.typeflag = FIFOTYPE;
Erik Andersen5661fe02000-04-05 01:00:52 +0000330 } else if (S_ISREG(statbuf->st_mode)) {
Denis Vlasenko87cd4a82006-11-25 23:47:32 +0000331 if (sizeof(statbuf->st_size) > 4
332 && statbuf->st_size > (off_t)0777777777777LL
Denis Vlasenkof2408e62006-11-25 14:48:09 +0000333 ) {
334 bb_error_msg_and_die("cannot store file '%s' "
335 "of size %"OFF_FMT"d, aborting",
336 fileName, statbuf->st_size);
337 }
Denis Vlasenko87cd4a82006-11-25 23:47:32 +0000338 header.typeflag = REGTYPE;
339 PUT_OCTAL(header.size, statbuf->st_size);
Erik Andersen68a9ea42000-04-04 18:39:50 +0000340 } else {
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000341 bb_error_msg("%s: unknown file type", fileName);
342 return FALSE;
Erik Andersen68a9ea42000-04-04 18:39:50 +0000343 }
Erik Andersen68a9ea42000-04-04 18:39:50 +0000344
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000345#if ENABLE_FEATURE_TAR_GNU_EXTENSIONS
346 /* Write out long name if needed */
347 /* (we, like GNU tar, output long linkname *before* long name) */
348 if (header.name[sizeof(header.name)-1])
349 writeLongname(tbInfo->tarFd, GNULONGNAME,
350 header_name, S_ISDIR(statbuf->st_mode));
351#endif
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000352
Erik Andersen5661fe02000-04-05 01:00:52 +0000353 /* Now write the header out to disk */
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000354 chksum_and_xwrite(tbInfo->tarFd, &header);
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000355
Erik Andersen5661fe02000-04-05 01:00:52 +0000356 /* Now do the verbose thing (or not) */
Robert Grieblf2f26e72002-07-23 22:05:47 +0000357 if (tbInfo->verboseFlag) {
Eric Andersenfdd51032000-08-02 18:48:26 +0000358 FILE *vbFd = stdout;
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000359
Eric Andersen70060d22004-03-27 10:02:48 +0000360 if (tbInfo->tarFd == STDOUT_FILENO) /* If the archive goes to stdout, verbose to stderr */
Eric Andersenfdd51032000-08-02 18:48:26 +0000361 vbFd = stderr;
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000362 /* GNU "tar cvvf" prints "extended" listing a-la "ls -l" */
363 /* We don't have such excesses here: for us "v" == "vv" */
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000364 /* '/' is probably a GNUism */
365 fprintf(vbFd, "%s%s\n", header_name,
366 S_ISDIR(statbuf->st_mode) ? "/" : "");
Eric Andersenfdd51032000-08-02 18:48:26 +0000367 }
Erik Andersen3364d782000-03-28 00:58:14 +0000368
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000369 return TRUE;
Erik Andersen3364d782000-03-28 00:58:14 +0000370}
371
Denis Vlasenko218f2f42007-01-24 22:02:01 +0000372#if ENABLE_FEATURE_TAR_FROM
Rob Landley88621d72006-08-29 19:41:06 +0000373static int exclude_file(const llist_t *excluded_files, const char *file)
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000374{
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000375 while (excluded_files) {
376 if (excluded_files->data[0] == '/') {
377 if (fnmatch(excluded_files->data, file,
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000378 FNM_PATHNAME | FNM_LEADING_DIR) == 0)
379 return 1;
380 } else {
381 const char *p;
382
383 for (p = file; p[0] != '\0'; p++) {
384 if ((p == file || p[-1] == '/') && p[0] != '/' &&
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000385 fnmatch(excluded_files->data, p,
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000386 FNM_PATHNAME | FNM_LEADING_DIR) == 0)
387 return 1;
388 }
389 }
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000390 excluded_files = excluded_files->link;
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000391 }
392
393 return 0;
394}
Denis Vlasenko218f2f42007-01-24 22:02:01 +0000395#else
"Vladimir N. Oleynik"a62b0e72005-12-06 12:20:57 +0000396#define exclude_file(excluded_files, file) 0
Denis Vlasenko218f2f42007-01-24 22:02:01 +0000397#endif
Erik Andersen3364d782000-03-28 00:58:14 +0000398
Denis Vlasenkodefc1ea2008-06-27 02:52:20 +0000399static int FAST_FUNC writeFileToTarball(const char *fileName, struct stat *statbuf,
Denis Vlasenko218f2f42007-01-24 22:02:01 +0000400 void *userData, int depth ATTRIBUTE_UNUSED)
Erik Andersen3364d782000-03-28 00:58:14 +0000401{
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000402 struct TarBallInfo *tbInfo = (struct TarBallInfo *) userData;
Matt Kraaie80a2632000-12-19 20:45:49 +0000403 const char *header_name;
Rob Landleye5695532006-01-09 03:07:44 +0000404 int inputFileFd = -1;
Erik Andersen68a9ea42000-04-04 18:39:50 +0000405
Denis Vlasenkoe9b33212007-09-24 19:32:53 +0000406 /* Strip leading '/' (must be before memorizing hardlink's name) */
Matt Kraaie80a2632000-12-19 20:45:49 +0000407 header_name = fileName;
408 while (header_name[0] == '/') {
Denis Vlasenko931de892007-06-21 12:43:45 +0000409 static smallint warned;
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000410
Denis Vlasenko931de892007-06-21 12:43:45 +0000411 if (!warned) {
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000412 bb_error_msg("removing leading '/' from member names");
Denis Vlasenko931de892007-06-21 12:43:45 +0000413 warned = 1;
Matt Kraaia1f97752000-12-19 06:24:08 +0000414 }
Matt Kraaie80a2632000-12-19 20:45:49 +0000415 header_name++;
Matt Kraaia1f97752000-12-19 06:24:08 +0000416 }
417
Denis Vlasenko86e0a222007-09-24 19:07:57 +0000418 if (header_name[0] == '\0')
419 return TRUE;
420
Denis Vlasenkoe9b33212007-09-24 19:32:53 +0000421 /* It is against the rules to archive a socket */
422 if (S_ISSOCK(statbuf->st_mode)) {
423 bb_error_msg("%s: socket ignored", fileName);
424 return TRUE;
425 }
426
Denis Vlasenko86e0a222007-09-24 19:07:57 +0000427 /*
428 * Check to see if we are dealing with a hard link.
429 * If so -
430 * Treat the first occurance of a given dev/inode as a file while
431 * treating any additional occurances as hard links. This is done
432 * by adding the file information to the HardLinkInfo linked list.
433 */
434 tbInfo->hlInfo = NULL;
435 if (statbuf->st_nlink > 1) {
436 tbInfo->hlInfo = findHardLinkInfo(tbInfo->hlInfoHead, statbuf);
437 if (tbInfo->hlInfo == NULL)
438 addHardLinkInfo(&tbInfo->hlInfoHead, statbuf, header_name);
439 }
440
Denis Vlasenko86e0a222007-09-24 19:07:57 +0000441 /* It is a bad idea to store the archive we are in the process of creating,
442 * so check the device and inode to be sure that this particular file isn't
443 * the new tarball */
444 if (tbInfo->statBuf.st_dev == statbuf->st_dev
445 && tbInfo->statBuf.st_ino == statbuf->st_ino
446 ) {
447 bb_error_msg("%s: file is the archive; skipping", fileName);
448 return TRUE;
449 }
450
451 if (exclude_file(tbInfo->excludeList, header_name))
452 return SKIP;
453
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000454#if !ENABLE_FEATURE_TAR_GNU_EXTENSIONS
Denis Vlasenko86e0a222007-09-24 19:07:57 +0000455 if (strlen(header_name) >= NAME_SIZE) {
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000456 bb_error_msg("names longer than "NAME_SIZE_STR" chars not supported");
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000457 return TRUE;
Eric Andersen1b1cfde2000-09-24 00:54:37 +0000458 }
Denis Vlasenko7725d0f2006-11-25 23:56:50 +0000459#endif
Eric Andersen1b1cfde2000-09-24 00:54:37 +0000460
Rob Landleye5695532006-01-09 03:07:44 +0000461 /* Is this a regular file? */
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000462 if (tbInfo->hlInfo == NULL && S_ISREG(statbuf->st_mode)) {
Erik Andersen5661fe02000-04-05 01:00:52 +0000463 /* open the file we want to archive, and make sure all is well */
Denis Vlasenko50f7f442007-04-11 23:20:53 +0000464 inputFileFd = open_or_warn(fileName, O_RDONLY);
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000465 if (inputFileFd < 0) {
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000466 return FALSE;
Erik Andersen5661fe02000-04-05 01:00:52 +0000467 }
Rob Landleye5695532006-01-09 03:07:44 +0000468 }
469
470 /* Add an entry to the tarball */
471 if (writeTarHeader(tbInfo, header_name, fileName, statbuf) == FALSE) {
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000472 return FALSE;
Rob Landleye5695532006-01-09 03:07:44 +0000473 }
474
475 /* If it was a regular file, write out the body */
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000476 if (inputFileFd >= 0) {
Denis Vlasenko714701c2006-12-22 00:21:07 +0000477 size_t readSize;
Denis Vlasenko50f7f442007-04-11 23:20:53 +0000478 /* Write the file to the archive. */
Denis Vlasenko714701c2006-12-22 00:21:07 +0000479 /* We record size into header first, */
480 /* and then write out file. If file shrinks in between, */
481 /* tar will be corrupted. So we don't allow for that. */
482 /* NB: GNU tar 1.16 warns and pads with zeroes */
483 /* or even seeks back and updates header */
484 bb_copyfd_exact_size(inputFileFd, tbInfo->tarFd, statbuf->st_size);
485 ////off_t readSize;
486 ////readSize = bb_copyfd_size(inputFileFd, tbInfo->tarFd, statbuf->st_size);
487 ////if (readSize != statbuf->st_size && readSize >= 0) {
488 //// bb_error_msg_and_die("short read from %s, aborting", fileName);
489 ////}
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000490
Denis Vlasenko4fbb5842006-11-24 14:55:23 +0000491 /* Check that file did not grow in between? */
Denis Vlasenko714701c2006-12-22 00:21:07 +0000492 /* if (safe_read(inputFileFd, 1) == 1) warn but continue? */
493
Rob Landleye5695532006-01-09 03:07:44 +0000494 close(inputFileFd);
Glenn L McGrath7ffe1332003-11-21 22:24:57 +0000495
Erik Andersen5661fe02000-04-05 01:00:52 +0000496 /* Pad the file up to the tar block size */
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000497 /* (a few tricks here in the name of code size) */
Denis Vlasenko714701c2006-12-22 00:21:07 +0000498 readSize = (-(int)statbuf->st_size) & (TAR_BLOCK_SIZE-1);
Denis Vlasenko74324c82007-06-04 10:16:52 +0000499 memset(block_buf, 0, readSize);
500 xwrite(tbInfo->tarFd, block_buf, readSize);
Erik Andersen5661fe02000-04-05 01:00:52 +0000501 }
Erik Andersen68a9ea42000-04-04 18:39:50 +0000502
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000503 return TRUE;
Erik Andersen6acaa402000-03-26 14:03:20 +0000504}
505
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000506#if ENABLE_FEATURE_TAR_GZIP || ENABLE_FEATURE_TAR_BZIP2
Denis Vlasenko7a762f92008-06-14 19:38:35 +0000507#if !(ENABLE_FEATURE_TAR_GZIP && ENABLE_FEATURE_TAR_BZIP2)
508#define vfork_compressor(tar_fd, gzip) vfork_compressor(tar_fd)
509#endif
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000510/* Don't inline: vfork scares gcc and pessimizes code */
511static void NOINLINE vfork_compressor(int tar_fd, int gzip)
Erik Andersen6acaa402000-03-26 14:03:20 +0000512{
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000513 pid_t gzipPid;
514#if ENABLE_FEATURE_TAR_GZIP && ENABLE_FEATURE_TAR_BZIP2
515 const char *zip_exec = (gzip == 1) ? "gzip" : "bzip2";
516#elif ENABLE_FEATURE_TAR_GZIP
517 const char *zip_exec = "gzip";
518#else /* only ENABLE_FEATURE_TAR_BZIP2 */
519 const char *zip_exec = "bzip2";
520#endif
521 // On Linux, vfork never unpauses parent early, although standard
522 // allows for that. Do we want to waste bytes checking for it?
523#define WAIT_FOR_CHILD 0
524 volatile int vfork_exec_errno = 0;
525 struct fd_pair gzipDataPipe;
526#if WAIT_FOR_CHILD
527 struct fd_pair gzipStatusPipe;
528 xpiped_pair(gzipStatusPipe);
529#endif
530 xpiped_pair(gzipDataPipe);
531
532 signal(SIGPIPE, SIG_IGN); /* we only want EPIPE on errors */
533
534#if defined(__GNUC__) && __GNUC__
535 /* Avoid vfork clobbering */
536 (void) &zip_exec;
537#endif
538
539 gzipPid = vfork();
540 if (gzipPid < 0)
541 bb_perror_msg_and_die("can't vfork");
542
543 if (gzipPid == 0) {
544 /* child */
545 /* NB: close _first_, then move fds! */
546 close(gzipDataPipe.wr);
547#if WAIT_FOR_CHILD
548 close(gzipStatusPipe.rd);
549 /* gzipStatusPipe.wr will close only on exec -
550 * parent waits for this close to happen */
551 fcntl(gzipStatusPipe.wr, F_SETFD, FD_CLOEXEC);
552#endif
553 xmove_fd(gzipDataPipe.rd, 0);
554 xmove_fd(tar_fd, 1);
555 /* exec gzip/bzip2 program/applet */
556 BB_EXECLP(zip_exec, zip_exec, "-f", NULL);
557 vfork_exec_errno = errno;
Bernhard Reutner-Fischer636a1f82008-05-19 09:29:47 +0000558 _exit(EXIT_FAILURE);
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000559 }
560
561 /* parent */
562 xmove_fd(gzipDataPipe.wr, tar_fd);
563 close(gzipDataPipe.rd);
564#if WAIT_FOR_CHILD
565 close(gzipStatusPipe.wr);
566 while (1) {
567 char buf;
568 int n;
569
570 /* Wait until child execs (or fails to) */
571 n = full_read(gzipStatusPipe.rd, &buf, 1);
572 if (n < 0 /* && errno == EAGAIN */)
573 continue; /* try it again */
574 }
575 close(gzipStatusPipe.rd);
576#endif
577 if (vfork_exec_errno) {
578 errno = vfork_exec_errno;
579 bb_perror_msg_and_die("cannot exec %s", zip_exec);
580 }
581}
582#endif /* ENABLE_FEATURE_TAR_GZIP || ENABLE_FEATURE_TAR_BZIP2 */
583
584
585/* gcc 4.2.1 inlines it, making code bigger */
586static NOINLINE int writeTarFile(int tar_fd, int verboseFlag,
587 int dereferenceFlag, const llist_t *include,
588 const llist_t *exclude, int gzip)
589{
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000590 int errorFlag = FALSE;
Erik Andersen68a9ea42000-04-04 18:39:50 +0000591 struct TarBallInfo tbInfo;
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000592
Eric Andersen3d957c82000-12-07 00:34:58 +0000593 tbInfo.hlInfoHead = NULL;
Erik Andersen3364d782000-03-28 00:58:14 +0000594
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000595 fchmod(tar_fd, 0644);
596 tbInfo.tarFd = tar_fd;
597 tbInfo.verboseFlag = verboseFlag;
Robert Grieblf2f26e72002-07-23 22:05:47 +0000598
Erik Andersen68a9ea42000-04-04 18:39:50 +0000599 /* Store the stat info for the tarball's file, so
600 * can avoid including the tarball into itself.... */
601 if (fstat(tbInfo.tarFd, &tbInfo.statBuf) < 0)
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000602 bb_perror_msg_and_die("cannot stat tar file");
Erik Andersen6acaa402000-03-26 14:03:20 +0000603
Denis Vlasenko431a7c92008-02-19 11:26:28 +0000604#if ENABLE_FEATURE_TAR_GZIP || ENABLE_FEATURE_TAR_BZIP2
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000605 if (gzip)
606 vfork_compressor(tbInfo.tarFd, gzip);
Denis Vlasenko431a7c92008-02-19 11:26:28 +0000607#endif
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000608
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000609 tbInfo.excludeList = exclude;
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000610
Erik Andersen6acaa402000-03-26 14:03:20 +0000611 /* Read the directory/files and iterate over them one at a time */
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000612 while (include) {
Denis Vlasenkobbd695d2007-04-08 10:52:28 +0000613 if (!recursive_action(include->data, ACTION_RECURSE |
614 (dereferenceFlag ? ACTION_FOLLOWLINKS : 0),
Bernhard Reutner-Fischer3e816c12007-03-29 10:30:50 +0000615 writeFileToTarball, writeFileToTarball, &tbInfo, 0))
Rob Landley60fe7bf2005-10-16 03:54:49 +0000616 {
Erik Andersen68a9ea42000-04-04 18:39:50 +0000617 errorFlag = TRUE;
Erik Andersen3364d782000-03-28 00:58:14 +0000618 }
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000619 include = include->link;
Erik Andersen6acaa402000-03-26 14:03:20 +0000620 }
Erik Andersen5661fe02000-04-05 01:00:52 +0000621 /* Write two empty blocks to the end of the archive */
Denis Vlasenko74324c82007-06-04 10:16:52 +0000622 memset(block_buf, 0, 2*TAR_BLOCK_SIZE);
623 xwrite(tbInfo.tarFd, block_buf, 2*TAR_BLOCK_SIZE);
Erik Andersen0817d132000-04-09 15:17:40 +0000624
625 /* To be pedantically correct, we would check if the tarball
Eric Andersen3c5ee9a2000-11-14 22:15:48 +0000626 * is smaller than 20 tar blocks, and pad it if it was smaller,
Erik Andersen0817d132000-04-09 15:17:40 +0000627 * but that isn't necessary for GNU tar interoperability, and
628 * so is considered a waste of space */
629
Rob Landley1a781032005-12-16 21:33:10 +0000630 /* Close so the child process (if any) will exit */
631 close(tbInfo.tarFd);
632
Erik Andersen68a9ea42000-04-04 18:39:50 +0000633 /* Hang up the tools, close up shop, head home */
Rob Landley1a781032005-12-16 21:33:10 +0000634 if (ENABLE_FEATURE_CLEAN_UP)
Rob Landley60fe7bf2005-10-16 03:54:49 +0000635 freeHardLinkInfo(&tbInfo.hlInfoHead);
Rob Landley60fe7bf2005-10-16 03:54:49 +0000636
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000637 if (errorFlag)
Denis Vlasenkoe1a0d482006-10-20 13:28:22 +0000638 bb_error_msg("error exit delayed from previous errors");
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000639
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000640#if ENABLE_FEATURE_TAR_GZIP || ENABLE_FEATURE_TAR_BZIP2
641 if (gzip) {
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000642 int status;
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000643 if (safe_waitpid(-1, &status, 0) == -1)
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000644 bb_perror_msg("waitpid");
645 else if (!WIFEXITED(status) || WEXITSTATUS(status))
646 /* gzip was killed or has exited with nonzero! */
647 errorFlag = TRUE;
648 }
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000649#endif
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000650 return errorFlag;
Erik Andersen6acaa402000-03-26 14:03:20 +0000651}
Rob Landley60fe7bf2005-10-16 03:54:49 +0000652#else
Denis Vlasenko5a07a1d2008-04-21 21:56:07 +0000653int writeTarFile(int tar_fd, int verboseFlag,
654 int dereferenceFlag, const llist_t *include,
655 const llist_t *exclude, int gzip);
Denis Vlasenko218f2f42007-01-24 22:02:01 +0000656#endif /* FEATURE_TAR_CREATE */
Erik Andersen6acaa402000-03-26 14:03:20 +0000657
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000658#if ENABLE_FEATURE_TAR_FROM
Eric Andersen27cb6842003-06-26 09:07:59 +0000659static llist_t *append_file_list_to_list(llist_t *list)
Glenn L McGrathd642a672001-10-13 06:54:45 +0000660{
Eric Andersen27cb6842003-06-26 09:07:59 +0000661 FILE *src_stream;
Glenn L McGrathc5c1a8a2002-10-19 06:19:22 +0000662 char *line;
Eric Andersen27cb6842003-06-26 09:07:59 +0000663 llist_t *newlist = NULL;
664
Denis Vlasenkod50dda82008-06-15 05:40:56 +0000665 while (list) {
666 src_stream = xfopen(llist_pop(&list), "r");
Denis Vlasenko8ee649a2008-03-26 20:04:27 +0000667 while ((line = xmalloc_fgetline(src_stream)) != NULL) {
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000668 /* kill trailing '/' unless the string is just "/" */
669 char *cp = last_char_is(line, '/');
670 if (cp > line)
671 *cp = '\0';
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000672 llist_add_to(&newlist, line);
Denis Vlasenko314908d2006-09-03 14:04:33 +0000673 }
Rob Landley60fe7bf2005-10-16 03:54:49 +0000674 fclose(src_stream);
Eric Andersen27cb6842003-06-26 09:07:59 +0000675 }
676 return newlist;
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000677}
Rob Landley60fe7bf2005-10-16 03:54:49 +0000678#else
Denis Vlasenko218f2f42007-01-24 22:02:01 +0000679#define append_file_list_to_list(x) 0
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000680#endif
Erik Andersen6acaa402000-03-26 14:03:20 +0000681
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000682#if ENABLE_FEATURE_TAR_COMPRESS
Denis Vlasenkodefc1ea2008-06-27 02:52:20 +0000683static char FAST_FUNC get_header_tar_Z(archive_handle_t *archive_handle)
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000684{
Denis Vlasenkoe1a0d482006-10-20 13:28:22 +0000685 /* Can't lseek over pipes */
Denis Vlasenko13858992006-10-08 12:49:22 +0000686 archive_handle->seek = seek_by_read;
Eric Andersen27cb6842003-06-26 09:07:59 +0000687
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000688 /* do the decompression, and cleanup */
Denis Vlasenkocf30cc82006-11-24 14:53:18 +0000689 if (xread_char(archive_handle->src_fd) != 0x1f
690 || xread_char(archive_handle->src_fd) != 0x9d
691 ) {
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000692 bb_error_msg_and_die("invalid magic");
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000693 }
694
Denis Vlasenko059c9172007-11-12 02:13:12 +0000695 archive_handle->src_fd = open_transformer(archive_handle->src_fd, uncompress, "uncompress");
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000696 archive_handle->offset = 0;
Denis Vlasenko0c45bb232006-09-09 12:49:03 +0000697 while (get_header_tar(archive_handle) == EXIT_SUCCESS)
Denis Vlasenko476b0702007-09-09 14:11:11 +0000698 continue;
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000699
700 /* Can only do one file at a time */
Denis Vlasenkoe1a0d482006-10-20 13:28:22 +0000701 return EXIT_FAILURE;
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000702}
Rob Landley60fe7bf2005-10-16 03:54:49 +0000703#else
Denis Vlasenko218f2f42007-01-24 22:02:01 +0000704#define get_header_tar_Z NULL
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000705#endif
706
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000707#ifdef CHECK_FOR_CHILD_EXITCODE
708/* Looks like it isn't needed - tar detects malformed (truncated)
709 * archive if e.g. bunzip2 fails */
710static int child_error;
711
712static void handle_SIGCHLD(int status)
713{
714 /* Actually, 'status' is a signo. We reuse it for other needs */
715
716 /* Wait for any child without blocking */
Denis Vlasenkofb0eba72008-01-02 19:55:04 +0000717 if (wait_any_nohang(&status) < 0)
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000718 /* wait failed?! I'm confused... */
719 return;
720
721 if (WIFEXITED(status) && WEXITSTATUS(status)==0)
722 /* child exited with 0 */
723 return;
Denis Vlasenkof7996f32007-01-11 17:20:00 +0000724 /* Cannot happen?
Denis Vlasenko51742f42007-04-12 00:32:05 +0000725 if (!WIFSIGNALED(status) && !WIFEXITED(status)) return; */
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000726 child_error = 1;
727}
728#endif
729
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000730enum {
731 OPTBIT_KEEP_OLD = 7,
732 USE_FEATURE_TAR_CREATE( OPTBIT_CREATE ,)
733 USE_FEATURE_TAR_CREATE( OPTBIT_DEREFERENCE ,)
734 USE_FEATURE_TAR_BZIP2( OPTBIT_BZIP2 ,)
735 USE_FEATURE_TAR_LZMA( OPTBIT_LZMA ,)
736 USE_FEATURE_TAR_FROM( OPTBIT_INCLUDE_FROM,)
737 USE_FEATURE_TAR_FROM( OPTBIT_EXCLUDE_FROM,)
738 USE_FEATURE_TAR_GZIP( OPTBIT_GZIP ,)
739 USE_FEATURE_TAR_COMPRESS(OPTBIT_COMPRESS ,)
740 OPTBIT_NOPRESERVE_OWN,
741 OPTBIT_NOPRESERVE_PERM,
742 OPT_TEST = 1 << 0, // t
743 OPT_EXTRACT = 1 << 1, // x
744 OPT_BASEDIR = 1 << 2, // C
745 OPT_TARNAME = 1 << 3, // f
746 OPT_2STDOUT = 1 << 4, // O
747 OPT_P = 1 << 5, // p
748 OPT_VERBOSE = 1 << 6, // v
749 OPT_KEEP_OLD = 1 << 7, // k
750 OPT_CREATE = USE_FEATURE_TAR_CREATE( (1<<OPTBIT_CREATE )) + 0, // c
751 OPT_DEREFERENCE = USE_FEATURE_TAR_CREATE( (1<<OPTBIT_DEREFERENCE )) + 0, // h
752 OPT_BZIP2 = USE_FEATURE_TAR_BZIP2( (1<<OPTBIT_BZIP2 )) + 0, // j
753 OPT_LZMA = USE_FEATURE_TAR_LZMA( (1<<OPTBIT_LZMA )) + 0, // a
754 OPT_INCLUDE_FROM = USE_FEATURE_TAR_FROM( (1<<OPTBIT_INCLUDE_FROM)) + 0, // T
755 OPT_EXCLUDE_FROM = USE_FEATURE_TAR_FROM( (1<<OPTBIT_EXCLUDE_FROM)) + 0, // X
756 OPT_GZIP = USE_FEATURE_TAR_GZIP( (1<<OPTBIT_GZIP )) + 0, // z
757 OPT_COMPRESS = USE_FEATURE_TAR_COMPRESS((1<<OPTBIT_COMPRESS )) + 0, // Z
758 OPT_NOPRESERVE_OWN = 1 << OPTBIT_NOPRESERVE_OWN , // no-same-owner
759 OPT_NOPRESERVE_PERM = 1 << OPTBIT_NOPRESERVE_PERM, // no-same-permissions
760};
761#if ENABLE_FEATURE_TAR_LONG_OPTIONS
Denis Vlasenko6ca409e2007-08-12 20:58:27 +0000762static const char tar_longopts[] ALIGN1 =
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000763 "list\0" No_argument "t"
764 "extract\0" No_argument "x"
765 "directory\0" Required_argument "C"
766 "file\0" Required_argument "f"
767 "to-stdout\0" No_argument "O"
768 "same-permissions\0" No_argument "p"
769 "verbose\0" No_argument "v"
770 "keep-old\0" No_argument "k"
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000771# if ENABLE_FEATURE_TAR_CREATE
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000772 "create\0" No_argument "c"
773 "dereference\0" No_argument "h"
Glenn L McGrathce91c8a2003-12-26 14:01:37 +0000774# endif
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000775# if ENABLE_FEATURE_TAR_BZIP2
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000776 "bzip2\0" No_argument "j"
Glenn L McGrathce91c8a2003-12-26 14:01:37 +0000777# endif
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000778# if ENABLE_FEATURE_TAR_LZMA
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000779 "lzma\0" No_argument "a"
Rob Landleyc1d69902006-01-20 18:28:50 +0000780# endif
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000781# if ENABLE_FEATURE_TAR_FROM
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000782 "files-from\0" Required_argument "T"
783 "exclude-from\0" Required_argument "X"
Glenn L McGrathce91c8a2003-12-26 14:01:37 +0000784# endif
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000785# if ENABLE_FEATURE_TAR_GZIP
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000786 "gzip\0" No_argument "z"
Glenn L McGrathce91c8a2003-12-26 14:01:37 +0000787# endif
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000788# if ENABLE_FEATURE_TAR_COMPRESS
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000789 "compress\0" No_argument "Z"
Glenn L McGrathce91c8a2003-12-26 14:01:37 +0000790# endif
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000791 "no-same-owner\0" No_argument "\xfd"
792 "no-same-permissions\0" No_argument "\xfe"
Denis Vlasenko30d7a342006-11-27 20:24:40 +0000793 /* --exclude takes next bit position in option mask, */
794 /* therefore we have to either put it _after_ --no-same-perm */
795 /* or add OPT[BIT]_EXCLUDE before OPT[BIT]_NOPRESERVE_OWN */
796# if ENABLE_FEATURE_TAR_FROM
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000797 "exclude\0" Required_argument "\xff"
Denis Vlasenko30d7a342006-11-27 20:24:40 +0000798# endif
Denis Vlasenko990d0f62007-07-24 15:54:42 +0000799 ;
Glenn L McGrathce91c8a2003-12-26 14:01:37 +0000800#endif
Glenn L McGrathec87d372002-11-27 07:52:22 +0000801
Denis Vlasenko9b49a5e2007-10-11 10:05:36 +0000802int tar_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
Denis Vlasenkoc4503792008-04-29 02:43:23 +0000803int tar_main(int argc ATTRIBUTE_UNUSED, char **argv)
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000804{
Denis Vlasenkodefc1ea2008-06-27 02:52:20 +0000805 char FAST_FUNC (*get_header_ptr)(archive_handle_t *) = get_header_tar;
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000806 archive_handle_t *tar_handle;
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000807 char *base_dir = NULL;
Glenn L McGrathf66de642002-11-25 23:57:27 +0000808 const char *tar_filename = "-";
Denis Vlasenko67b23e62006-10-03 21:00:06 +0000809 unsigned opt;
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000810 int verboseFlag = 0;
Denis Vlasenko8c0164c2007-02-04 21:30:35 +0000811#if ENABLE_FEATURE_TAR_LONG_OPTIONS && ENABLE_FEATURE_TAR_FROM
"Vladimir N. Oleynik"84e75112005-10-15 06:32:38 +0000812 llist_t *excludes = NULL;
Denis Vlasenko8c0164c2007-02-04 21:30:35 +0000813#endif
Tim Rikerc1ef7bd2006-01-25 00:08:53 +0000814
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000815 /* Initialise default values */
816 tar_handle = init_handle();
Denis Vlasenkoa60936d2008-06-28 05:04:09 +0000817 tar_handle->ah_flags = ARCHIVE_CREATE_LEADING_DIRS
818 | ARCHIVE_PRESERVE_DATE
819 | ARCHIVE_EXTRACT_UNCONDITIONAL;
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000820
"Vladimir N. Oleynik"f704b272005-10-14 09:56:52 +0000821 /* Prepend '-' to the first argument if required */
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000822 opt_complementary = "--:" // first arg is options
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000823 "tt:vv:" // count -t,-v
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000824 "?:" // bail out with usage instead of error return
825 "X::T::" // cumulative lists
Denis Vlasenko8c0164c2007-02-04 21:30:35 +0000826#if ENABLE_FEATURE_TAR_LONG_OPTIONS && ENABLE_FEATURE_TAR_FROM
Denis Vlasenko30d7a342006-11-27 20:24:40 +0000827 "\xff::" // cumulative lists for --exclude
Denis Vlasenko8c0164c2007-02-04 21:30:35 +0000828#endif
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000829 USE_FEATURE_TAR_CREATE("c:") "t:x:" // at least one of these is reqd
830 USE_FEATURE_TAR_CREATE("c--tx:t--cx:x--ct") // mutually exclusive
831 SKIP_FEATURE_TAR_CREATE("t--x:x--t"); // mutually exclusive
Denis Vlasenkoc61852a2006-11-29 11:09:43 +0000832#if ENABLE_FEATURE_TAR_LONG_OPTIONS
Denis Vlasenkobdc88fd2007-07-23 17:14:14 +0000833 applet_long_options = tar_longopts;
Denis Vlasenkoc61852a2006-11-29 11:09:43 +0000834#endif
Denis Vlasenkofe7cd642007-08-18 15:32:12 +0000835 opt = getopt32(argv,
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000836 "txC:f:Opvk"
837 USE_FEATURE_TAR_CREATE( "ch" )
838 USE_FEATURE_TAR_BZIP2( "j" )
839 USE_FEATURE_TAR_LZMA( "a" )
840 USE_FEATURE_TAR_FROM( "T:X:")
841 USE_FEATURE_TAR_GZIP( "z" )
842 USE_FEATURE_TAR_COMPRESS("Z" )
Denis Vlasenko8c0164c2007-02-04 21:30:35 +0000843 , &base_dir // -C dir
844 , &tar_filename // -f filename
845 USE_FEATURE_TAR_FROM(, &(tar_handle->accept)) // T
846 USE_FEATURE_TAR_FROM(, &(tar_handle->reject)) // X
847#if ENABLE_FEATURE_TAR_LONG_OPTIONS && ENABLE_FEATURE_TAR_FROM
848 , &excludes // --exclude
849#endif
850 , &verboseFlag // combined count for -t and -v
851 , &verboseFlag // combined count for -t and -v
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000852 );
Denis Vlasenkoc4503792008-04-29 02:43:23 +0000853 argv += optind;
Rob Landley60fe7bf2005-10-16 03:54:49 +0000854
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000855 if (verboseFlag) tar_handle->action_header = header_verbose_list;
856 if (verboseFlag == 1) tar_handle->action_header = header_list;
857
Denis Vlasenkob5963352006-11-26 01:46:59 +0000858 if (opt & OPT_EXTRACT)
Rob Landley60fe7bf2005-10-16 03:54:49 +0000859 tar_handle->action_data = data_extract_all;
Tim Rikerc1ef7bd2006-01-25 00:08:53 +0000860
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000861 if (opt & OPT_2STDOUT)
Glenn L McGrath3b9fc8f2003-11-18 20:23:04 +0000862 tar_handle->action_data = data_extract_to_stdout;
Rob Landley60fe7bf2005-10-16 03:54:49 +0000863
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000864 if (opt & OPT_KEEP_OLD)
Denis Vlasenkoa60936d2008-06-28 05:04:09 +0000865 tar_handle->ah_flags &= ~ARCHIVE_EXTRACT_UNCONDITIONAL;
Glenn L McGratheba86e22003-11-14 12:53:42 +0000866
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000867 if (opt & OPT_NOPRESERVE_OWN)
Denis Vlasenkoa60936d2008-06-28 05:04:09 +0000868 tar_handle->ah_flags |= ARCHIVE_NOPRESERVE_OWN;
Rob Landleyf3d6c942005-10-27 22:49:08 +0000869
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000870 if (opt & OPT_NOPRESERVE_PERM)
Denis Vlasenkoa60936d2008-06-28 05:04:09 +0000871 tar_handle->ah_flags |= ARCHIVE_NOPRESERVE_PERM;
Rob Landley60fe7bf2005-10-16 03:54:49 +0000872
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000873 if (opt & OPT_GZIP)
Glenn L McGratheba86e22003-11-14 12:53:42 +0000874 get_header_ptr = get_header_tar_gz;
Rob Landley60fe7bf2005-10-16 03:54:49 +0000875
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000876 if (opt & OPT_BZIP2)
Glenn L McGrath3b9fc8f2003-11-18 20:23:04 +0000877 get_header_ptr = get_header_tar_bz2;
Rob Landley60fe7bf2005-10-16 03:54:49 +0000878
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000879 if (opt & OPT_LZMA)
Rob Landleyc1d69902006-01-20 18:28:50 +0000880 get_header_ptr = get_header_tar_lzma;
881
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000882 if (opt & OPT_COMPRESS)
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000883 get_header_ptr = get_header_tar_Z;
Rob Landley60fe7bf2005-10-16 03:54:49 +0000884
Denis Vlasenko8c0164c2007-02-04 21:30:35 +0000885#if ENABLE_FEATURE_TAR_FROM
886 tar_handle->reject = append_file_list_to_list(tar_handle->reject);
887#if ENABLE_FEATURE_TAR_LONG_OPTIONS
888 /* Append excludes to reject */
889 while (excludes) {
890 llist_t *next = excludes->link;
891 excludes->link = tar_handle->reject;
892 tar_handle->reject = excludes;
893 excludes = next;
Glenn L McGrath56f16b42003-11-18 21:37:52 +0000894 }
Denis Vlasenko8c0164c2007-02-04 21:30:35 +0000895#endif
896 tar_handle->accept = append_file_list_to_list(tar_handle->accept);
897#endif
Glenn L McGrathce91c8a2003-12-26 14:01:37 +0000898
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000899 /* Setup an array of filenames to work with */
Eric Andersenaff114c2004-04-14 17:51:38 +0000900 /* TODO: This is the same as in ar, separate function ? */
Denis Vlasenkoc4503792008-04-29 02:43:23 +0000901 while (*argv) {
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000902 /* kill trailing '/' unless the string is just "/" */
Denis Vlasenkoc4503792008-04-29 02:43:23 +0000903 char *cp = last_char_is(*argv, '/');
904 if (cp > *argv)
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000905 *cp = '\0';
Denis Vlasenkoc4503792008-04-29 02:43:23 +0000906 llist_add_to_end(&tar_handle->accept, *argv);
907 argv++;
Glenn L McGrathc5c1a8a2002-10-19 06:19:22 +0000908 }
Glenn L McGrath98f824a2002-10-19 00:46:35 +0000909
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000910 if (tar_handle->accept || tar_handle->reject)
Glenn L McGrathc5c1a8a2002-10-19 06:19:22 +0000911 tar_handle->filter = filter_accept_reject_list;
Glenn L McGratha0ee8812002-08-22 13:44:08 +0000912
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000913 /* Open the tar file */
914 {
915 FILE *tar_stream;
916 int flags;
917
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000918 if (opt & OPT_CREATE) {
Glenn L McGrathba496512003-11-20 09:06:10 +0000919 /* Make sure there is at least one file to tar up. */
Rob Landley60fe7bf2005-10-16 03:54:49 +0000920 if (tar_handle->accept == NULL)
921 bb_error_msg_and_die("empty archive");
922
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000923 tar_stream = stdout;
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000924 /* Mimicking GNU tar 1.15.1: */
925 flags = O_WRONLY|O_CREAT|O_TRUNC;
926 /* was doing unlink; open(O_WRONLY|O_CREAT|O_EXCL); why? */
Rob Landley60fe7bf2005-10-16 03:54:49 +0000927 } else {
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000928 tar_stream = stdin;
929 flags = O_RDONLY;
930 }
931
Denis Vlasenko9f739442006-12-16 23:49:13 +0000932 if (LONE_DASH(tar_filename)) {
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000933 tar_handle->src_fd = fileno(tar_stream);
Denis Vlasenko13858992006-10-08 12:49:22 +0000934 tar_handle->seek = seek_by_read;
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000935 } else {
Denis Vlasenkocf749bc2006-11-26 15:45:17 +0000936 tar_handle->src_fd = xopen(tar_filename, flags);
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000937 }
938 }
939
Bernhard Reutner-Fischerd9cf7ac2006-04-12 18:39:58 +0000940 if (base_dir)
Rob Landley86b4d642006-08-03 17:58:17 +0000941 xchdir(base_dir);
Glenn L McGrath91b3d462003-10-02 14:33:23 +0000942
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000943#ifdef CHECK_FOR_CHILD_EXITCODE
944 /* We need to know whether child (gzip/bzip/etc) exits abnormally */
945 signal(SIGCHLD, handle_SIGCHLD);
946#endif
947
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000948 /* create an archive */
Denis Vlasenkod031ffa2006-11-24 21:54:44 +0000949 if (opt & OPT_CREATE) {
Denis Vlasenko431a7c92008-02-19 11:26:28 +0000950#if ENABLE_FEATURE_TAR_GZIP || ENABLE_FEATURE_TAR_BZIP2
Rob Landleycc8885f2005-08-30 03:40:03 +0000951 int zipMode = 0;
Denis Vlasenko431a7c92008-02-19 11:26:28 +0000952 if (ENABLE_FEATURE_TAR_GZIP && (opt & OPT_GZIP))
Tim Rikerc1ef7bd2006-01-25 00:08:53 +0000953 zipMode = 1;
Denis Vlasenko431a7c92008-02-19 11:26:28 +0000954 if (ENABLE_FEATURE_TAR_BZIP2 && (opt & OPT_BZIP2))
Tim Rikerc1ef7bd2006-01-25 00:08:53 +0000955 zipMode = 2;
Denis Vlasenko431a7c92008-02-19 11:26:28 +0000956#endif
Denis Vlasenkoc8889462006-12-17 19:08:20 +0000957 /* NB: writeTarFile() closes tar_handle->src_fd */
958 return writeTarFile(tar_handle->src_fd, verboseFlag, opt & OPT_DEREFERENCE,
Bernhard Reutner-Fischer18260d52006-04-18 14:17:49 +0000959 tar_handle->accept,
Denis Vlasenko3feb2fc2006-11-24 21:55:55 +0000960 tar_handle->reject, zipMode);
Glenn L McGrath98f824a2002-10-19 00:46:35 +0000961 }
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000962
Denis Vlasenkob8a8e602006-11-24 14:59:45 +0000963 while (get_header_ptr(tar_handle) == EXIT_SUCCESS)
Denis Vlasenko431a7c92008-02-19 11:26:28 +0000964 continue;
Denis Vlasenkob8a8e602006-11-24 14:59:45 +0000965
966 /* Check that every file that should have been extracted was */
967 while (tar_handle->accept) {
968 if (!find_list_entry(tar_handle->reject, tar_handle->accept->data)
969 && !find_list_entry(tar_handle->passed, tar_handle->accept->data)
970 ) {
971 bb_error_msg_and_die("%s: not found in archive",
972 tar_handle->accept->data);
973 }
974 tar_handle->accept = tar_handle->accept->link;
975 }
976 if (ENABLE_FEATURE_CLEAN_UP /* && tar_handle->src_fd != STDIN_FILENO */)
Glenn L McGrath8132e932002-09-28 02:06:39 +0000977 close(tar_handle->src_fd);
Glenn L McGrath7ca04f32002-09-25 02:47:48 +0000978
Denis Vlasenko376ce1e2006-11-24 14:51:01 +0000979 return EXIT_SUCCESS;
Glenn L McGrath2e772ed2001-10-05 02:58:48 +0000980}