17 |
use Data::Dumper; |
use Data::Dumper; |
18 |
use XML::Simple; |
use XML::Simple; |
19 |
|
|
20 |
|
# do we want to sync just part of repository? |
21 |
|
my $partial_import = 1; |
22 |
|
|
23 |
if (@ARGV < 2) { |
if (@ARGV < 2) { |
24 |
print "usage: $0 SVN_URL CVSROOT CVSREPOSITORY\n"; |
print "usage: $0 SVN_URL CVSROOT CVSREPOSITORY\n"; |
25 |
exit 1; |
exit 1; |
279 |
|
|
280 |
# prepare path and message |
# prepare path and message |
281 |
my $file = $path; |
my $file = $path; |
282 |
$path =~ s#^\Q$SVNREP\E/*## || die "BUG: can't strip SVNREP '$SVNREP' from path"; |
if ( $path !~ s#^\Q$SVNREP\E/*## ) { |
283 |
|
print "NOTICE: skipping '$path' which isn't under repository root '$SVNREP'\n"; |
284 |
|
die unless $partial_import; |
285 |
|
next; |
286 |
|
} |
287 |
|
|
288 |
if (! $path) { |
if (! $path) { |
289 |
print "NOTICE: skipped this operation. Probably trunk creation\n"; |
print "NOTICE: skipped this operation. Probably trunk creation\n"; |