/[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 35 by dpavlin, Fri Sep 7 16:39:42 2007 UTC revision 36 by dpavlin, Fri Sep 7 16:53:56 2007 UTC
# Line 20  use XML::Simple; Line 20  use XML::Simple;
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;
# Line 303  foreach my $e (@{$xml->{'logentry'}}) { Line 306  foreach my $e (@{$xml->{'logentry'}}) {
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 ( ! @_ ) {
Legend:
Removed from v.35  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26