Return to cvs2includes CVS log

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

rsync 3.2.3

    1: #!/usr/bin/env perl
    2: #
    3: # This script finds all CVS/Entries files in the current directory and below
    4: # and creates a local .cvsinclude file with non-inherited rules including each
    5: # checked-in file.  Then, use this option whenever using --cvs-exclude (-C):
    6: #
    7: # 	-f ': .cvsinclude'
    8: #
    9: # That ensures that all checked-in files/dirs are included in the transfer.
   10: # (You could alternately put ": .cvsinclude" into an .rsync-filter file and
   11: # use the -F option, which is easier to type.)
   12: #
   13: # The downside is that you need to remember to re-run cvs2includes whenever
   14: # you add a new file to the project.
   15: use strict;
   16: 
   17: open(FIND, 'find . -name CVS -type d |') or die $!;
   18: while (<FIND>) {
   19:     chomp;
   20:     s#^\./##;
   21: 
   22:     my $entries = "$_/Entries";
   23:     s/CVS$/.cvsinclude/;
   24:     my $filter = $_;
   25: 
   26:     open(ENTRIES, $entries) or die "Unable to open $entries: $!\n";
   27:     my @includes;
   28:     while (<ENTRIES>) {
   29: 	push(@includes, $1) if m#/(.+?)/#;
   30:     }
   31:     close ENTRIES;
   32:     if (@includes) {
   33: 	open(FILTER, ">$filter") or die "Unable to write $filter: $!\n";
   34: 	print FILTER map "+ /$_\n", @includes;
   35: 	close FILTER;
   36: 	print "Updated $filter\n";
   37:     } elsif (-f $filter) {
   38: 	unlink($filter);
   39: 	print "Removed $filter\n";
   40:     }
   41: }
   42: close FIND;