Return to rsyncdb-mountinfo CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync

Annotation of embedaddon/rsync/rsyncdb-mountinfo, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: 
        !             3: # This script outputs data for rsyncdb --mounts.  It must output a complete
        !             4: # list of the mounts for the current host in a strict format -- 2 fields
        !             5: # with a Tab between:  $MOUNT_UNIQ\t$PATH
        !             6: #
        !             7: # The list of mounts MUST NOT contain any entry that has the same devnum
        !             8: # (st_dev) as any other entry in the list (as checked via its PATH).
        !             9: #
        !            10: # MOUNT_UNIQ is a unique string that identifies the mount on this host.
        !            11: # This cannot be the devnum (st_dev) because that can vary depending on the
        !            12: # mount order or be reused for different mounts if they are not mounted at
        !            13: # the same time.  Ideally this would be its UUID value, if that is available
        !            14: # on this OS.  This script looks in /dev/disk/by-uuid for the current UUID
        !            15: # mappings).  If the UUID is not found, the fallback default is the string
        !            16: # "Mount of $devname", which should be adequate for situations that don't
        !            17: # use removable media (though you may need to take steps to weed-out removable
        !            18: # mounts).
        !            19: #
        !            20: # You can override the MOUNT_UNIQ value by putting a .rsyncdb_mount_uniq
        !            21: # file in the root directory of any mount, at which point it is up to you
        !            22: # to make sure that the value stays unique (note that all sequences of
        !            23: # whitespace are transformed into a single space, and leading/trailing
        !            24: # whitespace is removed).
        !            25: #
        !            26: # MOUNT_UNIQ may never contain a Tab but it would be legal for PATH to have
        !            27: # a Tab (just really weird).  Neither may have a CR or LF in it.
        !            28: #
        !            29: # The maximum size for MOUNT_UNIQ is 256 characters.
        !            30: #
        !            31: # If this script doesn't meet your needs, feel free to edit/replace it and
        !            32: # choose some other method of finding a unique value for each mount.  If you
        !            33: # come up with a good idiom that might be useful to others, please share it
        !            34: # with the rsync mailing list.
        !            35: 
        !            36: use strict;
        !            37: use warnings;
        !            38: use Cwd 'abs_path';
        !            39: 
        !            40: my @MOUNT_FILES = qw( /proc/mounts /etc/mtab );
        !            41: my $VALID_DEVICE_REGEX = qr{^/dev|^rootfs$};
        !            42: my $UUID_DIR = '/dev/disk/by-uuid';
        !            43: my $OVERRIDE_FILE = '.rsyncdb_mount_uniq';
        !            44: 
        !            45: my (%hash, %uuid);
        !            46: 
        !            47: if (-d $UUID_DIR) {
        !            48:     foreach my $uuid (glob "$UUID_DIR/*") {
        !            49:        my $lnk = readlink($uuid);
        !            50:        if ($lnk !~ m{^/}) {
        !            51:            $lnk = abs_path("$UUID_DIR/$lnk");
        !            52:        }
        !            53:        $uuid =~ s{.*/}{};
        !            54:        $uuid{$lnk} = $uuid;
        !            55:     }
        !            56: }
        !            57: 
        !            58: foreach my $mount_file (@MOUNT_FILES) {
        !            59:     if (open MOUNTS, $mount_file) {
        !            60:        while (<MOUNTS>) {
        !            61:            my ($devname, $path) = (split)[0,1];
        !            62:            next unless $devname =~ /$VALID_DEVICE_REGEX/;
        !            63: 
        !            64:            my ($devno) = (stat($path))[0];
        !            65:            next unless defined $devno; # Skip if mount is invalid.
        !            66:            next if $hash{$devno}++; # SKip if we've seen this devno earlier.
        !            67: 
        !            68:            my $mount_uniq = $uuid{$devname} ? $uuid{$devname} : "Mount of $devname";
        !            69:            if (open UNIQ, '<', "$path/$OVERRIDE_FILE") {
        !            70:                $mount_uniq = <UNIQ>;
        !            71:                close UNIQ;
        !            72:                $mount_uniq =~ s/\s+/ /g; # This ensures no tab, CR, nor LF.
        !            73:                $mount_uniq =~ s/^ | $//g; # .. and no leading or trailing whitespace.
        !            74:            }
        !            75:            print $mount_uniq, "\t", $path, "\n";
        !            76:        }
        !            77:        close MOUNTS;
        !            78:        exit;
        !            79:     }
        !            80: }
        !            81: 
        !            82: die "Failed to to open any mount files: @MOUNT_FILES\n";