1 /* Extract files from a tar archive.
3 Copyright (C) 1988, 1992, 1993, 1994, 1996, 1997, 1998, 1999, 2000,
4 2001, 2003, 2004 Free Software Foundation, Inc.
6 Written by John Gilmore, on 1985-11-19.
8 This program is free software; you can redistribute it and/or modify it
9 under the terms of the GNU General Public License as published by the
10 Free Software Foundation; either version 2, or (at your option) any later
13 This program is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
16 Public License for more details.
18 You should have received a copy of the GNU General Public License along
19 with this program; if not, write to the Free Software Foundation, Inc.,
20 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
38 bool we_are_root
; /* true if our effective uid == 0 */
39 static mode_t newdir_umask
; /* umask when creating new directories */
40 static mode_t current_umask
; /* current umask (which is set to 0 if -p) */
42 /* Status of the permissions of a file that we are extracting. */
45 /* This file may have existed already; its permissions are unknown. */
48 /* This file was created using the permissions from the archive. */
51 /* This is an intermediate directory; the archive did not specify
56 /* List of directories whose statuses we need to extract after we've
57 finished extracting their subsidiary files. If you consider each
58 contiguous subsequence of elements of the form [D]?[^D]*, where [D]
59 represents an element where AFTER_SYMLINKS is nonzero and [^D]
60 represents an element where AFTER_SYMLINKS is zero, then the head
61 of the subsequence has the longest name, and each non-head element
62 in the prefix is an ancestor (in the directory hierarchy) of the
65 struct delayed_set_stat
67 struct delayed_set_stat
*next
;
68 struct stat stat_info
;
70 mode_t invert_permissions
;
71 enum permstatus permstatus
;
76 static struct delayed_set_stat
*delayed_set_stat_head
;
78 /* List of symbolic links whose creation we have delayed. */
79 struct delayed_symlink
81 /* The next delayed symbolic link in the list. */
82 struct delayed_symlink
*next
;
84 /* The device, inode number and last-modified time of the placeholder. */
89 /* The desired owner and group of the symbolic link. */
93 /* A list of sources for this symlink. The sources are all to be
94 hard-linked together. */
95 struct string_list
*sources
;
97 /* The desired target of the desired link. */
101 static struct delayed_symlink
*delayed_symlink_head
;
105 struct string_list
*next
;
109 /* Set up to extract files. */
113 we_are_root
= geteuid () == 0;
114 same_permissions_option
+= we_are_root
;
115 same_owner_option
+= we_are_root
;
116 xalloc_fail_func
= extract_finish
;
118 /* Option -p clears the kernel umask, so it does not affect proper
119 restoration of file permissions. New intermediate directories will
120 comply with umask at start of program. */
122 newdir_umask
= umask (0);
123 if (0 < same_permissions_option
)
127 umask (newdir_umask
); /* restore the kernel umask */
128 current_umask
= newdir_umask
;
132 /* If restoring permissions, restore the mode for FILE_NAME from
133 information given in *STAT_INFO (where *CUR_INFO gives
134 the current status if CUR_INFO is nonzero); otherwise invert the
135 INVERT_PERMISSIONS bits from the file's current permissions.
136 PERMSTATUS specifies the status of the file's permissions.
137 TYPEFLAG specifies the type of the file. */
139 set_mode (char const *file_name
,
140 struct stat
const *stat_info
,
141 struct stat
const *cur_info
,
142 mode_t invert_permissions
, enum permstatus permstatus
,
147 if (0 < same_permissions_option
148 && permstatus
!= INTERDIR_PERMSTATUS
)
150 mode
= stat_info
->st_mode
;
152 /* If we created the file and it has a usual mode, then its mode
153 is normally set correctly already. But on many hosts, some
154 directories inherit the setgid bits from their parents, so we
155 we must set directories' modes explicitly. */
156 if (permstatus
== ARCHIVED_PERMSTATUS
157 && ! (mode
& ~ MODE_RWX
)
158 && typeflag
!= DIRTYPE
159 && typeflag
!= GNUTYPE_DUMPDIR
)
162 else if (! invert_permissions
)
166 /* We must inspect a directory's current permissions, since the
167 directory may have inherited its setgid bit from its parent.
169 INVERT_PERMISSIONS happens to be nonzero only for directories
170 that we created, so there's no point optimizing this code for
175 if (stat (file_name
, &st
) != 0)
177 stat_error (file_name
);
182 mode
= cur_info
->st_mode
^ invert_permissions
;
185 if (chmod (file_name
, mode
) != 0)
186 chmod_error_details (file_name
, mode
);
189 /* Check time after successfully setting FILE_NAME's time stamp to T. */
191 check_time (char const *file_name
, time_t t
)
195 WARN ((0, 0, _("%s: implausibly old time stamp %s"),
196 file_name
, tartime (t
)));
197 else if (start_time
< t
&& (now
= time (0)) < t
)
198 WARN ((0, 0, _("%s: time stamp %s is %lu s in the future"),
199 file_name
, tartime (t
), (unsigned long) (t
- now
)));
202 /* Restore stat attributes (owner, group, mode and times) for
203 FILE_NAME, using information given in *STAT_INFO.
204 If CUR_INFO is nonzero, *CUR_INFO is the
205 file's currernt status.
206 If not restoring permissions, invert the
207 INVERT_PERMISSIONS bits from the file's current permissions.
208 PERMSTATUS specifies the status of the file's permissions.
209 TYPEFLAG specifies the type of the file. */
211 /* FIXME: About proper restoration of symbolic link attributes, we still do
212 not have it right. Pretesters' reports tell us we need further study and
213 probably more configuration. For now, just use lchown if it exists, and
214 punt for the rest. Sigh! */
217 set_stat (char const *file_name
,
218 struct stat
const *stat_info
,
219 struct stat
const *cur_info
,
220 mode_t invert_permissions
, enum permstatus permstatus
,
223 struct utimbuf utimbuf
;
225 if (typeflag
!= SYMTYPE
)
227 /* We do the utime before the chmod because some versions of utime are
228 broken and trash the modes of the file. */
230 if (! touch_option
&& permstatus
!= INTERDIR_PERMSTATUS
)
232 /* We set the accessed time to `now', which is really the time we
233 started extracting files, unless incremental_option is used, in
234 which case .st_atime is used. */
236 /* FIXME: incremental_option should set ctime too, but how? */
238 if (incremental_option
)
239 utimbuf
.actime
= stat_info
->st_atime
;
241 utimbuf
.actime
= start_time
;
243 utimbuf
.modtime
= stat_info
->st_mtime
;
245 if (utime (file_name
, &utimbuf
) < 0)
246 utime_error (file_name
);
249 check_time (file_name
, utimbuf
.actime
);
250 check_time (file_name
, utimbuf
.modtime
);
254 /* Some systems allow non-root users to give files away. Once this
255 done, it is not possible anymore to change file permissions, so we
256 have to set permissions prior to possibly giving files away. */
258 set_mode (file_name
, stat_info
, cur_info
,
259 invert_permissions
, permstatus
, typeflag
);
262 if (0 < same_owner_option
&& permstatus
!= INTERDIR_PERMSTATUS
)
264 /* When lchown exists, it should be used to change the attributes of
265 the symbolic link itself. In this case, a mere chown would change
266 the attributes of the file the symbolic link is pointing to, and
267 should be avoided. */
269 if (typeflag
== SYMTYPE
)
272 if (lchown (file_name
, stat_info
->st_uid
, stat_info
->st_gid
) < 0)
273 chown_error_details (file_name
,
274 stat_info
->st_uid
, stat_info
->st_gid
);
279 if (chown (file_name
, stat_info
->st_uid
, stat_info
->st_gid
) < 0)
280 chown_error_details (file_name
,
281 stat_info
->st_uid
, stat_info
->st_gid
);
283 /* On a few systems, and in particular, those allowing to give files
284 away, changing the owner or group destroys the suid or sgid bits.
285 So let's attempt setting these bits once more. */
286 if (stat_info
->st_mode
& (S_ISUID
| S_ISGID
| S_ISVTX
))
287 set_mode (file_name
, stat_info
, 0,
288 invert_permissions
, permstatus
, typeflag
);
293 /* Remember to restore stat attributes (owner, group, mode and times)
294 for the directory FILE_NAME, using information given in *STAT_INFO,
295 once we stop extracting files into that directory.
296 If not restoring permissions, remember to invert the
297 INVERT_PERMISSIONS bits from the file's current permissions.
298 PERMSTATUS specifies the status of the file's permissions. */
300 delay_set_stat (char const *file_name
, struct stat
const *stat_info
,
301 mode_t invert_permissions
, enum permstatus permstatus
)
303 size_t file_name_len
= strlen (file_name
);
304 struct delayed_set_stat
*data
=
305 xmalloc (offsetof (struct delayed_set_stat
, file_name
)
306 + file_name_len
+ 1);
307 data
->file_name_len
= file_name_len
;
308 strcpy (data
->file_name
, file_name
);
309 data
->invert_permissions
= invert_permissions
;
310 data
->permstatus
= permstatus
;
311 data
->after_symlinks
= 0;
312 data
->stat_info
= *stat_info
;
313 data
->next
= delayed_set_stat_head
;
314 delayed_set_stat_head
= data
;
317 /* Update the delayed_set_stat info for an intermediate directory
318 created within the file name of DIR. The intermediate directory turned
319 out to be the same as this directory, e.g. due to ".." or symbolic
320 links. *DIR_STAT_INFO is the status of the directory. */
322 repair_delayed_set_stat (char const *dir
,
323 struct stat
const *dir_stat_info
)
325 struct delayed_set_stat
*data
;
326 for (data
= delayed_set_stat_head
; data
; data
= data
->next
)
329 if (stat (data
->file_name
, &st
) != 0)
331 stat_error (data
->file_name
);
335 if (st
.st_dev
== dir_stat_info
->st_dev
336 && st
.st_ino
== dir_stat_info
->st_ino
)
338 data
->stat_info
= current_stat_info
.stat
;
339 data
->invert_permissions
=
340 (MODE_RWX
& (current_stat_info
.stat
.st_mode
^ st
.st_mode
));
341 data
->permstatus
= ARCHIVED_PERMSTATUS
;
346 ERROR ((0, 0, _("%s: Unexpected inconsistency when making directory"),
347 quotearg_colon (dir
)));
350 /* After a file/link/symlink/directory creation has failed, see if
351 it's because some required directory was not present, and if so,
352 create all required directories. Return non-zero if a directory
355 make_directories (char *file_name
)
357 char *cursor0
= file_name
+ FILESYSTEM_PREFIX_LEN (file_name
);
358 char *cursor
; /* points into the file name */
359 int did_something
= 0; /* did we do anything yet? */
361 int invert_permissions
;
365 for (cursor
= cursor0
; *cursor
; cursor
++)
367 if (! ISSLASH (*cursor
))
370 /* Avoid mkdir of empty string, if leading or double '/'. */
372 if (cursor
== cursor0
|| ISSLASH (cursor
[-1]))
375 /* Avoid mkdir where last part of file name is "." or "..". */
377 if (cursor
[-1] == '.'
378 && (cursor
== cursor0
+ 1 || ISSLASH (cursor
[-2])
379 || (cursor
[-2] == '.'
380 && (cursor
== cursor0
+ 2 || ISSLASH (cursor
[-3])))))
383 *cursor
= '\0'; /* truncate the name there */
384 mode
= MODE_RWX
& ~ newdir_umask
;
385 invert_permissions
= we_are_root
? 0 : MODE_WXUSR
& ~ mode
;
386 status
= mkdir (file_name
, mode
^ invert_permissions
);
390 /* Create a struct delayed_set_stat even if
391 invert_permissions is zero, because
392 repair_delayed_set_stat may need to update the struct. */
393 delay_set_stat (file_name
,
394 ¤t_stat_info
.stat
/* ignored */,
395 invert_permissions
, INTERDIR_PERMSTATUS
);
397 print_for_mkdir (file_name
, cursor
- file_name
, mode
);
407 continue; /* Directory already exists. */
408 else if ((errno
== ENOSYS
/* Automounted dirs on Solaris return
409 this. Reported by Warren Hyde
410 <Warren.Hyde@motorola.com> */
411 || ERRNO_IS_EACCES
) /* Turbo C mkdir gives a funny errno. */
412 && access (file_name
, W_OK
) == 0)
415 /* Some other error in the mkdir. We return to the caller. */
419 return did_something
; /* tell them to retry if we made one */
423 file_newer_p (const char *file_name
, struct tar_stat_info
*tar_stat
)
427 if (stat (file_name
, &st
))
429 stat_warn (file_name
);
430 return true; /* Be on the safe side */
432 if (!S_ISDIR (st
.st_mode
)
433 && st
.st_mtime
>= tar_stat
->stat
.st_mtime
)
440 /* Prepare to extract a file.
441 Return zero if extraction should not proceed. */
444 prepare_to_extract (char const *file_name
)
446 if (to_stdout_option
)
449 switch (old_files_option
)
451 case UNLINK_FIRST_OLD_FILES
:
452 if (!remove_any_file (file_name
, recursive_unlink_option
)
453 && errno
&& errno
!= ENOENT
)
455 unlink_error (file_name
);
460 case KEEP_NEWER_FILES
:
461 if (file_newer_p (file_name
, ¤t_stat_info
))
463 WARN ((0, 0, _("Current `%s' is newer"), file_name
));
475 /* Attempt repairing what went wrong with the extraction. Delete an
476 already existing file or create missing intermediate directories.
477 Return nonzero if we somewhat increased our chances at a successful
478 extraction. errno is properly restored on zero return. */
480 maybe_recoverable (char *file_name
, int *interdir_made
)
490 /* Remove an old file, if the options allow this. */
492 switch (old_files_option
)
497 case KEEP_NEWER_FILES
:
498 if (file_newer_p (file_name
, ¤t_stat_info
))
505 case DEFAULT_OLD_FILES
:
506 case NO_OVERWRITE_DIR_OLD_FILES
:
507 case OVERWRITE_OLD_FILES
:
509 int r
= remove_any_file (file_name
, 0);
514 case UNLINK_FIRST_OLD_FILES
:
519 /* Attempt creating missing intermediate directories. */
520 if (! make_directories (file_name
))
529 /* Just say we can't do anything about it... */
535 /* Fix the statuses of all directories whose statuses need fixing, and
536 which are not ancestors of FILE_NAME. If AFTER_SYMLINKS is
537 nonzero, do this for all such directories; otherwise, stop at the
538 first directory that is marked to be fixed up only after delayed
539 symlinks are applied. */
541 apply_nonancestor_delayed_set_stat (char const *file_name
, bool after_symlinks
)
543 size_t file_name_len
= strlen (file_name
);
544 bool check_for_renamed_directories
= 0;
546 while (delayed_set_stat_head
)
548 struct delayed_set_stat
*data
= delayed_set_stat_head
;
549 bool skip_this_one
= 0;
551 struct stat
const *cur_info
= 0;
553 check_for_renamed_directories
|= data
->after_symlinks
;
555 if (after_symlinks
< data
->after_symlinks
556 || (data
->file_name_len
< file_name_len
557 && file_name
[data
->file_name_len
]
558 && (ISSLASH (file_name
[data
->file_name_len
])
559 || ISSLASH (file_name
[data
->file_name_len
- 1]))
560 && memcmp (file_name
, data
->file_name
, data
->file_name_len
) == 0))
563 if (check_for_renamed_directories
)
566 if (stat (data
->file_name
, &st
) != 0)
568 stat_error (data
->file_name
);
571 else if (! (st
.st_dev
== data
->stat_info
.st_dev
572 && (st
.st_ino
== data
->stat_info
.st_ino
)))
575 _("%s: Directory renamed before its status could be extracted"),
576 quotearg_colon (data
->file_name
)));
582 set_stat (data
->file_name
, &data
->stat_info
, cur_info
,
583 data
->invert_permissions
, data
->permstatus
, DIRTYPE
);
585 delayed_set_stat_head
= data
->next
;
590 /* Extract a file from the archive. */
592 extract_archive (void)
594 union block
*data_block
;
602 int interdir_made
= 0;
606 set_next_block_after (current_header
);
607 decode_header (current_header
, ¤t_stat_info
, ¤t_format
, 1);
609 if (interactive_option
&& !confirm ("extract", current_stat_info
.file_name
))
615 /* Print the block from current_header and current_stat. */
618 print_header (¤t_stat_info
, -1);
620 file_name
= safer_name_suffix (current_stat_info
.file_name
, false);
621 if (strip_name_components
)
623 size_t prefix_len
= stripped_prefix_len (file_name
, strip_name_components
);
624 if (prefix_len
== (size_t) -1)
629 file_name
+= prefix_len
;
632 apply_nonancestor_delayed_set_stat (file_name
, 0);
634 /* Take a safety backup of a previously existing file. */
636 if (backup_option
&& !to_stdout_option
)
637 if (!maybe_backup_file (file_name
, 0))
640 ERROR ((0, e
, _("%s: Was unable to backup this file"),
641 quotearg_colon (file_name
)));
646 /* Extract the archive entry according to its type. */
649 typeflag
= sparse_member_p (¤t_stat_info
) ?
650 GNUTYPE_SPARSE
: current_header
->header
.typeflag
;
661 /* Appears to be a file. But BSD tar uses the convention that a slash
662 suffix means a directory. */
664 if (current_stat_info
.had_trailing_slash
)
667 /* FIXME: deal with protection issues. */
670 openflag
= (O_WRONLY
| O_BINARY
| O_CREAT
671 | (old_files_option
== OVERWRITE_OLD_FILES
674 mode
= current_stat_info
.stat
.st_mode
& MODE_RWX
& ~ current_umask
;
676 if (to_stdout_option
)
682 if (! prepare_to_extract (file_name
))
691 /* Contiguous files (on the Masscomp) have to specify the size in
692 the open call that creates them. */
694 if (typeflag
== CONTTYPE
)
695 fd
= open (file_name
, openflag
| O_CTG
, mode
, current_stat_info
.stat
.st_size
);
697 fd
= open (file_name
, openflag
, mode
);
699 #else /* not O_CTG */
700 if (typeflag
== CONTTYPE
)
702 static int conttype_diagnosed
;
704 if (!conttype_diagnosed
)
706 conttype_diagnosed
= 1;
707 WARN ((0, 0, _("Extracting contiguous files as regular files")));
710 fd
= open (file_name
, openflag
, mode
);
712 #endif /* not O_CTG */
716 if (maybe_recoverable (file_name
, &interdir_made
))
719 open_error (file_name
);
727 if (current_stat_info
.is_sparse
)
729 sparse_extract_file (fd
, ¤t_stat_info
, &size
);
732 for (size
= current_stat_info
.stat
.st_size
; size
> 0; )
734 if (multi_volume_option
)
736 assign_string (&save_name
, current_stat_info
.file_name
);
737 save_totsize
= current_stat_info
.stat
.st_size
;
738 save_sizeleft
= size
;
741 /* Locate data, determine max length writeable, write it,
742 block that we have used the data, then check if the write
745 data_block
= find_next_block ();
748 ERROR ((0, 0, _("Unexpected EOF in archive")));
749 break; /* FIXME: What happens, then? */
752 written
= available_space_after (data_block
);
757 count
= full_write (fd
, data_block
->buffer
, written
);
760 set_next_block_after ((union block
*)
761 (data_block
->buffer
+ written
- 1));
762 if (count
!= written
)
764 write_error_details (file_name
, count
, written
);
771 if (multi_volume_option
)
772 assign_string (&save_name
, 0);
774 /* If writing to stdout, don't try to do anything to the filename;
775 it doesn't exist, or we don't want to touch it anyway. */
777 if (to_stdout_option
)
783 close_error (file_name
);
788 set_stat (file_name
, ¤t_stat_info
.stat
, 0, 0,
789 (old_files_option
== OVERWRITE_OLD_FILES
791 : ARCHIVED_PERMSTATUS
),
797 if (! prepare_to_extract (file_name
))
800 if (absolute_names_option
801 || ! (ISSLASH (current_stat_info
.link_name
802 [FILESYSTEM_PREFIX_LEN (current_stat_info
.link_name
)])
803 || contains_dot_dot (current_stat_info
.link_name
)))
805 while (status
= symlink (current_stat_info
.link_name
, file_name
),
807 if (!maybe_recoverable (file_name
, &interdir_made
))
811 set_stat (file_name
, ¤t_stat_info
.stat
, 0, 0, 0, SYMTYPE
);
813 symlink_error (current_stat_info
.link_name
, file_name
);
817 /* This symbolic link is potentially dangerous. Don't
818 create it now; instead, create a placeholder file, which
819 will be replaced after other extraction is done. */
822 while (fd
= open (file_name
, O_WRONLY
| O_CREAT
| O_EXCL
, 0),
824 if (! maybe_recoverable (file_name
, &interdir_made
))
829 open_error (file_name
);
830 else if (fstat (fd
, &st
) != 0)
832 stat_error (file_name
);
835 else if (close (fd
) != 0)
836 close_error (file_name
);
839 struct delayed_set_stat
*h
;
840 struct delayed_symlink
*p
=
841 xmalloc (offsetof (struct delayed_symlink
, target
)
842 + strlen (current_stat_info
.link_name
) + 1);
843 p
->next
= delayed_symlink_head
;
844 delayed_symlink_head
= p
;
847 p
->mtime
= st
.st_mtime
;
848 p
->uid
= current_stat_info
.stat
.st_uid
;
849 p
->gid
= current_stat_info
.stat
.st_gid
;
850 p
->sources
= xmalloc (offsetof (struct string_list
, string
)
851 + strlen (file_name
) + 1);
852 p
->sources
->next
= 0;
853 strcpy (p
->sources
->string
, file_name
);
854 strcpy (p
->target
, current_stat_info
.link_name
);
856 h
= delayed_set_stat_head
;
857 if (h
&& ! h
->after_symlinks
858 && strncmp (file_name
, h
->file_name
, h
->file_name_len
) == 0
859 && ISSLASH (file_name
[h
->file_name_len
])
860 && (base_name (file_name
)
861 == file_name
+ h
->file_name_len
+ 1))
865 h
->after_symlinks
= 1;
867 if (stat (h
->file_name
, &st
) != 0)
868 stat_error (h
->file_name
);
871 h
->stat_info
.st_dev
= st
.st_dev
;
872 h
->stat_info
.st_ino
= st
.st_ino
;
875 while ((h
= h
->next
) && ! h
->after_symlinks
);
882 if (status
!= 0 && backup_option
)
888 static int warned_once
;
894 _("Attempting extraction of symbolic links as hard links")));
902 if (! prepare_to_extract (file_name
))
907 char const *link_name
= safer_name_suffix (current_stat_info
.link_name
,
909 struct stat st1
, st2
;
912 /* MSDOS does not implement links. However, djgpp's link() actually
914 status
= link (link_name
, file_name
);
918 struct delayed_symlink
*ds
= delayed_symlink_head
;
919 if (ds
&& stat (link_name
, &st1
) == 0)
920 for (; ds
; ds
= ds
->next
)
921 if (ds
->dev
== st1
.st_dev
922 && ds
->ino
== st1
.st_ino
923 && ds
->mtime
== st1
.st_mtime
)
925 struct string_list
*p
=
926 xmalloc (offsetof (struct string_list
, string
)
927 + strlen (file_name
) + 1);
928 strcpy (p
->string
, file_name
);
929 p
->next
= ds
->sources
;
935 if (maybe_recoverable (file_name
, &interdir_made
))
938 if (incremental_option
&& errno
== EEXIST
)
941 if (stat (link_name
, &st1
) == 0
942 && stat (file_name
, &st2
) == 0
943 && st1
.st_dev
== st2
.st_dev
944 && st1
.st_ino
== st2
.st_ino
)
947 link_error (link_name
, file_name
);
955 current_stat_info
.stat
.st_mode
|= S_IFCHR
;
961 current_stat_info
.stat
.st_mode
|= S_IFBLK
;
964 #if S_IFCHR || S_IFBLK
966 if (! prepare_to_extract (file_name
))
969 status
= mknod (file_name
, current_stat_info
.stat
.st_mode
,
970 current_stat_info
.stat
.st_rdev
);
973 if (maybe_recoverable (file_name
, &interdir_made
))
975 mknod_error (file_name
);
980 set_stat (file_name
, ¤t_stat_info
.stat
, 0, 0,
981 ARCHIVED_PERMSTATUS
, typeflag
);
985 #if HAVE_MKFIFO || defined mkfifo
987 if (! prepare_to_extract (file_name
))
990 while (status
= mkfifo (file_name
, current_stat_info
.stat
.st_mode
),
992 if (!maybe_recoverable (file_name
, &interdir_made
))
996 set_stat (file_name
, ¤t_stat_info
.stat
, NULL
, 0,
997 ARCHIVED_PERMSTATUS
, typeflag
);
1000 mkfifo_error (file_name
);
1002 undo_last_backup ();
1008 case GNUTYPE_DUMPDIR
:
1010 if (incremental_option
)
1012 /* Read the entry and delete files that aren't listed in the
1015 gnu_restore (file_name
);
1017 else if (typeflag
== GNUTYPE_DUMPDIR
)
1020 mode
= ((current_stat_info
.stat
.st_mode
1021 | (we_are_root
? 0 : MODE_WXUSR
))
1024 status
= prepare_to_extract (file_name
);
1028 goto directory_exists
;
1031 status
= mkdir (file_name
, mode
);
1037 || old_files_option
== DEFAULT_OLD_FILES
1038 || old_files_option
== OVERWRITE_OLD_FILES
))
1041 if (stat (file_name
, &st
) == 0)
1045 repair_delayed_set_stat (file_name
, &st
);
1048 if (S_ISDIR (st
.st_mode
))
1050 mode
= st
.st_mode
& ~ current_umask
;
1051 goto directory_exists
;
1057 if (maybe_recoverable (file_name
, &interdir_made
))
1060 if (errno
!= EEXIST
)
1062 mkdir_error (file_name
);
1064 undo_last_backup ();
1071 || old_files_option
== DEFAULT_OLD_FILES
1072 || old_files_option
== OVERWRITE_OLD_FILES
)
1073 delay_set_stat (file_name
, ¤t_stat_info
.stat
,
1074 MODE_RWX
& (mode
^ current_stat_info
.stat
.st_mode
),
1076 ? ARCHIVED_PERMSTATUS
1077 : UNKNOWN_PERMSTATUS
));
1080 case GNUTYPE_VOLHDR
:
1082 fprintf (stdlis
, _("Reading %s\n"), quote (current_stat_info
.file_name
));
1089 case GNUTYPE_MULTIVOL
:
1091 _("%s: Cannot extract -- file is continued from another volume"),
1092 quotearg_colon (current_stat_info
.file_name
)));
1095 undo_last_backup ();
1098 case GNUTYPE_LONGNAME
:
1099 case GNUTYPE_LONGLINK
:
1100 ERROR ((0, 0, _("Visible long name error")));
1103 undo_last_backup ();
1108 _("%s: Unknown file type '%c', extracted as normal file"),
1109 quotearg_colon (file_name
), typeflag
));
1114 /* Extract the symbolic links whose final extraction were delayed. */
1116 apply_delayed_symlinks (void)
1118 struct delayed_symlink
*ds
;
1120 for (ds
= delayed_symlink_head
; ds
; )
1122 struct string_list
*sources
= ds
->sources
;
1123 char const *valid_source
= 0;
1125 for (sources
= ds
->sources
; sources
; sources
= sources
->next
)
1127 char const *source
= sources
->string
;
1130 /* Make sure the placeholder file is still there. If not,
1131 don't create a symlink, as the placeholder was probably
1132 removed by a later extraction. */
1133 if (lstat (source
, &st
) == 0
1134 && st
.st_dev
== ds
->dev
1135 && st
.st_ino
== ds
->ino
1136 && st
.st_mtime
== ds
->mtime
)
1138 /* Unlink the placeholder, then create a hard link if possible,
1139 a symbolic link otherwise. */
1140 if (unlink (source
) != 0)
1141 unlink_error (source
);
1142 else if (valid_source
&& link (valid_source
, source
) == 0)
1144 else if (symlink (ds
->target
, source
) != 0)
1145 symlink_error (ds
->target
, source
);
1148 valid_source
= source
;
1149 st
.st_uid
= ds
->uid
;
1150 st
.st_gid
= ds
->gid
;
1151 set_stat (source
, &st
, 0, 0, 0, SYMTYPE
);
1156 for (sources
= ds
->sources
; sources
; )
1158 struct string_list
*next
= sources
->next
;
1164 struct delayed_symlink
*next
= ds
->next
;
1170 delayed_symlink_head
= 0;
1173 /* Finish the extraction of an archive. */
1175 extract_finish (void)
1177 /* First, fix the status of ordinary directories that need fixing. */
1178 apply_nonancestor_delayed_set_stat ("", 0);
1180 /* Then, apply delayed symlinks, so that they don't affect delayed
1181 directory status-setting for ordinary directories. */
1182 apply_delayed_symlinks ();
1184 /* Finally, fix the status of directories that are ancestors
1185 of delayed symlinks. */
1186 apply_nonancestor_delayed_set_stat ("", 1);
1193 error (TAREXIT_FAILURE
, 0, _("Error is not recoverable: exiting now"));