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:
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/
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).
17 # NOTE: This script expects /proc/mounts to exist, but could be
18 # easily adapted to read /etc/mtab or similar.
23 my $file = '/proc/mounts';
24 my $dir = shift || '/';
25 $dir = abs_path($dir);
28 $trailing = '' if $trailing eq '.' || !-d "$dir$trailing";
29 $trailing .= '/' if $trailing ne '';
31 open(IN, $file) or die "Unable to open $file: $!\n";
34 next unless s#^\Q$dir$trailing\E##o && $_ ne '';
35 print "- /$trailing$_\n";