/[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 4 by dpavlin, Tue Mar 9 21:54:36 2004 UTC revision 6 by dpavlin, Tue Mar 9 22:16:19 2004 UTC
# Line 18  use XML::Simple; Line 18  use XML::Simple;
18  my $HOME = $ENV{'HOME'} || die "can't get home directory!";  my $HOME = $ENV{'HOME'} || die "can't get home directory!";
19    
20  # cvsroot directory  # cvsroot directory
21  my $CVSROOT="$HOME/x/cvsroot";  #my $CVSROOT="$HOME/x/cvsroot";
22    my $CVSROOT=':pserver:dpavlin@cvs.tigris.org:/cvs';
23  # name of cvs repository to commit to  # name of cvs repository to commit to
24  my $CVSREP="svn2cvs";  my $CVSREP="svn2cvs/src";
25    
26  # svnroot directory  # svnroot directory
27  my $SVNROOT="file://$HOME/private/svn/svn2cvs";  my $SVNROOT="file://$HOME/private/svn/svn2cvs";
# Line 113  _USAGE_ Line 114  _USAGE_
114          }          }
115  } else {  } else {
116          open(SVNREV,"$CVSREP/.svnrev") || die "can't open $TMPDIR/$CVSREP/.svnrev: $!";          open(SVNREV,"$CVSREP/.svnrev") || die "can't open $TMPDIR/$CVSREP/.svnrev: $!";
117          my $rev = <SVNREV>;          $rev = <SVNREV>;
118          chomp($rev);          chomp($rev);
119          close(SVNREV);          close(SVNREV);
120  }  }
Legend:
Removed from v.4  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.26