src/mv.c

   1 /* mv -- move or rename files
   2    Copyright (C) 86, 89, 90, 91, 95, 1996 Free Software Foundation, Inc.
   3
   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 2, or (at your option)
   7    any later version.
   8
   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.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software Foundation,
  16    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  17
  18 /* Options:
  19    -f, --force          Assume a 'y' answer to all questions it would
  20                         normally ask, and not ask the questions.
  21
  22    -i, --interactive    Require confirmation from the user before
  23                         performing any move that would destroy an
  24                         existing file.
  25
  26    -u, --update         Do not move a nondirectory that has an
  27                         existing destination with the same or newer
  28                         modification time.
  29
  30    -v, --verbose                List the name of each file as it is moved, and
  31                         the name it is moved to.
  32
  33    -b, --backup
  34    -S, --suffix
  35    -V, --version-control
  36                         Backup file creation.
  37
  38    Written by Mike Parker and David MacKenzie */
  39
  40 #ifdef _AIX
  41  #pragma alloca
  42 #endif
  43
  44 #include <config.h>
  45 #include <stdio.h>
  46 #include <getopt.h>
  47 #include <sys/types.h>
  48
  49 #include "system.h"
  50 #include "path-concat.h"
  51 #include "backupfile.h"
  52 #include "error.h"
  53
  54 #ifdef HAVE_LCHOWN
  55 # define chown(PATH, OWNER, GROUP) lchown(PATH, OWNER, GROUP)
  56 #endif
  57
  58 #ifndef _POSIX_VERSION
  59 uid_t geteuid ();
  60 #endif
  61
  62 char *basename ();
  63 enum backup_type get_version ();
  64 int isdir ();
  65 int yesno ();
  66 int safe_read ();
  67 int full_write ();
  68 void strip_trailing_slashes ();
  69 int euidaccess ();
  70
  71 /* The name this program was run with. */
  72 char *program_name;
  73
  74 /* If nonzero, query the user before overwriting files. */
  75 static int interactive;
  76
  77 /* If nonzero, do not query the user before overwriting unwritable
  78    files. */
  79 static int override_mode;
  80
  81 /* If nonzero, do not move a nondirectory that has an existing destination
  82    with the same or newer modification time. */
  83 static int update = 0;
  84
  85 /* If nonzero, list each file as it is moved. */
  86 static int verbose;
  87
  88 /* If nonzero, stdin is a tty. */
  89 static int stdin_tty;
  90
  91 /* This process's effective user ID.  */
  92 static uid_t myeuid;
  93
  94 /* FIXME */
  95 static struct stat dest_stats, source_stats;
  96
  97 /* If nonzero, display usage information and exit.  */
  98 static int show_help;
  99
 100 /* If nonzero, print the version on standard output and exit.  */
 101 static int show_version;
 102
 103 static struct option const long_options[] =
 104 {
 105   {"backup", no_argument, NULL, 'b'},
 106   {"force", no_argument, NULL, 'f'},
 107   {"interactive", no_argument, NULL, 'i'},
 108   {"suffix", required_argument, NULL, 'S'},
 109   {"update", no_argument, &update, 1},
 110   {"verbose", no_argument, &verbose, 1},
 111   {"version-control", required_argument, NULL, 'V'},
 112   {"help", no_argument, &show_help, 1},
 113   {"version", no_argument, &show_version, 1},
 114   {NULL, 0, NULL, 0}
 115 };
 116
 117 /* If PATH is an existing directory, return nonzero, else 0.  */
 118
 119 static int
 120 is_real_dir (const char *path)
 121 {
 122   struct stat stats;
 123
 124   return lstat (path, &stats) == 0 && S_ISDIR (stats.st_mode);
 125 }
 126
 127 /* Copy regular file SOURCE onto file DEST.
 128    Return 1 if an error occurred, 0 if successful. */
 129
 130 static int
 131 copy_reg (const char *source, const char *dest)
 132 {
 133   int ifd;
 134   int ofd;
 135   char buf[1024 * 8];
 136   int len;                      /* Number of bytes read into `buf'. */
 137
 138   if (!S_ISREG (source_stats.st_mode))
 139     {
 140       error (0, 0,
 141              _("cannot move `%s' across filesystems: Not a regular file"),
 142              source);
 143       return 1;
 144     }
 145
 146   if (unlink (dest) && errno != ENOENT)
 147     {
 148       error (0, errno, _("cannot remove `%s'"), dest);
 149       return 1;
 150     }
 151
 152   ifd = open (source, O_RDONLY, 0);
 153   if (ifd < 0)
 154     {
 155       error (0, errno, "%s", source);
 156       return 1;
 157     }
 158   ofd = open (dest, O_WRONLY | O_CREAT | O_TRUNC, 0600);
 159   if (ofd < 0)
 160     {
 161       error (0, errno, "%s", dest);
 162       close (ifd);
 163       return 1;
 164     }
 165
 166   while ((len = safe_read (ifd, buf, sizeof (buf))) > 0)
 167     {
 168       if (full_write (ofd, buf, len) < 0)
 169         {
 170           error (0, errno, "%s", dest);
 171           close (ifd);
 172           close (ofd);
 173           unlink (dest);
 174           return 1;
 175         }
 176     }
 177   if (len < 0)
 178     {
 179       error (0, errno, "%s", source);
 180       close (ifd);
 181       close (ofd);
 182       unlink (dest);
 183       return 1;
 184     }
 185
 186   if (close (ifd) < 0)
 187     {
 188       error (0, errno, "%s", source);
 189       close (ofd);
 190       return 1;
 191     }
 192   if (close (ofd) < 0)
 193     {
 194       error (0, errno, "%s", dest);
 195       return 1;
 196     }
 197
 198   /* chown turns off set[ug]id bits for non-root,
 199      so do the chmod last.  */
 200
 201   /* Try to copy the old file's modtime and access time.  */
 202   {
 203     struct utimbuf tv;
 204
 205     tv.actime = source_stats.st_atime;
 206     tv.modtime = source_stats.st_mtime;
 207     if (utime (dest, &tv))
 208       {
 209         error (0, errno, "%s", dest);
 210         return 1;
 211       }
 212   }
 213
 214   /* Try to preserve ownership.  For non-root it might fail, but that's ok.
 215      But root probably wants to know, e.g. if NFS disallows it.  */
 216   if (chown (dest, source_stats.st_uid, source_stats.st_gid)
 217       && (errno != EPERM || myeuid == 0))
 218     {
 219       error (0, errno, "%s", dest);
 220       return 1;
 221     }
 222
 223   if (chmod (dest, source_stats.st_mode & 07777))
 224     {
 225       error (0, errno, "%s", dest);
 226       return 1;
 227     }
 228
 229   return 0;
 230 }
 231
 232 /* Move SOURCE onto DEST.  Handles cross-filesystem moves.
 233    If DEST is a directory, SOURCE must be also.
 234    Return 0 if successful, 1 if an error occurred.  */
 235
 236 static int
 237 do_move (const char *source, const char *dest)
 238 {
 239   char *dest_backup = NULL;
 240
 241   if (lstat (source, &source_stats) != 0)
 242     {
 243       error (0, errno, "%s", source);
 244       return 1;
 245     }
 246
 247   if (lstat (dest, &dest_stats) == 0)
 248     {
 249       if (source_stats.st_dev == dest_stats.st_dev
 250           && source_stats.st_ino == dest_stats.st_ino)
 251         {
 252           error (0, 0, _("`%s' and `%s' are the same file"), source, dest);
 253           return 1;
 254         }
 255
 256       if (S_ISDIR (dest_stats.st_mode))
 257         {
 258           error (0, 0, _("%s: cannot overwrite directory"), dest);
 259           return 1;
 260         }
 261
 262       if (!S_ISDIR (source_stats.st_mode) && update
 263           && source_stats.st_mtime <= dest_stats.st_mtime)
 264         return 0;
 265
 266       if (!override_mode && (interactive || stdin_tty)
 267           && euidaccess (dest, W_OK))
 268         {
 269           fprintf (stderr, _("%s: replace `%s', overriding mode %04o? "),
 270                    program_name, dest,
 271                    (unsigned int) (dest_stats.st_mode & 07777));
 272           if (!yesno ())
 273             return 0;
 274         }
 275       else if (interactive)
 276         {
 277           fprintf (stderr, _("%s: replace `%s'? "), program_name, dest);
 278           if (!yesno ())
 279             return 0;
 280         }
 281
 282       if (backup_type != none)
 283         {
 284           char *tmp_backup = find_backup_file_name (dest);
 285           if (tmp_backup == NULL)
 286             error (1, 0, _("virtual memory exhausted"));
 287           dest_backup = (char *) alloca (strlen (tmp_backup) + 1);
 288           strcpy (dest_backup, tmp_backup);
 289           free (tmp_backup);
 290           if (rename (dest, dest_backup))
 291             {
 292               if (errno != ENOENT)
 293                 {
 294                   error (0, errno, _("cannot backup `%s'"), dest);
 295                   return 1;
 296                 }
 297               else
 298                 dest_backup = NULL;
 299             }
 300         }
 301     }
 302   else if (errno != ENOENT)
 303     {
 304       error (0, errno, "%s", dest);
 305       return 1;
 306     }
 307
 308   if (verbose)
 309     printf ("%s -> %s\n", source, dest);
 310
 311   if (rename (source, dest) == 0)
 312     {
 313       return 0;
 314     }
 315
 316   if (errno != EXDEV)
 317     {
 318       error (0, errno, _("cannot move `%s' to `%s'"), source, dest);
 319       goto un_backup;
 320     }
 321
 322   /* rename failed on cross-filesystem link.  Copy the file instead. */
 323
 324   if (copy_reg (source, dest))
 325     goto un_backup;
 326
 327   if (unlink (source))
 328     {
 329       error (0, errno, _("cannot remove `%s'"), source);
 330       return 1;
 331     }
 332
 333   return 0;
 334
 335  un_backup:
 336   if (dest_backup)
 337     {
 338       if (rename (dest_backup, dest))
 339         error (0, errno, _("cannot un-backup `%s'"), dest);
 340     }
 341   return 1;
 342 }
 343
 344 /* Move file SOURCE onto DEST.  Handles the case when DEST is a directory.
 345    Return 0 if successful, 1 if an error occurred.  */
 346
 347 static int
 348 movefile (const char *source, const char *dest)
 349 {
 350   strip_trailing_slashes (source);
 351
 352   if ((dest[strlen (dest) - 1] == '/' && !is_real_dir (source))
 353       || isdir (dest))
 354     {
 355       /* Target is a directory; build full target filename. */
 356       char *base;
 357       char *new_dest;
 358       int fail;
 359
 360       base = basename (source);
 361       new_dest = path_concat (dest, base, NULL);
 362       if (new_dest == NULL)
 363         error (1, 0, _("virtual memory exhausted"));
 364       fail = do_move (source, new_dest);
 365       free (new_dest);
 366       return fail;
 367     }
 368   else
 369     return do_move (source, dest);
 370 }
 371
 372 static void
 373 usage (int status)
 374 {
 375   if (status != 0)
 376     fprintf (stderr, _("Try `%s --help' for more information.\n"),
 377              program_name);
 378   else
 379     {
 380       printf (_("\
 381 Usage: %s [OPTION]... SOURCE DEST\n\
 382   or:  %s [OPTION]... SOURCE... DIRECTORY\n\
 383 "),
 384               program_name, program_name);
 385       printf (_("\
 386 Rename SOURCE to DEST, or move SOURCE(s) to DIRECTORY.\n\
 387 \n\
 388   -b, --backup                 make backup before removal\n\
 389   -f, --force                  remove existing destinations, never prompt\n\
 390   -i, --interactive            prompt before overwrite\n\
 391   -S, --suffix=SUFFIX          override the usual backup suffix\n\
 392   -u, --update                 move only older or brand new files\n\
 393   -v, --verbose                explain what is being done\n\
 394   -V, --version-control=WORD   override the usual version control\n\
 395       --help                   display this help and exit\n\
 396       --version                output version information and exit\n\
 397 \n\
 398 "));
 399       printf (_("\
 400 The backup suffix is ~, unless set with SIMPLE_BACKUP_SUFFIX.  The\n\
 401 version control may be set with VERSION_CONTROL, values are:\n\
 402 \n\
 403   t, numbered     make numbered backups\n\
 404   nil, existing   numbered if numbered backups exist, simple otherwise\n\
 405   never, simple   always make simple backups\n\
 406 "));
 407       puts (_("\nReport bugs to fileutils-bugs@gnu.ai.mit.edu"));
 408     }
 409   exit (status);
 410 }
 411
 412 int
 413 main (int argc, char **argv)
 414 {
 415   int c;
 416   int errors;
 417   int make_backups = 0;
 418   char *version;
 419
 420   program_name = argv[0];
 421   setlocale (LC_ALL, "");
 422   bindtextdomain (PACKAGE, LOCALEDIR);
 423   textdomain (PACKAGE);
 424
 425   version = getenv ("SIMPLE_BACKUP_SUFFIX");
 426   if (version)
 427     simple_backup_suffix = version;
 428   version = getenv ("VERSION_CONTROL");
 429
 430   myeuid = geteuid ();
 431   interactive = override_mode = verbose = update = 0;
 432   errors = 0;
 433
 434   while ((c = getopt_long (argc, argv, "bfiuvS:V:", long_options, NULL)) != -1)
 435     {
 436       switch (c)
 437         {
 438         case 0:
 439           break;
 440         case 'b':
 441           make_backups = 1;
 442           break;
 443         case 'f':
 444           interactive = 0;
 445           override_mode = 1;
 446           break;
 447         case 'i':
 448           interactive = 1;
 449           override_mode = 0;
 450           break;
 451         case 'u':
 452           update = 1;
 453           break;
 454         case 'v':
 455           verbose = 1;
 456           break;
 457         case 'S':
 458           simple_backup_suffix = optarg;
 459           break;
 460         case 'V':
 461           version = optarg;
 462           break;
 463         default:
 464           usage (1);
 465         }
 466     }
 467
 468   if (show_version)
 469     {
 470       printf ("mv (%s) %s\n", GNU_PACKAGE, VERSION);
 471       exit (0);
 472     }
 473
 474   if (show_help)
 475     usage (0);
 476
 477   if (argc < optind + 2)
 478     {
 479       error (0, 0, "%s", (argc == optind
 480                           ? _("missing file arguments")
 481                           : _("missing file argument")));
 482       usage (1);
 483     }
 484
 485   if (make_backups)
 486     backup_type = get_version (version);
 487
 488   stdin_tty = isatty (STDIN_FILENO);
 489
 490   if (argc > optind + 2 && !isdir (argv[argc - 1]))
 491     error (1, 0,
 492            _("when moving multiple files, last argument must be a directory"));
 493
 494   /* Move each arg but the last onto the last. */
 495   for (; optind < argc - 1; ++optind)
 496     errors |= movefile (argv[optind], argv[argc - 1]);
 497
 498   exit (errors);
 499 }