/[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 3 by dpavlin, Tue Mar 9 21:45:32 2004 UTC revision 4 by dpavlin, Tue Mar 9 21:54:36 2004 UTC
# Line 67  sub commit_svnrev { Line 67  sub commit_svnrev {
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    
# Line 155  if (! $xml->{'logentry'}) { Line 155  if (! $xml->{'logentry'}) {
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'};
Legend:
Removed from v.3  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26