20 |
# do we want to sync just part of repository? |
# do we want to sync just part of repository? |
21 |
my $partial_import = 1; |
my $partial_import = 1; |
22 |
|
|
23 |
|
# do we want to add svk-like prefix with original revision, author and date? |
24 |
|
my $decorate_commit_message = 1; |
25 |
|
|
26 |
if (@ARGV < 2) { |
if (@ARGV < 2) { |
27 |
print "usage: $0 SVN_URL CVSROOT CVSREPOSITORY\n"; |
print "usage: $0 SVN_URL CVSROOT CVSREPOSITORY\n"; |
28 |
exit 1; |
exit 1; |
306 |
my $msg = $e->{'msg'}; |
my $msg = $e->{'msg'}; |
307 |
$msg =~ s/'/'\\''/g; # quote " |
$msg =~ s/'/'\\''/g; # quote " |
308 |
|
|
309 |
|
$msg = 'r' . $rev . ' ' . $e->{author} . ' | ' . $e->{date} . "\n" . $msg if $decorate_commit_message; |
310 |
|
|
311 |
sub cvs_commit { |
sub cvs_commit { |
312 |
my $msg = shift || die "no msg?"; |
my $msg = shift || die "no msg?"; |
313 |
if ( ! @_ ) { |
if ( ! @_ ) { |