1 /* install - copy files and set attributes
2 Copyright (C) 1989-2012 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
17 /* Written by David MacKenzie <djm@gnu.ai.mit.edu> */
22 #include <sys/types.h>
26 #include <selinux/selinux.h>
30 #include "backupfile.h"
34 #include "filenamecat.h"
35 #include "full-read.h"
36 #include "mkancesdirs.h"
38 #include "modechange.h"
39 #include "prog-fprintf.h"
43 #include "stat-time.h"
47 /* The official name of this program (e.g., no 'g' prefix). */
48 #define PROGRAM_NAME "install"
50 #define AUTHORS proper_name ("David MacKenzie")
52 static int selinux_enabled
= 0;
53 static bool use_default_selinux_context
= true;
56 # define endgrent() ((void) 0)
60 # define endpwent() ((void) 0)
64 # define lchown(name, uid, gid) chown (name, uid, gid)
67 #if ! HAVE_MATCHPATHCON_INIT_PREFIX
68 # define matchpathcon_init_prefix(a, p) /* empty */
71 /* The user name that will own the files, or NULL to make the owner
72 the current user ID. */
73 static char *owner_name
;
75 /* The user ID corresponding to 'owner_name'. */
76 static uid_t owner_id
;
78 /* The group name that will own the files, or NULL to make the group
79 the current group ID. */
80 static char *group_name
;
82 /* The group ID corresponding to 'group_name'. */
83 static gid_t group_id
;
85 #define DEFAULT_MODE (S_IRWXU | S_IRGRP | S_IXGRP | S_IROTH | S_IXOTH)
87 /* The file mode bits to which non-directory files will be set. The umask has
89 static mode_t mode
= DEFAULT_MODE
;
91 /* Similar, but for directories. */
92 static mode_t dir_mode
= DEFAULT_MODE
;
94 /* The file mode bits that the user cares about. This should be a
95 superset of DIR_MODE and a subset of CHMOD_MODE_BITS. This matters
96 for directories, since otherwise directories may keep their S_ISUID
98 static mode_t dir_mode_bits
= CHMOD_MODE_BITS
;
100 /* Compare files before installing (-C) */
101 static bool copy_only_if_needed
;
103 /* If true, strip executable files after copying them. */
104 static bool strip_files
;
106 /* If true, install a directory instead of a regular file. */
109 /* Program used to strip binaries, "strip" is default */
110 static char const *strip_program
= "strip";
112 /* For long options that have no equivalent short option, use a
113 non-character as a pseudo short option, starting with CHAR_MAX + 1. */
116 PRESERVE_CONTEXT_OPTION
= CHAR_MAX
+ 1,
120 static struct option
const long_options
[] =
122 {"backup", optional_argument
, NULL
, 'b'},
123 {"compare", no_argument
, NULL
, 'C'},
124 {GETOPT_SELINUX_CONTEXT_OPTION_DECL
},
125 {"directory", no_argument
, NULL
, 'd'},
126 {"group", required_argument
, NULL
, 'g'},
127 {"mode", required_argument
, NULL
, 'm'},
128 {"no-target-directory", no_argument
, NULL
, 'T'},
129 {"owner", required_argument
, NULL
, 'o'},
130 {"preserve-timestamps", no_argument
, NULL
, 'p'},
131 {"preserve-context", no_argument
, NULL
, PRESERVE_CONTEXT_OPTION
},
132 {"strip", no_argument
, NULL
, 's'},
133 {"strip-program", required_argument
, NULL
, STRIP_PROGRAM_OPTION
},
134 {"suffix", required_argument
, NULL
, 'S'},
135 {"target-directory", required_argument
, NULL
, 't'},
136 {"verbose", no_argument
, NULL
, 'v'},
137 {GETOPT_HELP_OPTION_DECL
},
138 {GETOPT_VERSION_OPTION_DECL
},
142 /* Compare content of opened files using file descriptors A_FD and B_FD. Return
143 true if files are equal. */
145 have_same_content (int a_fd
, int b_fd
)
147 enum { CMP_BLOCK_SIZE
= 4096 };
148 static char a_buff
[CMP_BLOCK_SIZE
];
149 static char b_buff
[CMP_BLOCK_SIZE
];
152 while (0 < (size
= full_read (a_fd
, a_buff
, sizeof a_buff
))) {
153 if (size
!= full_read (b_fd
, b_buff
, sizeof b_buff
))
156 if (memcmp (a_buff
, b_buff
, size
) != 0)
163 /* Return true for mode with non-permission bits. */
165 extra_mode (mode_t input
)
167 mode_t mask
= S_IRWXUGO
| S_IFMT
;
168 return !! (input
& ~ mask
);
171 /* Return true if copy of file SRC_NAME to file DEST_NAME is necessary. */
173 need_copy (const char *src_name
, const char *dest_name
,
174 const struct cp_options
*x
)
176 struct stat src_sb
, dest_sb
;
180 if (extra_mode (mode
))
183 /* compare files using stat */
184 if (lstat (src_name
, &src_sb
) != 0)
187 if (lstat (dest_name
, &dest_sb
) != 0)
190 if (!S_ISREG (src_sb
.st_mode
) || !S_ISREG (dest_sb
.st_mode
)
191 || extra_mode (src_sb
.st_mode
) || extra_mode (dest_sb
.st_mode
))
194 if (src_sb
.st_size
!= dest_sb
.st_size
195 || (dest_sb
.st_mode
& CHMOD_MODE_BITS
) != mode
)
198 if (owner_id
== (uid_t
) -1)
201 uid_t ruid
= getuid ();
202 if ((ruid
== (uid_t
) -1 && errno
) || dest_sb
.st_uid
!= ruid
)
205 else if (dest_sb
.st_uid
!= owner_id
)
208 if (group_id
== (uid_t
) -1)
211 gid_t rgid
= getgid ();
212 if ((rgid
== (uid_t
) -1 && errno
) || dest_sb
.st_gid
!= rgid
)
215 else if (dest_sb
.st_gid
!= group_id
)
218 /* compare SELinux context if preserving */
219 if (selinux_enabled
&& x
->preserve_security_context
)
221 security_context_t file_scontext
= NULL
;
222 security_context_t to_scontext
= NULL
;
225 if (getfilecon (src_name
, &file_scontext
) == -1)
228 if (getfilecon (dest_name
, &to_scontext
) == -1)
230 freecon (file_scontext
);
234 scontext_match
= STREQ (file_scontext
, to_scontext
);
236 freecon (file_scontext
);
237 freecon (to_scontext
);
242 /* compare files content */
243 src_fd
= open (src_name
, O_RDONLY
| O_BINARY
);
247 dest_fd
= open (dest_name
, O_RDONLY
| O_BINARY
);
254 content_match
= have_same_content (src_fd
, dest_fd
);
258 return !content_match
;
262 cp_option_init (struct cp_options
*x
)
264 cp_options_default (x
);
265 x
->copy_as_regular
= true;
266 x
->reflink_mode
= REFLINK_NEVER
;
267 x
->dereference
= DEREF_ALWAYS
;
268 x
->unlink_dest_before_opening
= true;
269 x
->unlink_dest_after_failed_open
= false;
270 x
->hard_link
= false;
271 x
->interactive
= I_UNSPECIFIED
;
272 x
->move_mode
= false;
273 x
->one_file_system
= false;
274 x
->preserve_ownership
= false;
275 x
->preserve_links
= false;
276 x
->preserve_mode
= false;
277 x
->preserve_timestamps
= false;
278 x
->explicit_no_preserve_mode
= false;
279 x
->reduce_diagnostics
=false;
280 x
->data_copy_required
= true;
281 x
->require_preserve
= false;
282 x
->require_preserve_context
= false;
283 x
->require_preserve_xattr
= false;
284 x
->recursive
= false;
285 x
->sparse_mode
= SPARSE_AUTO
;
286 x
->symbolic_link
= false;
287 x
->backup_type
= no_backups
;
289 /* Create destination files initially writable so we can run strip on them.
290 Although GNU strip works fine on read-only files, some others
293 x
->mode
= S_IRUSR
| S_IWUSR
;
294 x
->stdin_tty
= false;
296 x
->open_dangling_dest_symlink
= false;
298 x
->preserve_security_context
= false;
299 x
->preserve_xattr
= false;
305 #ifdef ENABLE_MATCHPATHCON
306 /* Modify file context to match the specified policy.
307 If an error occurs the file will remain with the default directory
310 setdefaultfilecon (char const *file
)
313 security_context_t scontext
= NULL
;
314 static bool first_call
= true;
316 if (selinux_enabled
!= 1)
318 /* Indicate no context found. */
321 if (lstat (file
, &st
) != 0)
324 if (first_call
&& IS_ABSOLUTE_FILE_NAME (file
))
326 /* Calling matchpathcon_init_prefix (NULL, "/first_component/")
327 is an optimization to minimize the expense of the following
328 matchpathcon call. Do it only once, just before the first
329 matchpathcon call. We *could* call matchpathcon_fini after
330 the final matchpathcon call, but that's not necessary, since
331 by then we're about to exit, and besides, the buffers it
332 would free are still reachable. */
334 char const *p
= file
+ 1;
338 /* Record final leading slash, for when FILE starts with two or more. */
348 while (*p
&& !ISSLASH (*p
));
350 prefix
= malloc (p
- p0
+ 2);
353 stpcpy (stpncpy (prefix
, p0
, p
- p0
), "/");
354 matchpathcon_init_prefix (NULL
, prefix
);
361 /* If there's an error determining the context, or it has none,
362 return to allow default context */
363 if ((matchpathcon (file
, st
.st_mode
, &scontext
) != 0)
364 || STREQ (scontext
, "<<none>>"))
366 if (scontext
!= NULL
)
371 if (lsetfilecon (file
, scontext
) < 0 && errno
!= ENOTSUP
)
373 _("warning: %s: failed to change context to %s"),
374 quotearg_colon (file
), scontext
);
381 setdefaultfilecon (char const *file
)
387 /* FILE is the last operand of this command. Return true if FILE is a
388 directory. But report an error there is a problem accessing FILE,
389 or if FILE does not exist but would have to refer to an existing
390 directory if it referred to anything at all. */
393 target_directory_operand (char const *file
)
395 char const *b
= last_component (file
);
396 size_t blen
= strlen (b
);
397 bool looks_like_a_dir
= (blen
== 0 || ISSLASH (b
[blen
- 1]));
399 int err
= (stat (file
, &st
) == 0 ? 0 : errno
);
400 bool is_a_dir
= !err
&& S_ISDIR (st
.st_mode
);
401 if (err
&& err
!= ENOENT
)
402 error (EXIT_FAILURE
, err
, _("accessing %s"), quote (file
));
403 if (is_a_dir
< looks_like_a_dir
)
404 error (EXIT_FAILURE
, err
, _("target %s is not a directory"), quote (file
));
408 /* Report that directory DIR was made, if OPTIONS requests this. */
410 announce_mkdir (char const *dir
, void *options
)
412 struct cp_options
const *x
= options
;
414 prog_fprintf (stdout
, _("creating directory %s"), quote (dir
));
417 /* Make ancestor directory DIR, whose last file name component is
418 COMPONENT, with options OPTIONS. Assume the working directory is
419 COMPONENT's parent. */
421 make_ancestor (char const *dir
, char const *component
, void *options
)
423 int r
= mkdir (component
, DEFAULT_MODE
);
425 announce_mkdir (dir
, options
);
429 /* Process a command-line file name, for the -d option. */
431 process_dir (char *dir
, struct savewd
*wd
, void *options
)
433 return (make_dir_parents (dir
, wd
,
434 make_ancestor
, options
,
435 dir_mode
, announce_mkdir
,
436 dir_mode_bits
, owner_id
, group_id
, false)
441 /* Copy file FROM onto file TO, creating TO if necessary.
442 Return true if successful. */
445 copy_file (const char *from
, const char *to
, const struct cp_options
*x
)
449 if (copy_only_if_needed
&& !need_copy (from
, to
, x
))
452 /* Allow installing from non-regular files like /dev/null.
453 Charles Karney reported that some Sun version of install allows that
454 and that sendmail's installation process relies on the behavior.
455 However, since !x->recursive, the call to "copy" will fail if FROM
458 return copy (from
, to
, false, x
, ©_into_self
, NULL
);
461 /* Set the attributes of file or directory NAME.
462 Return true if successful. */
465 change_attributes (char const *name
)
468 /* chown must precede chmod because on some systems,
469 chown clears the set[ug]id bits for non-superusers,
470 resulting in incorrect permissions.
471 On System V, users can give away files with chown and then not
472 be able to chmod them. So don't give files away.
474 We don't normally ignore errors from chown because the idea of
475 the install command is that the file is supposed to end up with
476 precisely the attributes that the user specified (or defaulted).
477 If the file doesn't end up with the group they asked for, they'll
480 if (! (owner_id
== (uid_t
) -1 && group_id
== (gid_t
) -1)
481 && lchown (name
, owner_id
, group_id
) != 0)
482 error (0, errno
, _("cannot change ownership of %s"), quote (name
));
483 else if (chmod (name
, mode
) != 0)
484 error (0, errno
, _("cannot change permissions of %s"), quote (name
));
488 if (use_default_selinux_context
)
489 setdefaultfilecon (name
);
494 /* Set the timestamps of file DEST to match those of SRC_SB.
495 Return true if successful. */
498 change_timestamps (struct stat
const *src_sb
, char const *dest
)
500 struct timespec timespec
[2];
501 timespec
[0] = get_stat_atime (src_sb
);
502 timespec
[1] = get_stat_mtime (src_sb
);
504 if (utimens (dest
, timespec
))
506 error (0, errno
, _("cannot set time stamps for %s"), quote (dest
));
512 /* Strip the symbol table from the file NAME.
513 We could dig the magic number out of the file first to
514 determine whether to strip it, but the header files and
515 magic numbers vary so much from system to system that making
516 it portable would be very difficult. Not worth the effort. */
519 strip (char const *name
)
527 error (EXIT_FAILURE
, errno
, _("fork system call failed"));
530 execlp (strip_program
, strip_program
, name
, NULL
);
531 error (EXIT_FAILURE
, errno
, _("cannot run %s"), strip_program
);
533 default: /* Parent. */
534 if (waitpid (pid
, &status
, 0) < 0)
535 error (EXIT_FAILURE
, errno
, _("waiting for strip"));
536 else if (! WIFEXITED (status
) || WEXITSTATUS (status
))
537 error (EXIT_FAILURE
, 0, _("strip process terminated abnormally"));
542 /* Initialize the user and group ownership of the files to install. */
552 pw
= getpwnam (owner_name
);
555 unsigned long int tmp
;
556 if (xstrtoul (owner_name
, NULL
, 0, &tmp
, NULL
) != LONGINT_OK
558 error (EXIT_FAILURE
, 0, _("invalid user %s"), quote (owner_name
));
562 owner_id
= pw
->pw_uid
;
566 owner_id
= (uid_t
) -1;
570 gr
= getgrnam (group_name
);
573 unsigned long int tmp
;
574 if (xstrtoul (group_name
, NULL
, 0, &tmp
, NULL
) != LONGINT_OK
576 error (EXIT_FAILURE
, 0, _("invalid group %s"), quote (group_name
));
580 group_id
= gr
->gr_gid
;
584 group_id
= (gid_t
) -1;
590 if (status
!= EXIT_SUCCESS
)
595 Usage: %s [OPTION]... [-T] SOURCE DEST\n\
596 or: %s [OPTION]... SOURCE... DIRECTORY\n\
597 or: %s [OPTION]... -t DIRECTORY SOURCE...\n\
598 or: %s [OPTION]... -d DIRECTORY...\n\
600 program_name
, program_name
, program_name
, program_name
);
603 This install program copies files (often just compiled) into destination\n\
604 locations you choose. If you want to download and install a ready-to-use\n\
605 package on a GNU/Linux system, you should instead be using a package manager\n\
606 like yum(1) or apt-get(1).\n\
608 In the first three forms, copy SOURCE to DEST or multiple SOURCE(s) to\n\
609 the existing DIRECTORY, while setting permission modes and owner/group.\n\
610 In the 4th form, create all components of the given DIRECTORY(ies).\n\
614 Mandatory arguments to long options are mandatory for short options too.\n\
617 --backup[=CONTROL] make a backup of each existing destination file\n\
618 -b like --backup but does not accept an argument\n\
620 -C, --compare compare each pair of source and destination files, and\n\
621 in some cases, do not modify the destination at all\n\
622 -d, --directory treat all arguments as directory names; create all\n\
623 components of the specified directories\n\
626 -D create all leading components of DEST except the last,\n\
627 then copy SOURCE to DEST\n\
628 -g, --group=GROUP set group ownership, instead of process' current group\n\
629 -m, --mode=MODE set permission mode (as in chmod), instead of rwxr-xr-x\n\
630 -o, --owner=OWNER set ownership (super-user only)\n\
633 -p, --preserve-timestamps apply access/modification times of SOURCE files\n\
634 to corresponding destination files\n\
635 -s, --strip strip symbol tables\n\
636 --strip-program=PROGRAM program used to strip binaries\n\
637 -S, --suffix=SUFFIX override the usual backup suffix\n\
638 -t, --target-directory=DIRECTORY copy all SOURCE arguments into DIRECTORY\n\
639 -T, --no-target-directory treat DEST as a normal file\n\
640 -v, --verbose print the name of each directory as it is created\n\
643 --preserve-context preserve SELinux security context\n\
644 -Z, --context=CONTEXT set SELinux security context of files and directories\
648 fputs (HELP_OPTION_DESCRIPTION
, stdout
);
649 fputs (VERSION_OPTION_DESCRIPTION
, stdout
);
652 The backup suffix is '~', unless set with --suffix or SIMPLE_BACKUP_SUFFIX.\n\
653 The version control method may be selected via the --backup option or through\n\
654 the VERSION_CONTROL environment variable. Here are the values:\n\
658 none, off never make backups (even if --backup is given)\n\
659 numbered, t make numbered backups\n\
660 existing, nil numbered if numbered backups exist, simple otherwise\n\
661 simple, never always make simple backups\n\
663 emit_ancillary_info ();
668 /* Copy file FROM onto file TO and give TO the appropriate
670 Return true if successful. */
673 install_file_in_file (const char *from
, const char *to
,
674 const struct cp_options
*x
)
677 if (x
->preserve_timestamps
&& stat (from
, &from_sb
) != 0)
679 error (0, errno
, _("cannot stat %s"), quote (from
));
682 if (! copy_file (from
, to
, x
))
686 if (x
->preserve_timestamps
&& (strip_files
|| ! S_ISREG (from_sb
.st_mode
))
687 && ! change_timestamps (&from_sb
, to
))
689 return change_attributes (to
);
692 /* Copy file FROM onto file TO, creating any missing parent directories of TO.
693 Return true if successful. */
696 install_file_in_file_parents (char const *from
, char *to
,
697 struct cp_options
*x
)
699 bool save_working_directory
=
700 ! (IS_ABSOLUTE_FILE_NAME (from
) && IS_ABSOLUTE_FILE_NAME (to
));
701 int status
= EXIT_SUCCESS
;
705 if (! save_working_directory
)
708 if (mkancesdirs (to
, &wd
, make_ancestor
, x
) == -1)
710 error (0, errno
, _("cannot create directory %s"), to
);
711 status
= EXIT_FAILURE
;
714 if (save_working_directory
)
716 int restore_result
= savewd_restore (&wd
, status
);
717 int restore_errno
= errno
;
719 if (EXIT_SUCCESS
< restore_result
)
721 if (restore_result
< 0 && status
== EXIT_SUCCESS
)
723 error (0, restore_errno
, _("cannot create directory %s"), to
);
728 return (status
== EXIT_SUCCESS
&& install_file_in_file (from
, to
, x
));
731 /* Copy file FROM into directory TO_DIR, keeping its same name,
732 and give the copy the appropriate attributes.
733 Return true if successful. */
736 install_file_in_dir (const char *from
, const char *to_dir
,
737 const struct cp_options
*x
)
739 const char *from_base
= last_component (from
);
740 char *to
= file_name_concat (to_dir
, from_base
, NULL
);
741 bool ret
= install_file_in_file (from
, to
, x
);
747 main (int argc
, char **argv
)
750 int exit_status
= EXIT_SUCCESS
;
751 const char *specified_mode
= NULL
;
752 bool make_backups
= false;
753 char *backup_suffix_string
;
754 char *version_control_string
= NULL
;
755 bool mkdir_and_install
= false;
757 char const *target_directory
= NULL
;
758 bool no_target_directory
= false;
761 bool strip_program_specified
= false;
762 security_context_t scontext
= NULL
;
763 /* set iff kernel has extra selinux system calls */
764 selinux_enabled
= (0 < is_selinux_enabled ());
766 initialize_main (&argc
, &argv
);
767 set_program_name (argv
[0]);
768 setlocale (LC_ALL
, "");
769 bindtextdomain (PACKAGE
, LOCALEDIR
);
770 textdomain (PACKAGE
);
772 atexit (close_stdin
);
782 /* FIXME: consider not calling getenv for SIMPLE_BACKUP_SUFFIX unless
783 we'll actually use backup_suffix_string. */
784 backup_suffix_string
= getenv ("SIMPLE_BACKUP_SUFFIX");
786 while ((optc
= getopt_long (argc
, argv
, "bcCsDdg:m:o:pt:TvS:Z:", long_options
,
794 version_control_string
= optarg
;
799 copy_only_if_needed
= true;
804 /* System V fork+wait does not work if SIGCHLD is ignored. */
805 signal (SIGCHLD
, SIG_DFL
);
808 case STRIP_PROGRAM_OPTION
:
809 strip_program
= xstrdup (optarg
);
810 strip_program_specified
= true;
816 mkdir_and_install
= true;
825 specified_mode
= optarg
;
831 x
.preserve_timestamps
= true;
835 backup_suffix_string
= optarg
;
838 if (target_directory
)
839 error (EXIT_FAILURE
, 0,
840 _("multiple target directories specified"));
844 if (stat (optarg
, &st
) != 0)
845 error (EXIT_FAILURE
, errno
, _("accessing %s"), quote (optarg
));
846 if (! S_ISDIR (st
.st_mode
))
847 error (EXIT_FAILURE
, 0, _("target %s is not a directory"),
850 target_directory
= optarg
;
853 no_target_directory
= true;
856 case PRESERVE_CONTEXT_OPTION
:
857 if ( ! selinux_enabled
)
859 error (0, 0, _("WARNING: ignoring --preserve-context; "
860 "this kernel is not SELinux-enabled"));
863 x
.preserve_security_context
= true;
864 use_default_selinux_context
= false;
867 if ( ! selinux_enabled
)
869 error (0, 0, _("WARNING: ignoring --context (-Z); "
870 "this kernel is not SELinux-enabled"));
874 use_default_selinux_context
= false;
876 case_GETOPT_HELP_CHAR
;
877 case_GETOPT_VERSION_CHAR (PROGRAM_NAME
, AUTHORS
);
879 usage (EXIT_FAILURE
);
883 /* Check for invalid combinations of arguments. */
884 if (dir_arg
&& strip_files
)
885 error (EXIT_FAILURE
, 0,
886 _("the strip option may not be used when installing a directory"));
887 if (dir_arg
&& target_directory
)
888 error (EXIT_FAILURE
, 0,
889 _("target directory not allowed when installing a directory"));
891 if (x
.preserve_security_context
&& scontext
!= NULL
)
892 error (EXIT_FAILURE
, 0,
893 _("cannot force target context to %s and preserve it"),
896 if (backup_suffix_string
)
897 simple_backup_suffix
= xstrdup (backup_suffix_string
);
899 x
.backup_type
= (make_backups
900 ? xget_version (_("backup type"),
901 version_control_string
)
904 if (scontext
&& setfscreatecon (scontext
) < 0)
905 error (EXIT_FAILURE
, errno
,
906 _("failed to set default file creation context to %s"),
909 n_files
= argc
- optind
;
910 file
= argv
+ optind
;
912 if (n_files
<= ! (dir_arg
|| target_directory
))
915 error (0, 0, _("missing file operand"));
917 error (0, 0, _("missing destination file operand after %s"),
919 usage (EXIT_FAILURE
);
922 if (no_target_directory
)
924 if (target_directory
)
925 error (EXIT_FAILURE
, 0,
926 _("cannot combine --target-directory (-t) "
927 "and --no-target-directory (-T)"));
930 error (0, 0, _("extra operand %s"), quote (file
[2]));
931 usage (EXIT_FAILURE
);
934 else if (! (dir_arg
|| target_directory
))
936 if (2 <= n_files
&& target_directory_operand (file
[n_files
- 1]))
937 target_directory
= file
[--n_files
];
938 else if (2 < n_files
)
939 error (EXIT_FAILURE
, 0, _("target %s is not a directory"),
940 quote (file
[n_files
- 1]));
945 struct mode_change
*change
= mode_compile (specified_mode
);
947 error (EXIT_FAILURE
, 0, _("invalid mode %s"), quote (specified_mode
));
948 mode
= mode_adjust (0, false, 0, change
, NULL
);
949 dir_mode
= mode_adjust (0, true, 0, change
, &dir_mode_bits
);
953 if (strip_program_specified
&& !strip_files
)
954 error (0, 0, _("WARNING: ignoring --strip-program option as -s option was "
957 if (copy_only_if_needed
&& x
.preserve_timestamps
)
959 error (0, 0, _("options --compare (-C) and --preserve-timestamps are "
960 "mutually exclusive"));
961 usage (EXIT_FAILURE
);
964 if (copy_only_if_needed
&& strip_files
)
966 error (0, 0, _("options --compare (-C) and --strip are mutually "
968 usage (EXIT_FAILURE
);
971 if (copy_only_if_needed
&& extra_mode (mode
))
972 error (0, 0, _("the --compare (-C) option is ignored when you"
973 " specify a mode with non-permission bits"));
978 exit_status
= savewd_process_files (n_files
, file
, process_dir
, &x
);
981 /* FIXME: it's a little gross that this initialization is
982 required by copy.c::copy. */
985 if (!target_directory
)
987 if (! (mkdir_and_install
988 ? install_file_in_file_parents (file
[0], file
[1], &x
)
989 : install_file_in_file (file
[0], file
[1], &x
)))
990 exit_status
= EXIT_FAILURE
;
996 for (i
= 0; i
< n_files
; i
++)
997 if (! install_file_in_dir (file
[i
], target_directory
, &x
))
998 exit_status
= EXIT_FAILURE
;