updated with the new cvs database (useful for building the cpan tgz from a cvs export)

1 files changed, 4 insertions, 3 deletions

diff --git a/Perl/export2cpan b/Perl/export2cpan
index 635a17c..23e0c06 100755
--- a/Perl/export2cpan
+++ b/Perl/export2cpan
@@ -21,7 +21,8 @@
 use strict;
 
 my $ZINC_PREFIX = 'tk-zinc';
-my $DEFAULT_SERVER = 'liszt.pii.ath.cena.fr';
+my $DEFAULT_SERVER = 'cvs.tkzinc.org';
+my $DEFAULT_CVS_MODULE = '/srv/tkzinc/cvsroot';
 my $TMP = '/tmp/forCPAN';
 
 # computing major, minor and patchlevel from var defined in ../configure.in
@@ -97,8 +98,8 @@ if ($FROM_CVS) {
     system ("mkdir $TMP");
     chdir("$TMP");
     # the following command always fail with cvs 1.11.1p1 !!
-    # my $command = "cd $TMP; cvs -d $server:/pii/repository export -r $cvstag -d $DIR_FROM_CVS Tkzinc";
-    my $command = "cd $TMP; cvs -d /pii/repository export -r $cvstag -d $DIR_FROM_CVS Tkzinc";
+     my $command = "cd $TMP; cvs -d $server:$DEFAULT_CVS_MODULE export -r $cvstag -d $DIR_FROM_CVS Tkzinc";
+    # my $command = "cd $TMP; cvs -d /pii/repository export -r $cvstag -d $DIR_FROM_CVS Tkzinc";
     print "$command\n";
     my $error = system($command);
     die "CVS extraction did not succeed" if $error;