/* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License (the "License"). * You may not use this file except in compliance with the License. * * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE * or http://www.opensolaris.org/os/licensing. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at usr/src/OPENSOLARIS.LICENSE. * If applicable, add the following below this CDDL HEADER, with the * fields enclosed by brackets "[]" replaced with your own identifying * information: Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END */ /* * Copyright (c) 1988, 2010, Oracle and/or its affiliates. All rights reserved. */ /* Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T */ /* All Rights Reserved */ /* Copyright (c) 1987, 1988 Microsoft Corporation */ /* All Rights Reserved */ /* * Portions of this source code were derived from Berkeley 4.3 BSD * under license from the Regents of the University of California. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #if defined(__SunOS_5_6) || defined(__SunOS_5_7) extern int defcntl(); #endif #if defined(_PC_SATTR_ENABLED) #include #include #endif /* Trusted Extensions */ #include #include #include #include "getresponse.h" /* * Source compatibility */ /* * These constants come from archives.h and sys/fcntl.h * and were introduced by the extended attributes project * in Solaris 9. */ #if !defined(O_XATTR) #define AT_SYMLINK_NOFOLLOW 0x1000 #define AT_REMOVEDIR 0x1 #define AT_FDCWD 0xffd19553 #define _XATTR_HDRTYPE 'E' static int attropen(); static int fstatat(); static int renameat(); static int unlinkat(); static int openat(); static int fchownat(); static int futimesat(); #endif /* * Compiling with -D_XPG4_2 gets this but produces other problems, so * instead of including sys/time.h and compiling with -D_XPG4_2, I'm * explicitly doing the declaration here. */ int utimes(const char *path, const struct timeval timeval_ptr[]); #ifndef MINSIZE #define MINSIZE 250 #endif #define DEF_FILE "/etc/default/tar" #define min(a, b) ((a) < (b) ? (a) : (b)) #define max(a, b) ((a) > (b) ? (a) : (b)) /* -DDEBUG ONLY for debugging */ #ifdef DEBUG #undef DEBUG #define DEBUG(a, b, c)\ (void) fprintf(stderr, "DEBUG - "), (void) fprintf(stderr, a, b, c) #endif #define TBLOCK 512 /* tape block size--should be universal */ #ifdef BSIZE #define SYS_BLOCK BSIZE /* from sys/param.h: secondary block size */ #else /* BSIZE */ #define SYS_BLOCK 512 /* default if no BSIZE in param.h */ #endif /* BSIZE */ #define NBLOCK 20 #define NAMSIZ 100 #define PRESIZ 155 #define MAXNAM 256 #define MODEMASK 0777777 /* file creation mode mask */ #define POSIXMODES 07777 /* mask for POSIX mode bits */ #define MAXEXT 9 /* reasonable max # extents for a file */ #define EXTMIN 50 /* min blks left on floppy to split a file */ /* max value dblock.dbuf.efsize can store */ #define TAR_EFSIZE_MAX 0777777777 /* * Symbols which specify the values at which the use of the 'E' function * modifier is required to properly store a file. * * TAR_OFFSET_MAX - the largest file size we can archive * OCTAL7CHAR - the limit for ustar gid, uid, dev */ #ifdef XHDR_DEBUG /* tiny values which force the creation of extended header entries */ #define TAR_OFFSET_MAX 9 #define OCTAL7CHAR 2 #else /* normal values */ #define TAR_OFFSET_MAX 077777777777ULL #define OCTAL7CHAR 07777777 #endif #define TBLOCKS(bytes) (((bytes) + TBLOCK - 1) / TBLOCK) #define K(tblocks) ((tblocks+1)/2) /* tblocks to Kbytes for printing */ #define MAXLEV (PATH_MAX / 2) #define LEV0 1 #define SYMLINK_LEV0 0 #define TRUE 1 #define FALSE 0 #define XATTR_FILE 1 #define NORMAL_FILE 0 #define PUT_AS_LINK 1 #define PUT_NOTAS_LINK 0 #ifndef VIEW_READONLY #define VIEW_READONLY "SUNWattr_ro" #endif #ifndef VIEW_READWRITE #define VIEW_READWRITE "SUNWattr_rw" #endif #if _FILE_OFFSET_BITS == 64 #define FMT_off_t "lld" #define FMT_off_t_o "llo" #define FMT_blkcnt_t "lld" #else #define FMT_off_t "ld" #define FMT_off_t_o "lo" #define FMT_blkcnt_t "ld" #endif /* ACL support */ static struct sec_attr { char attr_type; char attr_len[7]; char attr_info[1]; } *attr; #if defined(O_XATTR) typedef enum { ATTR_OK, ATTR_SKIP, ATTR_CHDIR_ERR, ATTR_OPEN_ERR, ATTR_XATTR_ERR, ATTR_SATTR_ERR } attr_status_t; #endif #if defined(O_XATTR) typedef enum { ARC_CREATE, ARC_RESTORE } arc_action_t; #endif typedef struct attr_data { char *attr_parent; char *attr_path; int attr_parentfd; int attr_rw_sysattr; } attr_data_t; /* * * Tar has been changed to support extended attributes. * * As part of this change tar now uses the new *at() syscalls * such as openat, fchownat(), unlinkat()... * * This was done so that attributes can be handled with as few code changes * as possible. * * What this means is that tar now opens the directory that a file or directory * resides in and then performs *at() functions to manipulate the entry. * * For example a new file is now created like this: * * dfd = open() * fd = openat(dfd, ,....); * * or in the case of an extended attribute * * dfd = attropen(, ".", ....) * * Once we have a directory file descriptor all of the *at() functions can * be applied to it. * * unlinkat(dfd, ,...) * fchownat(dfd, ,..) * * This works for both normal namespace files and extended attribute file * */ /* * * Extended attribute Format * * Extended attributes are stored in two pieces. * 1. An attribute header which has information about * what file the attribute is for and what the attribute * is named. * 2. The attribute record itself. Stored as a normal file type * of entry. * Both the header and attribute record have special modes/typeflags * associated with them. * * The names of the header in the archive look like: * /dev/null/attr.hdr * * The name of the attribute looks like: * /dev/null/attr * * This is done so that an archiver that doesn't understand these formats * can just dispose of the attribute records. * * The format is composed of a fixed size header followed * by a variable sized xattr_buf. If the attribute is a hard link * to another attribute then another xattr_buf section is included * for the link. * * The xattr_buf is used to define the necessary "pathing" steps * to get to the extended attribute. This is necessary to support * a fully recursive attribute model where an attribute may itself * have an attribute. * * The basic layout looks like this. * * -------------------------------- * | | * | xattr_hdr | * | | * -------------------------------- * -------------------------------- * | | * | xattr_buf | * | | * -------------------------------- * -------------------------------- * | | * | (optional link info) | * | | * -------------------------------- * -------------------------------- * | | * | attribute itself | * | stored as normal tar | * | or cpio data with | * | special mode or | * | typeflag | * | | * -------------------------------- * */ /* * xattrhead is a pointer to the xattr_hdr * * xattrp is a pointer to the xattr_buf structure * which contains the "pathing" steps to get to attributes * * xattr_linkp is a pointer to another xattr_buf structure that is * only used when an attribute is actually linked to another attribute * */ static struct xattr_hdr *xattrhead; static struct xattr_buf *xattrp; static struct xattr_buf *xattr_linkp; /* pointer to link info, if any */ static char *xattrapath; /* attribute name */ static char *xattr_linkaname; /* attribute attribute is linked to */ static char Hiddendir; /* are we processing hidden xattr dir */ static char xattrbadhead; /* Was statically allocated tbuf[NBLOCK] */ static union hblock { char dummy[TBLOCK]; struct header { char name[NAMSIZ]; /* If non-null prefix, path is */ /* /; otherwise */ /* */ char mode[8]; char uid[8]; char gid[8]; char size[12]; /* size of this extent if file split */ char mtime[12]; char chksum[8]; char typeflag; char linkname[NAMSIZ]; char magic[6]; char version[2]; char uname[32]; char gname[32]; char devmajor[8]; char devminor[8]; char prefix[PRESIZ]; /* Together with "name", the path of */ /* the file: / */ char extno; /* extent #, null if not split */ char extotal; /* total extents */ char efsize[10]; /* size of entire file */ } dbuf; } dblock, *tbuf, xhdr_buf; static struct xtar_hdr { uid_t x_uid, /* Uid of file */ x_gid; /* Gid of file */ major_t x_devmajor; /* Device major node */ minor_t x_devminor; /* Device minor node */ off_t x_filesz; /* Length of file */ char *x_uname, /* Pointer to name of user */ *x_gname, /* Pointer to gid of user */ *x_linkpath, /* Path for a hard/symbolic link */ *x_path; /* Path of file */ timestruc_t x_mtime; /* Seconds and nanoseconds */ } Xtarhdr; static struct gen_hdr { ulong_t g_mode; /* Mode of file */ uid_t g_uid, /* Uid of file */ g_gid; /* Gid of file */ off_t g_filesz; /* Length of file */ time_t g_mtime; /* Modification time */ uint_t g_cksum; /* Checksum of file */ ulong_t g_devmajor, /* File system of file */ g_devminor; /* Major/minor of special files */ } Gen; static struct linkbuf { ino_t inum; dev_t devnum; int count; char pathname[MAXNAM+1]; /* added 1 for last NULL */ char attrname[MAXNAM+1]; struct linkbuf *nextp; } *ihead; /* see comments before build_table() */ #define TABLE_SIZE 512 typedef struct file_list { char *name; /* Name of file to {in,ex}clude */ struct file_list *next; /* Linked list */ } file_list_t; static file_list_t *exclude_tbl[TABLE_SIZE], *include_tbl[TABLE_SIZE]; static int append_secattr(char **, int *, int, char *, char); static void write_ancillary(union hblock *, char *, int, char); static void add_file_to_table(file_list_t *table[], char *str); static void assert_string(char *s, char *msg); static int istape(int fd, int type); static void backtape(void); static void build_table(file_list_t *table[], char *file); static int check_prefix(char **namep, char **dirp, char **compp); static void closevol(void); static void copy(void *dst, void *src); static int convtoreg(off_t); static void delete_target(int fd, char *comp, char *namep); static void doDirTimes(char *name, timestruc_t modTime); static void done(int n); static void dorep(char *argv[]); #ifdef _iBCS2 static void dotable(char *argv[], int cnt); static void doxtract(char *argv[], int cnt); #else static void dotable(char *argv[]); static void doxtract(char *argv[]); #endif static int tar_chdir(const char *path); static int is_directory(char *name); static int has_dot_dot(char *name); static int is_absolute(char *name); static char *make_relative_name(char *name, char **stripped_prefix); static void fatal(char *format, ...); static void vperror(int exit_status, char *fmt, ...); static void flushtape(void); static void getdir(void); static void *getmem(size_t); static void longt(struct stat *st, char aclchar); static void load_info_from_xtarhdr(u_longlong_t flag, struct xtar_hdr *xhdrp); static int makeDir(char *name); static void mterr(char *operation, int i, int exitcode); static void newvol(void); static void passtape(void); static void putempty(blkcnt_t n); static int putfile(char *longname, char *shortname, char *parent, attr_data_t *attrinfo, int filetype, int lev, int symlink_lev); static void readtape(char *buffer); static void seekdisk(blkcnt_t blocks); static void setPathTimes(int dirfd, char *path, timestruc_t modTime); static void setbytes_to_skip(struct stat *st, int err); static void splitfile(char *longname, int ifd, char *name, char *prefix, int filetype); static void tomodes(struct stat *sp); static void usage(void); static int xblocks(int issysattr, off_t bytes, int ofile); static int xsfile(int issysattr, int ofd); static void resugname(int dirfd, char *name, int symflag); static int bcheck(char *bstr); static int checkdir(char *name); static int checksum(union hblock *dblockp); #ifdef EUC static int checksum_signed(union hblock *dblockp); #endif /* EUC */ static int checkupdate(char *arg); static int checkw(char c, char *name); static int cmp(char *b, char *s, int n); static int defset(char *arch); static int endtape(void); static int is_in_table(file_list_t *table[], char *str); static int notsame(void); static int is_prefix(char *s1, char *s2); static int response(void); static int build_dblock(const char *, const char *, const char, const int filetype, const struct stat *, const dev_t, const char *); static unsigned int hash(char *str); #ifdef _iBCS2 static void initarg(char *argv[], char *file); static char *nextarg(); #endif static blkcnt_t kcheck(char *kstr); static off_t bsrch(char *s, int n, off_t l, off_t h); static void onintr(int sig); static void onquit(int sig); static void onhup(int sig); static uid_t getuidbyname(char *); static gid_t getgidbyname(char *); static char *getname(gid_t); static char *getgroup(gid_t); static int checkf(char *name, int mode, int howmuch); static int writetbuf(char *buffer, int n); static int wantit(char *argv[], char **namep, char **dirp, char **comp, attr_data_t **attrinfo); static void append_ext_attr(char *shortname, char **secinfo, int *len); static int get_xdata(void); static void gen_num(const char *keyword, const u_longlong_t number); static void gen_date(const char *keyword, const timestruc_t time_value); static void gen_string(const char *keyword, const char *value); static void get_xtime(char *value, timestruc_t *xtime); static int chk_path_build(char *name, char *longname, char *linkname, char *prefix, char type, int filetype); static int gen_utf8_names(const char *filename); static int utf8_local(char *option, char **Xhdr_ptrptr, char *target, const char *src, int max_val); static int local_utf8(char **Xhdr_ptrptr, char *target, const char *src, iconv_t iconv_cd, int xhdrflg, int max_val); static int c_utf8(char *target, const char *source); static int getstat(int dirfd, char *longname, char *shortname, char *attrparent); static void xattrs_put(char *, char *, char *, char *); static void prepare_xattr(char **, char *, char *, char, struct linkbuf *, int *); static int put_link(char *name, char *longname, char *component, char *longattrname, char *prefix, int filetype, char typeflag); static int put_extra_attributes(char *longname, char *shortname, char *longattrname, char *prefix, int filetype, char typeflag); static int put_xattr_hdr(char *longname, char *shortname, char *longattrname, char *prefix, int typeflag, int filetype, struct linkbuf *lp); static int read_xattr_hdr(attr_data_t **attrinfo); /* Trusted Extensions */ #define AUTO_ZONE "/zone" static void extract_attr(char **file_ptr, struct sec_attr *); static int check_ext_attr(char *filename); static void rebuild_comp_path(char *str, char **namep); static int rebuild_lk_comp_path(char *str, char **namep); static void get_parent(char *path, char *dir); static char *get_component(char *path); static int retry_open_attr(int pdirfd, int cwd, char *dirp, char *pattr, char *name, int oflag, mode_t mode); static char *skipslashes(char *string, char *start); static void chop_endslashes(char *path); static pid_t compress_file(void); static void compress_back(void); static void decompress_file(void); static pid_t uncompress_file(void); static void *compress_malloc(size_t); static void check_compression(); static char *bz_suffix(); static char *gz_suffix(); static char *add_suffix(); static void wait_pid(pid_t); static struct stat stbuf; static char *myname; static int checkflag = 0; #ifdef _iBCS2 static int Fileflag; char *sysv3_env; #endif static int Xflag, Fflag, iflag, hflag, Bflag, Iflag; static int rflag, xflag, vflag, tflag, mt, svmt, cflag, mflag, pflag; static int uflag; static int eflag, errflag, qflag; static int oflag; static int bflag, kflag, Aflag; static int Pflag; /* POSIX conformant archive */ static int Eflag; /* Allow files greater than 8GB */ static int atflag; /* traverse extended attributes */ static int saflag; /* traverse extended sys attributes */ static int Dflag; /* Data change flag */ static int jflag; /* flag to use 'bzip2' */ static int zflag; /* flag to use 'gzip' */ static int Zflag; /* flag to use 'compress' */ /* Trusted Extensions */ static int Tflag; /* Trusted Extensions attr flags */ static int dir_flag; /* for attribute extract */ static int mld_flag; /* for attribute extract */ static char *orig_namep; /* original namep - unadorned */ static int rpath_flag; /* MLD real path is rebuilt */ static char real_path[MAXPATHLEN]; /* MLD real path */ static int lk_rpath_flag; /* linked to real path is rebuilt */ static char lk_real_path[MAXPATHLEN]; /* linked real path */ static bslabel_t bs_label; /* for attribute extract */ static bslabel_t admin_low; static bslabel_t admin_high; static int ignored_aprivs = 0; static int ignored_fprivs = 0; static int ignored_fattrs = 0; static int term, chksum, wflag, first = TRUE, defaults_used = FALSE, linkerrok; static blkcnt_t recno; static int freemem = 1; static int nblock = NBLOCK; static int Errflg = 0; static int exitflag = 0; static dev_t mt_dev; /* device containing output file */ static ino_t mt_ino; /* inode number of output file */ static int mt_devtype; /* dev type of archive, from stat structure */ static int update = 1; /* for `open' call */ static off_t low; static off_t high; static FILE *tfile; static FILE *vfile = stdout; static char *tmpdir; static char *tmp_suffix = "/tarXXXXXX"; static char *tname; static char archive[] = "archive0="; static char *Xfile; static char *usefile; static char tfname[1024]; static char *Filefile; static int mulvol; /* multi-volume option selected */ static blkcnt_t blocklim; /* number of blocks to accept per volume */ static blkcnt_t tapepos; /* current block number to be written */ static int NotTape; /* true if tape is a disk */ static int dumping; /* true if writing a tape or other archive */ static int extno; /* number of extent: starts at 1 */ static int extotal; /* total extents in this file */ static off_t extsize; /* size of current extent during extraction */ static ushort_t Oumask = 0; /* old umask value */ static int is_posix; /* true if archive we're reading is POSIX-conformant */ static const char *magic_type = "ustar"; static size_t xrec_size = 8 * PATH_MAX; /* extended rec initial size */ static char *xrec_ptr; static off_t xrec_offset = 0; static int Xhdrflag; static int charset_type = 0; static u_longlong_t xhdr_flgs; /* Bits set determine which items */ /* need to be in extended header. */ #define _X_DEVMAJOR 0x1 #define _X_DEVMINOR 0x2 #define _X_GID 0x4 #define _X_GNAME 0x8 #define _X_LINKPATH 0x10 #define _X_PATH 0x20 #define _X_SIZE 0x40 #define _X_UID 0x80 #define _X_UNAME 0x100 #define _X_ATIME 0x200 #define _X_CTIME 0x400 #define _X_MTIME 0x800 #define _X_XHDR 0x1000 /* Bit flag that determines whether 'X' */ /* typeflag was followed by 'A' or non 'A' */ /* typeflag. */ #define _X_LAST 0x40000000 #define PID_MAX_DIGITS (10 * sizeof (pid_t) / 4) #define TIME_MAX_DIGITS (10 * sizeof (time_t) / 4) #define LONG_MAX_DIGITS (10 * sizeof (long) / 4) #define ULONGLONG_MAX_DIGITS (10 * sizeof (u_longlong_t) / 4) /* * UTF_8 encoding requires more space than the current codeset equivalent. * Currently a factor of 2-3 would suffice, but it is possible for a factor * of 6 to be needed in the future, so for saftey, we use that here. */ #define UTF_8_FACTOR 6 static u_longlong_t xhdr_count = 0; static char xhdr_dirname[PRESIZ + 1]; static char pidchars[PID_MAX_DIGITS + 1]; static char *tchar = ""; /* null linkpath */ static char local_path[UTF_8_FACTOR * PATH_MAX + 1]; static char local_linkpath[UTF_8_FACTOR * PATH_MAX + 1]; static char local_gname[UTF_8_FACTOR * _POSIX_NAME_MAX + 1]; static char local_uname[UTF_8_FACTOR * _POSIX_NAME_MAX + 1]; /* * The following mechanism is provided to allow us to debug tar in complicated * situations, like when it is part of a pipe. The idea is that you compile * with -DWAITAROUND defined, and then add the 'D' function modifier to the * target tar invocation, eg. "tar cDf tarfile file". If stderr is available, * it will tell you to which pid to attach the debugger; otherwise, use ps to * find it. Attach to the process from the debugger, and, *PRESTO*, you are * there! * * Simply assign "waitaround = 0" once you attach to the process, and then * proceed from there as usual. */ #ifdef WAITAROUND int waitaround = 0; /* wait for rendezvous with the debugger */ #endif #define BZIP "/usr/bin/bzip2" #define GZIP "/usr/bin/gzip" #define COMPRESS "/usr/bin/compress" #define BZCAT "/usr/bin/bzcat" #define GZCAT "/usr/bin/gzcat" #define ZCAT "/usr/bin/zcat" #define GS 8 /* number of valid 'gzip' sufixes */ #define BS 4 /* number of valid 'bzip2' sufixes */ static char *compress_opt; /* compression type */ static char *gsuffix[] = {".gz", "-gz", ".z", "-z", "_z", ".Z", ".tgz", ".taz"}; static char *bsuffix[] = {".bz2", ".bz", ".tbz2", ".tbz"}; static char *suffix; int main(int argc, char *argv[]) { char *cp; char *tmpdirp; pid_t thispid; pid_t pid; int wstat; #ifdef _iBCS2 int tbl_cnt = 0; sysv3_env = getenv("SYSV3"); #endif (void) setlocale(LC_ALL, ""); #if !defined(TEXT_DOMAIN) /* Should be defined by cc -D */ #define TEXT_DOMAIN "SYS_TEST" /* Use this only if it weren't */ #endif (void) textdomain(TEXT_DOMAIN); if (argc < 2) usage(); tfile = NULL; if ((myname = strdup(argv[0])) == NULL) { (void) fprintf(stderr, gettext( "tar: cannot allocate program name\n")); exit(1); } if (init_yes() < 0) { (void) fprintf(stderr, gettext(ERR_MSG_INIT_YES), strerror(errno)); exit(2); } /* * For XPG4 compatibility, we must be able to accept the "--" * argument normally recognized by getopt; it is used to delimit * the end opt the options section, and so can only appear in * the position of the first argument. We simply skip it. */ if (strcmp(argv[1], "--") == 0) { argv++; argc--; if (argc < 3) usage(); } argv[argc] = NULL; argv++; /* * Set up default values. * Search the operand string looking for the first digit or an 'f'. * If you find a digit, use the 'archive#' entry in DEF_FILE. * If 'f' is given, bypass looking in DEF_FILE altogether. * If no digit or 'f' is given, still look in DEF_FILE but use '0'. */ if ((usefile = getenv("TAPE")) == (char *)NULL) { for (cp = *argv; *cp; ++cp) if (isdigit(*cp) || *cp == 'f') break; if (*cp != 'f') { archive[7] = (*cp)? *cp: '0'; if (!(defaults_used = defset(archive))) { usefile = NULL; nblock = 1; blocklim = 0; NotTape = 0; } } } for (cp = *argv++; *cp; cp++) switch (*cp) { #ifdef WAITAROUND case 'D': /* rendezvous with the debugger */ waitaround = 1; break; #endif case 'f': assert_string(*argv, gettext( "tar: tarfile must be specified with 'f' " "function modifier\n")); usefile = *argv++; break; case 'F': #ifdef _iBCS2 if (sysv3_env) { assert_string(*argv, gettext( "tar: 'F' requires a file name\n")); Filefile = *argv++; Fileflag++; } else #endif /* _iBCS2 */ Fflag++; break; case 'c': cflag++; rflag++; update = 1; break; #if defined(O_XATTR) case '@': atflag++; break; #endif /* O_XATTR */ #if defined(_PC_SATTR_ENABLED) case '/': saflag++; break; #endif /* _PC_SATTR_ENABLED */ case 'u': uflag++; /* moved code after signals caught */ rflag++; update = 2; break; case 'r': rflag++; update = 2; break; case 'v': vflag++; break; case 'w': wflag++; break; case 'x': xflag++; break; case 'X': assert_string(*argv, gettext( "tar: exclude file must be specified with 'X' " "function modifier\n")); Xflag = 1; Xfile = *argv++; build_table(exclude_tbl, Xfile); break; case 't': tflag++; break; case 'm': mflag++; break; case 'p': pflag++; break; case 'D': Dflag++; break; case '-': /* ignore this silently */ break; case '0': /* numeric entries used only for defaults */ case '1': case '2': case '3': case '4': case '5': case '6': case '7': break; case 'b': assert_string(*argv, gettext( "tar: blocking factor must be specified " "with 'b' function modifier\n")); bflag++; nblock = bcheck(*argv++); break; case 'q': qflag++; break; case 'k': assert_string(*argv, gettext( "tar: size value must be specified with 'k' " "function modifier\n")); kflag++; blocklim = kcheck(*argv++); break; case 'n': /* not a magtape (instead of 'k') */ NotTape++; /* assume non-magtape */ break; case 'l': linkerrok++; break; case 'e': #ifdef _iBCS2 /* If sysv3 IS set, don't be as verbose */ if (!sysv3_env) #endif /* _iBCS2 */ errflag++; eflag++; break; case 'o': oflag++; break; case 'h': hflag++; break; case 'i': iflag++; break; case 'B': Bflag++; break; case 'P': Pflag++; break; case 'E': Eflag++; Pflag++; /* Only POSIX archive made */ break; case 'T': Tflag++; /* Handle Trusted Extensions attrs */ pflag++; /* also set flag for ACL */ break; case 'j': /* compession "bzip2" */ jflag++; break; case 'z': /* compression "gzip" */ zflag++; break; case 'Z': /* compression "compress" */ Zflag++; break; default: (void) fprintf(stderr, gettext( "tar: %c: unknown function modifier\n"), *cp); usage(); } #ifdef _iBCS2 if (Xflag && Fileflag) { (void) fprintf(stderr, gettext( "tar: specify only one of X or F.\n")); usage(); } #endif /* _iBCS2 */ if (!rflag && !xflag && !tflag) usage(); if ((rflag && xflag) || (xflag && tflag) || (rflag && tflag)) { (void) fprintf(stderr, gettext( "tar: specify only one of [ctxru].\n")); usage(); } if (cflag) { if ((zflag && jflag) || (zflag && Zflag) || (jflag && Zflag)) { (void) fprintf(stderr, gettext( "tar: specify only one of [jzZ] to " "create a compressed file.\n")); usage(); } } /* Trusted Extensions attribute handling */ if (Tflag && ((getzoneid() != GLOBAL_ZONEID) || !is_system_labeled())) { (void) fprintf(stderr, gettext( "tar: the 'T' option is only available with " "Trusted Extensions\nand must be run from " "the global zone.\n")); usage(); } if (cflag && *argv == NULL && Filefile == NULL) fatal(gettext("Missing filenames")); if (usefile == NULL) fatal(gettext("device argument required")); /* alloc a buffer of the right size */ if ((tbuf = (union hblock *) calloc(sizeof (union hblock) * nblock, sizeof (char))) == (union hblock *)NULL) { (void) fprintf(stderr, gettext( "tar: cannot allocate physio buffer\n")); exit(1); } if ((xrec_ptr = malloc(xrec_size)) == NULL) { (void) fprintf(stderr, gettext( "tar: cannot allocate extended header buffer\n")); exit(1); } #ifdef WAITAROUND if (waitaround) { (void) fprintf(stderr, gettext("Rendezvous with tar on pid" " %d\n"), getpid()); while (waitaround) { (void) sleep(10); } } #endif thispid = getpid(); (void) sprintf(pidchars, "%ld", thispid); thispid = strlen(pidchars); if ((tmpdirp = getenv("TMPDIR")) == (char *)NULL) (void) strcpy(xhdr_dirname, "/tmp"); else { /* * Make sure that dir is no longer than what can * fit in the prefix part of the header. */ if (strlen(tmpdirp) > (size_t)(PRESIZ - thispid - 12)) { (void) strcpy(xhdr_dirname, "/tmp"); if ((vflag > 0) && (Eflag > 0)) (void) fprintf(stderr, gettext( "Ignoring TMPDIR\n")); } else (void) strcpy(xhdr_dirname, tmpdirp); } (void) strcat(xhdr_dirname, "/PaxHeaders."); (void) strcat(xhdr_dirname, pidchars); if (rflag) { if (cflag && usefile != NULL) { /* Set the compression type */ if (jflag) { compress_opt = compress_malloc(strlen(BZIP) + 1); (void) strcpy(compress_opt, BZIP); } else if (zflag) { compress_opt = compress_malloc(strlen(GZIP) + 1); (void) strcpy(compress_opt, GZIP); } else if (Zflag) { compress_opt = compress_malloc(strlen(COMPRESS) + 1); (void) strcpy(compress_opt, COMPRESS); } } else { /* * Decompress if the file is compressed for * an update or replace. */ if (strcmp(usefile, "-") != 0) { check_compression(); if (compress_opt != NULL) { decompress_file(); } } } if (cflag && tfile != NULL) usage(); if (signal(SIGINT, SIG_IGN) != SIG_IGN) (void) signal(SIGINT, onintr); if (signal(SIGHUP, SIG_IGN) != SIG_IGN) (void) signal(SIGHUP, onhup); if (signal(SIGQUIT, SIG_IGN) != SIG_IGN) (void) signal(SIGQUIT, onquit); if (uflag) { int tnum; struct stat sbuf; tmpdir = getenv("TMPDIR"); /* * If the name is invalid or this isn't a directory, * or the directory is not writable, then reset to * a default temporary directory. */ if (tmpdir == NULL || *tmpdir == '\0' || (strlen(tmpdir) + strlen(tmp_suffix)) > PATH_MAX) { tmpdir = "/tmp"; } else if (stat(tmpdir, &sbuf) < 0 || (sbuf.st_mode & S_IFMT) != S_IFDIR || (sbuf.st_mode & S_IWRITE) == 0) { tmpdir = "/tmp"; } if ((tname = calloc(1, strlen(tmpdir) + strlen(tmp_suffix) + 1)) == NULL) { vperror(1, gettext("tar: out of memory, " "cannot create temporary file\n")); } (void) strcpy(tname, tmpdir); (void) strcat(tname, tmp_suffix); if ((tnum = mkstemp(tname)) == -1) vperror(1, "%s", tname); if ((tfile = fdopen(tnum, "w")) == NULL) vperror(1, "%s", tname); } if (strcmp(usefile, "-") == 0) { if (cflag == 0) fatal(gettext( "can only create standard output archives.")); vfile = stderr; mt = dup(1); ++bflag; } else { if (cflag) mt = open(usefile, O_RDWR|O_CREAT|O_TRUNC, 0666); else mt = open(usefile, O_RDWR); if (mt < 0) { if (cflag == 0 || (mt = creat(usefile, 0666)) < 0) vperror(1, "%s", usefile); } } /* Get inode and device number of output file */ (void) fstat(mt, &stbuf); mt_ino = stbuf.st_ino; mt_dev = stbuf.st_dev; mt_devtype = stbuf.st_mode & S_IFMT; NotTape = !istape(mt, mt_devtype); if (rflag && !cflag && (mt_devtype == S_IFIFO)) fatal(gettext("cannot append to pipe or FIFO.")); if (Aflag && vflag) (void) printf( gettext("Suppressing absolute pathnames\n")); if (cflag && compress_opt != NULL) { pid = compress_file(); wait_pid(pid); } dorep(argv); if (rflag && !cflag && (compress_opt != NULL)) compress_back(); } else if (xflag || tflag) { /* * for each argument, check to see if there is a "-I file" pair. * if so, move the 3rd argument into "-I"'s place, build_table() * using "file"'s name and increment argc one (the second * increment appears in the for loop) which removes the two * args "-I" and "file" from the argument vector. */ for (argc = 0; argv[argc]; argc++) { if (strcmp(argv[argc], "-I") == 0) { if (!argv[argc+1]) { (void) fprintf(stderr, gettext( "tar: missing argument for -I flag\n")); done(2); } else { Iflag = 1; argv[argc] = argv[argc+2]; build_table(include_tbl, argv[++argc]); #ifdef _iBCS2 if (Fileflag) { (void) fprintf(stderr, gettext( "tar: only one of I or F.\n")); usage(); } #endif /* _iBCS2 */ } } } if (strcmp(usefile, "-") == 0) { mt = dup(0); ++bflag; /* try to recover from short reads when reading stdin */ ++Bflag; } else if ((mt = open(usefile, 0)) < 0) vperror(1, "%s", usefile); /* Decompress if the file is compressed */ if (strcmp(usefile, "-") != 0) { check_compression(); if (compress_opt != NULL) { pid = uncompress_file(); wait_pid(pid); } } if (xflag) { if (Aflag && vflag) (void) printf(gettext( "Suppressing absolute pathnames.\n")); #ifdef _iBCS2 doxtract(argv, tbl_cnt); #else doxtract(argv); #endif } else if (tflag) #ifdef _iBCS2 dotable(argv, tbl_cnt); #else dotable(argv); #endif } else usage(); done(Errflg); /* Not reached: keep compiler quiet */ return (1); } static void usage(void) { #ifdef _iBCS2 if (sysv3_env) { (void) fprintf(stderr, gettext( #if defined(O_XATTR) #if defined(_PC_SATTR_ENABLED) "Usage: tar {c|r|t|u|x}[BDeEhilmnopPqTvw@/[0-7]][bfFk][X...] " #else "Usage: tar {c|r|t|u|x}[BDeEhilmnopPqTvw@[0-7]][bfFk][X...] " #endif /* _PC_SATTR_ENABLED */ #else "Usage: tar {c|r|t|u|x}[BDeEhilmnopPqTvw[0-7]][bfFk][X...] " #endif /* O_XATTR */ "[j|z|Z] " "[blocksize] [tarfile] [filename] [size] [exclude-file...] " "{file | -I include-file | -C directory file}...\n")); } else #endif /* _iBCS2 */ { (void) fprintf(stderr, gettext( #if defined(O_XATTR) #if defined(_PC_SATTR_ENABLED) "Usage: tar {c|r|t|u|x}[BDeEFhilmnopPqTvw@/[0-7]][bfk][X...] " #else "Usage: tar {c|r|t|u|x}[BDeEFhilmnopPqTvw@[0-7]][bfk][X...] " #endif /* _PC_SATTR_ENABLED */ #else "Usage: tar {c|r|t|u|x}[BDeEFhilmnopPqTvw[0-7]][bfk][X...] " #endif /* O_XATTR */ "[j|z|Z] " "[blocksize] [tarfile] [size] [exclude-file...] " "{file | -I include-file | -C directory file}...\n")); } done(1); } /* * dorep - do "replacements" * * Dorep is responsible for creating ('c'), appending ('r') * and updating ('u'); */ static void dorep(char *argv[]) { char *cp, *cp2, *p; char wdir[PATH_MAX+2], tempdir[PATH_MAX+2], *parent; char file[PATH_MAX*2], origdir[PATH_MAX+1]; FILE *fp = (FILE *)NULL; FILE *ff = (FILE *)NULL; int archtype; int ret; if (!cflag) { xhdr_flgs = 0; getdir(); /* read header for next file */ if (Xhdrflag > 0) { if (!Eflag) fatal(gettext("Archive contains extended" " header. -E flag required.\n")); ret = get_xdata(); /* Get extended header items */ /* and regular header */ } else { if (Eflag) fatal(gettext("Archive contains no extended" " header. -E flag not allowed.\n")); } while (!endtape()) { /* changed from a do while */ setbytes_to_skip(&stbuf, ret); passtape(); /* skip the file data */ if (term) done(Errflg); /* received signal to stop */ xhdr_flgs = 0; getdir(); if (Xhdrflag > 0) ret = get_xdata(); } if (ret == 0) { if ((dblock.dbuf.typeflag != 'A') && (xhdr_flgs != 0)) { load_info_from_xtarhdr(xhdr_flgs, &Xtarhdr); xhdr_flgs |= _X_XHDR; } } backtape(); /* was called by endtape */ if (tfile != NULL) { /* * Buffer size is calculated to be the size of the * tmpdir string, plus 6 times the size of the tname * string, plus a value that is known to be greater * than the command pipeline string. */ int buflen = strlen(tmpdir) + (6 * strlen(tname)) + 100; char *buf; if ((buf = (char *)calloc(1, buflen)) == NULL) { vperror(1, gettext("tar: out of memory, " "cannot create sort command file\n")); } (void) snprintf(buf, buflen, "env 'TMPDIR=%s' " "sort +0 -1 +1nr %s -o %s; awk '$1 " "!= prev {print; prev=$1}' %s >%sX;mv %sX %s", tmpdir, tname, tname, tname, tname, tname, tname); (void) fflush(tfile); (void) system(buf); free(buf); (void) freopen(tname, "r", tfile); (void) fstat(fileno(tfile), &stbuf); high = stbuf.st_size; } } dumping = 1; if (mulvol) { /* SP-1 */ if (nblock && (blocklim%nblock) != 0) fatal(gettext( "Volume size not a multiple of block size.")); blocklim -= 2; /* for trailer records */ if (vflag) (void) fprintf(vfile, gettext("Volume ends at %" FMT_blkcnt_t "K, blocking factor = %dK\n"), K((blocklim - 1)), K(nblock)); } #ifdef _iBCS2 if (Fileflag) { if (Filefile != NULL) { if ((ff = fopen(Filefile, "r")) == NULL) vperror(0, "%s", Filefile); } else { (void) fprintf(stderr, gettext( "tar: F requires a file name.\n")); usage(); } } #endif /* _iBCS2 */ /* * Save the original directory before it gets * changed. */ if (getcwd(origdir, (PATH_MAX+1)) == NULL) { vperror(0, gettext("A parent directory cannot be read")); exit(1); } (void) strcpy(wdir, origdir); while ((*argv || fp || ff) && !term) { if (fp || (strcmp(*argv, "-I") == 0)) { #ifdef _iBCS2 if (Fileflag) { (void) fprintf(stderr, gettext( "tar: only one of I or F.\n")); usage(); } #endif /* _iBCS2 */ if (fp == NULL) { if (*++argv == NULL) fatal(gettext( "missing file name for -I flag.")); else if ((fp = fopen(*argv++, "r")) == NULL) vperror(0, "%s", argv[-1]); continue; } else if ((fgets(file, PATH_MAX-1, fp)) == NULL) { (void) fclose(fp); fp = NULL; continue; } else { cp = cp2 = file; if ((p = strchr(cp2, '\n'))) *p = 0; } } else if ((strcmp(*argv, "-C") == 0) && argv[1]) { #ifdef _iBCS2 if (Fileflag) { (void) fprintf(stderr, gettext( "tar: only one of F or C\n")); usage(); } #endif /* _iBCS2 */ if (tar_chdir(*++argv) < 0) vperror(0, gettext( "can't change directories to %s"), *argv); else (void) getcwd(wdir, (sizeof (wdir))); argv++; continue; #ifdef _iBCS2 } else if (Fileflag && (ff != NULL)) { if ((fgets(file, PATH_MAX-1, ff)) == NULL) { (void) fclose(ff); ff = NULL; continue; } else { cp = cp2 = file; if (p = strchr(cp2, '\n')) *p = 0; } #endif /* _iBCS2 */ } else cp = cp2 = strcpy(file, *argv++); /* * point cp2 to the last '/' in file, but not * to a trailing '/' */ for (; *cp; cp++) { if (*cp == '/') { while (*(cp+1) == '/') { ++cp; } if (*(cp+1) != '\0') { /* not trailing slash */ cp2 = cp; } } } if (cp2 != file) { *cp2 = '\0'; if (tar_chdir(file) < 0) { vperror(0, gettext( "can't change directories to %s"), file); continue; } *cp2 = '/'; cp2++; } parent = getcwd(tempdir, (sizeof (tempdir))); archtype = putfile(file, cp2, parent, NULL, NORMAL_FILE, LEV0, SYMLINK_LEV0); #if defined(O_XATTR) if (!exitflag) { if ((atflag || saflag) && (archtype == PUT_NOTAS_LINK)) { xattrs_put(file, cp2, parent, NULL); } } #endif if (tar_chdir(origdir) < 0) vperror(0, gettext("cannot change back?: %s"), origdir); if (exitflag) { /* * If e function modifier has been specified * write the files (that are listed before the * file causing the error) to tape. exitflag is * used because only some of the error conditions * in putfile() recognize the e function modifier. */ break; } } putempty((blkcnt_t)2); flushtape(); closevol(); /* SP-1 */ if (linkerrok == 1) for (; ihead != NULL; ihead = ihead->nextp) { if (ihead->count == 0) continue; (void) fprintf(stderr, gettext( "tar: missing links to %s\n"), ihead->pathname); if (errflag) done(1); else Errflg = 1; } } /* * endtape - check for tape at end * * endtape checks the entry in dblock.dbuf to see if its the * special EOT entry. Endtape is usually called after getdir(). * * endtape used to call backtape; it no longer does, he who * wants it backed up must call backtape himself * RETURNS: 0 if not EOT, tape position unaffected * 1 if EOT, tape position unaffected */ static int endtape(void) { if (dblock.dbuf.name[0] == '\0') { /* null header = EOT */ return (1); } else return (0); } /* * getdir - get directory entry from tar tape * * getdir reads the next tarblock off the tape and cracks * it as a directory. The checksum must match properly. * * If tfile is non-null getdir writes the file name and mod date * to tfile. */ static void getdir(void) { struct stat *sp; #ifdef EUC static int warn_chksum_sign = 0; #endif /* EUC */ top: readtape((char *)&dblock); if (dblock.dbuf.name[0] == '\0') return; sp = &stbuf; (void) sscanf(dblock.dbuf.mode, "%8lo", &Gen.g_mode); (void) sscanf(dblock.dbuf.uid, "%8lo", (ulong_t *)&Gen.g_uid); (void) sscanf(dblock.dbuf.gid, "%8lo", (ulong_t *)&Gen.g_gid); (void) sscanf(dblock.dbuf.size, "%12" FMT_off_t_o, &Gen.g_filesz); (void) sscanf(dblock.dbuf.mtime, "%12lo", (ulong_t *)&Gen.g_mtime); (void) sscanf(dblock.dbuf.chksum, "%8o", &Gen.g_cksum); (void) sscanf(dblock.dbuf.devmajor, "%8lo", &Gen.g_devmajor); (void) sscanf(dblock.dbuf.devminor, "%8lo", &Gen.g_devminor); is_posix = (strcmp(dblock.dbuf.magic, magic_type) == 0); sp->st_mode = Gen.g_mode; if (is_posix && (sp->st_mode & S_IFMT) == 0) switch (dblock.dbuf.typeflag) { case '0': case 0: case _XATTR_HDRTYPE: sp->st_mode |= S_IFREG; break; case '1': /* hard link */ break; case '2': sp->st_mode |= S_IFLNK; break; case '3': sp->st_mode |= S_IFCHR; break; case '4': sp->st_mode |= S_IFBLK; break; case '5': sp->st_mode |= S_IFDIR; break; case '6': sp->st_mode |= S_IFIFO; break; default: if (convtoreg(Gen.g_filesz)) sp->st_mode |= S_IFREG; break; } if ((dblock.dbuf.typeflag == 'X') || (dblock.dbuf.typeflag == 'L')) { Xhdrflag = 1; /* Currently processing extended header */ } else { Xhdrflag = 0; } sp->st_uid = Gen.g_uid; sp->st_gid = Gen.g_gid; sp->st_size = Gen.g_filesz; sp->st_mtime = Gen.g_mtime; chksum = Gen.g_cksum; if (dblock.dbuf.extno != '\0') { /* split file? */ extno = dblock.dbuf.extno; extsize = Gen.g_filesz; extotal = dblock.dbuf.extotal; } else { extno = 0; /* tell others file not split */ extsize = 0; extotal = 0; } #ifdef EUC if (chksum != checksum(&dblock)) { if (chksum != checksum_signed(&dblock)) { (void) fprintf(stderr, gettext( "tar: directory checksum error\n")); if (iflag) { Errflg = 2; goto top; } done(2); } else { if (! warn_chksum_sign) { warn_chksum_sign = 1; (void) fprintf(stderr, gettext( "tar: warning: tar file made with signed checksum\n")); } } } #else if (chksum != checksum(&dblock)) { (void) fprintf(stderr, gettext( "tar: directory checksum error\n")); if (iflag) { Errflg = 2; goto top; } done(2); } #endif /* EUC */ if (tfile != NULL && Xhdrflag == 0) { /* * If an extended header is present, then time is available * in nanoseconds in the extended header data, so set it. * Otherwise, give an invalid value so that checkupdate will * not test beyond seconds. */ if ((xhdr_flgs & _X_MTIME)) sp->st_mtim.tv_nsec = Xtarhdr.x_mtime.tv_nsec; else sp->st_mtim.tv_nsec = -1; if (xhdr_flgs & _X_PATH) (void) fprintf(tfile, "%s %10ld.%9.9ld\n", Xtarhdr.x_path, sp->st_mtim.tv_sec, sp->st_mtim.tv_nsec); else (void) fprintf(tfile, "%.*s %10ld.%9.9ld\n", NAMSIZ, dblock.dbuf.name, sp->st_mtim.tv_sec, sp->st_mtim.tv_nsec); } #if defined(O_XATTR) Hiddendir = 0; if (xattrp && dblock.dbuf.typeflag == _XATTR_HDRTYPE) { if (xattrbadhead) { free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } else { char *aname = basename(xattrapath); size_t xindex = aname - xattrapath; if (xattrapath[xindex] == '.' && xattrapath[xindex + 1] == '\0' && xattrp->h_typeflag == '5') { Hiddendir = 1; sp->st_mode = (S_IFDIR | (sp->st_mode & POSIXMODES)); } dblock.dbuf.typeflag = xattrp->h_typeflag; } } #endif } /* * passtape - skip over a file on the tape * * passtape skips over the next data file on the tape. * The tape directory entry must be in dblock.dbuf. This * routine just eats the number of blocks computed from the * directory size entry; the tape must be (logically) positioned * right after thee directory info. */ static void passtape(void) { blkcnt_t blocks; char buf[TBLOCK]; /* * Types link(1), sym-link(2), char special(3), blk special(4), * directory(5), and FIFO(6) do not have data blocks associated * with them so just skip reading the data block. */ if (dblock.dbuf.typeflag == '1' || dblock.dbuf.typeflag == '2' || dblock.dbuf.typeflag == '3' || dblock.dbuf.typeflag == '4' || dblock.dbuf.typeflag == '5' || dblock.dbuf.typeflag == '6') return; blocks = TBLOCKS(stbuf.st_size); /* if operating on disk, seek instead of reading */ if (NotTape) seekdisk(blocks); else while (blocks-- > 0) readtape(buf); } #if defined(O_XATTR) static int is_sysattr(char *name) { return ((strcmp(name, VIEW_READONLY) == 0) || (strcmp(name, VIEW_READWRITE) == 0)); } #endif #if defined(O_XATTR) /* * Verify the attribute, attrname, is an attribute we want to restore. * Never restore read-only system attribute files. Only restore read-write * system attributes files when -/ was specified, and only traverse into * the 2nd level attribute directory containing only system attributes if * -@ was specified. This keeps us from archiving * / * when -/ was specified without -@. * * attrname - attribute file name * attrparent - attribute's parent name within the base file's attribute * directory hierarchy */ static attr_status_t verify_attr(char *attrname, char *attrparent, int arc_rwsysattr, int *rw_sysattr) { #if defined(_PC_SATTR_ENABLED) int attr_supported; /* Never restore read-only system attribute files */ if ((attr_supported = sysattr_type(attrname)) == _RO_SATTR) { *rw_sysattr = 0; return (ATTR_SKIP); } else { *rw_sysattr = (attr_supported == _RW_SATTR); } #else /* * Only need to check if this attribute is an extended system * attribute. */ if (*rw_sysattr = is_sysattr(attrname)) { return (ATTR_SKIP); } else { return (ATTR_OK); } #endif /* _PC_SATTR_ENABLED */ /* * If the extended system attribute file is specified with the * arc_rwsysattr flag, as being transient (default extended * attributes), then don't archive it. */ if (*rw_sysattr && !arc_rwsysattr) { return (ATTR_SKIP); } /* * Only restore read-write system attribute files * when -/ was specified. Only restore extended * attributes when -@ was specified. */ if (atflag) { if (!saflag) { /* * Only archive/restore the hidden directory "." if * we're processing the top level hidden attribute * directory. We don't want to process the * hidden attribute directory of the attribute * directory that contains only extended system * attributes. */ if (*rw_sysattr || (Hiddendir && (attrparent != NULL))) { return (ATTR_SKIP); } } } else if (saflag) { /* * Only archive/restore read-write extended system attribute * files of the base file. */ if (!*rw_sysattr || (attrparent != NULL)) { return (ATTR_SKIP); } } else { return (ATTR_SKIP); } return (ATTR_OK); } #endif static void free_children(file_list_t *children) { file_list_t *child = children; file_list_t *cptr; while (child != NULL) { cptr = child->next; if (child->name != NULL) { free(child->name); } child = cptr; } } static int putfile(char *longname, char *shortname, char *parent, attr_data_t *attrinfo, int filetype, int lev, int symlink_lev) { int infile = -1; /* deliberately invalid */ blkcnt_t blocks; char buf[PATH_MAX + 2]; /* Add trailing slash and null */ char *bigbuf; int maxread; int hint; /* amount to write to get "in sync" */ char filetmp[PATH_MAX + 1]; char *cp; char *name; char *attrparent = NULL; char *longattrname = NULL; file_list_t *child = NULL; file_list_t *child_end = NULL; file_list_t *cptr; struct dirent *dp; DIR *dirp; int i; int split; int dirfd = -1; int rc = PUT_NOTAS_LINK; int archtype = 0; int rw_sysattr = 0; char newparent[PATH_MAX + MAXNAMLEN + 1]; char *prefix = ""; char *tmpbuf; char goodbuf[PRESIZ + 2]; char junkbuf[MAXNAM+1]; char *lastslash; int j; struct stat sbuf; int readlink_max; (void) memset(goodbuf, '\0', sizeof (goodbuf)); (void) memset(junkbuf, '\0', sizeof (junkbuf)); xhdr_flgs = 0; if (filetype == XATTR_FILE) { attrparent = attrinfo->attr_parent; longattrname = attrinfo->attr_path; dirfd = attrinfo->attr_parentfd; rw_sysattr = attrinfo->attr_rw_sysattr; } else { dirfd = open(".", O_RDONLY); } if (dirfd == -1) { (void) fprintf(stderr, gettext( "tar: unable to open%sdirectory %s%s%s%s\n"), (filetype == XATTR_FILE) ? gettext(" attribute ") : " ", (attrparent == NULL) ? "" : gettext("of attribute "), (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : gettext(" of "), (filetype == XATTR_FILE) ? longname : parent); goto out; } if (lev > MAXLEV) { (void) fprintf(stderr, gettext("tar: directory nesting too deep, %s not dumped\n"), longname); goto out; } if (getstat(dirfd, longname, shortname, attrparent)) goto out; if (hflag) { /* * Catch nesting where a file is a symlink to its directory. */ j = fstatat(dirfd, shortname, &sbuf, AT_SYMLINK_NOFOLLOW); if (S_ISLNK(sbuf.st_mode)) { if (symlink_lev++ >= MAXSYMLINKS) { (void) fprintf(stderr, gettext( "tar: %s: Number of symbolic links " "encountered during path name traversal " "exceeds MAXSYMLINKS\n"), longname); Errflg = 1; goto out; } } } /* * Check if the input file is the same as the tar file we * are creating */ if ((mt_ino == stbuf.st_ino) && (mt_dev == stbuf.st_dev)) { (void) fprintf(stderr, gettext( "tar: %s%s%s%s%s same as archive file\n"), rw_sysattr ? gettext("system ") : "", (longattrname == NULL) ? "" : gettext("attribute "), (longattrname == NULL) ? "" : longattrname, (longattrname == NULL) ? "" : gettext(" of "), longname); Errflg = 1; goto out; } /* * Check size limit - we can't archive files that * exceed TAR_OFFSET_MAX bytes because of header * limitations. Exclude file types that set * st_size to zero below because they take no * archive space to represent contents. */ if ((stbuf.st_size > (off_t)TAR_OFFSET_MAX) && !S_ISDIR(stbuf.st_mode) && !S_ISCHR(stbuf.st_mode) && !S_ISBLK(stbuf.st_mode) && (Eflag == 0)) { (void) fprintf(stderr, gettext( "tar: %s%s%s%s%s too large to archive. " "Use E function modifier.\n"), rw_sysattr ? gettext("system ") : "", (longattrname == NULL) ? "" : gettext("attribute "), (longattrname == NULL) ? "" : longattrname, (longattrname == NULL) ? "" : gettext(" of "), longname); if (errflag) exitflag = 1; Errflg = 1; goto out; } if (tfile != NULL && checkupdate(longname) == 0) { goto out; } if (checkw('r', longname) == 0) { goto out; } if (Fflag && checkf(longname, (stbuf.st_mode & S_IFMT) == S_IFDIR, Fflag) == 0) goto out; if (Xflag) { if (is_in_table(exclude_tbl, longname)) { if (vflag) { (void) fprintf(vfile, gettext( "a %s excluded\n"), longname); } goto out; } } /* * If the length of the fullname is greater than MAXNAM, * print out a message and return (unless extended headers are used, * in which case fullname is limited to PATH_MAX). */ if ((((split = (int)strlen(longname)) > MAXNAM) && (Eflag == 0)) || (split > PATH_MAX)) { (void) fprintf(stderr, gettext( "tar: %s: file name too long\n"), longname); if (errflag) exitflag = 1; Errflg = 1; goto out; } /* * We split the fullname into prefix and name components if any one * of three conditions holds: * -- the length of the fullname exceeds NAMSIZ, * -- the length of the fullname equals NAMSIZ, and the shortname * is less than NAMSIZ, (splitting in this case preserves * compatibility with 5.6 and 5.5.1 tar), or * -- the length of the fullname equals NAMSIZ, the file is a * directory and we are not in POSIX-conformant mode (where * trailing slashes are removed from directories). */ if ((split > NAMSIZ) || (split == NAMSIZ && strlen(shortname) < NAMSIZ) || (split == NAMSIZ && S_ISDIR(stbuf.st_mode) && !Pflag)) { /* * Since path is limited to PRESIZ characters, look for the * last slash within PRESIZ + 1 characters only. */ (void) strncpy(&goodbuf[0], longname, min(split, PRESIZ + 1)); tmpbuf = goodbuf; lastslash = strrchr(tmpbuf, '/'); if (lastslash == NULL) { i = split; /* Length of name */ j = 0; /* Length of prefix */ goodbuf[0] = '\0'; } else { *lastslash = '\0'; /* Terminate the prefix */ j = strlen(tmpbuf); i = split - j - 1; } /* * If the filename is greater than NAMSIZ we can't * archive the file unless we are using extended headers. */ if ((i > NAMSIZ) || (i == NAMSIZ && S_ISDIR(stbuf.st_mode) && !Pflag)) { /* Determine which (filename or path) is too long. */ lastslash = strrchr(longname, '/'); if (lastslash != NULL) i = strlen(lastslash + 1); if (Eflag > 0) { xhdr_flgs |= _X_PATH; Xtarhdr.x_path = longname; if (i <= NAMSIZ) (void) strcpy(junkbuf, lastslash + 1); else (void) sprintf(junkbuf, "%llu", xhdr_count + 1); if (split - i - 1 > PRESIZ) (void) strcpy(goodbuf, xhdr_dirname); } else { if ((i > NAMSIZ) || (i == NAMSIZ && S_ISDIR(stbuf.st_mode) && !Pflag)) (void) fprintf(stderr, gettext( "tar: %s: filename is greater than " "%d\n"), lastslash == NULL ? longname : lastslash + 1, NAMSIZ); else (void) fprintf(stderr, gettext( "tar: %s: prefix is greater than %d" "\n"), longname, PRESIZ); if (errflag) exitflag = 1; Errflg = 1; goto out; } } else (void) strncpy(&junkbuf[0], longname + j + 1, strlen(longname + j + 1)); name = junkbuf; prefix = goodbuf; } else { name = longname; } if (Aflag) { if ((prefix != NULL) && (*prefix != '\0')) while (*prefix == '/') ++prefix; else while (*name == '/') ++name; } switch (stbuf.st_mode & S_IFMT) { case S_IFDIR: stbuf.st_size = (off_t)0; blocks = TBLOCKS(stbuf.st_size); if (filetype != XATTR_FILE && Hiddendir == 0) { i = 0; cp = buf; while ((*cp++ = longname[i++])) ; *--cp = '/'; *++cp = 0; } if (!oflag) { tomodes(&stbuf); if (build_dblock(name, tchar, '5', filetype, &stbuf, stbuf.st_dev, prefix) != 0) { goto out; } if (!Pflag) { /* * Old archives require a slash at the end * of a directory name. * * XXX * If directory name is too long, will * slash overfill field? */ if (strlen(name) > (unsigned)NAMSIZ-1) { (void) fprintf(stderr, gettext( "tar: %s: filename is greater " "than %d\n"), name, NAMSIZ); if (errflag) exitflag = 1; Errflg = 1; goto out; } else { if (strlen(name) == (NAMSIZ - 1)) { (void) memcpy(dblock.dbuf.name, name, NAMSIZ); dblock.dbuf.name[NAMSIZ-1] = '/'; } else (void) sprintf(dblock.dbuf.name, "%s/", name); /* * need to recalculate checksum * because the name changed. */ (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); } } if (put_extra_attributes(longname, shortname, longattrname, prefix, filetype, '5') != 0) goto out; #if defined(O_XATTR) /* * Reset header typeflag when archiving directory, since * build_dblock changed it on us. */ if (filetype == XATTR_FILE) { dblock.dbuf.typeflag = _XATTR_HDRTYPE; } else { dblock.dbuf.typeflag = '5'; } #else dblock.dbuf.typeflag = '5'; #endif (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); (void) writetbuf((char *)&dblock, 1); } if (vflag) { #ifdef DEBUG if (NotTape) DEBUG("seek = %" FMT_blkcnt_t "K\t", K(tapepos), 0); #endif if (filetype == XATTR_FILE && Hiddendir) { (void) fprintf(vfile, gettext("a %s attribute %s "), longname, longattrname); } else { (void) fprintf(vfile, "a %s/ ", longname); } if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } /* * If hidden dir then break now since xattrs_put() will do * the iterating of the directory. * * At the moment, there can only be system attributes on * attributes. There can be no attributes on attributes or * directories within the attributes hidden directory hierarchy. */ if (filetype == XATTR_FILE) break; if (*shortname != '/') (void) sprintf(newparent, "%s/%s", parent, shortname); else (void) sprintf(newparent, "%s", shortname); if (tar_chdir(shortname) < 0) { vperror(0, "%s", newparent); goto out; } if ((dirp = opendir(".")) == NULL) { vperror(0, gettext( "can't open directory %s"), longname); if (tar_chdir(parent) < 0) vperror(0, gettext("cannot change back?: %s"), parent); goto out; } /* * Create a list of files (children) in this directory to avoid * having to perform telldir()/seekdir(). */ while ((dp = readdir(dirp)) != NULL && !term) { if ((strcmp(".", dp->d_name) == 0) || (strcmp("..", dp->d_name) == 0)) continue; if (((cptr = (file_list_t *)calloc(sizeof (char), sizeof (file_list_t))) == NULL) || ((cptr->name = strdup(dp->d_name)) == NULL)) { vperror(1, gettext( "Insufficient memory for directory " "list entry %s/%s\n"), newparent, dp->d_name); } /* Add the file to the list */ if (child == NULL) { child = cptr; } else { child_end->next = cptr; } child_end = cptr; } (void) closedir(dirp); /* * Archive each of the files in the current directory. * If a file is a directory, putfile() is called * recursively to archive the file hierarchy of the * directory before archiving the next file in the * current directory. */ while ((child != NULL) && !term) { (void) strcpy(cp, child->name); archtype = putfile(buf, cp, newparent, NULL, NORMAL_FILE, lev + 1, symlink_lev); if (!exitflag) { if ((atflag || saflag) && (archtype == PUT_NOTAS_LINK)) { xattrs_put(buf, cp, newparent, NULL); } } if (exitflag) break; /* Free each child as we are done processing it. */ cptr = child; child = child->next; free(cptr->name); free(cptr); } if ((child != NULL) && !term) { free_children(child); } if (tar_chdir(parent) < 0) { vperror(0, gettext("cannot change back?: %s"), parent); } break; case S_IFLNK: readlink_max = NAMSIZ; if (stbuf.st_size > NAMSIZ) { if (Eflag > 0) { xhdr_flgs |= _X_LINKPATH; readlink_max = PATH_MAX; } else { (void) fprintf(stderr, gettext( "tar: %s: symbolic link too long\n"), longname); if (errflag) exitflag = 1; Errflg = 1; goto out; } } /* * Sym-links need header size of zero since you * don't store any data for this type. */ stbuf.st_size = (off_t)0; tomodes(&stbuf); i = readlink(shortname, filetmp, readlink_max); if (i < 0) { vperror(0, gettext( "can't read symbolic link %s"), longname); goto out; } else { filetmp[i] = 0; } if (vflag) (void) fprintf(vfile, gettext( "a %s symbolic link to %s\n"), longname, filetmp); if (xhdr_flgs & _X_LINKPATH) { Xtarhdr.x_linkpath = filetmp; if (build_dblock(name, tchar, '2', filetype, &stbuf, stbuf.st_dev, prefix) != 0) goto out; } else if (build_dblock(name, filetmp, '2', filetype, &stbuf, stbuf.st_dev, prefix) != 0) goto out; (void) writetbuf((char *)&dblock, 1); /* * No acls for symlinks: mode is always 777 * dont call write ancillary */ rc = PUT_AS_LINK; break; case S_IFREG: if ((infile = openat(dirfd, shortname, 0)) < 0) { vperror(0, gettext("unable to open %s%s%s%s"), longname, rw_sysattr ? gettext(" system") : "", (filetype == XATTR_FILE) ? gettext(" attribute ") : "", (filetype == XATTR_FILE) ? (longattrname == NULL) ? shortname : longattrname : ""); goto out; } blocks = TBLOCKS(stbuf.st_size); if (put_link(name, longname, shortname, longattrname, prefix, filetype, '1') == 0) { (void) close(infile); rc = PUT_AS_LINK; goto out; } tomodes(&stbuf); /* correctly handle end of volume */ while (mulvol && tapepos + blocks + 1 > blocklim) { /* file won't fit */ if (eflag) { if (blocks <= blocklim) { newvol(); break; } (void) fprintf(stderr, gettext( "tar: Single file cannot fit on volume\n")); done(3); } /* split if floppy has some room and file is large */ if (((blocklim - tapepos) >= EXTMIN) && ((blocks + 1) >= blocklim/10)) { splitfile(longname, infile, name, prefix, filetype); (void) close(dirfd); (void) close(infile); goto out; } newvol(); /* not worth it--just get new volume */ } #ifdef DEBUG DEBUG("putfile: %s wants %" FMT_blkcnt_t " blocks\n", longname, blocks); #endif if (build_dblock(name, tchar, '0', filetype, &stbuf, stbuf.st_dev, prefix) != 0) { goto out; } if (vflag) { #ifdef DEBUG if (NotTape) DEBUG("seek = %" FMT_blkcnt_t "K\t", K(tapepos), 0); #endif (void) fprintf(vfile, "a %s%s%s%s ", longname, rw_sysattr ? gettext(" system") : "", (filetype == XATTR_FILE) ? gettext( " attribute ") : "", (filetype == XATTR_FILE) ? longattrname : ""); if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } if (put_extra_attributes(longname, shortname, longattrname, prefix, filetype, '0') != 0) goto out; /* * No need to reset typeflag for extended attribute here, since * put_extra_attributes already set it and we haven't called * build_dblock(). */ (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); hint = writetbuf((char *)&dblock, 1); maxread = max(min(stbuf.st_blksize, stbuf.st_size), (nblock * TBLOCK)); if ((bigbuf = calloc((unsigned)maxread, sizeof (char))) == 0) { maxread = TBLOCK; bigbuf = buf; } while (((i = (int) read(infile, bigbuf, min((hint*TBLOCK), maxread))) > 0) && blocks) { blkcnt_t nblks; nblks = ((i-1)/TBLOCK)+1; if (nblks > blocks) nblks = blocks; hint = writetbuf(bigbuf, nblks); blocks -= nblks; } (void) close(infile); if (bigbuf != buf) free(bigbuf); if (i < 0) vperror(0, gettext("Read error on %s"), longname); else if (blocks != 0 || i != 0) { (void) fprintf(stderr, gettext( "tar: %s: file changed size\n"), longname); if (errflag) { exitflag = 1; Errflg = 1; } else if (!Dflag) { Errflg = 1; } } putempty(blocks); break; case S_IFIFO: blocks = TBLOCKS(stbuf.st_size); stbuf.st_size = (off_t)0; if (put_link(name, longname, shortname, longattrname, prefix, filetype, '6') == 0) { rc = PUT_AS_LINK; goto out; } tomodes(&stbuf); while (mulvol && tapepos + blocks + 1 > blocklim) { if (eflag) { if (blocks <= blocklim) { newvol(); break; } (void) fprintf(stderr, gettext( "tar: Single file cannot fit on volume\n")); done(3); } if (((blocklim - tapepos) >= EXTMIN) && ((blocks + 1) >= blocklim/10)) { splitfile(longname, infile, name, prefix, filetype); (void) close(dirfd); (void) close(infile); goto out; } newvol(); } #ifdef DEBUG DEBUG("putfile: %s wants %" FMT_blkcnt_t " blocks\n", longname, blocks); #endif if (vflag) { #ifdef DEBUG if (NotTape) DEBUG("seek = %" FMT_blkcnt_t "K\t", K(tapepos), 0); #endif if (NotTape) (void) fprintf(vfile, gettext("a %s %" FMT_blkcnt_t "K\n "), longname, K(blocks)); else (void) fprintf(vfile, gettext( "a %s %" FMT_blkcnt_t " tape blocks\n"), longname, blocks); } if (build_dblock(name, tchar, '6', filetype, &stbuf, stbuf.st_dev, prefix) != 0) goto out; if (put_extra_attributes(longname, shortname, longattrname, prefix, filetype, '6') != 0) goto out; (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); dblock.dbuf.typeflag = '6'; (void) writetbuf((char *)&dblock, 1); break; case S_IFCHR: stbuf.st_size = (off_t)0; blocks = TBLOCKS(stbuf.st_size); if (put_link(name, longname, shortname, longattrname, prefix, filetype, '3') == 0) { rc = PUT_AS_LINK; goto out; } tomodes(&stbuf); while (mulvol && tapepos + blocks + 1 > blocklim) { if (eflag) { if (blocks <= blocklim) { newvol(); break; } (void) fprintf(stderr, gettext( "tar: Single file cannot fit on volume\n")); done(3); } if (((blocklim - tapepos) >= EXTMIN) && ((blocks + 1) >= blocklim/10)) { splitfile(longname, infile, name, prefix, filetype); (void) close(dirfd); goto out; } newvol(); } #ifdef DEBUG DEBUG("putfile: %s wants %" FMT_blkcnt_t " blocks\n", longname, blocks); #endif if (vflag) { #ifdef DEBUG if (NotTape) DEBUG("seek = %" FMT_blkcnt_t "K\t", K(tapepos), 0); #endif if (NotTape) (void) fprintf(vfile, gettext("a %s %" FMT_blkcnt_t "K\n"), longname, K(blocks)); else (void) fprintf(vfile, gettext("a %s %" FMT_blkcnt_t " tape blocks\n"), longname, blocks); } if (build_dblock(name, tchar, '3', filetype, &stbuf, stbuf.st_rdev, prefix) != 0) goto out; if (put_extra_attributes(longname, shortname, longattrname, prefix, filetype, '3') != 0) goto out; (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); dblock.dbuf.typeflag = '3'; (void) writetbuf((char *)&dblock, 1); break; case S_IFBLK: stbuf.st_size = (off_t)0; blocks = TBLOCKS(stbuf.st_size); if (put_link(name, longname, shortname, longattrname, prefix, filetype, '4') == 0) { rc = PUT_AS_LINK; goto out; } tomodes(&stbuf); while (mulvol && tapepos + blocks + 1 > blocklim) { if (eflag) { if (blocks <= blocklim) { newvol(); break; } (void) fprintf(stderr, gettext( "tar: Single file cannot fit on volume\n")); done(3); } if (((blocklim - tapepos) >= EXTMIN) && ((blocks + 1) >= blocklim/10)) { splitfile(longname, infile, name, prefix, filetype); (void) close(dirfd); goto out; } newvol(); } #ifdef DEBUG DEBUG("putfile: %s wants %" FMT_blkcnt_t " blocks\n", longname, blocks); #endif if (vflag) { #ifdef DEBUG if (NotTape) DEBUG("seek = %" FMT_blkcnt_t "K\t", K(tapepos), 0); #endif (void) fprintf(vfile, "a %s ", longname); if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } if (build_dblock(name, tchar, '4', filetype, &stbuf, stbuf.st_rdev, prefix) != 0) goto out; if (put_extra_attributes(longname, shortname, longattrname, prefix, filetype, '4') != 0) goto out; (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); dblock.dbuf.typeflag = '4'; (void) writetbuf((char *)&dblock, 1); break; default: (void) fprintf(stderr, gettext( "tar: %s is not a file. Not dumped\n"), longname); if (errflag) exitflag = 1; Errflg = 1; goto out; } out: if ((dirfd != -1) && (filetype != XATTR_FILE)) { (void) close(dirfd); } return (rc); } /* * splitfile dump a large file across volumes * * splitfile(longname, fd); * char *longname; full name of file * int ifd; input file descriptor * * NOTE: only called by putfile() to dump a large file. */ static void splitfile(char *longname, int ifd, char *name, char *prefix, int filetype) { blkcnt_t blocks; off_t bytes, s; char buf[TBLOCK]; int i, extents; blocks = TBLOCKS(stbuf.st_size); /* blocks file needs */ /* * # extents = * size of file after using up rest of this floppy * blocks - (blocklim - tapepos) + 1 (for header) * plus roundup value before divide by blocklim-1 * + (blocklim - 1) - 1 * all divided by blocklim-1 (one block for each header). * this gives * (blocks - blocklim + tapepos + 1 + blocklim - 2)/(blocklim-1) * which reduces to the expression used. * one is added to account for this first extent. * * When one is dealing with extremely large archives, one may want * to allow for a large number of extents. This code should be * revisited to determine if extents should be changed to something * larger than an int. */ extents = (int)((blocks + tapepos - 1ULL)/(blocklim - 1ULL) + 1); if (extents < 2 || extents > MAXEXT) { /* let's be reasonable */ (void) fprintf(stderr, gettext( "tar: %s needs unusual number of volumes to split\n" "tar: %s not dumped\n"), longname, longname); return; } if (build_dblock(name, tchar, '0', filetype, &stbuf, stbuf.st_dev, prefix) != 0) return; dblock.dbuf.extotal = extents; bytes = stbuf.st_size; /* * The value contained in dblock.dbuf.efsize was formerly used when the * v flag was specified in conjunction with the t flag. Although it is * no longer used, older versions of tar will expect the former * behaviour, so we must continue to write it to the archive. * * Since dblock.dbuf.efsize is 10 chars in size, the maximum value it * can store is TAR_EFSIZE_MAX. If bytes exceeds that value, simply * store 0. */ if (bytes <= TAR_EFSIZE_MAX) (void) sprintf(dblock.dbuf.efsize, "%9" FMT_off_t_o, bytes); else (void) sprintf(dblock.dbuf.efsize, "%9" FMT_off_t_o, (off_t)0); (void) fprintf(stderr, gettext( "tar: large file %s needs %d extents.\n" "tar: current device seek position = %" FMT_blkcnt_t "K\n"), longname, extents, K(tapepos)); s = (off_t)(blocklim - tapepos - 1) * TBLOCK; for (i = 1; i <= extents; i++) { if (i > 1) { newvol(); if (i == extents) s = bytes; /* last ext. gets true bytes */ else s = (off_t)(blocklim - 1)*TBLOCK; /* all */ } bytes -= s; blocks = TBLOCKS(s); (void) sprintf(dblock.dbuf.size, "%011" FMT_off_t_o, s); dblock.dbuf.extno = i; (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); (void) writetbuf((char *)&dblock, 1); if (vflag) (void) fprintf(vfile, gettext("+++ a %s %" FMT_blkcnt_t "K [extent #%d of %d]\n"), longname, K(blocks), i, extents); while (blocks && read(ifd, buf, TBLOCK) > 0) { blocks--; (void) writetbuf(buf, 1); } if (blocks != 0) { (void) fprintf(stderr, gettext( "tar: %s: file changed size\n"), longname); (void) fprintf(stderr, gettext( "tar: aborting split file %s\n"), longname); (void) close(ifd); return; } } (void) close(ifd); if (vflag) (void) fprintf(vfile, gettext("a %s %" FMT_off_t "K (in %d " "extents)\n"), longname, K(TBLOCKS(stbuf.st_size)), extents); } /* * convtoreg - determines whether the file should be converted to a * regular file when extracted * * Returns 1 when file size > 0 and typeflag is not recognized * Otherwise returns 0 */ static int convtoreg(off_t size) { if ((size > 0) && (dblock.dbuf.typeflag != '0') && (dblock.dbuf.typeflag != NULL) && (dblock.dbuf.typeflag != '1') && (dblock.dbuf.typeflag != '2') && (dblock.dbuf.typeflag != '3') && (dblock.dbuf.typeflag != '4') && (dblock.dbuf.typeflag != '5') && (dblock.dbuf.typeflag != '6') && (dblock.dbuf.typeflag != 'A') && (dblock.dbuf.typeflag != 'L') && (dblock.dbuf.typeflag != _XATTR_HDRTYPE) && (dblock.dbuf.typeflag != 'X')) { return (1); } return (0); } #if defined(O_XATTR) static int save_cwd(void) { return (open(".", O_RDONLY)); } #endif #if defined(O_XATTR) static void rest_cwd(int *cwd) { if (*cwd != -1) { if (fchdir(*cwd) < 0) { vperror(0, gettext( "Cannot fchdir to attribute directory")); exit(1); } (void) close(*cwd); *cwd = -1; } } #endif /* * Verify the underlying file system supports the attribute type. * Only archive extended attribute files when '-@' was specified. * Only archive system extended attribute files if '-/' was specified. */ #if defined(O_XATTR) static attr_status_t verify_attr_support(char *filename, int attrflg, arc_action_t actflag, int *ext_attrflg) { /* * Verify extended attributes are supported/exist. We only * need to check if we are processing a base file, not an * extended attribute. */ if (attrflg) { *ext_attrflg = (pathconf(filename, (actflag == ARC_CREATE) ? _PC_XATTR_EXISTS : _PC_XATTR_ENABLED) == 1); } if (atflag) { if (!*ext_attrflg) { #if defined(_PC_SATTR_ENABLED) if (saflag) { /* Verify system attributes are supported */ if (sysattr_support(filename, (actflag == ARC_CREATE) ? _PC_SATTR_EXISTS : _PC_SATTR_ENABLED) != 1) { return (ATTR_SATTR_ERR); } } else return (ATTR_XATTR_ERR); #else return (ATTR_XATTR_ERR); #endif /* _PC_SATTR_ENABLED */ } #if defined(_PC_SATTR_ENABLED) } else if (saflag) { /* Verify system attributes are supported */ if (sysattr_support(filename, (actflag == ARC_CREATE) ? _PC_SATTR_EXISTS : _PC_SATTR_ENABLED) != 1) { return (ATTR_SATTR_ERR); } #endif /* _PC_SATTR_ENABLED */ } else { return (ATTR_SKIP); } return (ATTR_OK); } #endif #if defined(O_XATTR) /* * Recursively open attribute directories until the attribute directory * containing the specified attribute, attrname, is opened. * * Currently, only 2 directory levels of attributes are supported, (i.e., * extended system attributes on extended attributes). The following are * the possible input combinations: * 1. Open the attribute directory of the base file (don't change * into it). * attrinfo->parent = NULL * attrname = '.' * 2. Open the attribute directory of the base file and change into it. * attrinfo->parent = NULL * attrname = | * 3. Open the attribute directory of the base file, change into it, * then recursively call open_attr_dir() to open the attribute's * parent directory (don't change into it). * attrinfo->parent = * attrname = '.' * 4. Open the attribute directory of the base file, change into it, * then recursively call open_attr_dir() to open the attribute's * parent directory and change into it. * attrinfo->parent = * attrname = | * * An attribute directory will be opened only if the underlying file system * supports the attribute type, and if the command line specifications (atflag * and saflag) enable the processing of the attribute type. * * On succesful return, attrinfo->parentfd will be the file descriptor of the * opened attribute directory. In addition, if the attribute is a read-write * extended system attribute, attrinfo->rw_sysattr will be set to 1, otherwise * it will be set to 0. * * Possible return values: * ATTR_OK Successfully opened and, if needed, changed into the * attribute directory containing attrname. * ATTR_SKIP The command line specifications don't enable the * processing of the attribute type. * ATTR_CHDIR_ERR An error occurred while trying to change into an * attribute directory. * ATTR_OPEN_ERR An error occurred while trying to open an * attribute directory. * ATTR_XATTR_ERR The underlying file system doesn't support extended * attributes. * ATTR_SATTR_ERR The underlying file system doesn't support extended * system attributes. */ static int open_attr_dir(char *attrname, char *dirp, int cwd, attr_data_t *attrinfo) { attr_status_t rc; int firsttime = (attrinfo->attr_parentfd == -1); int saveerrno; int ext_attr; /* * open_attr_dir() was recursively called (input combination number 4), * close the previously opened file descriptor as we've already changed * into it. */ if (!firsttime) { (void) close(attrinfo->attr_parentfd); attrinfo->attr_parentfd = -1; } /* * Verify that the underlying file system supports the restoration * of the attribute. */ if ((rc = verify_attr_support(dirp, firsttime, ARC_RESTORE, &ext_attr)) != ATTR_OK) { return (rc); } /* Open the base file's attribute directory */ if ((attrinfo->attr_parentfd = attropen(dirp, ".", O_RDONLY)) == -1) { /* * Save the errno from the attropen so it can be reported * if the retry of the attropen fails. */ saveerrno = errno; if ((attrinfo->attr_parentfd = retry_open_attr(-1, cwd, dirp, NULL, ".", O_RDONLY, 0)) == -1) { /* * Reset typeflag back to real value so passtape * will skip ahead correctly. */ dblock.dbuf.typeflag = _XATTR_HDRTYPE; (void) close(attrinfo->attr_parentfd); attrinfo->attr_parentfd = -1; errno = saveerrno; return (ATTR_OPEN_ERR); } } /* * Change into the parent attribute's directory unless we are * processing the hidden attribute directory of the base file itself. */ if ((Hiddendir == 0) || (firsttime && attrinfo->attr_parent != NULL)) { if (fchdir(attrinfo->attr_parentfd) != 0) { saveerrno = errno; (void) close(attrinfo->attr_parentfd); attrinfo->attr_parentfd = -1; errno = saveerrno; return (ATTR_CHDIR_ERR); } } /* Determine if the attribute should be processed */ if ((rc = verify_attr(attrname, attrinfo->attr_parent, 1, &attrinfo->attr_rw_sysattr)) != ATTR_OK) { saveerrno = errno; (void) close(attrinfo->attr_parentfd); attrinfo->attr_parentfd = -1; errno = saveerrno; return (rc); } /* * If the attribute is an extended attribute, or extended system * attribute, of an attribute (i.e., /), then * recursively call open_attr_dir() to open the attribute directory * of the parent attribute. */ if (firsttime && (attrinfo->attr_parent != NULL)) { return (open_attr_dir(attrname, attrinfo->attr_parent, attrinfo->attr_parentfd, attrinfo)); } return (ATTR_OK); } #endif static void #ifdef _iBCS2 doxtract(char *argv[], int tbl_cnt) #else doxtract(char *argv[]) #endif { struct stat xtractbuf; /* stat on file after extracting */ blkcnt_t blocks; off_t bytes; int ofile; int newfile; /* Does the file already exist */ int xcnt = 0; /* count # files extracted */ int fcnt = 0; /* count # files in argv list */ int dir; int dirfd = -1; int cwd = -1; int rw_sysattr; int saveerrno; uid_t Uid; char *namep, *dirp, *comp, *linkp; /* for removing absolute paths */ char dirname[PATH_MAX+1]; char templink[PATH_MAX+1]; /* temp link with terminating NULL */ int once = 1; int error; int symflag; int want; attr_data_t *attrinfo = NULL; /* attribute info */ acl_t *aclp = NULL; /* acl info */ char dot[] = "."; /* dirp for using realpath */ timestruc_t time_zero; /* used for call to doDirTimes */ int dircreate; int convflag; time_zero.tv_sec = 0; time_zero.tv_nsec = 0; /* reset Trusted Extensions variables */ rpath_flag = 0; lk_rpath_flag = 0; dir_flag = 0; mld_flag = 0; bslundef(&bs_label); bsllow(&admin_low); bslhigh(&admin_high); orig_namep = 0; dumping = 0; /* for newvol(), et al: we are not writing */ /* * Count the number of files that are to be extracted */ Uid = getuid(); #ifdef _iBCS2 initarg(argv, Filefile); while (nextarg() != NULL) ++fcnt; fcnt += tbl_cnt; #endif /* _iBCS2 */ for (;;) { convflag = 0; symflag = 0; dir = 0; Hiddendir = 0; rw_sysattr = 0; ofile = -1; if (dirfd != -1) { (void) close(dirfd); dirfd = -1; } if (ofile != -1) { if (close(ofile) != 0) vperror(2, gettext("close error")); } #if defined(O_XATTR) if (cwd != -1) { rest_cwd(&cwd); } #endif /* namep is set by wantit to point to the full name */ if ((want = wantit(argv, &namep, &dirp, &comp, &attrinfo)) == 0) { #if defined(O_XATTR) if (xattrp != NULL) { free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } #endif continue; } if (want == -1) break; /* Trusted Extensions */ /* * During tar extract (x): * If the pathname of the restored file has been * reconstructed from the ancillary file, * use it to process the normal file. */ if (mld_flag) { /* Skip over .MLD. directory */ mld_flag = 0; passtape(); continue; } orig_namep = namep; /* save original */ if (rpath_flag) { namep = real_path; /* use zone path */ comp = real_path; /* use zone path */ dirp = dot; /* work from the top */ rpath_flag = 0; /* reset */ } if (dirfd != -1) (void) close(dirfd); (void) strcpy(&dirname[0], namep); dircreate = checkdir(&dirname[0]); #if defined(O_XATTR) if (xattrp != NULL) { int rc; if (((cwd = save_cwd()) == -1) || ((rc = open_attr_dir(comp, dirp, cwd, attrinfo)) != ATTR_OK)) { if (cwd == -1) { vperror(0, gettext( "unable to save current working " "directory while processing " "attribute %s of %s"), dirp, attrinfo->attr_path); } else if (rc != ATTR_SKIP) { (void) fprintf(vfile, gettext("tar: cannot open " "%sattribute %s of file %s: %s\n"), attrinfo->attr_rw_sysattr ? gettext( "system ") : "", comp, dirp, strerror(errno)); } free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; passtape(); continue; } else { dirfd = attrinfo->attr_parentfd; rw_sysattr = attrinfo->attr_rw_sysattr; } } else { dirfd = open(dirp, O_RDONLY); } #else dirfd = open(dirp, O_RDONLY); #endif if (dirfd == -1) { (void) fprintf(vfile, gettext( "tar: cannot open %s: %s\n"), dirp, strerror(errno)); passtape(); continue; } if (xhdr_flgs & _X_LINKPATH) (void) strcpy(templink, Xtarhdr.x_linkpath); else { #if defined(O_XATTR) if (xattrp && dblock.dbuf.typeflag == '1') { (void) sprintf(templink, "%.*s", NAMSIZ, xattrp->h_names); } else { (void) sprintf(templink, "%.*s", NAMSIZ, dblock.dbuf.linkname); } #else (void) sprintf(templink, "%.*s", NAMSIZ, dblock.dbuf.linkname); #endif } if (Fflag) { if (checkf(namep, is_directory(namep), Fflag) == 0) { passtape(); continue; } } if (checkw('x', namep) == 0) { passtape(); continue; } if (once) { if (strcmp(dblock.dbuf.magic, magic_type) == 0) { if (geteuid() == (uid_t)0) { checkflag = 1; pflag = 1; } else { /* get file creation mask */ Oumask = umask(0); (void) umask(Oumask); } once = 0; } else { if (geteuid() == (uid_t)0) { pflag = 1; checkflag = 2; } if (!pflag) { /* get file creation mask */ Oumask = umask(0); (void) umask(Oumask); } once = 0; } } #if defined(O_XATTR) /* * Handle extraction of hidden attr dir. * Dir is automatically created, we only * need to update mode and perm's. */ if ((xattrp != NULL) && Hiddendir == 1) { bytes = stbuf.st_size; blocks = TBLOCKS(bytes); if (vflag) { (void) fprintf(vfile, "x %s%s%s, %" FMT_off_t " %s, ", namep, gettext(" attribute "), xattrapath, bytes, gettext("bytes")); if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } /* * Set the permissions and mode of the attribute * unless the attribute is a system attribute (can't * successfully do this) or the hidden attribute * directory (".") of an attribute (when the attribute * is restored, the hidden attribute directory of an * attribute is transient). Note: when the permissions * and mode are set for the hidden attribute directory * of a file on a system supporting extended system * attributes, even though it returns successfully, it * will not have any affect since the attribute * directory is transient. */ if (attrinfo->attr_parent == NULL) { if (fchownat(dirfd, ".", stbuf.st_uid, stbuf.st_gid, 0) != 0) { vperror(0, gettext( "%s%s%s: failed to set ownership " "of attribute directory"), namep, gettext(" attribute "), xattrapath); } if (fchmod(dirfd, stbuf.st_mode) != 0) { vperror(0, gettext( "%s%s%s: failed to set permissions " "of attribute directory"), namep, gettext(" attribute "), xattrapath); } } goto filedone; } #endif if (dircreate && (!is_posix || dblock.dbuf.typeflag == '5')) { dir = 1; if (vflag) { (void) fprintf(vfile, "x %s, 0 %s, ", &dirname[0], gettext("bytes")); if (NotTape) (void) fprintf(vfile, "0K\n"); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), (blkcnt_t)0); } goto filedone; } if (dblock.dbuf.typeflag == '6') { /* FIFO */ if (rmdir(namep) < 0) { if (errno == ENOTDIR) (void) unlink(namep); } linkp = templink; if (*linkp != NULL) { if (Aflag && *linkp == '/') linkp++; if (link(linkp, namep) < 0) { (void) fprintf(stderr, gettext( "tar: %s: cannot link\n"), namep); continue; } if (vflag) (void) fprintf(vfile, gettext( "x %s linked to %s\n"), namep, linkp); xcnt++; /* increment # files extracted */ continue; } if (mknod(namep, (int)(Gen.g_mode|S_IFIFO), (int)Gen.g_devmajor) < 0) { vperror(0, gettext("%s: mknod failed"), namep); continue; } bytes = stbuf.st_size; blocks = TBLOCKS(bytes); if (vflag) { (void) fprintf(vfile, "x %s, %" FMT_off_t " %s, ", namep, bytes, gettext("bytes")); if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } goto filedone; } if (dblock.dbuf.typeflag == '3' && !Uid) { /* CHAR SPECIAL */ if (rmdir(namep) < 0) { if (errno == ENOTDIR) (void) unlink(namep); } linkp = templink; if (*linkp != NULL) { if (Aflag && *linkp == '/') linkp++; if (link(linkp, namep) < 0) { (void) fprintf(stderr, gettext( "tar: %s: cannot link\n"), namep); continue; } if (vflag) (void) fprintf(vfile, gettext( "x %s linked to %s\n"), namep, linkp); xcnt++; /* increment # files extracted */ continue; } if (mknod(namep, (int)(Gen.g_mode|S_IFCHR), (int)makedev(Gen.g_devmajor, Gen.g_devminor)) < 0) { vperror(0, gettext( "%s: mknod failed"), namep); continue; } bytes = stbuf.st_size; blocks = TBLOCKS(bytes); if (vflag) { (void) fprintf(vfile, "x %s, %" FMT_off_t " %s, ", namep, bytes, gettext("bytes")); if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } goto filedone; } else if (dblock.dbuf.typeflag == '3' && Uid) { (void) fprintf(stderr, gettext( "Can't create special %s\n"), namep); continue; } /* BLOCK SPECIAL */ if (dblock.dbuf.typeflag == '4' && !Uid) { if (rmdir(namep) < 0) { if (errno == ENOTDIR) (void) unlink(namep); } linkp = templink; if (*linkp != NULL) { if (Aflag && *linkp == '/') linkp++; if (link(linkp, namep) < 0) { (void) fprintf(stderr, gettext( "tar: %s: cannot link\n"), namep); continue; } if (vflag) (void) fprintf(vfile, gettext( "x %s linked to %s\n"), namep, linkp); xcnt++; /* increment # files extracted */ continue; } if (mknod(namep, (int)(Gen.g_mode|S_IFBLK), (int)makedev(Gen.g_devmajor, Gen.g_devminor)) < 0) { vperror(0, gettext("%s: mknod failed"), namep); continue; } bytes = stbuf.st_size; blocks = TBLOCKS(bytes); if (vflag) { (void) fprintf(vfile, gettext("x %s, %" FMT_off_t " bytes, "), namep, bytes); if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } goto filedone; } else if (dblock.dbuf.typeflag == '4' && Uid) { (void) fprintf(stderr, gettext("Can't create special %s\n"), namep); continue; } if (dblock.dbuf.typeflag == '2') { /* symlink */ if ((Tflag) && (lk_rpath_flag == 1)) linkp = lk_real_path; else linkp = templink; if (Aflag && *linkp == '/') linkp++; if (rmdir(namep) < 0) { if (errno == ENOTDIR) (void) unlink(namep); } if (symlink(linkp, namep) < 0) { vperror(0, gettext("%s: symbolic link failed"), namep); continue; } if (vflag) (void) fprintf(vfile, gettext( "x %s symbolic link to %s\n"), namep, linkp); symflag = AT_SYMLINK_NOFOLLOW; goto filedone; } if (dblock.dbuf.typeflag == '1') { linkp = templink; if (Aflag && *linkp == '/') linkp++; if (unlinkat(dirfd, comp, AT_REMOVEDIR) < 0) { if (errno == ENOTDIR) (void) unlinkat(dirfd, comp, 0); } #if defined(O_XATTR) if (xattrp && xattr_linkp) { if (fchdir(dirfd) < 0) { vperror(0, gettext( "Cannot fchdir to attribute " "directory %s"), (attrinfo->attr_parent == NULL) ? dirp : attrinfo->attr_parent); exit(1); } error = link(xattr_linkaname, xattrapath); } else { error = link(linkp, namep); } #else error = link(linkp, namep); #endif if (error < 0) { (void) fprintf(stderr, gettext( "tar: %s%s%s: cannot link\n"), namep, (xattr_linkp != NULL) ? gettext(" attribute ") : "", (xattr_linkp != NULL) ? xattrapath : ""); continue; } if (vflag) (void) fprintf(vfile, gettext( "x %s%s%s linked to %s%s%s\n"), namep, (xattr_linkp != NULL) ? gettext(" attribute ") : "", (xattr_linkp != NULL) ? xattr_linkaname : "", linkp, (xattr_linkp != NULL) ? gettext(" attribute ") : "", (xattr_linkp != NULL) ? xattrapath : ""); xcnt++; /* increment # files extracted */ #if defined(O_XATTR) if (xattrp != NULL) { free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } #endif continue; } /* REGULAR FILES */ if (convtoreg(stbuf.st_size)) { convflag = 1; if (errflag) { (void) fprintf(stderr, gettext( "tar: %s: typeflag '%c' not recognized\n"), namep, dblock.dbuf.typeflag); done(1); } else { (void) fprintf(stderr, gettext( "tar: %s: typeflag '%c' not recognized, " "converting to regular file\n"), namep, dblock.dbuf.typeflag); Errflg = 1; } } if (dblock.dbuf.typeflag == '0' || dblock.dbuf.typeflag == NULL || convflag) { delete_target(dirfd, comp, namep); linkp = templink; if (*linkp != NULL) { if (Aflag && *linkp == '/') linkp++; if (link(linkp, comp) < 0) { (void) fprintf(stderr, gettext( "tar: %s: cannot link\n"), namep); continue; } if (vflag) (void) fprintf(vfile, gettext( "x %s linked to %s\n"), comp, linkp); xcnt++; /* increment # files extracted */ #if defined(O_XATTR) if (xattrp != NULL) { free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } #endif continue; } newfile = ((fstatat(dirfd, comp, &xtractbuf, 0) == -1) ? TRUE : FALSE); ofile = openat(dirfd, comp, O_RDWR|O_CREAT|O_TRUNC, stbuf.st_mode & MODEMASK); saveerrno = errno; #if defined(O_XATTR) if (xattrp != NULL) { if (ofile < 0) { ofile = retry_open_attr(dirfd, cwd, dirp, attrinfo->attr_parent, comp, O_RDWR|O_CREAT|O_TRUNC, stbuf.st_mode & MODEMASK); } } #endif if (ofile < 0) { errno = saveerrno; (void) fprintf(stderr, gettext( "tar: %s%s%s%s - cannot create\n"), (xattrp == NULL) ? "" : (rw_sysattr ? gettext("system attribute ") : gettext("attribute ")), (xattrp == NULL) ? "" : xattrapath, (xattrp == NULL) ? "" : gettext(" of "), (xattrp == NULL) ? comp : namep); if (errflag) done(1); else Errflg = 1; #if defined(O_XATTR) if (xattrp != NULL) { dblock.dbuf.typeflag = _XATTR_HDRTYPE; free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } #endif passtape(); continue; } if (Tflag && (check_ext_attr(namep) == 0)) { if (errflag) done(1); else Errflg = 1; passtape(); continue; } if (extno != 0) { /* file is in pieces */ if (extotal < 1 || extotal > MAXEXT) (void) fprintf(stderr, gettext( "tar: ignoring bad extent info for " "%s%s%s%s\n"), (xattrp == NULL) ? "" : (rw_sysattr ? gettext("system attribute ") : gettext("attribute ")), (xattrp == NULL) ? "" : xattrapath, (xattrp == NULL) ? "" : gettext(" of "), (xattrp == NULL) ? comp : namep); else { /* extract it */ (void) xsfile(rw_sysattr, ofile); } } extno = 0; /* let everyone know file is not split */ bytes = stbuf.st_size; blocks = TBLOCKS(bytes); if (vflag) { (void) fprintf(vfile, "x %s%s%s, %" FMT_off_t " %s, ", (xattrp == NULL) ? "" : dirp, (xattrp == NULL) ? "" : (rw_sysattr ? gettext(" system attribute ") : gettext(" attribute ")), (xattrp == NULL) ? namep : xattrapath, bytes, gettext("bytes")); if (NotTape) (void) fprintf(vfile, "%" FMT_blkcnt_t "K\n", K(blocks)); else (void) fprintf(vfile, gettext("%" FMT_blkcnt_t " tape blocks\n"), blocks); } if (xblocks(rw_sysattr, bytes, ofile) != 0) { #if defined(O_XATTR) if (xattrp != NULL) { free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } #endif continue; } filedone: if (mflag == 0 && !symflag) { if (dir) doDirTimes(namep, stbuf.st_mtim); else #if defined(O_XATTR) if (xattrp != NULL) { /* * Set the time on the attribute unless * the attribute is a system attribute * (can't successfully do this) or the * hidden attribute directory, "." (the * time on the hidden attribute * directory will be updated when * attributes are restored, otherwise * it's transient). */ if (!rw_sysattr && (Hiddendir == 0)) { setPathTimes(dirfd, comp, stbuf.st_mtim); } } else setPathTimes(dirfd, comp, stbuf.st_mtim); #else setPathTimes(dirfd, comp, stbuf.st_mtim); #endif } /* moved this code from above */ if (pflag && !symflag && Hiddendir == 0) { if (xattrp != NULL) (void) fchmod(ofile, stbuf.st_mode & MODEMASK); else (void) chmod(namep, stbuf.st_mode & MODEMASK); } /* * Because ancillary file preceeds the normal file, * acl info may have been retrieved (in aclp). * All file types are directed here (go filedone). * Always restore ACLs if there are ACLs. */ if (aclp != NULL) { int ret; #if defined(O_XATTR) if (xattrp != NULL) { if (Hiddendir) ret = facl_set(dirfd, aclp); else ret = facl_set(ofile, aclp); } else { ret = acl_set(namep, aclp); } #else ret = acl_set(namep, aclp); #endif if (ret < 0) { if (pflag) { (void) fprintf(stderr, gettext( "%s%s%s%s: failed to set acl " "entries\n"), namep, (xattrp == NULL) ? "" : (rw_sysattr ? gettext( " system attribute ") : gettext(" attribute ")), (xattrp == NULL) ? "" : xattrapath); } /* else: silent and continue */ } acl_free(aclp); aclp = NULL; } if (!oflag) resugname(dirfd, comp, symflag); /* set file ownership */ if (pflag && newfile == TRUE && !dir && (dblock.dbuf.typeflag == '0' || dblock.dbuf.typeflag == NULL || convflag || dblock.dbuf.typeflag == '1')) { if (fstat(ofile, &xtractbuf) == -1) (void) fprintf(stderr, gettext( "tar: cannot stat extracted file " "%s%s%s%s\n"), (xattrp == NULL) ? "" : (rw_sysattr ? gettext("system attribute ") : gettext("attribute ")), (xattrp == NULL) ? "" : xattrapath, (xattrp == NULL) ? "" : gettext(" of "), namep); else if ((xtractbuf.st_mode & (MODEMASK & ~S_IFMT)) != (stbuf.st_mode & (MODEMASK & ~S_IFMT))) { (void) fprintf(stderr, gettext( "tar: warning - file permissions have " "changed for %s%s%s%s (are 0%o, should be " "0%o)\n"), (xattrp == NULL) ? "" : (rw_sysattr ? gettext("system attribute ") : gettext("attribute ")), (xattrp == NULL) ? "" : xattrapath, (xattrp == NULL) ? "" : gettext(" of "), namep, xtractbuf.st_mode, stbuf.st_mode); } } #if defined(O_XATTR) if (xattrp != NULL) { free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } #endif if (ofile != -1) { (void) close(dirfd); dirfd = -1; if (close(ofile) != 0) vperror(2, gettext("close error")); ofile = -1; } xcnt++; /* increment # files extracted */ } /* * Process ancillary file. * */ if (dblock.dbuf.typeflag == 'A') { /* acl info */ char buf[TBLOCK]; char *secp; char *tp; int attrsize; int cnt; /* reset Trusted Extensions flags */ dir_flag = 0; mld_flag = 0; lk_rpath_flag = 0; rpath_flag = 0; if (pflag) { bytes = stbuf.st_size; if ((secp = malloc((int)bytes)) == NULL) { (void) fprintf(stderr, gettext( "Insufficient memory for acl\n")); passtape(); continue; } tp = secp; blocks = TBLOCKS(bytes); /* * Display a line for each ancillary file. */ if (vflag && Tflag) (void) fprintf(vfile, "x %s(A), %" FMT_blkcnt_t " %s, %" FMT_blkcnt_t " %s\n", namep, bytes, gettext("bytes"), blocks, gettext("tape blocks")); while (blocks-- > 0) { readtape(buf); if (bytes <= TBLOCK) { (void) memcpy(tp, buf, (size_t)bytes); break; } else { (void) memcpy(tp, buf, TBLOCK); tp += TBLOCK; } bytes -= TBLOCK; } bytes = stbuf.st_size; /* got all attributes in secp */ tp = secp; do { attr = (struct sec_attr *)tp; switch (attr->attr_type) { case UFSD_ACL: case ACE_ACL: (void) sscanf(attr->attr_len, "%7o", (uint_t *) &cnt); /* header is 8 */ attrsize = 8 + (int)strlen( &attr->attr_info[0]) + 1; error = acl_fromtext( &attr->attr_info[0], &aclp); if (error != 0) { (void) fprintf(stderr, gettext( "aclfromtext " "failed: %s\n"), acl_strerror( error)); bytes -= attrsize; break; } if (acl_cnt(aclp) != cnt) { (void) fprintf(stderr, gettext( "aclcnt error\n")); bytes -= attrsize; break; } bytes -= attrsize; break; /* Trusted Extensions */ case DIR_TYPE: case LBL_TYPE: case APRIV_TYPE: case FPRIV_TYPE: case COMP_TYPE: case LK_COMP_TYPE: case ATTR_FLAG_TYPE: attrsize = sizeof (struct sec_attr) + strlen(&attr->attr_info[0]); bytes -= attrsize; if (Tflag) extract_attr(&namep, attr); break; default: (void) fprintf(stderr, gettext( "unrecognized attr" " type\n")); bytes = (off_t)0; break; } /* next attributes */ tp += attrsize; } while (bytes != 0); free(secp); } else { passtape(); } } /* acl */ } /* for */ /* * Ensure that all the directories still on the directory stack * get their modification times set correctly by flushing the * stack. */ doDirTimes(NULL, time_zero); #if defined(O_XATTR) if (xattrp != NULL) { free(xattrhead); xattrp = NULL; xattr_linkp = NULL; xattrhead = NULL; } #endif /* * Check if the number of files extracted is different from the * number of files listed on the command line */ if (fcnt > xcnt) { (void) fprintf(stderr, gettext("tar: %d file(s) not extracted\n"), fcnt-xcnt); Errflg = 1; } } /* * xblocks extract file/extent from tape to output file * * xblocks(issysattr, bytes, ofile); * * issysattr flag set if the files being extracted * is an extended system attribute file. * unsigned long long bytes size of extent or file to be extracted * ofile output file * * called by doxtract() and xsfile() */ static int xblocks(int issysattr, off_t bytes, int ofile) { char *buf; char tempname[NAMSIZ+1]; size_t maxwrite; size_t bytesread; size_t piosize; /* preferred I/O size */ struct stat tsbuf; /* Don't need to do anything if this is a zero size file */ if (bytes <= 0) { return (0); } /* * To figure out the size of the buffer used to accumulate data * from readtape() and to write to the file, we need to determine * the largest chunk of data to be written to the file at one time. * This is determined based on the smallest of the following two * things: * 1) The size of the archived file. * 2) The preferred I/O size of the file. */ if (issysattr || (bytes <= TBLOCK)) { /* * Writes to system attribute files must be * performed in one operation. */ maxwrite = bytes; } else { /* * fstat() the file to get the preferred I/O size. * If it fails, then resort back to just writing * one block at a time. */ if (fstat(ofile, &tsbuf) == 0) { piosize = tsbuf.st_blksize; } else { piosize = TBLOCK; } maxwrite = min(bytes, piosize); } /* * The buffer used to accumulate the data for the write operation * needs to be the maximum number of bytes to be written rounded up * to the nearest TBLOCK since readtape reads one block at a time. */ if ((buf = malloc(TBLOCKS(maxwrite) * TBLOCK)) == NULL) { fatal(gettext("cannot allocate buffer")); } while (bytes > 0) { /* * readtape() obtains one block (TBLOCK) of data at a time. * Accumulate as many blocks of data in buf as we can write * in one operation. */ for (bytesread = 0; bytesread < maxwrite; bytesread += TBLOCK) { readtape(buf + bytesread); } if (write(ofile, buf, maxwrite) < 0) { int saveerrno = errno; if (xhdr_flgs & _X_PATH) (void) strlcpy(tempname, Xtarhdr.x_path, sizeof (tempname)); else (void) sprintf(tempname, "%.*s", NAMSIZ, dblock.dbuf.name); /* * If the extended system attribute being extracted * contains attributes that the user needs privileges * for, then just display a warning message, skip * the extraction of this file, and return. */ if ((saveerrno == EPERM) && issysattr) { (void) fprintf(stderr, gettext( "tar: unable to extract system attribute " "%s: insufficient privileges\n"), tempname); Errflg = 1; (void) free(buf); return (1); } else { (void) fprintf(stderr, gettext( "tar: %s: HELP - extract write error\n"), tempname); done(2); } } bytes -= maxwrite; /* * If we've reached this point and there is still data * to be written, maxwrite had to have been determined * by the preferred I/O size. If the number of bytes * left to write is smaller than the preferred I/O size, * then we're about to do our final write to the file, so * just set maxwrite to the number of bytes left to write. */ if ((bytes > 0) && (bytes < maxwrite)) { maxwrite = bytes; } } free(buf); return (0); } /* * xsfile extract split file * * xsfile(ofd); ofd = output file descriptor * * file extracted and put in ofd via xblocks() * * NOTE: only called by doxtract() to extract one large file */ static union hblock savedblock; /* to ensure same file across volumes */ static int xsfile(int issysattr, int ofd) { int i, c; int sysattrerr = 0; char name[PATH_MAX+1]; /* holds name for diagnostics */ int extents, totalext; off_t bytes, totalbytes; if (xhdr_flgs & _X_PATH) (void) strcpy(name, Xtarhdr.x_path); else (void) sprintf(name, "%.*s", NAMSIZ, dblock.dbuf.name); totalbytes = (off_t)0; /* in case we read in half the file */ totalext = 0; /* these keep count */ (void) fprintf(stderr, gettext( "tar: %s split across %d volumes\n"), name, extotal); /* make sure we do extractions in order */ if (extno != 1) { /* starting in middle of file? */ (void) printf(gettext( "tar: first extent read is not #1\n" "OK to read file beginning with extent #%d (%s/%s) ? "), extno, yesstr, nostr); if (yes() == 0) { canit: passtape(); if (close(ofd) != 0) vperror(2, gettext("close error")); if (sysattrerr) { return (1); } else { return (0); } } } extents = extotal; i = extno; /*CONSTCOND*/ while (1) { if (xhdr_flgs & _X_SIZE) { bytes = extsize; } else { bytes = stbuf.st_size; } if (vflag) (void) fprintf(vfile, "+++ x %s [%s #%d], %" FMT_off_t " %s, %ldK\n", name, gettext("extent"), extno, bytes, gettext("bytes"), (long)K(TBLOCKS(bytes))); if (xblocks(issysattr, bytes, ofd) != 0) { sysattrerr = 1; goto canit; } totalbytes += bytes; totalext++; if (++i > extents) break; /* get next volume and verify it's the right one */ copy(&savedblock, &dblock); tryagain: newvol(); xhdr_flgs = 0; getdir(); if (Xhdrflag > 0) (void) get_xdata(); /* Get x-header & regular hdr */ if ((dblock.dbuf.typeflag != 'A') && (xhdr_flgs != 0)) { load_info_from_xtarhdr(xhdr_flgs, &Xtarhdr); xhdr_flgs |= _X_XHDR; } if (endtape()) { /* seemingly empty volume */ (void) fprintf(stderr, gettext( "tar: first record is null\n")); asknicely: (void) fprintf(stderr, gettext( "tar: need volume with extent #%d of %s\n"), i, name); goto tryagain; } if (notsame()) { (void) fprintf(stderr, gettext( "tar: first file on that volume is not " "the same file\n")); goto asknicely; } if (i != extno) { (void) fprintf(stderr, gettext( "tar: extent #%d received out of order\ntar: " "should be #%d\n"), extno, i); (void) fprintf(stderr, gettext( "Ignore error, Abort this file, or " "load New volume (i/a/n) ? ")); c = response(); if (c == 'a') goto canit; if (c != 'i') /* default to new volume */ goto asknicely; i = extno; /* okay, start from there */ } } if (vflag) (void) fprintf(vfile, gettext( "x %s (in %d extents), %" FMT_off_t " bytes, %ldK\n"), name, totalext, totalbytes, (long)K(TBLOCKS(totalbytes))); return (0); } /* * notsame() check if extract file extent is invalid * * returns true if anything differs between savedblock and dblock * except extno (extent number), checksum, or size (extent size). * Determines if this header belongs to the same file as the one we're * extracting. * * NOTE: though rather bulky, it is only called once per file * extension, and it can withstand changes in the definition * of the header structure. * * WARNING: this routine is local to xsfile() above */ static int notsame(void) { return ( (strncmp(savedblock.dbuf.name, dblock.dbuf.name, NAMSIZ)) || (strcmp(savedblock.dbuf.mode, dblock.dbuf.mode)) || (strcmp(savedblock.dbuf.uid, dblock.dbuf.uid)) || (strcmp(savedblock.dbuf.gid, dblock.dbuf.gid)) || (strcmp(savedblock.dbuf.mtime, dblock.dbuf.mtime)) || (savedblock.dbuf.typeflag != dblock.dbuf.typeflag) || (strncmp(savedblock.dbuf.linkname, dblock.dbuf.linkname, NAMSIZ)) || (savedblock.dbuf.extotal != dblock.dbuf.extotal) || (strcmp(savedblock.dbuf.efsize, dblock.dbuf.efsize))); } static void #ifdef _iBCS2 dotable(char *argv[], int tbl_cnt) #else dotable(char *argv[]) #endif { int tcnt; /* count # files tabled */ int fcnt; /* count # files in argv list */ char *namep, *dirp, *comp; int want; char aclchar = ' '; /* either blank or '+' */ char templink[PATH_MAX+1]; attr_data_t *attrinfo = NULL; dumping = 0; /* if not on magtape, maximize seek speed */ if (NotTape && !bflag) { #if SYS_BLOCK > TBLOCK nblock = SYS_BLOCK / TBLOCK; #else nblock = 1; #endif } /* * Count the number of files that are to be tabled */ fcnt = tcnt = 0; #ifdef _iBCS2 initarg(argv, Filefile); while (nextarg() != NULL) ++fcnt; fcnt += tbl_cnt; #endif /* _iBCS2 */ for (;;) { /* namep is set by wantit to point to the full name */ if ((want = wantit(argv, &namep, &dirp, &comp, &attrinfo)) == 0) continue; if (want == -1) break; if (dblock.dbuf.typeflag != 'A') ++tcnt; if (Fflag) { if (checkf(namep, is_directory(namep), Fflag) == 0) { passtape(); continue; } } /* * ACL support: * aclchar is introduced to indicate if there are * acl entries. longt() now takes one extra argument. */ if (vflag) { if (dblock.dbuf.typeflag == 'A') { aclchar = '+'; passtape(); continue; } longt(&stbuf, aclchar); aclchar = ' '; } #if defined(O_XATTR) if (xattrp != NULL) { int issysattr; char *bn = basename(attrinfo->attr_path); /* * We could use sysattr_type() to test whether or not * the attribute we are processing is really an * extended system attribute, which as of this writing * just does a strcmp(), however, sysattr_type() may * be changed to issue a pathconf() call instead, which * would require being changed into the parent attribute * directory. So instead, just do simple string * comparisons to see if we are processing an extended * system attribute. */ issysattr = is_sysattr(bn); (void) printf(gettext("%s %sattribute %s"), xattrp->h_names, issysattr ? gettext("system ") : "", attrinfo->attr_path); } else { (void) printf("%s", namep); } #else (void) printf("%s", namep); #endif if (extno != 0) { if (vflag) { /* keep the '\n' for backwards compatibility */ (void) fprintf(vfile, gettext( "\n [extent #%d of %d]"), extno, extotal); } else { (void) fprintf(vfile, gettext( " [extent #%d of %d]"), extno, extotal); } } if (xhdr_flgs & _X_LINKPATH) { (void) strcpy(templink, Xtarhdr.x_linkpath); } else { #if defined(O_XATTR) if (xattrp != NULL) { (void) sprintf(templink, "file %.*s", NAMSIZ, xattrp->h_names); } else { (void) sprintf(templink, "%.*s", NAMSIZ, dblock.dbuf.linkname); } #else (void) sprintf(templink, "%.*s", NAMSIZ, dblock.dbuf.linkname); #endif templink[NAMSIZ] = '\0'; } if (dblock.dbuf.typeflag == '1') { /* * TRANSLATION_NOTE * Subject is omitted here. * Translate this as if * linked to %s */ #if defined(O_XATTR) if (xattrp != NULL) { (void) printf( gettext(" linked to attribute %s"), xattr_linkp->h_names + strlen(xattr_linkp->h_names) + 1); } else { (void) printf( gettext(" linked to %s"), templink); } #else (void) printf( gettext(" linked to %s"), templink); #endif } if (dblock.dbuf.typeflag == '2') (void) printf(gettext( /* * TRANSLATION_NOTE * Subject is omitted here. * Translate this as if * symbolic link to %s */ " symbolic link to %s"), templink); (void) printf("\n"); #if defined(O_XATTR) if (xattrp != NULL) { free(xattrhead); xattrp = NULL; xattrhead = NULL; } #endif passtape(); } /* * Check if the number of files tabled is different from the * number of files listed on the command line */ if (fcnt > tcnt) { (void) fprintf(stderr, gettext( "tar: %d file(s) not found\n"), fcnt-tcnt); Errflg = 1; } } static void putempty(blkcnt_t n) { char buf[TBLOCK]; char *cp; for (cp = buf; cp < &buf[TBLOCK]; ) *cp++ = '\0'; while (n-- > 0) (void) writetbuf(buf, 1); } static ushort_t Ftype = S_IFMT; static void verbose(struct stat *st, char aclchar) { int i, j, temp; mode_t mode; char modestr[12]; for (i = 0; i < 11; i++) modestr[i] = '-'; modestr[i] = '\0'; /* a '+' sign is printed if there is ACL */ modestr[i-1] = aclchar; mode = st->st_mode; for (i = 0; i < 3; i++) { temp = (mode >> (6 - (i * 3))); j = (i * 3) + 1; if (S_IROTH & temp) modestr[j] = 'r'; if (S_IWOTH & temp) modestr[j + 1] = 'w'; if (S_IXOTH & temp) modestr[j + 2] = 'x'; } temp = st->st_mode & Ftype; switch (temp) { case (S_IFIFO): modestr[0] = 'p'; break; case (S_IFCHR): modestr[0] = 'c'; break; case (S_IFDIR): modestr[0] = 'd'; break; case (S_IFBLK): modestr[0] = 'b'; break; case (S_IFREG): /* was initialized to '-' */ break; case (S_IFLNK): modestr[0] = 'l'; break; default: /* This field may be zero in old archives. */ if (is_posix && dblock.dbuf.typeflag != '1') { /* * For POSIX compliant archives, the mode field * consists of 12 bits, ie: the file type bits * are not stored in dblock.dbuf.mode. * For files other than hard links, getdir() sets * the file type bits in the st_mode field of the * stat structure based upon dblock.dbuf.typeflag. */ (void) fprintf(stderr, gettext( "tar: impossible file type")); } } if ((S_ISUID & Gen.g_mode) == S_ISUID) modestr[3] = 's'; if ((S_ISVTX & Gen.g_mode) == S_ISVTX) modestr[9] = 't'; if ((S_ISGID & Gen.g_mode) == S_ISGID && modestr[6] == 'x') modestr[6] = 's'; else if ((S_ENFMT & Gen.g_mode) == S_ENFMT && modestr[6] != 'x') modestr[6] = 'l'; (void) fprintf(vfile, "%s", modestr); } static void longt(struct stat *st, char aclchar) { char fileDate[30]; struct tm *tm; verbose(st, aclchar); (void) fprintf(vfile, "%3ld/%-3ld", st->st_uid, st->st_gid); if (dblock.dbuf.typeflag == '2') { if (xhdr_flgs & _X_LINKPATH) st->st_size = (off_t)strlen(Xtarhdr.x_linkpath); else st->st_size = (off_t)(memchr(dblock.dbuf.linkname, '\0', NAMSIZ) ? (strlen(dblock.dbuf.linkname)) : (NAMSIZ)); } (void) fprintf(vfile, " %6" FMT_off_t, st->st_size); tm = localtime(&(st->st_mtime)); (void) strftime(fileDate, sizeof (fileDate), dcgettext((const char *)0, "%b %e %R %Y", LC_TIME), tm); (void) fprintf(vfile, " %s ", fileDate); } /* * checkdir - Attempt to ensure that the path represented in name * exists, and return 1 if this is true and name itself is a * directory. * Return 0 if this path cannot be created or if name is not * a directory. */ static int checkdir(char *name) { char lastChar; /* the last character in name */ char *cp; /* scratch pointer into name */ char *firstSlash = NULL; /* first slash in name */ char *lastSlash = NULL; /* last slash in name */ int nameLen; /* length of name */ int trailingSlash; /* true if name ends in slash */ int leadingSlash; /* true if name begins with slash */ int markedDir; /* true if name denotes a directory */ int success; /* status of makeDir call */ /* * Scan through the name, and locate first and last slashes. */ for (cp = name; *cp; cp++) { if (*cp == '/') { if (! firstSlash) { firstSlash = cp; } lastSlash = cp; } } /* * Determine what you can from the proceeds of the scan. */ lastChar = *(cp - 1); nameLen = (int)(cp - name); trailingSlash = (lastChar == '/'); leadingSlash = (*name == '/'); markedDir = (dblock.dbuf.typeflag == '5' || trailingSlash); if (! lastSlash && ! markedDir) { /* * The named file does not have any subdrectory * structure; just bail out. */ return (0); } /* * Make sure that name doesn`t end with slash for the loop. * This ensures that the makeDir attempt after the loop is * meaningful. */ if (trailingSlash) { name[nameLen-1] = '\0'; } /* * Make the path one component at a time. */ for (cp = strchr(leadingSlash ? name+1 : name, '/'); cp; cp = strchr(cp+1, '/')) { *cp = '\0'; success = makeDir(name); *cp = '/'; if (!success) { name[nameLen-1] = lastChar; return (0); } } /* * This makes the last component of the name, if it is a * directory. */ if (markedDir) { if (! makeDir(name)) { name[nameLen-1] = lastChar; return (0); } } name[nameLen-1] = (lastChar == '/') ? '\0' : lastChar; return (markedDir); } /* * resugname - Restore the user name and group name. Search the NIS * before using the uid and gid. * (It is presumed that an archive entry cannot be * simultaneously a symlink and some other type.) */ static void resugname(int dirfd, /* dir fd file resides in */ char *name, /* name of the file to be modified */ int symflag) /* true if file is a symbolic link */ { uid_t duid; gid_t dgid; struct stat *sp = &stbuf; char *u_g_name; if (checkflag == 1) { /* Extended tar format and euid == 0 */ /* * Try and extract the intended uid and gid from the name * service before believing the uid and gid in the header. * * In the case where we archived a setuid or setgid file * owned by someone with a large uid, then it will * have made it into the archive with a uid of nobody. If * the corresponding username doesn't appear to exist, then we * want to make sure it *doesn't* end up as setuid nobody! * * Our caller will print an error message about the fact * that the restore didn't work out quite right .. */ if (xhdr_flgs & _X_UNAME) u_g_name = Xtarhdr.x_uname; else u_g_name = dblock.dbuf.uname; if ((duid = getuidbyname(u_g_name)) == -1) { if (S_ISREG(sp->st_mode) && sp->st_uid == UID_NOBODY && (sp->st_mode & S_ISUID) == S_ISUID) (void) chmod(name, MODEMASK & sp->st_mode & ~S_ISUID); duid = sp->st_uid; } /* (Ditto for gids) */ if (xhdr_flgs & _X_GNAME) u_g_name = Xtarhdr.x_gname; else u_g_name = dblock.dbuf.gname; if ((dgid = getgidbyname(u_g_name)) == -1) { if (S_ISREG(sp->st_mode) && sp->st_gid == GID_NOBODY && (sp->st_mode & S_ISGID) == S_ISGID) (void) chmod(name, MODEMASK & sp->st_mode & ~S_ISGID); dgid = sp->st_gid; } } else if (checkflag == 2) { /* tar format and euid == 0 */ duid = sp->st_uid; dgid = sp->st_gid; } if ((checkflag == 1) || (checkflag == 2)) (void) fchownat(dirfd, name, duid, dgid, symflag); } /*ARGSUSED*/ static void onintr(int sig) { (void) signal(SIGINT, SIG_IGN); term++; } /*ARGSUSED*/ static void onquit(int sig) { (void) signal(SIGQUIT, SIG_IGN); term++; } /*ARGSUSED*/ static void onhup(int sig) { (void) signal(SIGHUP, SIG_IGN); term++; } static void tomodes(struct stat *sp) { uid_t uid; gid_t gid; bzero(dblock.dummy, TBLOCK); /* * If the uid or gid is too large, we can't put it into * the archive. We could fail to put anything in the * archive at all .. but most of the time the name service * will save the day when we do a lookup at restore time. * * Instead we choose a "safe" uid and gid, and fix up whether * or not the setuid and setgid bits are left set to extraction * time. */ if (Eflag) { if ((ulong_t)(uid = sp->st_uid) > (ulong_t)OCTAL7CHAR) { xhdr_flgs |= _X_UID; Xtarhdr.x_uid = uid; } if ((ulong_t)(gid = sp->st_gid) > (ulong_t)OCTAL7CHAR) { xhdr_flgs |= _X_GID; Xtarhdr.x_gid = gid; } if (sp->st_size > TAR_OFFSET_MAX) { xhdr_flgs |= _X_SIZE; Xtarhdr.x_filesz = sp->st_size; (void) sprintf(dblock.dbuf.size, "%011" FMT_off_t_o, (off_t)0); } else (void) sprintf(dblock.dbuf.size, "%011" FMT_off_t_o, sp->st_size); } else { (void) sprintf(dblock.dbuf.size, "%011" FMT_off_t_o, sp->st_size); } if ((ulong_t)(uid = sp->st_uid) > (ulong_t)OCTAL7CHAR) uid = UID_NOBODY; if ((ulong_t)(gid = sp->st_gid) > (ulong_t)OCTAL7CHAR) gid = GID_NOBODY; (void) sprintf(dblock.dbuf.gid, "%07lo", gid); (void) sprintf(dblock.dbuf.uid, "%07lo", uid); (void) sprintf(dblock.dbuf.mode, "%07lo", sp->st_mode & POSIXMODES); (void) sprintf(dblock.dbuf.mtime, "%011lo", sp->st_mtime); } static int #ifdef EUC /* * Warning: the result of this function depends whether 'char' is a * signed or unsigned data type. This a source of potential * non-portability among heterogeneous systems. It is retained here * for backward compatibility. */ checksum_signed(union hblock *dblockp) #else checksum(union hblock *dblockp) #endif /* EUC */ { int i; char *cp; for (cp = dblockp->dbuf.chksum; cp < &dblockp->dbuf.chksum[sizeof (dblockp->dbuf.chksum)]; cp++) *cp = ' '; i = 0; for (cp = dblockp->dummy; cp < &(dblockp->dummy[TBLOCK]); cp++) i += *cp; return (i); } #ifdef EUC /* * Generate unsigned checksum, regardless of what C compiler is * used. Survives in the face of arbitrary 8-bit clean filenames, * e.g., internationalized filenames. */ static int checksum(union hblock *dblockp) { unsigned i; unsigned char *cp; for (cp = (unsigned char *) dblockp->dbuf.chksum; cp < (unsigned char *) &(dblockp->dbuf.chksum[sizeof (dblockp->dbuf.chksum)]); cp++) *cp = ' '; i = 0; for (cp = (unsigned char *) dblockp->dummy; cp < (unsigned char *) &(dblockp->dummy[TBLOCK]); cp++) i += *cp; return (i); } #endif /* EUC */ /* * If the w flag is set, output the action to be taken and the name of the * file. Perform the action if the user response is affirmative. */ static int checkw(char c, char *name) { if (wflag) { (void) fprintf(vfile, "%c ", c); if (vflag) longt(&stbuf, ' '); /* do we have acl info here */ (void) fprintf(vfile, "%s: ", name); if (yes() == 1) { return (1); } return (0); } return (1); } /* * When the F flag is set, exclude RCS and SCCS directories (and any files * or directories under them). If F is set twice, also exclude .o files, * and files names errs, core, and a.out. * * Return 0 if file should be excluded, 1 otherwise. */ static int checkf(char *longname, int is_dir, int howmuch) { static char fullname[PATH_MAX + 1]; char *dir, *name; #if defined(O_XATTR) /* * If there is an xattr_buf structure associated with this file, * always return 1. */ if (xattrp) { return (1); } #endif /* * First check to see if the base name is an RCS or SCCS directory. */ if (strlcpy(fullname, longname, sizeof (fullname)) >= sizeof (fullname)) return (1); name = basename(fullname); if (is_dir) { if ((strcmp(name, "SCCS") == 0) || (strcmp(name, "RCS") == 0)) return (0); } /* * If two -F command line options were given then exclude .o files, * and files named errs, core, and a.out. */ if (howmuch > 1 && !is_dir) { size_t l = strlen(name); if (l >= 3 && name[l - 2] == '.' && name[l - 1] == 'o') return (0); if (strcmp(name, "core") == 0 || strcmp(name, "errs") == 0 || strcmp(name, "a.out") == 0) return (0); } /* * At this point, check to see if this file has a parent directory * named RCS or SCCS. If so, then this file should be excluded too. * The strcpy() operation is done again, because basename(3C) may * modify the path string passed to it. */ if (strlcpy(fullname, longname, sizeof (fullname)) >= sizeof (fullname)) return (1); dir = dirname(fullname); while (strcmp(dir, ".") != 0) { name = basename(dir); if ((strcmp(name, "SCCS") == 0) || (strcmp(name, "RCS") == 0)) return (0); dir = dirname(dir); } return (1); } static int response(void) { int c; c = getchar(); if (c != '\n') while (getchar() != '\n') ; else c = 'n'; return ((c >= 'A' && c <= 'Z') ? c + ('a'-'A') : c); } /* Has file been modified since being put into archive? If so, return > 0. */ static off_t lookup(char *); static int checkupdate(char *arg) { char name[PATH_MAX+1]; time_t mtime; long nsecs; off_t seekp; rewind(tfile); if ((seekp = lookup(arg)) < 0) return (1); (void) fseek(tfile, seekp, 0); (void) fscanf(tfile, "%s %ld.%ld", name, &mtime, &nsecs); /* * Unless nanoseconds were stored in the file, only use seconds for * comparison of time. Nanoseconds are stored when -E is specified. */ if (Eflag == 0) return (stbuf.st_mtime > mtime); if ((stbuf.st_mtime < mtime) || ((stbuf.st_mtime == mtime) && (stbuf.st_mtim.tv_nsec <= nsecs))) return (0); return (1); } /* * newvol get new floppy (or tape) volume * * newvol(); resets tapepos and first to TRUE, prompts for * for new volume, and waits. * if dumping, end-of-file is written onto the tape. */ static void newvol(void) { int c; if (dumping) { #ifdef DEBUG DEBUG("newvol called with 'dumping' set\n", 0, 0); #endif putempty((blkcnt_t)2); /* 2 EOT marks */ closevol(); flushtape(); sync(); tapepos = 0; } else first = TRUE; if (close(mt) != 0) vperror(2, gettext("close error")); mt = 0; (void) fprintf(stderr, gettext( "tar: \007please insert new volume, then press RETURN.")); (void) fseek(stdin, (off_t)0, 2); /* scan over read-ahead */ while ((c = getchar()) != '\n' && ! term) if (c == EOF) done(Errflg); if (term) done(Errflg); errno = 0; if (strcmp(usefile, "-") == 0) { mt = dup(1); } else { mt = open(usefile, dumping ? update : 0); } if (mt < 0) { (void) fprintf(stderr, gettext( "tar: cannot reopen %s (%s)\n"), dumping ? gettext("output") : gettext("input"), usefile); #ifdef DEBUG DEBUG("update=%d, usefile=%s ", update, usefile); DEBUG("mt=%d, [%s]\n", mt, strerror(errno)); #endif done(2); } } /* * Write a trailer portion to close out the current output volume. */ static void closevol(void) { if (mulvol) { /* * blocklim does not count the 2 EOT marks; * tapepos does count the 2 EOT marks; * therefore we need the +2 below. */ putempty(blocklim + (blkcnt_t)2 - tapepos); } } static void done(int n) { /* * If we were terminated in some way, and we would otherwise have * exited with a value of 0, adjust to 1, so that external callers * can determine this by looking at the exit status. */ if (term && n == 0) n = 1; if (tfile != NULL) (void) unlink(tname); if (compress_opt != NULL) (void) free(compress_opt); if (mt > 0) { if ((close(mt) != 0) || (fclose(stdout) != 0)) { perror(gettext("tar: close error")); exit(2); } } exit(n); } /* * Determine if s1 is a prefix portion of s2 (or the same as s2). */ static int is_prefix(char *s1, char *s2) { while (*s1) if (*s1++ != *s2++) return (0); if (*s2) return (*s2 == '/'); return (1); } /* * lookup and bsrch look through tfile entries to find a match for a name. * The name can be up to PATH_MAX bytes. bsrch compares what it sees between * a pair of newline chars, so the buffer it uses must be long enough for * two lines: name and modification time as well as period, newline and space. * * A kludge was added to bsrch to take care of matching on the first entry * in the file--there is no leading newline. So, if we are reading from the * start of the file, read into byte two and set the first byte to a newline. * Otherwise, the first entry cannot be matched. * */ #define N (2 * (PATH_MAX + TIME_MAX_DIGITS + LONG_MAX_DIGITS + 3)) static off_t lookup(char *s) { int i; off_t a; for (i = 0; s[i]; i++) if (s[i] == ' ') break; a = bsrch(s, i, low, high); return (a); } static off_t bsrch(char *s, int n, off_t l, off_t h) { int i, j; char b[N]; off_t m, m1; loop: if (l >= h) return ((off_t)-1); m = l + (h-l)/2 - N/2; if (m < l) m = l; (void) fseek(tfile, m, 0); if (m == 0) { (void) fread(b+1, 1, N-1, tfile); b[0] = '\n'; m--; } else (void) fread(b, 1, N, tfile); for (i = 0; i < N; i++) { if (b[i] == '\n') break; m++; } if (m >= h) return ((off_t)-1); m1 = m; j = i; for (i++; i < N; i++) { m1++; if (b[i] == '\n') break; } i = cmp(b+j, s, n); if (i < 0) { h = m; goto loop; } if (i > 0) { l = m1; goto loop; } if (m < 0) m = 0; return (m); } static int cmp(char *b, char *s, int n) { int i; assert(b[0] == '\n'); for (i = 0; i < n; i++) { if (b[i+1] > s[i]) return (-1); if (b[i+1] < s[i]) return (1); } return (b[i+1] == ' '? 0 : -1); } /* * seekdisk seek to next file on archive * * called by passtape() only * * WARNING: expects "nblock" to be set, that is, readtape() to have * already been called. Since passtape() is only called * after a file header block has been read (why else would * we skip to next file?), this is currently safe. * * changed to guarantee SYS_BLOCK boundary */ static void seekdisk(blkcnt_t blocks) { off_t seekval; #if SYS_BLOCK > TBLOCK /* handle non-multiple of SYS_BLOCK */ blkcnt_t nxb; /* # extra blocks */ #endif tapepos += blocks; #ifdef DEBUG DEBUG("seekdisk(%" FMT_blkcnt_t ") called\n", blocks, 0); #endif if (recno + blocks <= nblock) { recno += blocks; return; } if (recno > nblock) recno = nblock; seekval = (off_t)blocks - (nblock - recno); recno = nblock; /* so readtape() reads next time through */ #if SYS_BLOCK > TBLOCK nxb = (blkcnt_t)(seekval % (off_t)(SYS_BLOCK / TBLOCK)); #ifdef DEBUG DEBUG("xtrablks=%" FMT_blkcnt_t " seekval=%" FMT_blkcnt_t " blks\n", nxb, seekval); #endif if (nxb && nxb > seekval) /* don't seek--we'll read */ goto noseek; seekval -= nxb; /* don't seek quite so far */ #endif if (lseek(mt, (off_t)(TBLOCK * seekval), 1) == (off_t)-1) { (void) fprintf(stderr, gettext( "tar: device seek error\n")); done(3); } #if SYS_BLOCK > TBLOCK /* read those extra blocks */ noseek: if (nxb) { #ifdef DEBUG DEBUG("reading extra blocks\n", 0, 0); #endif if (read(mt, tbuf, TBLOCK*nblock) < 0) { (void) fprintf(stderr, gettext( "tar: read error while skipping file\n")); done(8); } recno = nxb; /* so we don't read in next readtape() */ } #endif } static void readtape(char *buffer) { int i, j; ++tapepos; if (recno >= nblock || first) { if (first) { /* * set the number of blocks to read initially, based on * the defined defaults for the device, or on the * explicit block factor given. */ if (bflag || defaults_used || NotTape) j = nblock; else j = NBLOCK; } else j = nblock; if ((i = read(mt, tbuf, TBLOCK*j)) < 0) { (void) fprintf(stderr, gettext( "tar: tape read error\n")); done(3); /* * i == 0 and !rflag means that EOF is reached and we are * trying to update or replace an empty tar file, so exit * with an error. * * If i == 0 and !first and NotTape, it means the pointer * has gone past the EOF. It could happen if two processes * try to update the same tar file simultaneously. So exit * with an error. */ } else if (i == 0) { if (first && !rflag) { (void) fprintf(stderr, gettext( "tar: blocksize = %d\n"), i); done(Errflg); } else if (!first && (!rflag || NotTape)) { mterr("read", 0, 2); } } else if ((!first || Bflag) && i != TBLOCK*j) { /* * Short read - try to get the remaining bytes. */ int remaining = (TBLOCK * j) - i; char *b = (char *)tbuf + i; int r; do { if ((r = read(mt, b, remaining)) < 0) { (void) fprintf(stderr, gettext("tar: tape read error\n")); done(3); } b += r; remaining -= r; i += r; } while (remaining > 0 && r != 0); } if (first) { if ((i % TBLOCK) != 0) { (void) fprintf(stderr, gettext( "tar: tape blocksize error\n")); done(3); } i /= TBLOCK; if (vflag && i != nblock && i != 1) { if (!NotTape) (void) fprintf(stderr, gettext( "tar: blocksize = %d\n"), i); } /* * If we are reading a tape, then a short read is * understood to signify that the amount read is * the tape's actual blocking factor. We adapt * nblock accordingly. There is no reason to do * this when the device is not blocked. */ if (!NotTape) nblock = i; } recno = 0; } first = FALSE; copy(buffer, &tbuf[recno++]); } /* * replacement for writetape. */ static int writetbuf(char *buffer, int n) { int i; tapepos += n; /* output block count */ if (recno >= nblock) { i = write(mt, (char *)tbuf, TBLOCK*nblock); if (i != TBLOCK*nblock) mterr("write", i, 2); recno = 0; } /* * Special case: We have an empty tape buffer, and the * users data size is >= the tape block size: Avoid * the bcopy and dma direct to tape. BIG WIN. Add the * residual to the tape buffer. */ while (recno == 0 && n >= nblock) { i = (int)write(mt, buffer, TBLOCK*nblock); if (i != TBLOCK*nblock) mterr("write", i, 2); n -= nblock; buffer += (nblock * TBLOCK); } while (n-- > 0) { (void) memcpy((char *)&tbuf[recno++], buffer, TBLOCK); buffer += TBLOCK; if (recno >= nblock) { i = (int)write(mt, (char *)tbuf, TBLOCK*nblock); if (i != TBLOCK*nblock) mterr("write", i, 2); recno = 0; } } /* Tell the user how much to write to get in sync */ return (nblock - recno); } /* * backtape - reposition tape after reading soft "EOF" record * * Backtape tries to reposition the tape back over the EOF * record. This is for the 'u' and 'r' function letters so that the * tape can be extended. This code is not well designed, but * I'm confident that the only callers who care about the * backspace-over-EOF feature are those involved in 'u' and 'r'. * * The proper way to backup the tape is through the use of mtio. * Earlier spins used lseek combined with reads in a confusing * maneuver that only worked on 4.x, but shouldn't have, even * there. Lseeks are explicitly not supported for tape devices. */ static void backtape(void) { struct mtop mtcmd; #ifdef DEBUG DEBUG("backtape() called, recno=%" FMT_blkcnt_t " nblock=%d\n", recno, nblock); #endif /* * Backup to the position in the archive where the record * currently sitting in the tbuf buffer is situated. */ if (NotTape) { /* * For non-tape devices, this means lseeking to the * correct position. The absolute location tapepos-recno * should be the beginning of the current record. */ if (lseek(mt, (off_t)(TBLOCK*(tapepos-recno)), SEEK_SET) == (off_t)-1) { (void) fprintf(stderr, gettext("tar: lseek to end of archive failed\n")); done(4); } } else { /* * For tape devices, we backup over the most recently * read record. */ mtcmd.mt_op = MTBSR; mtcmd.mt_count = 1; if (ioctl(mt, MTIOCTOP, &mtcmd) < 0) { (void) fprintf(stderr, gettext("tar: backspace over record failed\n")); done(4); } } /* * Decrement the tape and tbuf buffer indices to prepare for the * coming write to overwrite the soft EOF record. */ recno--; tapepos--; } /* * flushtape write buffered block(s) onto tape * * recno points to next free block in tbuf. If nonzero, a write is done. * Care is taken to write in multiples of SYS_BLOCK when device is * non-magtape in case raw i/o is used. * * NOTE: this is called by writetape() to do the actual writing */ static void flushtape(void) { #ifdef DEBUG DEBUG("flushtape() called, recno=%" FMT_blkcnt_t "\n", recno, 0); #endif if (recno > 0) { /* anything buffered? */ if (NotTape) { #if SYS_BLOCK > TBLOCK int i; /* * an odd-block write can only happen when * we are at the end of a volume that is not a tape. * Here we round recno up to an even SYS_BLOCK * boundary. */ if ((i = recno % (SYS_BLOCK / TBLOCK)) != 0) { #ifdef DEBUG DEBUG("flushtape() %d rounding blocks\n", i, 0); #endif recno += i; /* round up to even SYS_BLOCK */ } #endif if (recno > nblock) recno = nblock; } #ifdef DEBUG DEBUG("writing out %" FMT_blkcnt_t " blocks of %" FMT_blkcnt_t " bytes\n", (blkcnt_t)(NotTape ? recno : nblock), (blkcnt_t)(NotTape ? recno : nblock) * TBLOCK); #endif if (write(mt, tbuf, (size_t)(NotTape ? recno : nblock) * TBLOCK) < 0) { (void) fprintf(stderr, gettext( "tar: tape write error\n")); done(2); } recno = 0; } } static void copy(void *dst, void *src) { (void) memcpy(dst, src, TBLOCK); } #ifdef _iBCS2 /* * initarg -- initialize things for nextarg. * * argv filename list, a la argv. * filefile name of file containing filenames. Unless doing * a create, seeks must be allowable (e.g. no named pipes). * * - if filefile is non-NULL, it will be used first, and argv will * be used when the data in filefile are exhausted. * - otherwise argv will be used. */ static char **Cmdargv = NULL; static FILE *FILEFile = NULL; static long seekFile = -1; static char *ptrtoFile, *begofFile, *endofFile; static void initarg(char *argv[], char *filefile) { struct stat statbuf; char *p; int nbytes; Cmdargv = argv; if (filefile == NULL) return; /* no -F file */ if (FILEFile != NULL) { /* * need to REinitialize */ if (seekFile != -1) (void) fseek(FILEFile, seekFile, 0); ptrtoFile = begofFile; return; } /* * first time initialization */ if ((FILEFile = fopen(filefile, "r")) == NULL) fatal(gettext("cannot open (%s)"), filefile); (void) fstat(fileno(FILEFile), &statbuf); if ((statbuf.st_mode & S_IFMT) != S_IFREG) { (void) fprintf(stderr, gettext( "tar: %s is not a regular file\n"), filefile); (void) fclose(FILEFile); done(1); } ptrtoFile = begofFile = endofFile; seekFile = 0; if (!xflag) return; /* the file will be read only once anyway */ nbytes = statbuf.st_size; while ((begofFile = calloc(nbytes, sizeof (char))) == NULL) nbytes -= 20; if (nbytes < 50) { free(begofFile); begofFile = endofFile; return; /* no room so just do plain reads */ } if (fread(begofFile, 1, nbytes, FILEFile) != nbytes) fatal(gettext("could not read %s"), filefile); ptrtoFile = begofFile; endofFile = begofFile + nbytes; for (p = begofFile; p < endofFile; ++p) if (*p == '\n') *p = '\0'; if (nbytes != statbuf.st_size) seekFile = nbytes + 1; else (void) fclose(FILEFile); } /* * nextarg -- get next argument of arglist. * * The argument is taken from wherever is appropriate. * * If the 'F file' function modifier has been specified, the argument * will be taken from the file, unless EOF has been reached. * Otherwise the argument will be taken from argv. * * WARNING: * Return value may point to static data, whose contents are over- * written on each call. */ static char * nextarg(void) { static char nameFile[PATH_MAX + 1]; int n; char *p; if (FILEFile) { if (ptrtoFile < endofFile) { p = ptrtoFile; while (*ptrtoFile) ++ptrtoFile; ++ptrtoFile; return (p); } if (fgets(nameFile, PATH_MAX + 1, FILEFile) != NULL) { n = strlen(nameFile); if (n > 0 && nameFile[n-1] == '\n') nameFile[n-1] = '\0'; return (nameFile); } } return (*Cmdargv++); } #endif /* _iBCS2 */ /* * kcheck() * - checks the validity of size values for non-tape devices * - if size is zero, mulvol tar is disabled and size is * assumed to be infinite. * - returns volume size in TBLOCKS */ static blkcnt_t kcheck(char *kstr) { blkcnt_t kval; kval = strtoll(kstr, NULL, 0); if (kval == (blkcnt_t)0) { /* no multi-volume; size is infinity. */ mulvol = 0; /* definitely not mulvol, but we must */ return (0); /* took out setting of NotTape */ } if (kval < (blkcnt_t)MINSIZE) { (void) fprintf(stderr, gettext( "tar: sizes below %luK not supported (%" FMT_blkcnt_t ").\n"), (ulong_t)MINSIZE, kval); if (!kflag) (void) fprintf(stderr, gettext( "bad size entry for %s in %s.\n"), archive, DEF_FILE); done(1); } mulvol++; NotTape++; /* implies non-tape */ return (kval * 1024 / TBLOCK); /* convert to TBLOCKS */ } /* * bcheck() * - checks the validity of blocking factors * - returns blocking factor */ static int bcheck(char *bstr) { blkcnt_t bval; bval = strtoll(bstr, NULL, 0); if ((bval <= 0) || (bval > INT_MAX / TBLOCK)) { (void) fprintf(stderr, gettext( "tar: invalid blocksize \"%s\".\n"), bstr); if (!bflag) (void) fprintf(stderr, gettext( "bad blocksize entry for '%s' in %s.\n"), archive, DEF_FILE); done(1); } return ((int)bval); } /* * defset() * - reads DEF_FILE for the set of default values specified. * - initializes 'usefile', 'nblock', and 'blocklim', and 'NotTape'. * - 'usefile' points to static data, so will be overwritten * if this routine is called a second time. * - the pattern specified by 'arch' must be followed by four * blank-separated fields (1) device (2) blocking, * (3) size(K), and (4) tape * for example: archive0=/dev/fd 1 400 n */ static int defset(char *arch) { char *bp; if (defopen(DEF_FILE) != 0) return (FALSE); if (defcntl(DC_SETFLAGS, (DC_STD & ~(DC_CASE))) == -1) { (void) fprintf(stderr, gettext( "tar: error setting parameters for %s.\n"), DEF_FILE); return (FALSE); /* & following ones too */ } if ((bp = defread(arch)) == NULL) { (void) fprintf(stderr, gettext( "tar: missing or invalid '%s' entry in %s.\n"), arch, DEF_FILE); return (FALSE); } if ((usefile = strtok(bp, " \t")) == NULL) { (void) fprintf(stderr, gettext( "tar: '%s' entry in %s is empty!\n"), arch, DEF_FILE); return (FALSE); } if ((bp = strtok(NULL, " \t")) == NULL) { (void) fprintf(stderr, gettext( "tar: block component missing in '%s' entry in %s.\n"), arch, DEF_FILE); return (FALSE); } nblock = bcheck(bp); if ((bp = strtok(NULL, " \t")) == NULL) { (void) fprintf(stderr, gettext( "tar: size component missing in '%s' entry in %s.\n"), arch, DEF_FILE); return (FALSE); } blocklim = kcheck(bp); if ((bp = strtok(NULL, " \t")) != NULL) NotTape = (*bp == 'n' || *bp == 'N'); else NotTape = (blocklim != 0); (void) defopen(NULL); #ifdef DEBUG DEBUG("defset: archive='%s'; usefile='%s'\n", arch, usefile); DEBUG("defset: nblock='%d'; blocklim='%" FMT_blkcnt_t "'\n", nblock, blocklim); DEBUG("defset: not tape = %d\n", NotTape, 0); #endif return (TRUE); } /* * Following code handles excluded and included files. * A hash table of file names to be {in,ex}cluded is built. * For excluded files, before writing or extracting a file * check to see if it is in the exclude_tbl. * For included files, the wantit() procedure will check to * see if the named file is in the include_tbl. */ static void build_table(file_list_t *table[], char *file) { FILE *fp; char buf[PATH_MAX + 1]; if ((fp = fopen(file, "r")) == (FILE *)NULL) vperror(1, gettext("could not open %s"), file); while (fgets(buf, sizeof (buf), fp) != NULL) { if (buf[strlen(buf) - 1] == '\n') buf[strlen(buf) - 1] = '\0'; /* Only add to table if line has something in it */ if (strspn(buf, " \t") != strlen(buf)) add_file_to_table(table, buf); } (void) fclose(fp); } /* * Add a file name to the the specified table, if the file name has any * trailing '/'s then delete them before inserting into the table */ static void add_file_to_table(file_list_t *table[], char *str) { char name[PATH_MAX + 1]; unsigned int h; file_list_t *exp; (void) strcpy(name, str); while (name[strlen(name) - 1] == '/') { name[strlen(name) - 1] = NULL; } h = hash(name); if ((exp = (file_list_t *)calloc(sizeof (file_list_t), sizeof (char))) == NULL) { (void) fprintf(stderr, gettext( "tar: out of memory, exclude/include table(entry)\n")); exit(1); } if ((exp->name = strdup(name)) == NULL) { (void) fprintf(stderr, gettext( "tar: out of memory, exclude/include table(file name)\n")); exit(1); } exp->next = table[h]; table[h] = exp; } /* * See if a file name or any of the file's parent directories is in the * specified table, if the file name has any trailing '/'s then delete * them before searching the table */ static int is_in_table(file_list_t *table[], char *str) { char name[PATH_MAX + 1]; unsigned int h; file_list_t *exp; char *ptr; (void) strcpy(name, str); while (name[strlen(name) - 1] == '/') { name[strlen(name) - 1] = NULL; } /* * check for the file name in the passed list */ h = hash(name); exp = table[h]; while (exp != NULL) { if (strcmp(name, exp->name) == 0) { return (1); } exp = exp->next; } /* * check for any parent directories in the file list */ while ((ptr = strrchr(name, '/'))) { *ptr = NULL; h = hash(name); exp = table[h]; while (exp != NULL) { if (strcmp(name, exp->name) == 0) { return (1); } exp = exp->next; } } return (0); } /* * Compute a hash from a string. */ static unsigned int hash(char *str) { char *cp; unsigned int h; h = 0; for (cp = str; *cp; cp++) { h += *cp; } return (h % TABLE_SIZE); } static void * getmem(size_t size) { void *p = calloc((unsigned)size, sizeof (char)); if (p == NULL && freemem) { (void) fprintf(stderr, gettext( "tar: out of memory, link and directory modtime " "info lost\n")); freemem = 0; if (errflag) done(1); else Errflg = 1; } return (p); } /* * vperror() --variable argument perror. * Takes 3 args: exit_status, formats, args. If exit_status is 0, then * the errflag (exit on error) is checked -- if it is non-zero, tar exits * with the value of whatever "errno" is set to. If exit_status is not * zero, then tar exits with that error status. If errflag and exit_status * are both zero, the routine returns to where it was called and sets Errflg * to errno. */ static void vperror(int exit_status, char *fmt, ...) { va_list ap; va_start(ap, fmt); (void) fputs("tar: ", stderr); (void) vfprintf(stderr, fmt, ap); (void) fprintf(stderr, ": %s\n", strerror(errno)); va_end(ap); if (exit_status) done(exit_status); else if (errflag) done(errno); else Errflg = errno; } static void fatal(char *format, ...) { va_list ap; va_start(ap, format); (void) fprintf(stderr, "tar: "); (void) vfprintf(stderr, format, ap); (void) fprintf(stderr, "\n"); va_end(ap); done(1); } /* * Check to make sure that argument is a char * ptr. * Actually, we just check to see that it is non-null. * If it is null, print out the message and call usage(), bailing out. */ static void assert_string(char *s, char *msg) { if (s == NULL) { (void) fprintf(stderr, msg); usage(); } } static void mterr(char *operation, int i, int exitcode) { (void) fprintf(stderr, gettext( "tar: %s error: "), operation); if (i < 0) perror(""); else (void) fprintf(stderr, gettext("unexpected EOF\n")); done(exitcode); } static int wantit(char *argv[], char **namep, char **dirp, char **component, attr_data_t **attrinfo) { char **cp; int gotit; /* true if we've found a match */ int ret; top: if (xhdr_flgs & _X_XHDR) { xhdr_flgs = 0; } getdir(); if (Xhdrflag > 0) { ret = get_xdata(); if (ret != 0) { /* Xhdr items and regular header */ setbytes_to_skip(&stbuf, ret); passtape(); return (0); /* Error--don't want to extract */ } } /* * If typeflag is not 'A' and xhdr_flgs is set, then processing * of ancillary file is either over or ancillary file * processing is not required, load info from Xtarhdr and set * _X_XHDR bit in xhdr_flgs. */ if ((dblock.dbuf.typeflag != 'A') && (xhdr_flgs != 0)) { load_info_from_xtarhdr(xhdr_flgs, &Xtarhdr); xhdr_flgs |= _X_XHDR; } #if defined(O_XATTR) if (dblock.dbuf.typeflag == _XATTR_HDRTYPE && xattrbadhead == 0) { /* * Always needs to read the extended header. If atflag, saflag, * or tflag isn't set, then we'll have the correct info for * passtape() later. */ (void) read_xattr_hdr(attrinfo); goto top; } /* * Now that we've read the extended header, call passtape() * if we don't want to restore attributes or system attributes. * Don't restore the attribute if we are extracting * a file from an archive (as opposed to doing a table of * contents) and any of the following are true: * 1. neither -@ or -/ was specified. * 2. -@ was specified, -/ wasn't specified, and we're * processing a hidden attribute directory of an attribute * or we're processing a read-write system attribute file. * 3. -@ wasn't specified, -/ was specified, and the file * we're processing is not a read-write system attribute file, * or we're processing the hidden attribute directory of an * attribute. * * We always process the attributes if we're just generating * generating a table of contents, or if both -@ and -/ were * specified. */ if (xattrp != NULL) { attr_data_t *ainfo = *attrinfo; if (!tflag && ((!atflag && !saflag) || (atflag && !saflag && ((ainfo->attr_parent != NULL) || ainfo->attr_rw_sysattr)) || (!atflag && saflag && ((ainfo->attr_parent != NULL) || !ainfo->attr_rw_sysattr)))) { passtape(); return (0); } } #endif /* sets *namep to point at the proper name */ if (check_prefix(namep, dirp, component) != 0) { passtape(); return (0); } if (endtape()) { if (Bflag) { /* * Logically at EOT - consume any extra blocks * so that write to our stdin won't fail and * emit an error message; otherwise something * like "dd if=foo.tar | (cd bar; tar xvf -)" * will produce a bogus error message from "dd". */ while (read(mt, tbuf, TBLOCK*nblock) > 0) { /* empty body */ } } return (-1); } gotit = 0; if ((Iflag && is_in_table(include_tbl, *namep)) || (! Iflag && *argv == NULL)) { gotit = 1; } else { for (cp = argv; *cp; cp++) { if (is_prefix(*cp, *namep)) { gotit = 1; break; } } } if (! gotit) { passtape(); return (0); } if (Xflag && is_in_table(exclude_tbl, *namep)) { if (vflag) { (void) fprintf(stderr, gettext("%s excluded\n"), *namep); } passtape(); return (0); } return (1); } static void setbytes_to_skip(struct stat *st, int err) { /* * In a scenario where a typeflag 'X' was followed by * a typeflag 'A' and typeflag 'O', then the number of * bytes to skip should be the size of ancillary file, * plus the dblock for regular file, and the size * from Xtarhdr. However, if the typeflag was just 'X' * followed by typeflag 'O', then the number of bytes * to skip should be the size from Xtarhdr. */ if ((err != 0) && (dblock.dbuf.typeflag == 'A') && (xhdr_flgs & _X_SIZE)) { st->st_size += TBLOCK + Xtarhdr.x_filesz; xhdr_flgs |= _X_XHDR; } else if ((dblock.dbuf.typeflag != 'A') && (xhdr_flgs & _X_SIZE)) { st->st_size += Xtarhdr.x_filesz; xhdr_flgs |= _X_XHDR; } } static int fill_in_attr_info(char *attr, char *longname, char *attrparent, int atparentfd, int rw_sysattr, attr_data_t **attrinfo) { size_t pathlen; char *tpath; char *tparent; /* parent info */ if (attrparent != NULL) { if ((tparent = strdup(attrparent)) == NULL) { vperror(0, gettext( "unable to allocate memory for attribute parent " "name for %sattribute %s/%s of %s"), rw_sysattr ? gettext("system ") : "", attrparent, attr, longname); return (1); } } else { tparent = NULL; } /* path info */ pathlen = strlen(attr) + 1; if (attrparent != NULL) { pathlen += strlen(attrparent) + 1; /* add 1 for '/' */ } if ((tpath = calloc(1, pathlen)) == NULL) { vperror(0, gettext( "unable to allocate memory for full " "attribute path name for %sattribute %s%s%s of %s"), rw_sysattr ? gettext("system ") : "", (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : "/", attr, longname); if (tparent != NULL) { free(tparent); } return (1); } (void) snprintf(tpath, pathlen, "%s%s%s", (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : "/", attr); /* fill in the attribute info */ if (*attrinfo == NULL) { if ((*attrinfo = malloc(sizeof (attr_data_t))) == NULL) { vperror(0, gettext( "unable to allocate memory for attribute " "information for %sattribute %s%s%s of %s"), rw_sysattr ? gettext("system ") : "", (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : gettext("/"), attr, longname); if (tparent != NULL) { free(tparent); } free(tpath); return (1); } } else { if ((*attrinfo)->attr_parent != NULL) { free((*attrinfo)->attr_parent); } if ((*attrinfo)->attr_path != NULL) { free((*attrinfo)->attr_path); } /* * The parent file descriptor is passed in, so don't * close it here as it should be closed by the function * that opened it. */ } (*attrinfo)->attr_parent = tparent; (*attrinfo)->attr_path = tpath; (*attrinfo)->attr_rw_sysattr = rw_sysattr; (*attrinfo)->attr_parentfd = atparentfd; return (0); } /* * Test to see if name is a directory. * * Return 1 if true, 0 otherwise. */ static int is_directory(char *name) { #if defined(O_XATTR) /* * If there is an xattr_buf structure associated with this file, * then the directory test is based on whether the name has a * trailing slash. */ if (xattrp) return (name[strlen(name) - 1] == '/'); #endif if (is_posix) return (dblock.dbuf.typeflag == '5'); else return (name[strlen(name) - 1] == '/'); } /* * Version of chdir that handles directory pathnames of greater than PATH_MAX * length, by changing the working directory to manageable portions of the * complete directory pathname. If any of these attempts fail, then it exits * non-zero. * * If a segment (i.e. a portion of "path" between two "/"'s) of the overall * pathname is greater than PATH_MAX, then this still won't work, and this * routine will return -1 with errno set to ENAMETOOLONG. * * NOTE: this routine is semantically different to the system chdir in * that it is remotely possible for the currently working directory to be * changed to a different directory, if a chdir call fails when processing * one of the segments of a path that is greater than PATH_MAX. This isn't * a problem as this is tar's own specific version of chdir. */ static int tar_chdir(const char *path) { const char *sep = "/"; char *path_copy = NULL; char *ptr = NULL; /* The trivial case. */ if (chdir(path) == 0) { return (0); } if (errno == ENAMETOOLONG) { if (path[0] == '/' && chdir(sep) != 0) return (-1); /* strtok(3C) modifies the string, so make a copy. */ if ((path_copy = strdup(path)) == NULL) { return (-1); } /* chdir(2) for every path element. */ for (ptr = strtok(path_copy, sep); ptr != NULL; ptr = strtok(NULL, sep)) { if (chdir(ptr) != 0) { free(path_copy); return (-1); } } free(path_copy); return (0); } /* If chdir fails for any reason except ENAMETOOLONG. */ return (-1); } /* * Test if name has a '..' sequence in it. * * Return 1 if found, 0 otherwise. */ static int has_dot_dot(char *name) { char *s; size_t name_len = strlen(name); for (s = name; s < (name + name_len - 2); s++) { if (s[0] == '.' && s[1] == '.' && ((s[2] == '/') || !s[2])) return (1); while (! (*s == '/')) { if (! *s++) return (0); } } return (0); } /* * Test if name is an absolute path name. * * Return 1 if true, 0 otherwise. */ static int is_absolute(char *name) { #if defined(O_XATTR) /* * If this is an extended attribute (whose name will begin with * "/dev/null/", always return 0 as they should be extracted with * the name intact, to allow other tar archiving programs that * don't understand extended attributes, to correctly throw them away. */ if (xattrp) return (0); #endif return (name[0] == '/'); } /* * Adjust the pathname to make it a relative one. Strip off any leading * '/' characters and if the pathname contains any '..' sequences, strip * upto and including the last occurance of '../' (or '..' if found at * the very end of the pathname). * * Return the relative pathname. stripped_prefix will also return the * portion of name that was stripped off and should be freed by the * calling routine when no longer needed. */ static char * make_relative_name(char *name, char **stripped_prefix) { char *s; size_t prefix_len = 0; size_t name_len = strlen(name); for (s = name + prefix_len; s < (name + name_len - 2); ) { if (s[0] == '.' && s[1] == '.' && ((s[2] == '/') || !s[2])) prefix_len = s + 2 - name; do { char c = *s++; if (c == '/') break; } while (*s); } for (s = name + prefix_len; *s == '/'; s++) continue; prefix_len = s - name; /* Create the portion of the name that was stripped off. */ s = malloc(prefix_len + 1); memcpy(s, name, prefix_len); s[prefix_len] = 0; *stripped_prefix = s; s = &name[prefix_len]; return (s); } /* * Return through *namep a pointer to the proper fullname (i.e " | * /"), as represented in the header entry dblock.dbuf. * * Returns 0 if successful, otherwise returns 1. */ static int check_prefix(char **namep, char **dirp, char **compp) { static char fullname[PATH_MAX + 1]; static char dir[PATH_MAX + 1]; static char component[PATH_MAX + 1]; static char savename[PATH_MAX + 1]; char *s; (void) memset(dir, 0, sizeof (dir)); (void) memset(component, 0, sizeof (component)); if (xhdr_flgs & _X_PATH) { (void) strcpy(fullname, Xtarhdr.x_path); } else { if (dblock.dbuf.prefix[0] != '\0') (void) sprintf(fullname, "%.*s/%.*s", PRESIZ, dblock.dbuf.prefix, NAMSIZ, dblock.dbuf.name); else (void) sprintf(fullname, "%.*s", NAMSIZ, dblock.dbuf.name); } /* * If we are printing a table of contents or extracting an archive, * make absolute pathnames relative and prohibit the unpacking of * files contain ".." in their name (unless the user has supplied * the -P option). */ if ((tflag || xflag) && !Pflag) { if (is_absolute(fullname) || has_dot_dot(fullname)) { char *stripped_prefix; size_t prefix_len = 0; (void) strcpy(savename, fullname); strcpy(fullname, make_relative_name(savename, &stripped_prefix)); (void) fprintf(stderr, gettext("tar: Removing leading '%s' from '%s'\n"), stripped_prefix, savename); free(stripped_prefix); } } /* * Set dir and component names */ get_parent(fullname, dir); #if defined(O_XATTR) if (xattrp == NULL) { #endif /* * Save of real name since were going to chop off the * trailing slashes. */ (void) strcpy(savename, fullname); /* * first strip of trailing slashes. */ chop_endslashes(savename); s = get_component(savename); (void) strcpy(component, s); #if defined(O_XATTR) } else { (void) strcpy(fullname, xattrp->h_names); (void) strcpy(dir, fullname); (void) strcpy(component, basename(xattrp->h_names + strlen(xattrp->h_names) + 1)); } #endif *namep = fullname; *dirp = dir; *compp = component; return (0); } /* * Return true if the object indicated by the file descriptor and type * is a tape device, false otherwise */ static int istape(int fd, int type) { int result = 0; if (S_ISCHR(type)) { struct mtget mtg; if (ioctl(fd, MTIOCGET, &mtg) != -1) { result = 1; } } return (result); } #include struct utmpx utmpx; #define NMAX (sizeof (utmpx.ut_name)) typedef struct cachenode { /* this struct must be zeroed before using */ struct cachenode *next; /* next in hash chain */ int val; /* the uid or gid of this entry */ int namehash; /* name's hash signature */ char name[NMAX+1]; /* the string that val maps to */ } cachenode_t; #define HASHSIZE 256 static cachenode_t *names[HASHSIZE]; static cachenode_t *groups[HASHSIZE]; static cachenode_t *uids[HASHSIZE]; static cachenode_t *gids[HASHSIZE]; static int hash_byname(char *name) { int i, c, h = 0; for (i = 0; i < NMAX; i++) { c = name[i]; if (c == '\0') break; h = (h << 4) + h + c; } return (h); } static cachenode_t * hash_lookup_byval(cachenode_t *table[], int val) { int h = val; cachenode_t *c; for (c = table[h & (HASHSIZE - 1)]; c != NULL; c = c->next) { if (c->val == val) return (c); } return (NULL); } static cachenode_t * hash_lookup_byname(cachenode_t *table[], char *name) { int h = hash_byname(name); cachenode_t *c; for (c = table[h & (HASHSIZE - 1)]; c != NULL; c = c->next) { if (c->namehash == h && strcmp(c->name, name) == 0) return (c); } return (NULL); } static cachenode_t * hash_insert(cachenode_t *table[], char *name, int value) { cachenode_t *c; int signature; c = calloc(1, sizeof (cachenode_t)); if (c == NULL) { perror("malloc"); exit(1); } if (name != NULL) { (void) strncpy(c->name, name, NMAX); c->namehash = hash_byname(name); } c->val = value; if (table == uids || table == gids) signature = c->val; else signature = c->namehash; c->next = table[signature & (HASHSIZE - 1)]; table[signature & (HASHSIZE - 1)] = c; return (c); } static char * getname(uid_t uid) { cachenode_t *c; if ((c = hash_lookup_byval(uids, uid)) == NULL) { struct passwd *pwent = getpwuid(uid); c = hash_insert(uids, pwent ? pwent->pw_name : NULL, uid); } return (c->name); } static char * getgroup(gid_t gid) { cachenode_t *c; if ((c = hash_lookup_byval(gids, gid)) == NULL) { struct group *grent = getgrgid(gid); c = hash_insert(gids, grent ? grent->gr_name : NULL, gid); } return (c->name); } static uid_t getuidbyname(char *name) { cachenode_t *c; if ((c = hash_lookup_byname(names, name)) == NULL) { struct passwd *pwent = getpwnam(name); c = hash_insert(names, name, pwent ? (int)pwent->pw_uid : -1); } return ((uid_t)c->val); } static gid_t getgidbyname(char *group) { cachenode_t *c; if ((c = hash_lookup_byname(groups, group)) == NULL) { struct group *grent = getgrnam(group); c = hash_insert(groups, group, grent ? (int)grent->gr_gid : -1); } return ((gid_t)c->val); } /* * Build the header. * Determine whether or not an extended header is also needed. If needed, * create and write the extended header and its data. * Writing of the extended header assumes that "tomodes" has been called and * the relevant information has been placed in the header block. */ static int build_dblock( const char *name, const char *linkname, const char typeflag, const int filetype, const struct stat *sp, const dev_t device, const char *prefix) { int nblks; major_t dev; const char *filename; const char *lastslash; if (filetype == XATTR_FILE) dblock.dbuf.typeflag = _XATTR_HDRTYPE; else dblock.dbuf.typeflag = typeflag; (void) memset(dblock.dbuf.name, '\0', NAMSIZ); (void) memset(dblock.dbuf.linkname, '\0', NAMSIZ); (void) memset(dblock.dbuf.prefix, '\0', PRESIZ); if (xhdr_flgs & _X_PATH) filename = Xtarhdr.x_path; else filename = name; if ((dev = major(device)) > OCTAL7CHAR) { if (Eflag) { xhdr_flgs |= _X_DEVMAJOR; Xtarhdr.x_devmajor = dev; } else { (void) fprintf(stderr, gettext( "Device major too large for %s. Use -E flag."), filename); if (errflag) done(1); else Errflg = 1; } dev = 0; } (void) sprintf(dblock.dbuf.devmajor, "%07lo", dev); if ((dev = minor(device)) > OCTAL7CHAR) { if (Eflag) { xhdr_flgs |= _X_DEVMINOR; Xtarhdr.x_devminor = dev; } else { (void) fprintf(stderr, gettext( "Device minor too large for %s. Use -E flag."), filename); if (errflag) done(1); else Errflg = 1; } dev = 0; } (void) sprintf(dblock.dbuf.devminor, "%07lo", dev); (void) strncpy(dblock.dbuf.name, name, NAMSIZ); (void) strncpy(dblock.dbuf.linkname, linkname, NAMSIZ); (void) sprintf(dblock.dbuf.magic, "%.5s", magic_type); (void) sprintf(dblock.dbuf.version, "00"); (void) sprintf(dblock.dbuf.uname, "%.31s", getname(sp->st_uid)); (void) sprintf(dblock.dbuf.gname, "%.31s", getgroup(sp->st_gid)); (void) strncpy(dblock.dbuf.prefix, prefix, PRESIZ); (void) sprintf(dblock.dbuf.chksum, "%07o", checksum(&dblock)); if (Eflag) { (void) bcopy(dblock.dummy, xhdr_buf.dummy, TBLOCK); (void) memset(xhdr_buf.dbuf.name, '\0', NAMSIZ); lastslash = strrchr(name, '/'); if (lastslash == NULL) lastslash = name; else lastslash++; (void) strcpy(xhdr_buf.dbuf.name, lastslash); (void) memset(xhdr_buf.dbuf.linkname, '\0', NAMSIZ); (void) memset(xhdr_buf.dbuf.prefix, '\0', PRESIZ); (void) strcpy(xhdr_buf.dbuf.prefix, xhdr_dirname); xhdr_count++; xrec_offset = 0; gen_date("mtime", sp->st_mtim); xhdr_buf.dbuf.typeflag = 'X'; if (gen_utf8_names(filename) != 0) return (1); #ifdef XHDR_DEBUG Xtarhdr.x_uname = dblock.dbuf.uname; Xtarhdr.x_gname = dblock.dbuf.gname; xhdr_flgs |= (_X_UNAME | _X_GNAME); #endif if (xhdr_flgs) { if (xhdr_flgs & _X_DEVMAJOR) gen_num("SUN.devmajor", Xtarhdr.x_devmajor); if (xhdr_flgs & _X_DEVMINOR) gen_num("SUN.devminor", Xtarhdr.x_devminor); if (xhdr_flgs & _X_GID) gen_num("gid", Xtarhdr.x_gid); if (xhdr_flgs & _X_UID) gen_num("uid", Xtarhdr.x_uid); if (xhdr_flgs & _X_SIZE) gen_num("size", Xtarhdr.x_filesz); if (xhdr_flgs & _X_PATH) gen_string("path", Xtarhdr.x_path); if (xhdr_flgs & _X_LINKPATH) gen_string("linkpath", Xtarhdr.x_linkpath); if (xhdr_flgs & _X_GNAME) gen_string("gname", Xtarhdr.x_gname); if (xhdr_flgs & _X_UNAME) gen_string("uname", Xtarhdr.x_uname); } (void) sprintf(xhdr_buf.dbuf.size, "%011" FMT_off_t_o, xrec_offset); (void) sprintf(xhdr_buf.dbuf.chksum, "%07o", checksum(&xhdr_buf)); (void) writetbuf((char *)&xhdr_buf, 1); nblks = TBLOCKS(xrec_offset); (void) writetbuf(xrec_ptr, nblks); } return (0); } /* * makeDir - ensure that a directory with the pathname denoted by name * exists, and return 1 on success, and 0 on failure (e.g., * read-only file system, exists but not-a-directory). */ static int makeDir(char *name) { struct stat buf; if (access(name, 0) < 0) { /* name doesn't exist */ if (mkdir(name, 0777) < 0) { vperror(0, "%s", name); return (0); } } else { /* name exists */ if (stat(name, &buf) < 0) { vperror(0, "%s", name); return (0); } return ((buf.st_mode & S_IFMT) == S_IFDIR); } return (1); } /* * Save this directory and its mtime on the stack, popping and setting * the mtimes of any stacked dirs which aren't parents of this one. * A null name causes the entire stack to be unwound and set. * * Since all the elements of the directory "stack" share a common * prefix, we can make do with one string. We keep only the current * directory path, with an associated array of mtime's. A negative * mtime means no mtime. * * This stack algorithm is not guaranteed to work for tapes created * with the 'r' function letter, but the vast majority of tapes with * directories are not. This avoids saving every directory record on * the tape and setting all the times at the end. * * (This was borrowed from the 4.1.3 source, and adapted to the 5.x * environment) */ static void doDirTimes(char *name, timestruc_t modTime) { static char dirstack[PATH_MAX+2]; /* Add spaces for the last slash and last NULL */ static timestruc_t modtimes[PATH_MAX+1]; /* hash table */ char *p = dirstack; char *q = name; char *savp; if (q) { /* * Find common prefix */ while (*p == *q && *p) { p++; q++; } } savp = p; while (*p) { /* * Not a child: unwind the stack, setting the times. * The order we do this doesn't matter, so we go "forward." */ if (*p == '/') if (modtimes[p - dirstack].tv_sec >= 0) { *p = '\0'; /* zap the slash */ setPathTimes(AT_FDCWD, dirstack, modtimes[p - dirstack]); *p = '/'; } ++p; } p = savp; /* * Push this one on the "stack" */ if (q) { /* * Since the name parameter points the dir pathname * which is limited only to contain PATH_MAX chars * at maximum, we can ignore the overflow case of p. */ while ((*p = *q++)) { /* append the rest of the new dir */ modtimes[p - dirstack].tv_sec = -1; p++; } /* * If the tar file had used 'P' or 'E' function modifier, * append the last slash. */ if (*(p - 1) != '/') { *p++ = '/'; *p = '\0'; } /* overwrite the last one */ modtimes[p - dirstack - 1] = modTime; } } /* * setPathTimes - set the modification time for given path. Return 1 if * successful and 0 if not successful. */ static void setPathTimes(int dirfd, char *path, timestruc_t modTime) { struct timeval timebuf[2]; /* * futimesat takes an array of two timeval structs. * The first entry contains access time. * The second entry contains modification time. * Unlike a timestruc_t, which uses nanoseconds, timeval uses * microseconds. */ timebuf[0].tv_sec = time((time_t *)0); timebuf[0].tv_usec = 0; timebuf[1].tv_sec = modTime.tv_sec; /* Extended header: use microseconds */ timebuf[1].tv_usec = (xhdr_flgs & _X_MTIME) ? modTime.tv_nsec/1000 : 0; if (futimesat(dirfd, path, timebuf) < 0) vperror(0, gettext("can't set time on %s"), path); } /* * If hflag is set then delete the symbolic link's target. * If !hflag then delete the target. */ static void delete_target(int fd, char *comp, char *namep) { struct stat xtractbuf; char buf[PATH_MAX + 1]; int n; if (unlinkat(fd, comp, AT_REMOVEDIR) < 0) { if (errno == ENOTDIR && !hflag) { (void) unlinkat(fd, comp, 0); } else if (errno == ENOTDIR && hflag) { if (!lstat(namep, &xtractbuf)) { if ((xtractbuf.st_mode & S_IFMT) != S_IFLNK) { (void) unlinkat(fd, comp, 0); } else if ((n = readlink(namep, buf, PATH_MAX)) != -1) { buf[n] = (char)NULL; (void) unlinkat(fd, buf, AT_REMOVEDIR); if (errno == ENOTDIR) (void) unlinkat(fd, buf, 0); } else { (void) unlinkat(fd, comp, 0); } } else { (void) unlinkat(fd, comp, 0); } } } } /* * ACL changes: * putfile(): * Get acl info after stat. Write out ancillary file * before the normal file, i.e. directory, regular, FIFO, * link, special. If acl count is less than 4, no need to * create ancillary file. (i.e. standard permission is in * use. * doxtract(): * Process ancillary file. Read it in and set acl info. * watch out for 'o' function modifier. * 't' function letter to display table */ /* * New functions for ACLs and other security attributes */ /* * The function appends the new security attribute info to the end of * existing secinfo. */ int append_secattr( char **secinfo, /* existing security info */ int *secinfo_len, /* length of existing security info */ int size, /* new attribute size: unit depends on type */ char *attrtext, /* new attribute text */ char attr_type) /* new attribute type */ { char *new_secinfo; int newattrsize; int oldsize; struct sec_attr *attr; /* no need to add */ if (attr_type != DIR_TYPE) { if (attrtext == NULL) return (0); } switch (attr_type) { case UFSD_ACL: case ACE_ACL: if (attrtext == NULL) { (void) fprintf(stderr, gettext("acltotext failed\n")); return (-1); } /* header: type + size = 8 */ newattrsize = 8 + (int)strlen(attrtext) + 1; attr = (struct sec_attr *)malloc(newattrsize); if (attr == NULL) { (void) fprintf(stderr, gettext("can't allocate memory\n")); return (-1); } attr->attr_type = attr_type; (void) sprintf(attr->attr_len, "%06o", size); /* acl entry count */ (void) strcpy((char *)&attr->attr_info[0], attrtext); free(attrtext); break; /* Trusted Extensions */ case DIR_TYPE: case LBL_TYPE: newattrsize = sizeof (struct sec_attr) + strlen(attrtext); attr = (struct sec_attr *)malloc(newattrsize); if (attr == NULL) { (void) fprintf(stderr, gettext("can't allocate memory\n")); return (-1); } attr->attr_type = attr_type; (void) sprintf(attr->attr_len, "%06d", size); /* len of attr data */ (void) strcpy((char *)&attr->attr_info[0], attrtext); break; default: (void) fprintf(stderr, gettext("unrecognized attribute type\n")); return (-1); } /* old security info + new attr header(8) + new attr */ oldsize = *secinfo_len; *secinfo_len += newattrsize; new_secinfo = (char *)malloc(*secinfo_len); if (new_secinfo == NULL) { (void) fprintf(stderr, gettext("can't allocate memory\n")); *secinfo_len -= newattrsize; free(attr); return (-1); } (void) memcpy(new_secinfo, *secinfo, oldsize); (void) memcpy(new_secinfo + oldsize, attr, newattrsize); free(*secinfo); free(attr); *secinfo = new_secinfo; return (0); } /* * write_ancillary(): write out an ancillary file. * The file has the same header as normal file except the type and size * fields. The type is 'A' and size is the sum of all attributes * in bytes. * The body contains a list of attribute type, size and info. Currently, * there is only ACL info. This file is put before the normal file. */ void write_ancillary(union hblock *dblockp, char *secinfo, int len, char hdrtype) { long blocks; int savflag; int savsize; /* Just tranditional permissions or no security attribute info */ if (len == 0 || secinfo == NULL) return; /* save flag and size */ savflag = (dblockp->dbuf).typeflag; (void) sscanf(dblockp->dbuf.size, "%12o", (uint_t *)&savsize); /* special flag for ancillary file */ if (hdrtype == _XATTR_HDRTYPE) dblockp->dbuf.typeflag = _XATTR_HDRTYPE; else dblockp->dbuf.typeflag = 'A'; /* for pre-2.5 versions of tar, need to make sure */ /* the ACL file is readable */ (void) sprintf(dblock.dbuf.mode, "%07lo", (stbuf.st_mode & POSIXMODES) | 0000200); (void) sprintf(dblockp->dbuf.size, "%011o", len); (void) sprintf(dblockp->dbuf.chksum, "%07o", checksum(dblockp)); /* write out the header */ (void) writetbuf((char *)dblockp, 1); /* write out security info */ blocks = TBLOCKS(len); (void) writetbuf((char *)secinfo, (int)blocks); /* restore mode, flag and size */ (void) sprintf(dblock.dbuf.mode, "%07lo", stbuf.st_mode & POSIXMODES); dblockp->dbuf.typeflag = savflag; (void) sprintf(dblockp->dbuf.size, "%011o", savsize); } /* * Read the data record for extended headers and then the regular header. * The data are read into the buffer and then null-terminated. Entries * for typeflag 'X' extended headers are of the format: * "%d %s=%s\n" * * When an extended header record is found, the extended header must * be processed and its values used to override the values in the * normal header. The way this is done is to process the extended * header data record and set the data values, then call getdir * to process the regular header, then then to reconcile the two * sets of data. */ static int get_xdata(void) { struct keylist_pair { int keynum; char *keylist; } keylist_pair[] = { _X_DEVMAJOR, "SUN.devmajor", _X_DEVMINOR, "SUN.devminor", _X_GID, "gid", _X_GNAME, "gname", _X_LINKPATH, "linkpath", _X_PATH, "path", _X_SIZE, "size", _X_UID, "uid", _X_UNAME, "uname", _X_MTIME, "mtime", _X_LAST, "NULL" }; char *lineloc; int length, i; char *keyword, *value; blkcnt_t nblocks; int bufneeded; int errors; (void) memset(&Xtarhdr, 0, sizeof (Xtarhdr)); xhdr_count++; errors = 0; nblocks = TBLOCKS(stbuf.st_size); bufneeded = nblocks * TBLOCK; if (bufneeded >= xrec_size) { free(xrec_ptr); xrec_size = bufneeded + 1; if ((xrec_ptr = malloc(xrec_size)) == NULL) fatal(gettext("cannot allocate buffer")); } lineloc = xrec_ptr; while (nblocks-- > 0) { readtape(lineloc); lineloc += TBLOCK; } lineloc = xrec_ptr; xrec_ptr[stbuf.st_size] = '\0'; while (lineloc < xrec_ptr + stbuf.st_size) { if (dblock.dbuf.typeflag == 'L') { length = xrec_size; keyword = "path"; value = lineloc; } else { length = atoi(lineloc); *(lineloc + length - 1) = '\0'; keyword = strchr(lineloc, ' ') + 1; value = strchr(keyword, '=') + 1; *(value - 1) = '\0'; } i = 0; lineloc += length; while (keylist_pair[i].keynum != (int)_X_LAST) { if (strcmp(keyword, keylist_pair[i].keylist) == 0) break; i++; } errno = 0; switch (keylist_pair[i].keynum) { case _X_DEVMAJOR: Xtarhdr.x_devmajor = (major_t)strtoul(value, NULL, 0); if (errno) { (void) fprintf(stderr, gettext( "tar: Extended header major value error " "for file # %llu.\n"), xhdr_count); errors++; } else xhdr_flgs |= _X_DEVMAJOR; break; case _X_DEVMINOR: Xtarhdr.x_devminor = (minor_t)strtoul(value, NULL, 0); if (errno) { (void) fprintf(stderr, gettext( "tar: Extended header minor value error " "for file # %llu.\n"), xhdr_count); errors++; } else xhdr_flgs |= _X_DEVMINOR; break; case _X_GID: xhdr_flgs |= _X_GID; Xtarhdr.x_gid = strtol(value, NULL, 0); if ((errno) || (Xtarhdr.x_gid > UID_MAX)) { (void) fprintf(stderr, gettext( "tar: Extended header gid value error " "for file # %llu.\n"), xhdr_count); Xtarhdr.x_gid = GID_NOBODY; } break; case _X_GNAME: if (utf8_local("gname", &Xtarhdr.x_gname, local_gname, value, _POSIX_NAME_MAX) == 0) xhdr_flgs |= _X_GNAME; break; case _X_LINKPATH: if (utf8_local("linkpath", &Xtarhdr.x_linkpath, local_linkpath, value, PATH_MAX) == 0) xhdr_flgs |= _X_LINKPATH; else errors++; break; case _X_PATH: if (utf8_local("path", &Xtarhdr.x_path, local_path, value, PATH_MAX) == 0) xhdr_flgs |= _X_PATH; else errors++; break; case _X_SIZE: Xtarhdr.x_filesz = strtoull(value, NULL, 0); if (errno) { (void) fprintf(stderr, gettext( "tar: Extended header invalid filesize " "for file # %llu.\n"), xhdr_count); errors++; } else xhdr_flgs |= _X_SIZE; break; case _X_UID: xhdr_flgs |= _X_UID; Xtarhdr.x_uid = strtol(value, NULL, 0); if ((errno) || (Xtarhdr.x_uid > UID_MAX)) { (void) fprintf(stderr, gettext( "tar: Extended header uid value error " "for file # %llu.\n"), xhdr_count); Xtarhdr.x_uid = UID_NOBODY; } break; case _X_UNAME: if (utf8_local("uname", &Xtarhdr.x_uname, local_uname, value, _POSIX_NAME_MAX) == 0) xhdr_flgs |= _X_UNAME; break; case _X_MTIME: get_xtime(value, &(Xtarhdr.x_mtime)); if (errno) (void) fprintf(stderr, gettext( "tar: Extended header modification time " "value error for file # %llu.\n"), xhdr_count); else xhdr_flgs |= _X_MTIME; break; default: (void) fprintf(stderr, gettext("tar: unrecognized extended" " header keyword '%s'. Ignored.\n"), keyword); break; } } getdir(); /* get regular header */ if (errors && errflag) done(1); else if (errors) Errflg = 1; return (errors); } /* * load_info_from_xtarhdr - sets Gen and stbuf variables from * extended header * load_info_from_xtarhdr(flag, xhdrp); * u_longlong_t flag; xhdr_flgs * struct xtar_hdr *xhdrp; pointer to extended header * NOTE: called when typeflag is not 'A' and xhdr_flgs * is set. */ static void load_info_from_xtarhdr(u_longlong_t flag, struct xtar_hdr *xhdrp) { if (flag & _X_DEVMAJOR) { Gen.g_devmajor = xhdrp->x_devmajor; } if (flag & _X_DEVMINOR) { Gen.g_devminor = xhdrp->x_devminor; } if (flag & _X_GID) { Gen.g_gid = xhdrp->x_gid; stbuf.st_gid = xhdrp->x_gid; } if (flag & _X_UID) { Gen.g_uid = xhdrp->x_uid; stbuf.st_uid = xhdrp->x_uid; } if (flag & _X_SIZE) { Gen.g_filesz = xhdrp->x_filesz; stbuf.st_size = xhdrp->x_filesz; } if (flag & _X_MTIME) { Gen.g_mtime = xhdrp->x_mtime.tv_sec; stbuf.st_mtim.tv_sec = xhdrp->x_mtime.tv_sec; stbuf.st_mtim.tv_nsec = xhdrp->x_mtime.tv_nsec; } } /* * gen_num creates a string from a keyword and an usigned long long in the * format: %d %s=%s\n * This is part of the extended header data record. */ void gen_num(const char *keyword, const u_longlong_t number) { char save_val[ULONGLONG_MAX_DIGITS + 1]; int len; char *curr_ptr; (void) sprintf(save_val, "%llu", number); /* * len = length of entire line, including itself. len will be * two digits. So, add the string lengths plus the length of len, * plus a blank, an equal sign, and a newline. */ len = strlen(save_val) + strlen(keyword) + 5; if (xrec_offset + len > xrec_size) { if (((curr_ptr = realloc(xrec_ptr, 2 * xrec_size)) == NULL)) fatal(gettext( "cannot allocate extended header buffer")); xrec_ptr = curr_ptr; xrec_size *= 2; } (void) sprintf(&xrec_ptr[xrec_offset], "%d %s=%s\n", len, keyword, save_val); xrec_offset += len; } /* * gen_date creates a string from a keyword and a timestruc_t in the * format: %d %s=%s\n * This is part of the extended header data record. * Currently, granularity is only microseconds, so the low-order three digits * will be truncated. */ void gen_date(const char *keyword, const timestruc_t time_value) { /* Allow for .\n */ char save_val[TIME_MAX_DIGITS + LONG_MAX_DIGITS + 2]; int len; char *curr_ptr; (void) sprintf(save_val, "%ld", time_value.tv_sec); len = strlen(save_val); save_val[len] = '.'; (void) sprintf(&save_val[len + 1], "%9.9ld", time_value.tv_nsec); /* * len = length of entire line, including itself. len will be * two digits. So, add the string lengths plus the length of len, * plus a blank, an equal sign, and a newline. */ len = strlen(save_val) + strlen(keyword) + 5; if (xrec_offset + len > xrec_size) { if (((curr_ptr = realloc(xrec_ptr, 2 * xrec_size)) == NULL)) fatal(gettext( "cannot allocate extended header buffer")); xrec_ptr = curr_ptr; xrec_size *= 2; } (void) sprintf(&xrec_ptr[xrec_offset], "%d %s=%s\n", len, keyword, save_val); xrec_offset += len; } /* * gen_string creates a string from a keyword and a char * in the * format: %d %s=%s\n * This is part of the extended header data record. */ void gen_string(const char *keyword, const char *value) { int len; char *curr_ptr; /* * len = length of entire line, including itself. The character length * of len must be 1-4 characters, because the maximum size of the path * or the name is PATH_MAX, which is 1024. So, assume 1 character * for len, one for the space, one for the "=", and one for the newline. * Then adjust as needed. */ /* LINTED constant expression */ assert(PATH_MAX <= 9996); len = strlen(value) + strlen(keyword) + 4; if (len > 997) len += 3; else if (len > 98) len += 2; else if (len > 9) len += 1; if (xrec_offset + len > xrec_size) { if (((curr_ptr = realloc(xrec_ptr, 2 * xrec_size)) == NULL)) fatal(gettext( "cannot allocate extended header buffer")); xrec_ptr = curr_ptr; xrec_size *= 2; } #ifdef XHDR_DEBUG if (strcmp(keyword+1, "name") != 0) #endif (void) sprintf(&xrec_ptr[xrec_offset], "%d %s=%s\n", len, keyword, value); #ifdef XHDR_DEBUG else { len += 11; (void) sprintf(&xrec_ptr[xrec_offset], "%d %s=%snametoolong\n", len, keyword, value); } #endif xrec_offset += len; } /* * Convert time found in the extended header data to seconds and nanoseconds. */ void get_xtime(char *value, timestruc_t *xtime) { char nanosec[10]; char *period; int i; (void) memset(nanosec, '0', 9); nanosec[9] = '\0'; period = strchr(value, '.'); if (period != NULL) period[0] = '\0'; xtime->tv_sec = strtol(value, NULL, 10); if (period == NULL) xtime->tv_nsec = 0; else { i = strlen(period +1); (void) strncpy(nanosec, period + 1, min(i, 9)); xtime->tv_nsec = strtol(nanosec, NULL, 10); } } /* * Check linkpath for length. * Emit an error message and return 1 if too long. */ int chk_path_build( char *name, char *longname, char *linkname, char *prefix, char type, int filetype) { if (strlen(linkname) > (size_t)NAMSIZ) { if (Eflag > 0) { xhdr_flgs |= _X_LINKPATH; Xtarhdr.x_linkpath = linkname; } else { (void) fprintf(stderr, gettext( "tar: %s: linked to %s\n"), longname, linkname); (void) fprintf(stderr, gettext( "tar: %s: linked name too long\n"), linkname); if (errflag) done(1); else Errflg = 1; return (1); } } if (xhdr_flgs & _X_LINKPATH) return (build_dblock(name, tchar, type, filetype, &stbuf, stbuf.st_dev, prefix)); else return (build_dblock(name, linkname, type, filetype, &stbuf, stbuf.st_dev, prefix)); } /* * Convert from UTF-8 to local character set. */ static int utf8_local( char *option, char **Xhdr_ptrptr, char *target, const char *source, int max_val) { static iconv_t iconv_cd; char *nl_target; const char *iconv_src; char *iconv_trg; size_t inlen; size_t outlen; if (charset_type == -1) { /* iconv_open failed in earlier try */ (void) fprintf(stderr, gettext( "tar: file # %llu: (%s) UTF-8 conversion failed.\n"), xhdr_count, source); return (1); } else if (charset_type == 0) { /* iconv_open has not yet been done */ nl_target = nl_langinfo(CODESET); if (strlen(nl_target) == 0) /* locale using 7-bit codeset */ nl_target = "646"; if (strcmp(nl_target, "646") == 0) charset_type = 1; else if (strcmp(nl_target, "UTF-8") == 0) charset_type = 3; else { if (strncmp(nl_target, "ISO", 3) == 0) nl_target += 3; charset_type = 2; errno = 0; if ((iconv_cd = iconv_open(nl_target, "UTF-8")) == (iconv_t)-1) { if (errno == EINVAL) (void) fprintf(stderr, gettext( "tar: conversion routines not " "available for current locale. ")); (void) fprintf(stderr, gettext( "file # %llu: (%s) UTF-8 conversion" " failed.\n"), xhdr_count, source); charset_type = -1; return (1); } } } /* locale using 7-bit codeset or UTF-8 locale */ if (charset_type == 1 || charset_type == 3) { if (strlen(source) > max_val) { (void) fprintf(stderr, gettext( "tar: file # %llu: Extended header %s too long.\n"), xhdr_count, option); return (1); } if (charset_type == 3) (void) strcpy(target, source); else if (c_utf8(target, source) != 0) { (void) fprintf(stderr, gettext( "tar: file # %llu: (%s) UTF-8 conversion" " failed.\n"), xhdr_count, source); return (1); } *Xhdr_ptrptr = target; return (0); } iconv_src = source; iconv_trg = target; inlen = strlen(source); outlen = max_val * UTF_8_FACTOR; if (iconv(iconv_cd, &iconv_src, &inlen, &iconv_trg, &outlen) == (size_t)-1) { /* Error occurred: didn't convert */ (void) fprintf(stderr, gettext( "tar: file # %llu: (%s) UTF-8 conversion failed.\n"), xhdr_count, source); /* Get remaining output; reinitialize conversion descriptor */ iconv_src = (const char *)NULL; inlen = 0; (void) iconv(iconv_cd, &iconv_src, &inlen, &iconv_trg, &outlen); return (1); } /* Get remaining output; reinitialize conversion descriptor */ iconv_src = (const char *)NULL; inlen = 0; if (iconv(iconv_cd, &iconv_src, &inlen, &iconv_trg, &outlen) == (size_t)-1) { /* Error occurred: didn't convert */ (void) fprintf(stderr, gettext( "tar: file # %llu: (%s) UTF-8 conversion failed.\n"), xhdr_count, source); return (1); } *iconv_trg = '\0'; /* Null-terminate iconv output string */ if (strlen(target) > max_val) { (void) fprintf(stderr, gettext( "tar: file # %llu: Extended header %s too long.\n"), xhdr_count, option); return (1); } *Xhdr_ptrptr = target; return (0); } /* * Check gname, uname, path, and linkpath to see if they need to go in an * extended header. If they are already slated to be in an extended header, * or if they are not ascii, then they need to be in the extended header. * Then, convert all extended names to UTF-8. */ int gen_utf8_names(const char *filename) { static iconv_t iconv_cd; char *nl_target; char tempbuf[MAXNAM + 1]; int nbytes; int errors; if (charset_type == -1) { /* Previous failure to open. */ (void) fprintf(stderr, gettext( "tar: file # %llu: UTF-8 conversion failed.\n"), xhdr_count); return (1); } if (charset_type == 0) { /* Need to get conversion descriptor */ nl_target = nl_langinfo(CODESET); if (strlen(nl_target) == 0) /* locale using 7-bit codeset */ nl_target = "646"; if (strcmp(nl_target, "646") == 0) charset_type = 1; else if (strcmp(nl_target, "UTF-8") == 0) charset_type = 3; else { if (strncmp(nl_target, "ISO", 3) == 0) nl_target += 3; charset_type = 2; errno = 0; #ifdef ICONV_DEBUG (void) fprintf(stderr, gettext("Opening iconv_cd with target %s\n"), nl_target); #endif if ((iconv_cd = iconv_open("UTF-8", nl_target)) == (iconv_t)-1) { if (errno == EINVAL) (void) fprintf(stderr, gettext( "tar: conversion routines not " "available for current locale. ")); (void) fprintf(stderr, gettext( "file (%s): UTF-8 conversion failed.\n"), filename); charset_type = -1; return (1); } } } errors = 0; errors += local_utf8(&Xtarhdr.x_gname, local_gname, dblock.dbuf.gname, iconv_cd, _X_GNAME, _POSIX_NAME_MAX); errors += local_utf8(&Xtarhdr.x_uname, local_uname, dblock.dbuf.uname, iconv_cd, _X_UNAME, _POSIX_NAME_MAX); if ((xhdr_flgs & _X_LINKPATH) == 0) { /* Need null-terminated str. */ (void) strncpy(tempbuf, dblock.dbuf.linkname, NAMSIZ); tempbuf[NAMSIZ] = '\0'; } errors += local_utf8(&Xtarhdr.x_linkpath, local_linkpath, tempbuf, iconv_cd, _X_LINKPATH, PATH_MAX); if ((xhdr_flgs & _X_PATH) == 0) { /* Concatenate prefix & name */ (void) strncpy(tempbuf, dblock.dbuf.prefix, PRESIZ); tempbuf[PRESIZ] = '\0'; nbytes = strlen(tempbuf); if (nbytes > 0) { tempbuf[nbytes++] = '/'; tempbuf[nbytes] = '\0'; } (void) strncat(tempbuf + nbytes, dblock.dbuf.name, (MAXNAM - nbytes)); tempbuf[MAXNAM] = '\0'; } errors += local_utf8(&Xtarhdr.x_path, local_path, tempbuf, iconv_cd, _X_PATH, PATH_MAX); if (errors > 0) (void) fprintf(stderr, gettext( "tar: file (%s): UTF-8 conversion failed.\n"), filename); if (errors && errflag) done(1); else if (errors) Errflg = 1; return (errors); } static int local_utf8( char **Xhdr_ptrptr, char *target, const char *source, iconv_t iconv_cd, int xhdrflg, int max_val) { const char *iconv_src; const char *starting_src; char *iconv_trg; size_t inlen; size_t outlen; #ifdef ICONV_DEBUG unsigned char c_to_hex; #endif /* * If the item is already slated for extended format, get the string * to convert from the extended header record. Otherwise, get it from * the regular (dblock) area. */ if (xhdr_flgs & xhdrflg) { if (charset_type == 3) { /* Already UTF-8, just copy */ (void) strcpy(target, *Xhdr_ptrptr); *Xhdr_ptrptr = target; return (0); } else iconv_src = (const char *) *Xhdr_ptrptr; } else { if (charset_type == 3) /* Already in UTF-8 format */ return (0); /* Don't create xhdr record */ iconv_src = source; } starting_src = iconv_src; iconv_trg = target; if ((inlen = strlen(iconv_src)) == 0) return (0); if (charset_type == 1) { /* locale using 7-bit codeset */ if (c_utf8(target, starting_src) != 0) { (void) fprintf(stderr, gettext("tar: invalid character in" " UTF-8 conversion of '%s'\n"), starting_src); return (1); } return (0); } outlen = max_val * UTF_8_FACTOR; errno = 0; if (iconv(iconv_cd, &iconv_src, &inlen, &iconv_trg, &outlen) == (size_t)-1) { /* An error occurred, or not all characters were converted */ if (errno == EILSEQ) (void) fprintf(stderr, gettext("tar: invalid character in" " UTF-8 conversion of '%s'\n"), starting_src); else (void) fprintf(stderr, gettext( "tar: conversion to UTF-8 aborted for '%s'.\n"), starting_src); /* Get remaining output; reinitialize conversion descriptor */ iconv_src = (const char *)NULL; inlen = 0; (void) iconv(iconv_cd, &iconv_src, &inlen, &iconv_trg, &outlen); return (1); } /* Get remaining output; reinitialize conversion descriptor */ iconv_src = (const char *)NULL; inlen = 0; if (iconv(iconv_cd, &iconv_src, &inlen, &iconv_trg, &outlen) == (size_t)-1) { /* Error occurred: didn't convert */ if (errno == EILSEQ) (void) fprintf(stderr, gettext("tar: invalid character in" " UTF-8 conversion of '%s'\n"), starting_src); else (void) fprintf(stderr, gettext( "tar: conversion to UTF-8 aborted for '%s'.\n"), starting_src); return (1); } *iconv_trg = '\0'; /* Null-terminate iconv output string */ if (strcmp(starting_src, target) != 0) { *Xhdr_ptrptr = target; xhdr_flgs |= xhdrflg; #ifdef ICONV_DEBUG (void) fprintf(stderr, "*** inlen: %d %d; outlen: %d %d\n", strlen(starting_src), inlen, max_val, outlen); (void) fprintf(stderr, "Input string:\n "); for (inlen = 0; inlen < strlen(starting_src); inlen++) { c_to_hex = (unsigned char)starting_src[inlen]; (void) fprintf(stderr, " %2.2x", c_to_hex); if (inlen % 20 == 19) (void) fprintf(stderr, "\n "); } (void) fprintf(stderr, "\nOutput string:\n "); for (inlen = 0; inlen < strlen(target); inlen++) { c_to_hex = (unsigned char)target[inlen]; (void) fprintf(stderr, " %2.2x", c_to_hex); if (inlen % 20 == 19) (void) fprintf(stderr, "\n "); } (void) fprintf(stderr, "\n"); #endif } return (0); } /* * Function to test each byte of the source string to make sure it is * in within bounds (value between 0 and 127). * If valid, copy source to target. */ int c_utf8(char *target, const char *source) { size_t len; const char *thischar; len = strlen(source); thischar = source; while (len-- > 0) { if (!isascii((int)(*thischar++))) return (1); } (void) strcpy(target, source); return (0); } #if defined(O_XATTR) #define ROUNDTOTBLOCK(a) ((a + (TBLOCK -1)) & ~(TBLOCK -1)) static void prepare_xattr( char **attrbuf, char *filename, char *attrpath, char typeflag, struct linkbuf *linkinfo, int *rlen) { char *bufhead; /* ptr to full buffer */ char *aptr; struct xattr_hdr *hptr; /* ptr to header in bufhead */ struct xattr_buf *tptr; /* ptr to pathing pieces */ int totalen; /* total buffer length */ int len; /* length returned to user */ int stringlen; /* length of filename + attr */ /* * length of filename + attr * in link section */ int linkstringlen; int complen; /* length of pathing section */ int linklen; /* length of link section */ int attrnames_index; /* attrnames starting index */ /* * Release previous buffer */ if (*attrbuf != (char *)NULL) { free(*attrbuf); *attrbuf = NULL; } /* * First add in fixed size stuff */ len = sizeof (struct xattr_hdr) + sizeof (struct xattr_buf); /* * Add space for two nulls */ stringlen = strlen(attrpath) + strlen(filename) + 2; complen = stringlen + sizeof (struct xattr_buf); len += stringlen; /* * Now add on space for link info if any */ if (linkinfo != NULL) { /* * Again add space for two nulls */ linkstringlen = strlen(linkinfo->pathname) + strlen(linkinfo->attrname) + 2; linklen = linkstringlen + sizeof (struct xattr_buf); len += linklen; } else { linklen = 0; } /* * Now add padding to end to fill out TBLOCK * * Function returns size of real data and not size + padding. */ totalen = ROUNDTOTBLOCK(len); if ((bufhead = calloc(1, totalen)) == NULL) { fatal(gettext("Out of memory.")); } /* * Now we can fill in the necessary pieces */ /* * first fill in the fixed header */ hptr = (struct xattr_hdr *)bufhead; (void) sprintf(hptr->h_version, "%s", XATTR_ARCH_VERS); (void) sprintf(hptr->h_component_len, "%0*d", sizeof (hptr->h_component_len) - 1, complen); (void) sprintf(hptr->h_link_component_len, "%0*d", sizeof (hptr->h_link_component_len) - 1, linklen); (void) sprintf(hptr->h_size, "%0*d", sizeof (hptr->h_size) - 1, len); /* * Now fill in the filename + attrnames section * The filename and attrnames section can be composed of two or more * path segments separated by a null character. The first segment * is the path to the parent file that roots the entire sequence in * the normal name space. The remaining segments describes a path * rooted at the hidden extended attribute directory of the leaf file of * the previous segment, making it possible to name attributes on * attributes. Thus, if we are just archiving an extended attribute, * the second segment will contain the attribute name. If we are * archiving a system attribute of an extended attribute, then the * second segment will contain the attribute name, and a third segment * will contain the system attribute name. The attribute pathing * information is obtained from 'attrpath'. */ tptr = (struct xattr_buf *)(bufhead + sizeof (struct xattr_hdr)); (void) sprintf(tptr->h_namesz, "%0*d", sizeof (tptr->h_namesz) - 1, stringlen); (void) strcpy(tptr->h_names, filename); attrnames_index = strlen(filename) + 1; (void) strcpy(&tptr->h_names[attrnames_index], attrpath); tptr->h_typeflag = typeflag; /* * Split the attrnames section into two segments if 'attrpath' * contains pathing information for a system attribute of an * extended attribute. We split them by replacing the '/' with * a '\0'. */ if ((aptr = strpbrk(&tptr->h_names[attrnames_index], "/")) != NULL) { *aptr = '\0'; } /* * Now fill in the optional link section if we have one */ if (linkinfo != (struct linkbuf *)NULL) { tptr = (struct xattr_buf *)(bufhead + sizeof (struct xattr_hdr) + complen); (void) sprintf(tptr->h_namesz, "%0*d", sizeof (tptr->h_namesz) - 1, linkstringlen); (void) strcpy(tptr->h_names, linkinfo->pathname); (void) strcpy( &tptr->h_names[strlen(linkinfo->pathname) + 1], linkinfo->attrname); tptr->h_typeflag = typeflag; } *attrbuf = (char *)bufhead; *rlen = len; } #else static void prepare_xattr( char **attrbuf, char *filename, char *attrname, char typeflag, struct linkbuf *linkinfo, int *rlen) { *attrbuf = NULL; *rlen = 0; } #endif int getstat(int dirfd, char *longname, char *shortname, char *attrparent) { int i, j; int printerr; int slnkerr; struct stat symlnbuf; if (!hflag) i = fstatat(dirfd, shortname, &stbuf, AT_SYMLINK_NOFOLLOW); else i = fstatat(dirfd, shortname, &stbuf, 0); if (i < 0) { /* Initialize flag to print error mesg. */ printerr = 1; /* * If stat is done, then need to do lstat * to determine whether it's a sym link */ if (hflag) { /* Save returned error */ slnkerr = errno; j = fstatat(dirfd, shortname, &symlnbuf, AT_SYMLINK_NOFOLLOW); /* * Suppress error message when file is a symbolic link * and function modifier 'l' is off. Exception: when * a symlink points to a symlink points to a * symlink ... and we get past MAXSYMLINKS. That * error will cause a file not to be archived, and * needs to be printed. */ if ((j == 0) && (!linkerrok) && (slnkerr != ELOOP) && (S_ISLNK(symlnbuf.st_mode))) printerr = 0; /* * Restore errno in case the lstat * on symbolic link change */ errno = slnkerr; } if (printerr) { (void) fprintf(stderr, gettext( "tar: %s%s%s%s: %s\n"), (attrparent == NULL) ? "" : gettext("attribute "), (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : gettext(" of "), longname, strerror(errno)); Errflg = 1; } return (1); } return (0); } /* * Recursively archive the extended attributes and/or extended system attributes * of the base file, longname. Note: extended system attribute files will be * archived only if the extended system attributes are not transient (i.e. the * extended system attributes are other than the default values). * * If -@ was specified and the underlying file system supports it, archive the * extended attributes, and if there is a system attribute associated with the * extended attribute, then recursively call xattrs_put() to archive the * hidden attribute directory and the extended system attribute. If -/ was * specified and the underlying file system supports it, archive the extended * system attributes. Read-only extended system attributes are never archived. * * Currently, there cannot be attributes on attributes; only system * attributes on attributes. In addition, there cannot be attributes on * system attributes. A file and it's attribute directory hierarchy looks as * follows: * longname ----> . ("." is the hidden attribute directory) * | * ---------------------------- * | | * ----> . * | * * */ #if defined(O_XATTR) static void xattrs_put(char *longname, char *shortname, char *parent, char *attrparent) { char *filename = (attrparent == NULL) ? shortname : attrparent; int arc_rwsysattr = 0; int dirfd; int fd = -1; int rw_sysattr = 0; int ext_attr = 0; int rc; DIR *dirp; struct dirent *dp; attr_data_t *attrinfo = NULL; /* * If the underlying file system supports it, then archive the extended * attributes if -@ was specified, and the extended system attributes * if -/ was specified. */ if (verify_attr_support(filename, (attrparent == NULL), ARC_CREATE, &ext_attr) != ATTR_OK) { return; } /* * Only want to archive a read-write extended system attribute file * if it contains extended system attribute settings that are not the * default values. */ #if defined(_PC_SATTR_ENABLED) if (saflag) { int filefd; nvlist_t *slist = NULL; /* Determine if there are non-transient system attributes */ errno = 0; if ((filefd = open(filename, O_RDONLY)) == -1) { if (attrparent == NULL) { vperror(0, gettext( "unable to open file %s"), longname); } return; } if (((slist = sysattr_list(basename(myname), filefd, filename)) != NULL) || (errno != 0)) { arc_rwsysattr = 1; } if (slist != NULL) { (void) nvlist_free(slist); slist = NULL; } (void) close(filefd); } /* * If we aren't archiving extended system attributes, and we are * processing an attribute, or if we are archiving extended system * attributes, and there are are no extended attributes, then there's * no need to open up the attribute directory of the file unless the * extended system attributes are not transient (i.e, the system * attributes are not the default values). */ if ((arc_rwsysattr == 0) && ((attrparent != NULL) || (saflag && !ext_attr))) { return; } #endif /* _PC_SATTR_ENABLED */ /* open the parent attribute directory */ fd = attropen(filename, ".", O_RDONLY); if (fd < 0) { vperror(0, gettext( "unable to open attribute directory for %s%s%sfile %s"), (attrparent == NULL) ? "" : gettext("attribute "), (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : gettext(" of "), longname); return; } /* * We need to change into the parent's attribute directory to determine * if each of the attributes should be archived. */ if (fchdir(fd) < 0) { vperror(0, gettext( "cannot change to attribute directory of %s%s%sfile %s"), (attrparent == NULL) ? "" : gettext("attribute "), (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : gettext(" of "), longname); (void) close(fd); return; } if (((dirfd = dup(fd)) == -1) || ((dirp = fdopendir(dirfd)) == NULL)) { (void) fprintf(stderr, gettext( "tar: unable to open dir pointer for %s%s%sfile %s\n"), (attrparent == NULL) ? "" : gettext("attribute "), (attrparent == NULL) ? "" : attrparent, (attrparent == NULL) ? "" : gettext(" of "), longname); if (fd > 0) { (void) close(fd); } return; } while (dp = readdir(dirp)) { if (strcmp(dp->d_name, "..") == 0) { continue; } else if (strcmp(dp->d_name, ".") == 0) { Hiddendir = 1; } else { Hiddendir = 0; } /* Determine if this attribute should be archived */ if (verify_attr(dp->d_name, attrparent, arc_rwsysattr, &rw_sysattr) != ATTR_OK) { continue; } /* gather the attribute's information to pass to putfile() */ if ((fill_in_attr_info(dp->d_name, longname, attrparent, fd, rw_sysattr, &attrinfo)) == 1) { continue; } /* add the attribute to the archive */ rc = putfile(longname, dp->d_name, parent, attrinfo, XATTR_FILE, LEV0, SYMLINK_LEV0); if (exitflag) { break; } #if defined(_PC_SATTR_ENABLED) /* * If both -/ and -@ were specified, then archive the * attribute's extended system attributes and hidden directory * by making a recursive call to xattrs_put(). */ if (!rw_sysattr && saflag && atflag && (rc != PUT_AS_LINK) && (Hiddendir == 0)) { xattrs_put(longname, shortname, parent, dp->d_name); /* * Change back to the parent's attribute directory * to process any further attributes. */ if (fchdir(fd) < 0) { vperror(0, gettext( "cannot change back to attribute directory " "of file %s"), longname); break; } } #endif /* _PC_SATTR_ENABLED */ } if (attrinfo != NULL) { if (attrinfo->attr_parent != NULL) { free(attrinfo->attr_parent); } free(attrinfo->attr_path); free(attrinfo); } (void) closedir(dirp); if (fd != -1) { (void) close(fd); } /* Change back to the parent directory of the base file */ if (attrparent == NULL) { (void) tar_chdir(parent); } Hiddendir = 0; } #else static void xattrs_put(char *longname, char *shortname, char *parent, char *attrppath) { } #endif /* O_XATTR */ static int put_link(char *name, char *longname, char *component, char *longattrname, char *prefix, int filetype, char type) { if (stbuf.st_nlink > 1) { struct linkbuf *lp; int found = 0; for (lp = ihead; lp != NULL; lp = lp->nextp) if (lp->inum == stbuf.st_ino && lp->devnum == stbuf.st_dev) { found++; break; } if (found) { #if defined(O_XATTR) if (filetype == XATTR_FILE) if (put_xattr_hdr(longname, component, longattrname, prefix, type, filetype, lp)) { goto out; } #endif stbuf.st_size = (off_t)0; if (filetype != XATTR_FILE) { tomodes(&stbuf); if (chk_path_build(name, longname, lp->pathname, prefix, type, filetype) > 0) { goto out; } } if (mulvol && tapepos + 1 >= blocklim) newvol(); (void) writetbuf((char *)&dblock, 1); /* * write_ancillary() is not needed here. * The first link is handled in the following * else statement. No need to process ACLs * for other hard links since they are the * same file. */ if (vflag) { #ifdef DEBUG if (NotTape) DEBUG("seek = %" FMT_blkcnt_t "K\t", K(tapepos), 0); #endif if (filetype == XATTR_FILE) { (void) fprintf(vfile, gettext( "a %s attribute %s link to " "%s attribute %s\n"), name, component, name, lp->attrname); } else { (void) fprintf(vfile, gettext( "a %s link to %s\n"), longname, lp->pathname); } } lp->count--; return (0); } else { lp = (struct linkbuf *)getmem(sizeof (*lp)); if (lp != (struct linkbuf *)NULL) { lp->nextp = ihead; ihead = lp; lp->inum = stbuf.st_ino; lp->devnum = stbuf.st_dev; lp->count = stbuf.st_nlink - 1; if (filetype == XATTR_FILE) { (void) strcpy(lp->pathname, longname); (void) strcpy(lp->attrname, component); } else { (void) strcpy(lp->pathname, longname); (void) strcpy(lp->attrname, ""); } } } } out: return (1); } static int put_extra_attributes(char *longname, char *shortname, char *longattrname, char *prefix, int filetype, char typeflag) { static acl_t *aclp = NULL; int error; if (aclp != NULL) { acl_free(aclp); aclp = NULL; } #if defined(O_XATTR) if ((atflag || saflag) && (filetype == XATTR_FILE)) { if (put_xattr_hdr(longname, shortname, longattrname, prefix, typeflag, filetype, NULL)) { return (1); } } #endif /* ACL support */ if (pflag) { char *secinfo = NULL; int len = 0; /* ACL support */ if (((stbuf.st_mode & S_IFMT) != S_IFLNK)) { /* * Get ACL info: dont bother allocating space if * there is only a trivial ACL. */ if ((error = acl_get(shortname, ACL_NO_TRIVIAL, &aclp)) != 0) { (void) fprintf(stderr, gettext( "%s: failed to retrieve acl : %s\n"), longname, acl_strerror(error)); return (1); } } /* append security attributes if any */ if (aclp != NULL) { (void) append_secattr(&secinfo, &len, acl_cnt(aclp), acl_totext(aclp, ACL_APPEND_ID | ACL_COMPACT_FMT | ACL_SID_FMT), (acl_type(aclp) == ACLENT_T) ? UFSD_ACL : ACE_ACL); } if (Tflag) { /* append Trusted Extensions extended attributes */ append_ext_attr(shortname, &secinfo, &len); (void) write_ancillary(&dblock, secinfo, len, ACL_HDR); } else if (aclp != NULL) { (void) write_ancillary(&dblock, secinfo, len, ACL_HDR); } } return (0); } #if defined(O_XATTR) static int put_xattr_hdr(char *longname, char *shortname, char *longattrname, char *prefix, int typeflag, int filetype, struct linkbuf *lp) { char *lname = NULL; char *sname = NULL; int error = 0; static char *attrbuf = NULL; int attrlen; lname = malloc(sizeof (char) * strlen("/dev/null") + 1 + strlen(shortname) + strlen(".hdr") + 1); if (lname == NULL) { fatal(gettext("Out of Memory.")); } sname = malloc(sizeof (char) * strlen(shortname) + strlen(".hdr") + 1); if (sname == NULL) { fatal(gettext("Out of Memory.")); } (void) sprintf(sname, "%s.hdr", shortname); (void) sprintf(lname, "/dev/null/%s", sname); if (strlcpy(dblock.dbuf.name, lname, sizeof (dblock.dbuf.name)) >= sizeof (dblock.dbuf.name)) { fatal(gettext( "Buffer overflow writing extended attribute file name")); } /* * dump extended attr lookup info */ prepare_xattr(&attrbuf, longname, longattrname, typeflag, lp, &attrlen); write_ancillary(&dblock, attrbuf, attrlen, _XATTR_HDRTYPE); (void) sprintf(lname, "/dev/null/%s", shortname); (void) strncpy(dblock.dbuf.name, sname, NAMSIZ); /* * Set up filename for attribute */ error = build_dblock(lname, tchar, '0', filetype, &stbuf, stbuf.st_dev, prefix); free(lname); free(sname); return (error); } #endif #if defined(O_XATTR) static int read_xattr_hdr(attr_data_t **attrinfo) { char buf[TBLOCK]; char *attrparent = NULL; blkcnt_t blocks; char *tp; off_t bytes; int comp_len, link_len; int namelen; int attrparentlen; int parentfilelen; if (dblock.dbuf.typeflag != _XATTR_HDRTYPE) return (1); bytes = stbuf.st_size; if ((xattrhead = calloc(1, (int)bytes)) == NULL) { (void) fprintf(stderr, gettext( "Insufficient memory for extended attribute\n")); return (1); } tp = (char *)xattrhead; blocks = TBLOCKS(bytes); while (blocks-- > 0) { readtape(buf); if (bytes <= TBLOCK) { (void) memcpy(tp, buf, (size_t)bytes); break; } else { (void) memcpy(tp, buf, TBLOCK); tp += TBLOCK; } bytes -= TBLOCK; } /* * Validate that we can handle header format */ if (strcmp(xattrhead->h_version, XATTR_ARCH_VERS) != 0) { (void) fprintf(stderr, gettext("Unknown extended attribute format encountered\n")); (void) fprintf(stderr, gettext("Disabling extended attribute parsing\n")); xattrbadhead = 1; return (0); } (void) sscanf(xattrhead->h_component_len, "%10d", &comp_len); (void) sscanf(xattrhead->h_link_component_len, "%10d", &link_len); xattrp = (struct xattr_buf *)(((char *)xattrhead) + sizeof (struct xattr_hdr)); (void) sscanf(xattrp->h_namesz, "%7d", &namelen); if (link_len > 0) xattr_linkp = (struct xattr_buf *) ((int)xattrp + (int)comp_len); else xattr_linkp = NULL; /* * Gather the attribute path from the filename and attrnames section. * The filename and attrnames section can be composed of two or more * path segments separated by a null character. The first segment * is the path to the parent file that roots the entire sequence in * the normal name space. The remaining segments describes a path * rooted at the hidden extended attribute directory of the leaf file of * the previous segment, making it possible to name attributes on * attributes. */ parentfilelen = strlen(xattrp->h_names); xattrapath = xattrp->h_names + parentfilelen + 1; if ((strlen(xattrapath) + parentfilelen + 2) < namelen) { /* * The attrnames section contains a system attribute on an * attribute. Save the name of the attribute for use later, * and replace the null separating the attribute name from * the system attribute name with a '/' so that xattrapath can * be used to display messages with the full attribute path name * rooted at the hidden attribute directory of the base file * in normal name space. */ attrparent = strdup(xattrapath); attrparentlen = strlen(attrparent); xattrapath[attrparentlen] = '/'; } if ((fill_in_attr_info((attrparent == NULL) ? xattrapath : xattrapath + attrparentlen + 1, xattrapath, attrparent, -1, 0, attrinfo)) == 1) { free(attrparent); return (1); } /* Gather link info */ if (xattr_linkp) { xattr_linkaname = xattr_linkp->h_names + strlen(xattr_linkp->h_names) + 1; } else { xattr_linkaname = NULL; } return (0); } #else static int read_xattr_hdr(attr_data_t **attrinfo) { return (0); } #endif /* * skip over extra slashes in string. * * For example: * /usr/tmp///// * * would return pointer at * /usr/tmp///// * ^ */ static char * skipslashes(char *string, char *start) { while ((string > start) && *(string - 1) == '/') { string--; } return (string); } /* * Return the parent directory of a given path. * * Examples: * /usr/tmp return /usr * /usr/tmp/file return /usr/tmp * / returns . * /usr returns / * file returns . * * dir is assumed to be at least as big as path. */ static void get_parent(char *path, char *dir) { char *s; char tmpdir[PATH_MAX + 1]; if (strlen(path) > PATH_MAX) { fatal(gettext("pathname is too long")); } (void) strcpy(tmpdir, path); chop_endslashes(tmpdir); if ((s = strrchr(tmpdir, '/')) == NULL) { (void) strcpy(dir, "."); } else { s = skipslashes(s, tmpdir); *s = '\0'; if (s == tmpdir) (void) strcpy(dir, "/"); else (void) strcpy(dir, tmpdir); } } #if defined(O_XATTR) static char * get_component(char *path) { char *ptr; ptr = strrchr(path, '/'); if (ptr == NULL) { return (path); } else { /* * Handle trailing slash */ if (*(ptr + 1) == '\0') return (ptr); else return (ptr + 1); } } #else static char * get_component(char *path) { return (path); } #endif #if defined(O_XATTR) static int retry_open_attr(int pdirfd, int cwd, char *dirp, char *pattr, char *name, int oflag, mode_t mode) { int dirfd; int ofilefd = -1; struct timeval times[2]; mode_t newmode; struct stat parentstat; acl_t *aclp = NULL; int error; /* * We couldn't get to attrdir. See if its * just a mode problem on the parent file. * for example: a mode such as r-xr--r-- * on a ufs file system without extended * system attribute support won't let us * create an attribute dir if it doesn't * already exist, and on a ufs file system * with extended system attribute support * won't let us open the attribute for * write. * * If file has a non-trivial ACL, then save it * off so that we can place it back on after doing * chmod's. */ if ((dirfd = openat(cwd, (pattr == NULL) ? dirp : pattr, O_RDONLY)) == -1) { return (-1); } if (fstat(dirfd, &parentstat) == -1) { (void) fprintf(stderr, gettext( "tar: cannot stat %sfile %s: %s\n"), (pdirfd == -1) ? "" : gettext("parent of "), (pdirfd == -1) ? dirp : name, strerror(errno)); return (-1); } if ((error = facl_get(dirfd, ACL_NO_TRIVIAL, &aclp)) != 0) { (void) fprintf(stderr, gettext( "tar: failed to retrieve ACL on %sfile %s: %s\n"), (pdirfd == -1) ? "" : gettext("parent of "), (pdirfd == -1) ? dirp : name, strerror(errno)); return (-1); } newmode = S_IWUSR | parentstat.st_mode; if (fchmod(dirfd, newmode) == -1) { (void) fprintf(stderr, gettext( "tar: cannot fchmod %sfile %s to %o: %s\n"), (pdirfd == -1) ? "" : gettext("parent of "), (pdirfd == -1) ? dirp : name, newmode, strerror(errno)); if (aclp) acl_free(aclp); return (-1); } if (pdirfd == -1) { /* * We weren't able to create the attribute directory before. * Now try again. */ ofilefd = attropen(dirp, ".", oflag); } else { /* * We weren't able to create open the attribute before. * Now try again. */ ofilefd = openat(pdirfd, name, oflag, mode); } /* * Put mode back to original */ if (fchmod(dirfd, parentstat.st_mode) == -1) { (void) fprintf(stderr, gettext("tar: cannot chmod %sfile %s to %o: %s\n"), (pdirfd == -1) ? "" : gettext("parent of "), (pdirfd == -1) ? dirp : name, newmode, strerror(errno)); } if (aclp) { error = facl_set(dirfd, aclp); if (error) { (void) fprintf(stderr, gettext("tar: failed to set acl entries on " "%sfile %s\n"), (pdirfd == -1) ? "" : gettext("parent of "), (pdirfd == -1) ? dirp : name); } acl_free(aclp); } /* * Put back time stamps */ times[0].tv_sec = parentstat.st_atime; times[0].tv_usec = 0; times[1].tv_sec = parentstat.st_mtime; times[1].tv_usec = 0; (void) futimesat(cwd, (pattr == NULL) ? dirp : pattr, times); (void) close(dirfd); return (ofilefd); } #endif #if !defined(O_XATTR) static int openat64(int fd, const char *name, int oflag, mode_t cmode) { return (open64(name, oflag, cmode)); } static int openat(int fd, const char *name, int oflag, mode_t cmode) { return (open(name, oflag, cmode)); } static int fchownat(int fd, const char *name, uid_t owner, gid_t group, int flag) { if (flag == AT_SYMLINK_NOFOLLOW) return (lchown(name, owner, group)); else return (chown(name, owner, group)); } static int renameat(int fromfd, char *old, int tofd, char *new) { return (rename(old, new)); } static int futimesat(int fd, char *path, struct timeval times[2]) { return (utimes(path, times)); } static int unlinkat(int dirfd, char *path, int flag) { if (flag == AT_REMOVEDIR) return (rmdir(path)); else return (unlink(path)); } static int fstatat(int fd, char *path, struct stat *buf, int flag) { if (flag == AT_SYMLINK_NOFOLLOW) return (lstat(path, buf)); else return (stat(path, buf)); } static int attropen(char *file, char *attr, int omode, mode_t cmode) { errno = ENOTSUP; return (-1); } #endif static void chop_endslashes(char *path) { char *end, *ptr; /* * Chop of slashes, but not if all we have is slashes * for example: //// * should make no changes, otherwise it will screw up * checkdir */ end = &path[strlen(path) -1]; if (*end == '/' && end != path) { ptr = skipslashes(end, path); if (ptr != NULL && ptr != path) { *ptr = '\0'; } } } /* Trusted Extensions */ /* * append_ext_attr(): * * Append extended attributes and other information into the buffer * that gets written to the ancillary file. * * With option 'T', we create a tarfile which * has an ancillary file each corresponding archived file. * Each ancillary file contains 1 or more of the * following attributes: * * attribute type attribute process procedure * ---------------- ---------------- -------------------------- * DIR_TYPE = 'D' directory flag append if a directory * LBL_TYPE = 'L' SL[IL] or SL append ascii label * * */ static void append_ext_attr(char *shortname, char **secinfo, int *len) { bslabel_t b_slabel; /* binary sensitvity label */ char *ascii = NULL; /* ascii label */ /* * For each attribute type, append it if it is * relevant to the file type. */ /* * For attribute type DIR_TYPE, * append it to the following file type: * * S_IFDIR: directories */ /* * For attribute type LBL_TYPE, * append it to the following file type: * * S_IFDIR: directories (including mld, sld) * S_IFLNK: symbolic link * S_IFREG: regular file but not hard link * S_IFIFO: FIFO file but not hard link * S_IFCHR: char special file but not hard link * S_IFBLK: block special file but not hard link */ switch (stbuf.st_mode & S_IFMT) { case S_IFDIR: /* * append DIR_TYPE */ (void) append_secattr(secinfo, len, 1, "\0", DIR_TYPE); /* * Get and append attribute types LBL_TYPE. * For directories, LBL_TYPE contains SL. */ /* get binary sensitivity label */ if (getlabel(shortname, &b_slabel) != 0) { (void) fprintf(stderr, gettext("tar: can't get sensitvity label for " " %s, getlabel() error: %s\n"), shortname, strerror(errno)); } else { /* get ascii SL */ if (bsltos(&b_slabel, &ascii, 0, 0) <= 0) { (void) fprintf(stderr, gettext("tar: can't get ascii SL for" " %s\n"), shortname); } else { /* append LBL_TYPE */ (void) append_secattr(secinfo, len, strlen(ascii) + 1, ascii, LBL_TYPE); /* free storage */ if (ascii != NULL) { free(ascii); ascii = (char *)0; } } } break; case S_IFLNK: case S_IFREG: case S_IFIFO: case S_IFCHR: case S_IFBLK: /* get binary sensitivity label */ if (getlabel(shortname, &b_slabel) != 0) { (void) fprintf(stderr, gettext("tar: can't get sensitivty label for %s, " "getlabel() error: %s\n"), shortname, strerror(errno)); } else { /* get ascii IL[SL] */ if (bsltos(&b_slabel, &ascii, 0, 0) <= 0) { (void) fprintf(stderr, gettext("tar: can't translate sensitivity " " label for %s\n"), shortname); } else { char *cmw_label; size_t cmw_length; cmw_length = strlen("ADMIN_LOW [] ") + strlen(ascii); if ((cmw_label = malloc(cmw_length)) == NULL) { (void) fprintf(stderr, gettext( "Insufficient memory for label\n")); exit(1); } /* append LBL_TYPE */ (void) snprintf(cmw_label, cmw_length, "ADMIN_LOW [%s]", ascii); (void) append_secattr(secinfo, len, strlen(cmw_label) + 1, cmw_label, LBL_TYPE); /* free storage */ if (ascii != NULL) { free(cmw_label); free(ascii); ascii = (char *)0; } } } break; default: break; } /* end switch for LBL_TYPE */ /* DONE !! */ return; } /* end of append_ext_attr */ /* * Name: extract_attr() * * Description: * Process attributes from the ancillary file due to * the T option. * * Call by doxtract() as part of the switch case structure. * Making this a separate routine because the nesting are too * deep in doxtract, thus, leaving very little space * on each line for instructions. * * With option 'T', we extract from a TS 8 or TS 2.5 ancillary file * * For option 'T', following are possible attributes in * a TS 8 ancillary file: (NOTE: No IL support) * * attribute type attribute process procedure * ---------------- ---------------- ------------------------- * # LBL_TYPE = 'L' SL construct binary label * # APRIV_TYPE = 'P' allowed priv construct privileges * # FPRIV_TYPE = 'p' forced priv construct privileges * # COMP_TYPE = 'C' path component construct real path * # DIR_TYPE = 'D' directory flag note it is a directory * $ UFSD_ACL = '1' ACL data construct ACL entries * ATTR_FLAG_TYPE = 'F' file attr flags construct binary flags * LK_COMP_TYPE = 'K' linked path comp construct linked real path * * note: # = attribute names common between TS 8 & TS 2.5 ancillary * files. * $ = ACL attribute is processed for the option 'p', it doesn't * need option 'T'. * * Trusted Extensions ignores APRIV_TYPE, FPRIV_TYPE, and ATTR_FLAG_TYPE * */ static void extract_attr(char **file_ptr, struct sec_attr *attr) { int reterr, err; char *dummy_buf; /* for attribute extract */ dummy_buf = attr->attr_info; switch (attr->attr_type) { case DIR_TYPE: dir_flag++; break; case LBL_TYPE: /* * LBL_TYPE is used to indicate SL for directory, and * CMW label for other file types. */ if (!dir_flag) { /* not directory */ /* Skip over IL portion */ char *sl_ptr = strchr(dummy_buf, '['); if (sl_ptr == NULL) err = 0; else err = stobsl(sl_ptr, &bs_label, NEW_LABEL, &reterr); } else { /* directory */ err = stobsl(dummy_buf, &bs_label, NEW_LABEL, &reterr); } if (err == 0) { (void) fprintf(stderr, gettext("tar: " "can't convert %s to binary label\n"), dummy_buf); bslundef(&bs_label); } else if (!blequal(&bs_label, &admin_low) && !blequal(&bs_label, &admin_high)) { bslabel_t *from_label; char *buf; char tempbuf[MAXPATHLEN]; if (*orig_namep != '/') { /* got relative linked to path */ (void) getcwd(tempbuf, (sizeof (tempbuf))); (void) strncat(tempbuf, "/", MAXPATHLEN); } else *tempbuf = '\0'; buf = real_path; (void) strncat(tempbuf, orig_namep, MAXPATHLEN); from_label = getlabelbypath(tempbuf); if (from_label != NULL) { if (blequal(from_label, &admin_low)) { if ((getpathbylabel(tempbuf, buf, MAXPATHLEN, &bs_label) == NULL)) { (void) fprintf(stderr, gettext("tar: " "can't get zone root path for " "%s\n"), tempbuf); } else rpath_flag = 1; } free(from_label); } } break; case COMP_TYPE: rebuild_comp_path(dummy_buf, file_ptr); break; case LK_COMP_TYPE: if (rebuild_lk_comp_path(dummy_buf, file_ptr) == 0) { lk_rpath_flag = 1; } else { (void) fprintf(stderr, gettext("tar: warning: link's " "target pathname might be invalid.\n")); lk_rpath_flag = 0; } break; case APRIV_TYPE: ignored_aprivs++; break; case FPRIV_TYPE: ignored_fprivs++; break; case ATTR_FLAG_TYPE: ignored_fattrs++; break; default: break; } /* done */ return; } /* end extract_attr */ /* * Name: rebuild_comp_path() * * Description: * Take the string of components passed down by the calling * routine and parse the values and rebuild the path. * This routine no longer needs to produce a new real_path * string because it is produced when the 'L' LABEL_TYPE is * interpreted. So the only thing done here is to distinguish * between an SLD and an MLD entry. We only want one, so we * ignore the MLD entry by setting the mld_flag. * * return value: * none */ static void rebuild_comp_path(char *str, char **namep) { char *cp; while (*str != '\0') { switch (*str) { case MLD_TYPE: str++; if ((cp = strstr(str, ";;")) != NULL) { *cp = '\0'; str = cp + 2; *cp = ';'; } mld_flag = 1; break; case SLD_TYPE: str++; if ((cp = strstr(str, ";;")) != NULL) { *cp = '\0'; str = cp + 2; *cp = ';'; } mld_flag = 0; break; case PATH_TYPE: str++; if ((cp = strstr(str, ";;")) != NULL) { *cp = '\0'; str = cp + 2; *cp = ';'; } break; } } if (rpath_flag) *namep = real_path; return; } /* end rebuild_comp_path() */ /* * Name: rebuild_lk_comp_path() * * Description: * Take the string of components passed down by the calling * routine and parse the values and rebuild the path. * * return value: * 0 = succeeded * -1 = failed */ static int rebuild_lk_comp_path(char *str, char **namep) { char *cp; int reterr; bslabel_t bslabel; char *buf; char pbuf[MAXPATHLEN]; char *ptr1, *ptr2; int plen; int use_pbuf; char tempbuf[MAXPATHLEN]; int mismatch; bslabel_t *from_label; char zonename[ZONENAME_MAX]; zoneid_t zoneid; /* init stuff */ use_pbuf = 0; mismatch = 0; /* * For linked to pathname (LK_COMP_TYPE): * - If the linked to pathname is absolute (start with /), we * will use it as is. * - If it is a relative pathname then it is relative to 1 of 2 * directories. For a hardlink, it is relative to the current * directory. For a symbolic link, it is relative to the * directory the symbolic link is in. For the symbolic link * case, set a flag to indicate we need to use the prefix of * the restored file's pathname with the linked to pathname. * * NOTE: At this point, we have no way to determine if we have * a hardlink or a symbolic link. We will compare the 1st * component in the prefix portion of the restore file's * pathname to the 1st component in the attribute data * (the linked pathname). If they are the same, we will assume * the link pathname to reconstruct is relative to the current * directory. Otherwise, we will set a flag indicate we need * to use a prefix with the reconstructed name. Need to compare * both the adorned and unadorned version before deciding a * mismatch. */ buf = lk_real_path; if (*(str + 1) != '/') { /* got relative linked to path */ ptr1 = orig_namep; ptr2 = strrchr(ptr1, '/'); plen = ptr2 - ptr1; if (plen > 0) { pbuf[0] = '\0'; plen++; /* include '/' */ (void) strncpy(pbuf, ptr1, plen); *(pbuf + plen) = '\0'; ptr2 = strchr(pbuf, '/'); if (strncmp(pbuf, str + 1, ptr2 - pbuf) != 0) mismatch = 1; } if (mismatch == 1) use_pbuf = 1; } buf[0] = '\0'; while (*str != '\0') { switch (*str) { case MLD_TYPE: str++; if ((cp = strstr(str, ";;")) != NULL) { *cp = '\0'; /* * Ignore attempts to backup over .MLD. */ if (strcmp(str, "../") != 0) (void) strncat(buf, str, MAXPATHLEN); str = cp + 2; *cp = ';'; } break; case SLD_TYPE: str++; if ((cp = strstr(str, ";;")) != NULL) { *cp = '\0'; /* * Use the path name in the header if * error occurs when processing the * SLD type. */ if (!stobsl(str, &bslabel, NO_CORRECTION, &reterr)) { (void) fprintf(stderr, gettext( "tar: can't translate to binary" "SL for SLD, stobsl() error:" " %s\n"), strerror(errno)); return (-1); } str = cp + 2; *cp = ';'; if (use_pbuf == 1) { if (*pbuf != '/') { /* relative linked to path */ (void) getcwd(tempbuf, (sizeof (tempbuf))); (void) strncat(tempbuf, "/", MAXPATHLEN); (void) strncat(tempbuf, pbuf, MAXPATHLEN); } else (void) strcpy(tempbuf, pbuf); } else if (*buf != '/') { /* got relative linked to path */ (void) getcwd(tempbuf, (sizeof (tempbuf))); (void) strncat(tempbuf, "/", MAXPATHLEN); } else *tempbuf = '\0'; (void) strncat(tempbuf, buf, MAXPATHLEN); *buf = '\0'; if (blequal(&bslabel, &admin_high)) { bslabel = admin_low; } /* * Check for cross-zone symbolic links */ from_label = getlabelbypath(real_path); if (rpath_flag && (from_label != NULL) && !blequal(&bslabel, from_label)) { if ((zoneid = getzoneidbylabel(&bslabel)) == -1) { (void) fprintf(stderr, gettext("tar: can't get " "zone ID for %s\n"), tempbuf); return (-1); } if (zone_getattr(zoneid, ZONE_ATTR_NAME, &zonename, ZONENAME_MAX) == -1) { /* Badly configured zone info */ (void) fprintf(stderr, gettext("tar: can't get " "zonename for %s\n"), tempbuf); return (-1); } (void) strncpy(buf, AUTO_ZONE, MAXPATHLEN); (void) strncat(buf, "/", MAXPATHLEN); (void) strncat(buf, zonename, MAXPATHLEN); } if (from_label != NULL) free(from_label); (void) strncat(buf, tempbuf, MAXPATHLEN); break; } mld_flag = 0; break; case PATH_TYPE: str++; if ((cp = strstr(str, ";;")) != NULL) { *cp = '\0'; (void) strncat(buf, str, MAXPATHLEN); str = cp + 2; *cp = ';'; } break; default: (void) fprintf(stderr, gettext( "tar: error rebuilding path %s\n"), *namep); *buf = '\0'; str++; return (-1); } } /* * Done for LK_COMP_TYPE */ return (0); /* component path is rebuilt successfully */ } /* end rebuild_lk_comp_path() */ /* * Name: check_ext_attr() * * Description: * Check the extended attributes for a file being extracted. * The attributes being checked here are CMW labels. * ACLs are not set here because they are set by the * pflag in doxtract(). * * If the label doesn't match, return 0 * else return 1 */ static int check_ext_attr(char *filename) { bslabel_t currentlabel; /* label from zone */ if (bltype(&bs_label, SUN_SL_UN)) { /* No label check possible */ return (0); } if (getlabel(filename, ¤tlabel) != 0) { (void) fprintf(stderr, gettext("tar: can't get label for " " %s, getlabel() error: %s\n"), filename, strerror(errno)); return (0); } else if ((blequal(¤tlabel, &bs_label)) == 0) { char *src_label = NULL; /* ascii label */ /* get current src SL */ if (bsltos(&bs_label, &src_label, 0, 0) <= 0) { (void) fprintf(stderr, gettext("tar: can't interpret requested label for" " %s\n"), filename); } else { (void) fprintf(stderr, gettext("tar: can't apply label %s to %s\n"), src_label, filename); free(src_label); } (void) fprintf(stderr, gettext("tar: %s not restored\n"), filename); return (0); } return (1); } /* end check_ext_attr */ /* Compressing a tar file using compression method provided in 'opt' */ static void compress_back() { pid_t pid; int status; int wret; struct stat statb; if (vflag) { (void) fprintf(vfile, gettext("Compressing '%s' with '%s'...\n"), usefile, compress_opt); } if ((pid = fork()) == 0) { (void) execlp(compress_opt, compress_opt, usefile, NULL); } else if (pid == -1) { vperror(1, "%s", gettext("Could not fork")); } wait_pid(pid); if (suffix == 0) { (void) rename(tfname, usefile); } } /* The magic numbers from /etc/magic */ #define GZIP_MAGIC "\037\213" #define BZIP_MAGIC "BZh" #define COMP_MAGIC "\037\235" void check_compression() { char magic[2]; char buf[16]; FILE *fp; if ((fp = fopen(usefile, "r")) != NULL) { (void) fread(buf, sizeof (char), 6, fp); magic[0] = buf[0]; magic[1] = buf[1]; (void) fclose(fp); } if (memcmp(magic, GZIP_MAGIC, 2) == 0) { if (xflag || tflag) { compress_opt = compress_malloc(strlen(GZCAT) + 1); (void) strcpy(compress_opt, GZCAT); } else if (uflag || rflag) { compress_opt = compress_malloc(strlen(GZIP) + 1); (void) strcpy(compress_opt, GZIP); } } else if (memcmp(magic, BZIP_MAGIC, 2) == 0) { if (xflag || tflag) { compress_opt = compress_malloc(strlen(BZCAT) + 1); (void) strcpy(compress_opt, BZCAT); } else if (uflag || rflag) { compress_opt = compress_malloc(strlen(BZIP) + 1); (void) strcpy(compress_opt, BZIP); } } else if (memcmp(magic, COMP_MAGIC, 2) == 0) { if (xflag || tflag) { compress_opt = compress_malloc(strlen(ZCAT) + 1); (void) strcpy(compress_opt, ZCAT); } else if (uflag || rflag) { compress_opt = compress_malloc(strlen(COMPRESS) + 1); (void) strcpy(compress_opt, COMPRESS); } } } char * add_suffix() { (void) strcpy(tfname, usefile); if (strcmp(compress_opt, GZIP) == 0) { if ((suffix = gz_suffix()) == NULL) { strlcat(tfname, gsuffix[0], sizeof (tfname)); return (gsuffix[0]); } } else if (strcmp(compress_opt, COMPRESS) == 0) { if ((suffix = gz_suffix()) == NULL) { strlcat(tfname, gsuffix[6], sizeof (tfname)); return (gsuffix[6]); } } else if (strcmp(compress_opt, BZIP) == 0) { if ((suffix = bz_suffix()) == NULL) { strlcat(tfname, bsuffix[0], sizeof (tfname)); return (bsuffix[0]); } } return (NULL); } /* Decompressing a tar file using compression method from the file type */ void decompress_file(void) { pid_t pid; int status; char cmdstr[PATH_MAX]; char fname[PATH_MAX]; char *added_suffix; added_suffix = add_suffix(); if (added_suffix != NULL) { (void) rename(usefile, tfname); } if ((pid = fork()) == 0) { if (vflag) { (void) fprintf(vfile, gettext("Decompressing '%s' with " "'%s'...\n"), usefile, compress_opt); } (void) execlp(compress_opt, compress_opt, "-df", tfname, NULL); vperror(1, gettext("Could not exec %s"), compress_opt); } else if (pid == -1) { vperror(1, gettext("Could not fork")); } wait_pid(pid); if (suffix != NULL) { /* restore the file name - original file was without suffix */ *(usefile + strlen(usefile) - strlen(suffix)) = '\0'; } } /* Set the archive for writing and then compress the archive */ pid_t compress_file(void) { int fd[2]; pid_t pid; if (vflag) { (void) fprintf(vfile, gettext("Compressing '%s' with " "'%s'...\n"), usefile, compress_opt); } if (pipe(fd) < 0) { vperror(1, gettext("Could not create pipe")); } if (pid = fork() > 0) { mt = fd[1]; (void) close(fd[0]); return (pid); } /* child */ (void) dup2(fd[0], STDIN_FILENO); (void) close(fd[1]); (void) dup2(mt, STDOUT_FILENO); (void) execlp(compress_opt, compress_opt, NULL); vperror(1, gettext("Could not exec %s"), compress_opt); return (0); /*NOTREACHED*/ } pid_t uncompress_file(void) { int fd[2]; pid_t pid; if (vflag) { (void) fprintf(vfile, gettext("Decompressing '%s' with " "'%s'...\n"), usefile, compress_opt); } if (pipe(fd) < 0) { vperror(1, gettext("Could not create pipe")); } if (pid = fork() > 0) { mt = fd[0]; (void) close(fd[1]); return (pid); } /* child */ (void) dup2(fd[1], STDOUT_FILENO); (void) close(fd[0]); (void) dup2(mt, STDIN_FILENO); (void) execlp(compress_opt, compress_opt, NULL); vperror(1, gettext("Could not exec %s"), compress_opt); return (0); /*NOTREACHED*/ } /* Checking valid 'bzip2' suffix */ char * bz_suffix() { int i; int slen; int nlen = strlen(usefile); for (i = 0; i < BS; i++) { slen = strlen(bsuffix[i]); if (nlen < slen) return (NULL); if (strcmp(usefile + nlen - slen, bsuffix[i]) == 0) return (bsuffix[i]); } return (NULL); } /* Checking valid 'gzip' suffix */ char * gz_suffix() { int i; int slen; int nlen = strlen(usefile); for (i = 0; i < GS; i++) { slen = strlen(gsuffix[i]); if (nlen < slen) return (NULL); if (strcmp(usefile + nlen - slen, gsuffix[i]) == 0) return (gsuffix[i]); } return (NULL); } void * compress_malloc(size_t size) { void *opt; if ((opt = malloc(size)) == NULL) { vperror(1, "%s", gettext("Could not allocate compress buffer\n")); } return (opt); } void wait_pid(pid_t pid) { int status; while (waitpid(pid, &status, 0) == -1 && errno == EINTR) ; }