1 /* Extract files from a tar archive.
3 Copyright (C) 1988, 1992, 1993, 1994, 1996, 1997, 1998, 1999, 2000,
4 2001, 2003 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 on the path to DIR_NAME. 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_name
,
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_name
)));
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 path */
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 path 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 path 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 */
422 /* Prepare to extract a file.
423 Return zero if extraction should not proceed. */
426 prepare_to_extract (char const *file_name
, bool directory
)
428 if (to_stdout_option
)
431 if (old_files_option
== UNLINK_FIRST_OLD_FILES
432 && !remove_any_file (file_name
, recursive_unlink_option
)
433 && errno
&& errno
!= ENOENT
)
435 unlink_error (file_name
);
442 /* Attempt repairing what went wrong with the extraction. Delete an
443 already existing file or create missing intermediate directories.
444 Return nonzero if we somewhat increased our chances at a successful
445 extraction. errno is properly restored on zero return. */
447 maybe_recoverable (char *file_name
, int *interdir_made
)
455 /* Remove an old file, if the options allow this. */
457 switch (old_files_option
)
462 case DEFAULT_OLD_FILES
:
463 case NO_OVERWRITE_DIR_OLD_FILES
:
464 case OVERWRITE_OLD_FILES
:
466 int r
= remove_any_file (file_name
, 0);
473 /* Attempt creating missing intermediate directories. */
474 if (! make_directories (file_name
))
483 /* Just say we can't do anything about it... */
489 /* Fix the statuses of all directories whose statuses need fixing, and
490 which are not ancestors of FILE_NAME. If AFTER_SYMLINKS is
491 nonzero, do this for all such directories; otherwise, stop at the
492 first directory that is marked to be fixed up only after delayed
493 symlinks are applied. */
495 apply_nonancestor_delayed_set_stat (char const *file_name
, bool after_symlinks
)
497 size_t file_name_len
= strlen (file_name
);
498 bool check_for_renamed_directories
= 0;
500 while (delayed_set_stat_head
)
502 struct delayed_set_stat
*data
= delayed_set_stat_head
;
503 bool skip_this_one
= 0;
505 struct stat
const *cur_info
= 0;
507 check_for_renamed_directories
|= data
->after_symlinks
;
509 if (after_symlinks
< data
->after_symlinks
510 || (data
->file_name_len
< file_name_len
511 && file_name
[data
->file_name_len
]
512 && (ISSLASH (file_name
[data
->file_name_len
])
513 || ISSLASH (file_name
[data
->file_name_len
- 1]))
514 && memcmp (file_name
, data
->file_name
, data
->file_name_len
) == 0))
517 if (check_for_renamed_directories
)
520 if (stat (data
->file_name
, &st
) != 0)
522 stat_error (data
->file_name
);
525 else if (! (st
.st_dev
== data
->stat_info
.st_dev
526 && (st
.st_ino
== data
->stat_info
.st_ino
)))
529 _("%s: Directory renamed before its status could be extracted"),
530 quotearg_colon (data
->file_name
)));
536 set_stat (data
->file_name
, &data
->stat_info
, cur_info
,
537 data
->invert_permissions
, data
->permstatus
, DIRTYPE
);
539 delayed_set_stat_head
= data
->next
;
544 /* Extract a file from the archive. */
546 extract_archive (void)
548 union block
*data_block
;
557 int interdir_made
= 0;
561 set_next_block_after (current_header
);
562 decode_header (current_header
, ¤t_stat_info
, ¤t_format
, 1);
564 if (interactive_option
&& !confirm ("extract", current_stat_info
.file_name
))
570 /* Print the block from current_header and current_stat. */
573 print_header (¤t_stat_info
, -1);
575 file_name
= safer_name_suffix (current_stat_info
.file_name
, 0);
576 if (strip_path_elements
)
578 size_t prefix_len
= stripped_prefix_len (file_name
, strip_path_elements
);
579 if (prefix_len
== (size_t) -1)
584 file_name
+= prefix_len
;
587 apply_nonancestor_delayed_set_stat (file_name
, 0);
589 /* Take a safety backup of a previously existing file. */
591 if (backup_option
&& !to_stdout_option
)
592 if (!maybe_backup_file (file_name
, 0))
595 ERROR ((0, e
, _("%s: Was unable to backup this file"),
596 quotearg_colon (file_name
)));
601 /* Extract the archive entry according to its type. */
603 typeflag
= current_header
->header
.typeflag
;
605 if (current_stat_info
.archive_file_size
!= current_stat_info
.stat
.st_size
)
606 typeflag
= GNUTYPE_SPARSE
;
617 /* Appears to be a file. But BSD tar uses the convention that a slash
618 suffix means a directory. */
620 if (current_stat_info
.had_trailing_slash
)
623 /* FIXME: deal with protection issues. */
626 openflag
= (O_WRONLY
| O_BINARY
| O_CREAT
627 | (old_files_option
== OVERWRITE_OLD_FILES
630 mode
= current_stat_info
.stat
.st_mode
& MODE_RWX
& ~ current_umask
;
632 if (to_stdout_option
)
638 if (! prepare_to_extract (file_name
, 0))
647 /* Contiguous files (on the Masscomp) have to specify the size in
648 the open call that creates them. */
650 if (typeflag
== CONTTYPE
)
651 fd
= open (file_name
, openflag
| O_CTG
, mode
, current_stat_info
.stat
.st_size
);
653 fd
= open (file_name
, openflag
, mode
);
655 #else /* not O_CTG */
656 if (typeflag
== CONTTYPE
)
658 static int conttype_diagnosed
;
660 if (!conttype_diagnosed
)
662 conttype_diagnosed
= 1;
663 WARN ((0, 0, _("Extracting contiguous files as regular files")));
666 fd
= open (file_name
, openflag
, mode
);
668 #endif /* not O_CTG */
672 if (maybe_recoverable (file_name
, &interdir_made
))
675 open_error (file_name
);
683 if (typeflag
== GNUTYPE_SPARSE
)
685 sparse_extract_file (fd
, ¤t_stat_info
, &size
);
688 for (size
= current_stat_info
.stat
.st_size
; size
> 0; )
690 if (multi_volume_option
)
692 assign_string (&save_name
, current_stat_info
.file_name
);
693 save_totsize
= current_stat_info
.stat
.st_size
;
694 save_sizeleft
= size
;
697 /* Locate data, determine max length writeable, write it,
698 block that we have used the data, then check if the write
701 data_block
= find_next_block ();
704 ERROR ((0, 0, _("Unexpected EOF in archive")));
705 break; /* FIXME: What happens, then? */
708 written
= available_space_after (data_block
);
713 count
= full_write (fd
, data_block
->buffer
, written
);
716 set_next_block_after ((union block
*)
717 (data_block
->buffer
+ written
- 1));
718 if (count
!= written
)
720 write_error_details (file_name
, count
, written
);
727 if (multi_volume_option
)
728 assign_string (&save_name
, 0);
730 /* If writing to stdout, don't try to do anything to the filename;
731 it doesn't exist, or we don't want to touch it anyway. */
733 if (to_stdout_option
)
739 close_error (file_name
);
744 set_stat (file_name
, ¤t_stat_info
.stat
, 0, 0,
745 (old_files_option
== OVERWRITE_OLD_FILES
747 : ARCHIVED_PERMSTATUS
),
753 if (! prepare_to_extract (file_name
, 0))
756 if (absolute_names_option
757 || ! (ISSLASH (current_stat_info
.link_name
758 [FILESYSTEM_PREFIX_LEN (current_stat_info
.link_name
)])
759 || contains_dot_dot (current_stat_info
.link_name
)))
761 while (status
= symlink (current_stat_info
.link_name
, file_name
),
763 if (!maybe_recoverable (file_name
, &interdir_made
))
767 set_stat (file_name
, ¤t_stat_info
.stat
, 0, 0, 0, SYMTYPE
);
769 symlink_error (current_stat_info
.link_name
, file_name
);
773 /* This symbolic link is potentially dangerous. Don't
774 create it now; instead, create a placeholder file, which
775 will be replaced after other extraction is done. */
778 while (fd
= open (file_name
, O_WRONLY
| O_CREAT
| O_EXCL
, 0),
780 if (! maybe_recoverable (file_name
, &interdir_made
))
785 open_error (file_name
);
786 else if (fstat (fd
, &st
) != 0)
788 stat_error (file_name
);
791 else if (close (fd
) != 0)
792 close_error (file_name
);
795 struct delayed_set_stat
*h
;
796 struct delayed_symlink
*p
=
797 xmalloc (offsetof (struct delayed_symlink
, target
)
798 + strlen (current_stat_info
.link_name
) + 1);
799 p
->next
= delayed_symlink_head
;
800 delayed_symlink_head
= p
;
803 p
->mtime
= st
.st_mtime
;
804 p
->uid
= current_stat_info
.stat
.st_uid
;
805 p
->gid
= current_stat_info
.stat
.st_gid
;
806 p
->sources
= xmalloc (offsetof (struct string_list
, string
)
807 + strlen (file_name
) + 1);
808 p
->sources
->next
= 0;
809 strcpy (p
->sources
->string
, file_name
);
810 strcpy (p
->target
, current_stat_info
.link_name
);
812 h
= delayed_set_stat_head
;
813 if (h
&& ! h
->after_symlinks
814 && strncmp (file_name
, h
->file_name
, h
->file_name_len
) == 0
815 && ISSLASH (file_name
[h
->file_name_len
])
816 && (base_name (file_name
)
817 == file_name
+ h
->file_name_len
+ 1))
821 h
->after_symlinks
= 1;
823 if (stat (h
->file_name
, &st
) != 0)
824 stat_error (h
->file_name
);
827 h
->stat_info
.st_dev
= st
.st_dev
;
828 h
->stat_info
.st_ino
= st
.st_ino
;
831 while ((h
= h
->next
) && ! h
->after_symlinks
);
838 if (status
!= 0 && backup_option
)
844 static int warned_once
;
850 _("Attempting extraction of symbolic links as hard links")));
858 if (! prepare_to_extract (file_name
, 0))
863 char const *link_name
= safer_name_suffix (current_stat_info
.link_name
, 1);
864 struct stat st1
, st2
;
867 /* MSDOS does not implement links. However, djgpp's link() actually
869 status
= link (link_name
, file_name
);
873 struct delayed_symlink
*ds
= delayed_symlink_head
;
874 if (ds
&& stat (link_name
, &st1
) == 0)
875 for (; ds
; ds
= ds
->next
)
876 if (ds
->dev
== st1
.st_dev
877 && ds
->ino
== st1
.st_ino
878 && ds
->mtime
== st1
.st_mtime
)
880 struct string_list
*p
=
881 xmalloc (offsetof (struct string_list
, string
)
882 + strlen (file_name
) + 1);
883 strcpy (p
->string
, file_name
);
884 p
->next
= ds
->sources
;
890 if (maybe_recoverable (file_name
, &interdir_made
))
893 if (incremental_option
&& errno
== EEXIST
)
896 if (stat (link_name
, &st1
) == 0
897 && stat (file_name
, &st2
) == 0
898 && st1
.st_dev
== st2
.st_dev
899 && st1
.st_ino
== st2
.st_ino
)
902 link_error (link_name
, file_name
);
910 current_stat_info
.stat
.st_mode
|= S_IFCHR
;
916 current_stat_info
.stat
.st_mode
|= S_IFBLK
;
919 #if S_IFCHR || S_IFBLK
921 if (! prepare_to_extract (file_name
, 0))
924 status
= mknod (file_name
, current_stat_info
.stat
.st_mode
,
925 current_stat_info
.stat
.st_rdev
);
928 if (maybe_recoverable (file_name
, &interdir_made
))
930 mknod_error (file_name
);
935 set_stat (file_name
, ¤t_stat_info
.stat
, 0, 0,
936 ARCHIVED_PERMSTATUS
, typeflag
);
940 #if HAVE_MKFIFO || defined mkfifo
942 if (! prepare_to_extract (file_name
, 0))
945 while (status
= mkfifo (file_name
, current_stat_info
.stat
.st_mode
),
947 if (!maybe_recoverable (file_name
, &interdir_made
))
951 set_stat (file_name
, ¤t_stat_info
.stat
, NULL
, 0,
952 ARCHIVED_PERMSTATUS
, typeflag
);
955 mkfifo_error (file_name
);
963 case GNUTYPE_DUMPDIR
:
965 if (incremental_option
)
967 /* Read the entry and delete files that aren't listed in the
970 gnu_restore (file_name
);
972 else if (typeflag
== GNUTYPE_DUMPDIR
)
975 mode
= ((current_stat_info
.stat
.st_mode
976 | (we_are_root
? 0 : MODE_WXUSR
))
979 status
= prepare_to_extract (file_name
, 1);
983 goto directory_exists
;
986 status
= mkdir (file_name
, mode
);
992 || old_files_option
== DEFAULT_OLD_FILES
993 || old_files_option
== OVERWRITE_OLD_FILES
))
996 if (stat (file_name
, &st
) == 0)
1000 repair_delayed_set_stat (file_name
, &st
);
1003 if (S_ISDIR (st
.st_mode
))
1005 mode
= st
.st_mode
& ~ current_umask
;
1006 goto directory_exists
;
1012 if (maybe_recoverable (file_name
, &interdir_made
))
1015 if (errno
!= EEXIST
)
1017 mkdir_error (file_name
);
1019 undo_last_backup ();
1026 || old_files_option
== DEFAULT_OLD_FILES
1027 || old_files_option
== OVERWRITE_OLD_FILES
)
1028 delay_set_stat (file_name
, ¤t_stat_info
.stat
,
1029 MODE_RWX
& (mode
^ current_stat_info
.stat
.st_mode
),
1031 ? ARCHIVED_PERMSTATUS
1032 : UNKNOWN_PERMSTATUS
));
1035 case GNUTYPE_VOLHDR
:
1037 fprintf (stdlis
, _("Reading %s\n"), quote (current_stat_info
.file_name
));
1044 case GNUTYPE_MULTIVOL
:
1046 _("%s: Cannot extract -- file is continued from another volume"),
1047 quotearg_colon (current_stat_info
.file_name
)));
1050 undo_last_backup ();
1053 case GNUTYPE_LONGNAME
:
1054 case GNUTYPE_LONGLINK
:
1055 ERROR ((0, 0, _("Visible long name error")));
1058 undo_last_backup ();
1063 _("%s: Unknown file type '%c', extracted as normal file"),
1064 quotearg_colon (file_name
), typeflag
));
1069 /* Extract the symbolic links whose final extraction were delayed. */
1071 apply_delayed_symlinks (void)
1073 struct delayed_symlink
*ds
;
1075 for (ds
= delayed_symlink_head
; ds
; )
1077 struct string_list
*sources
= ds
->sources
;
1078 char const *valid_source
= 0;
1080 for (sources
= ds
->sources
; sources
; sources
= sources
->next
)
1082 char const *source
= sources
->string
;
1085 /* Make sure the placeholder file is still there. If not,
1086 don't create a symlink, as the placeholder was probably
1087 removed by a later extraction. */
1088 if (lstat (source
, &st
) == 0
1089 && st
.st_dev
== ds
->dev
1090 && st
.st_ino
== ds
->ino
1091 && st
.st_mtime
== ds
->mtime
)
1093 /* Unlink the placeholder, then create a hard link if possible,
1094 a symbolic link otherwise. */
1095 if (unlink (source
) != 0)
1096 unlink_error (source
);
1097 else if (valid_source
&& link (valid_source
, source
) == 0)
1099 else if (symlink (ds
->target
, source
) != 0)
1100 symlink_error (ds
->target
, source
);
1103 valid_source
= source
;
1104 st
.st_uid
= ds
->uid
;
1105 st
.st_gid
= ds
->gid
;
1106 set_stat (source
, &st
, 0, 0, 0, SYMTYPE
);
1111 for (sources
= ds
->sources
; sources
; )
1113 struct string_list
*next
= sources
->next
;
1119 struct delayed_symlink
*next
= ds
->next
;
1125 delayed_symlink_head
= 0;
1128 /* Finish the extraction of an archive. */
1130 extract_finish (void)
1132 /* First, fix the status of ordinary directories that need fixing. */
1133 apply_nonancestor_delayed_set_stat ("", 0);
1135 /* Then, apply delayed symlinks, so that they don't affect delayed
1136 directory status-setting for ordinary directories. */
1137 apply_delayed_symlinks ();
1139 /* Finally, fix the status of directories that are ancestors
1140 of delayed symlinks. */
1141 apply_nonancestor_delayed_set_stat ("", 1);
1148 error (TAREXIT_FAILURE
, 0, _("Error is not recoverable: exiting now"));