78 |
close(SVNREV); |
close(SVNREV); |
79 |
|
|
80 |
print "Starting after revision $rev\n"; |
print "Starting after revision $rev\n"; |
81 |
|
$rev++; |
82 |
|
|
83 |
|
|
84 |
# |
# |
112 |
} |
} |
113 |
close(LOG); |
close(LOG); |
114 |
|
|
115 |
my $xml = XMLin($log, ForceArray => [ 'path' ]); |
my $xml = XMLin($log, ForceArray => [ 'logentry', 'path' ]); |
116 |
|
|
117 |
|
|
118 |
=begin log_example |
=begin log_example |
126 |
|
|
127 |
my $fmt = "\n" . "-" x 79 . "\nr%5s| %8s | %s\n\n%s\n"; |
my $fmt = "\n" . "-" x 79 . "\nr%5s| %8s | %s\n\n%s\n"; |
128 |
|
|
129 |
|
if (! $xml->{'logentry'}) { |
130 |
|
print "no newer log entries in SubVersion repostory. CVS is current\n"; |
131 |
|
exit 0; |
132 |
|
} |
133 |
|
|
134 |
|
print Dumper($xml); |
135 |
|
|
136 |
foreach my $e (@{$xml->{'logentry'}}) { |
foreach my $e (@{$xml->{'logentry'}}) { |
137 |
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'}); |
138 |
$rev = $e->{'revision'}; |
$rev = $e->{'revision'}; |