Return to munge-symlinks CVS log

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

Annotation of embedaddon/rsync/support/munge-symlinks, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: # This script will either prefix all symlink values with the string
        !             3: # "/rsyncd-munged/" or remove that prefix.
        !             4: 
        !             5: use strict;
        !             6: use Getopt::Long;
        !             7: 
        !             8: my $SYMLINK_PREFIX = '/rsyncd-munged/';
        !             9: 
        !            10: my $munge_opt;
        !            11: 
        !            12: &GetOptions(
        !            13:     'munge' => sub { $munge_opt = 1 },
        !            14:     'unmunge' => sub { $munge_opt = 0 },
        !            15:     'all' => \( my $all_opt ),
        !            16:     'help|h' => \( my $help_opt ),
        !            17: ) or &usage;
        !            18: 
        !            19: &usage if $help_opt || !defined $munge_opt;
        !            20: 
        !            21: my $munged_re = $all_opt ? qr/^($SYMLINK_PREFIX)+(?=.)/ : qr/^$SYMLINK_PREFIX(?=.)/;
        !            22: 
        !            23: push(@ARGV, '.') unless @ARGV;
        !            24: 
        !            25: open(PIPE, '-|', 'find', @ARGV, '-type', 'l') or die $!;
        !            26: 
        !            27: while (<PIPE>) {
        !            28:     chomp;
        !            29:     my $lnk = readlink($_) or next;
        !            30:     if ($munge_opt) {
        !            31:        next if !$all_opt && $lnk =~ /$munged_re/;
        !            32:        $lnk =~ s/^/$SYMLINK_PREFIX/;
        !            33:     } else {
        !            34:        next unless $lnk =~ s/$munged_re//;
        !            35:     }
        !            36:     if (!unlink($_)) {
        !            37:        warn "Unable to unlink symlink: $_ ($!)\n";
        !            38:     } elsif (!symlink($lnk, $_)) {
        !            39:        warn "Unable to recreate symlink: $_ -> $lnk ($!)\n";
        !            40:     } else {
        !            41:        print "$_ -> $lnk\n";
        !            42:     }
        !            43: }
        !            44: 
        !            45: close PIPE;
        !            46: exit;
        !            47: 
        !            48: sub usage
        !            49: {
        !            50:     die <<EOT;
        !            51: Usage: munge-symlinks --munge|--unmunge [--all] [DIR|SYMLINK...]
        !            52: 
        !            53: --munge      Add the $SYMLINK_PREFIX prefix to symlinks if not already
        !            54:              present, or always when combined with --all.
        !            55: --unmunge    Remove one $SYMLINK_PREFIX prefix from symlinks or all
        !            56:              such prefixes with --all.
        !            57: 
        !            58: See the "munge symlinks" option in the rsyncd.conf manpage for more details.
        !            59: EOT
        !            60: }