67 |
|
|
68 |
if ($add_new) { |
if ($add_new) { |
69 |
system "$cvs add $CVSREP/$path" || die "cvs add of $path failed: $!"; |
system "$cvs add $CVSREP/$path" || die "cvs add of $path failed: $!"; |
70 |
|
} else { |
71 |
|
my $msg="subversion revision $rev commited to CVS"; |
72 |
|
print "$msg\n"; |
73 |
|
system "$cvs commit -m \"$msg\" $CVSREP/$path" || die "cvs commit of $path failed: $!"; |
74 |
} |
} |
|
|
|
|
my $msg="subversion revision $rev commited to CVS"; |
|
|
print "$msg\n"; |
|
|
system "$cvs commit -m \"$msg\" $CVSREP/$path" || die "cvs commit of $path failed: $!"; |
|
75 |
} |
} |
76 |
|
|
77 |
|
|
155 |
exit 0; |
exit 0; |
156 |
} |
} |
157 |
|
|
|
print Dumper($xml); |
|
|
|
|
158 |
foreach my $e (@{$xml->{'logentry'}}) { |
foreach my $e (@{$xml->{'logentry'}}) { |
159 |
die "BUG: revision from .svnrev ($rev) greater than from subversion (".$e->{'revision'}.")" if ($rev > $e->{'revision'}); |
die "BUG: revision from .svnrev ($rev) greater than from subversion (".$e->{'revision'}.")" if ($rev > $e->{'revision'}); |
160 |
$rev = $e->{'revision'}; |
$rev = $e->{'revision'}; |