/* mv -- move or rename files Copyright (C) 1986, 1989, 1990, 1991 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Options: -f, --force Assume a 'y' answer to all questions it would normally ask, and not ask the questions. -i, --interactive Require confirmation from the user before performing any move that would destroy an existing file. -u, --update Do not move a nondirectory that has an existing destination with the same or newer modification time. -v, --verbose List the name of each file as it is moved, and the name it is moved to. -b, --backup -S, --suffix -V, --version-control Backup file creation. Written by Mike Parker and David MacKenzie */ #ifdef _AIX #pragma alloca #endif #include #include #include #include #include "system.h" #include "backupfile.h" #include "version.h" #include "safe-lstat.h" #include "error.h" #ifndef _POSIX_VERSION uid_t geteuid (); #endif char *basename (); enum backup_type get_version (); int isdir (); int yesno (); int safe_read (); int full_write (); void strip_trailing_slashes (); int eaccess_stat (); char *stpcpy (); static int copy_reg (); static int do_move (); static int movefile (); static void usage (); /* The name this program was run with. */ char *program_name; /* If nonzero, query the user before overwriting files. */ static int interactive; /* If nonzero, do not query the user before overwriting unwritable files. */ static int override_mode; /* If nonzero, do not move a nondirectory that has an existing destination with the same or newer modification time. */ static int update = 0; /* If nonzero, list each file as it is moved. */ static int verbose; /* If nonzero, stdin is a tty. */ static int stdin_tty; /* This process's effective user ID. */ static uid_t myeuid; /* If non-zero, display usage information and exit. */ static int show_help; /* If non-zero, print the version on standard output and exit. */ static int show_version; static struct option const long_options[] = { {"backup", no_argument, NULL, 'b'}, {"force", no_argument, NULL, 'f'}, {"interactive", no_argument, NULL, 'i'}, {"suffix", required_argument, NULL, 'S'}, {"update", no_argument, &update, 1}, {"verbose", no_argument, &verbose, 1}, {"version-control", required_argument, NULL, 'V'}, {"help", no_argument, &show_help, 1}, {"version", no_argument, &show_version, 1}, {NULL, 0, NULL, 0} }; void main (argc, argv) int argc; char **argv; { int c; int errors; int make_backups = 0; char *version; version = getenv ("SIMPLE_BACKUP_SUFFIX"); if (version) simple_backup_suffix = version; version = getenv ("VERSION_CONTROL"); program_name = argv[0]; myeuid = geteuid (); interactive = override_mode = verbose = update = 0; errors = 0; while ((c = getopt_long (argc, argv, "bfiuvS:V:", long_options, (int *) 0)) != EOF) { switch (c) { case 0: break; case 'b': make_backups = 1; break; case 'f': interactive = 0; override_mode = 1; break; case 'i': interactive = 1; override_mode = 0; break; case 'u': update = 1; break; case 'v': verbose = 1; break; case 'S': simple_backup_suffix = optarg; break; case 'V': version = optarg; break; default: usage (1); } } if (show_version) { printf ("%s\n", version_string); exit (0); } if (show_help) usage (0); if (argc < optind + 2) { error (0, 0, "missing file argument%s", argc == optind ? "s" : ""); usage (1); } if (make_backups) backup_type = get_version (version); stdin_tty = isatty (STDIN_FILENO); if (argc > optind + 2 && !isdir (argv[argc - 1])) error (1, 0, "when moving multiple files, last argument must be a directory"); /* Move each arg but the last onto the last. */ for (; optind < argc - 1; ++optind) errors |= movefile (argv[optind], argv[argc - 1]); exit (errors); } /* If PATH is an existing directory, return nonzero, else 0. */ static int is_real_dir (path) char *path; { struct stat stats; return safe_lstat (path, &stats) == 0 && S_ISDIR (stats.st_mode); } /* Move file SOURCE onto DEST. Handles the case when DEST is a directory. Return 0 if successful, 1 if an error occurred. */ static int movefile (source, dest) char *source; char *dest; { strip_trailing_slashes (source); if ((dest[strlen (dest) - 1] == '/' && !is_real_dir (source)) || isdir (dest)) { /* Target is a directory; build full target filename. */ char *base; char *new_dest; base = basename (source); new_dest = (char *) alloca (strlen (dest) + 1 + strlen (base) + 1); stpcpy (stpcpy (stpcpy (new_dest, dest), "/"), base); return do_move (source, new_dest); } else return do_move (source, dest); } static struct stat dest_stats, source_stats; /* Move SOURCE onto DEST. Handles cross-filesystem moves. If DEST is a directory, SOURCE must be also. Return 0 if successful, 1 if an error occurred. */ static int do_move (source, dest) char *source; char *dest; { char *dest_backup = NULL; if (safe_lstat (source, &source_stats) != 0) { error (0, errno, "%s", source); return 1; } if (safe_lstat (dest, &dest_stats) == 0) { if (source_stats.st_dev == dest_stats.st_dev && source_stats.st_ino == dest_stats.st_ino) { error (0, 0, "`%s' and `%s' are the same file", source, dest); return 1; } if (S_ISDIR (dest_stats.st_mode)) { error (0, 0, "%s: cannot overwrite directory", dest); return 1; } if (!S_ISDIR (source_stats.st_mode) && update && source_stats.st_mtime <= dest_stats.st_mtime) return 0; if (!override_mode && (interactive || stdin_tty) && eaccess_stat (&dest_stats, W_OK, dest)) { fprintf (stderr, "%s: replace `%s', overriding mode %04o? ", program_name, dest, (unsigned int) (dest_stats.st_mode & 07777)); if (!yesno ()) return 0; } else if (interactive) { fprintf (stderr, "%s: replace `%s'? ", program_name, dest); if (!yesno ()) return 0; } if (backup_type != none) { char *tmp_backup = find_backup_file_name (dest); if (tmp_backup == NULL) error (1, 0, "virtual memory exhausted"); dest_backup = (char *) alloca (strlen (tmp_backup) + 1); strcpy (dest_backup, tmp_backup); free (tmp_backup); if (rename (dest, dest_backup)) { if (errno != ENOENT) { error (0, errno, "cannot backup `%s'", dest); return 1; } else dest_backup = NULL; } } } else if (errno != ENOENT) { error (0, errno, "%s", dest); return 1; } if (verbose) printf ("%s -> %s\n", source, dest); if (rename (source, dest) == 0) { return 0; } if (errno != EXDEV) { error (0, errno, "cannot move `%s' to `%s'", source, dest); goto un_backup; } /* rename failed on cross-filesystem link. Copy the file instead. */ if (copy_reg (source, dest)) goto un_backup; if (unlink (source)) { error (0, errno, "cannot remove `%s'", source); return 1; } return 0; un_backup: if (dest_backup) { if (rename (dest_backup, dest)) error (0, errno, "cannot un-backup `%s'", dest); } return 1; } /* Copy regular file SOURCE onto file DEST. Return 1 if an error occurred, 0 if successful. */ static int copy_reg (source, dest) char *source, *dest; { int ifd; int ofd; char buf[1024 * 8]; int len; /* Number of bytes read into `buf'. */ if (!S_ISREG (source_stats.st_mode)) { error (0, 0, "cannot move `%s' across filesystems: Not a regular file", source); return 1; } if (unlink (dest) && errno != ENOENT) { error (0, errno, "cannot remove `%s'", dest); return 1; } ifd = open (source, O_RDONLY, 0); if (ifd < 0) { error (0, errno, "%s", source); return 1; } ofd = open (dest, O_WRONLY | O_CREAT | O_TRUNC, 0600); if (ofd < 0) { error (0, errno, "%s", dest); close (ifd); return 1; } while ((len = safe_read (ifd, buf, sizeof (buf))) > 0) { if (full_write (ofd, buf, len) < 0) { error (0, errno, "%s", dest); close (ifd); close (ofd); unlink (dest); return 1; } } if (len < 0) { error (0, errno, "%s", source); close (ifd); close (ofd); unlink (dest); return 1; } if (close (ifd) < 0) { error (0, errno, "%s", source); close (ofd); return 1; } if (close (ofd) < 0) { error (0, errno, "%s", dest); return 1; } /* chown turns off set[ug]id bits for non-root, so do the chmod last. */ /* Try to copy the old file's modtime and access time. */ { struct utimbuf tv; tv.actime = source_stats.st_atime; tv.modtime = source_stats.st_mtime; if (utime (dest, &tv)) { error (0, errno, "%s", dest); return 1; } } /* Try to preserve ownership. For non-root it might fail, but that's ok. But root probably wants to know, e.g. if NFS disallows it. */ if (chown (dest, source_stats.st_uid, source_stats.st_gid) && (errno != EPERM || myeuid == 0)) { error (0, errno, "%s", dest); return 1; } if (chmod (dest, source_stats.st_mode & 07777)) { error (0, errno, "%s", dest); return 1; } return 0; } static void usage (status) int status; { if (status != 0) fprintf (stderr, "Try `%s --help' for more information.\n", program_name); else { printf ("\ Usage: %s [OPTION]... SOURCE DEST\n\ or: %s [OPTION]... SOURCE... DIRECTORY\n\ ", program_name, program_name); printf ("\ \n\ -b, --backup make backup before removal\n\ -f, --force remove existing destinations, never prompt\n\ -i, --interactive prompt before overwrite\n\ -u, --update move only older or brand new files\n\ -v, --verbose explain what is being done\n\ -S, --suffix=SUFFIX override the usual backup suffix\n\ -V, --version-control=WORD override the usual version control\n\ --help display this help and exit\n\ --version output version information and exit\n\ \n\ The backup suffix is ~, unless set with SIMPLE_BACKUP_SUFFIX. The\n\ version control may be set with VERSION_CONTROL, values are:\n\ \n\ t, numbered make numbered backups\n\ nil, existing numbered if numbered backups exist, simple otherwise\n\ never, simple always make simple backups \n"); } exit (status); }