support/mnt-excl

   1 #!/usr/bin/perl -w
   2 # This script takes a command-line arg of a source directory
   3 # that will be passed to rsync, and generates a set of excludes
   4 # that will exclude all mount points from the list.  This is
   5 # useful if you have "bind" mounts since the --one-file-system
   6 # option won't notice the transition to a different spot on
   7 # the same disk.  For example:
   8 #
   9 # mnt-excl /dir | rsync --exclude-from=- ... /dir /dest/
  10 # mnt-excl /dir/ | rsync --exclude-from=- ... /dir/ /dest/
  11 # ssh host mnt-excl /dir | rsync --exclude-from=- ... host:/dir /dest/
  12 #
  13 # Imagine that /dir/foo is a mount point: the first invocation of
  14 # mnt-excl would have output /dir/foo, while the second would have
  15 # output /foo (which are the properly anchored excludes).
  16 #
  17 # NOTE:  This script expects /proc/mounts to exist, but could be
  18 # easily adapted to read /etc/mtab or similar.
  19
  20 use strict;
  21 use Cwd 'abs_path';
  22
  23 my $dir = shift || '/';
  24 $dir = abs_path($dir);
  25 $dir =~ s#([^/]*)$##;
  26 my $trailing = $1;
  27 $trailing = '' if $trailing eq '.' || !-d "$dir$trailing";
  28 $trailing .= '/' if $trailing ne '';
  29
  30 open(IN, '/proc/mounts') or die $!;
  31 while (<IN>) {
  32     $_ = (split)[1];
  33     next unless s#^\Q$dir$trailing\E##o && $_ ne '';
  34     print "- /$trailing$_\n";
  35 }
  36 close IN;