/[svn2cvs]/trunk/svn2cvs.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/svn2cvs.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by dpavlin, Tue Mar 9 20:58:34 2004 UTC revision 2 by dpavlin, Tue Mar 9 21:02:42 2004 UTC
# Line 78  chomp($rev); Line 78  chomp($rev);
78  close(SVNREV);  close(SVNREV);
79    
80  print "Starting after revision $rev\n";  print "Starting after revision $rev\n";
81    $rev++;
82    
83    
84  #  #
# Line 111  while(<LOG>) { Line 112  while(<LOG>) {
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
# Line 125  ported r254 from hidra branch Line 126  ported r254 from hidra branch
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'};
Legend:
Removed from v.1  
changed lines
  Added in v.2
  ViewVC Help
Powered by ViewVC 1.1.26