Gecko [ unitednationsplay.com ]

Name	Size	Permission	Date
Makefile	80 B	-rw-r--r--	2005-01-11 18:37
atomic-rsync	3.9 KB	-rw-r--r--	2008-10-11 16:30
cvs2includes	1.18 KB	-rw-r--r--	2007-03-21 13:51
deny-rsync	997 B	-rw-r--r--	2008-06-28 17:12
file-attr-restore	4.82 KB	-rw-r--r--	2006-12-20 00:50
files-to-excludes	534 B	-rw-r--r--	2006-01-30 21:52
git-set-file-times	910 B	-rw-r--r--	2009-01-13 22:52
instant-rsyncd	2.72 KB	-rw-r--r--	2009-01-13 22:52
logfilter	1.07 KB	-rw-r--r--	2005-10-04 04:12
lsh	2.21 KB	-rw-r--r--	2013-06-10 02:40
lsh.sh	956 B	-rw-r--r--	2013-06-10 02:40
mapfrom	629 B	-rw-r--r--	2008-11-16 02:32
mapto	621 B	-rw-r--r--	2008-11-16 02:32
mnt-excl	1.8 KB	-rw-r--r--	2011-07-04 23:32
munge-symlinks	1.43 KB	-rw-r--r--	2007-11-27 15:34
rrsync	7.07 KB	-rw-r--r--	2015-09-13 23:23
rsync-no-vanished	267 B	-rw-r--r--	2014-01-01 18:35
rsync-slash-strip	643 B	-rw-r--r--	2012-01-28 18:42
rsyncstats	8.56 KB	-rw-r--r--	2006-03-13 16:45
savetransfer.c	4.45 KB	-rw-r--r--	2006-12-18 07:24

Rename

#!/usr/bin/perl
# This script takes a command-line arg of a source directory
# that will be passed to rsync, and generates a set of excludes
# that will exclude all mount points from the list.  This is
# useful if you have "bind" mounts since the --one-file-system
# option won't notice the transition to a different spot on
# the same disk.  For example:
#
# mnt-excl /dir | rsync --exclude-from=- ... /dir /dest/
# mnt-excl /dir/ | rsync --exclude-from=- ... /dir/ /dest/
# ssh host mnt-excl /dir | rsync --exclude-from=- ... host:/dir /dest/
#
# Imagine that /dir/foo is a mount point: the first invocation of
# mnt-excl would have output /dir/foo, while the second would have
# output /foo (which are the properly anchored excludes).
#
# NOTE:  This script expects /proc/mounts to exist, but could be
# easily adapted to read /etc/mtab or similar.
#
# ADDENDUM:  The addition of the --filter option (which has support for
# absolute-anchored excludes) can make this script unneeded in some
# scenarios.  If you don't need delete protection on the receiving side
# (or if the destination path is identical to the source path), then you
# can exclude some absolute paths from the transfer based on the mount
# dirs.  For instance:
#
# awk '{print $2}' /proc/mounts | grep -v '^/$' | \
#   rsync -avf 'merge,/- -' /dir host:/dest/

use strict;
use warnings;
use Cwd 'abs_path';

my $file = '/proc/mounts';
my $dir = shift || '/';
my $trailing_slash = $dir =~ m{./$} ? '/' : '';
$dir = abs_path($dir) . $trailing_slash;
$dir =~ s{([^/]*)$}{};
my $trailing = $1;
$trailing = '' if $trailing eq '.' || !-d "$dir$trailing";
$trailing .= '/' if $trailing ne '';

open(IN, $file) or die "Unable to open $file: $!\n";
while (<IN>) {
    $_ = (split)[1];
    next unless s{^\Q$dir$trailing\E}{}o && $_ ne '';
    print "- /$trailing$_\n";
}
close IN;