From 60ae1e6abbff389f65147d6f84fccf40fc5ff5c1 Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 16 Sep 2003 12:06:36 +0000
Subject: *** empty log message ***

---
 Perl/CPANising-tkzinc.pl | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 Perl/CPANising-tkzinc.pl

(limited to 'Perl')

diff --git a/Perl/CPANising-tkzinc.pl b/Perl/CPANising-tkzinc.pl
new file mode 100644
index 0000000..b340b14
--- /dev/null
+++ b/Perl/CPANising-tkzinc.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+# this script build the tk-zinc-n.mmm.tar.gz file which must then
+# be uploaded on the CPAN on ZINCDEV account
+
+
+# this version must be the same than those in the CVS repository
+# in CVS the tag has the following form: cpan_n_mmm
+my $version = 3.294;
+
+chdir ('/tmp');
+
+my $cvstag = 'cpan_' . $version;
+$cvstag =~ s/\./_/ ;
+
+
+my $dirname = "tk-zinc-$version";
+
+system ("rm -rf $dirname");
+
+my $command = "cvs -d :ext:liszt.pii.ath.cena.fr:/pii/repository export -r $cvstag -d $dirname Tkzinc";
+print "cvs: $command\n";
+system ($command) ;
+
+chdir ("/tmp/$dirname");
+
+use ExtUtils::MakeMaker;
+
+my $ver =  MM->parse_version("Perl/Zinc.pm");
+die "version in $0 and Zinc.pm must be identical" unless $ver == $version ;
+
+## the debian changelog is copied and renamed in the root directory
+system ('cp -p debian/changelog Changes');
+
+## the CPANising-tkzinc.pl script is not supposed to be distributed
+system ('rm -rf sandbox debian CPANising-tkzinc.pl');
+
+# removing the .cvsignore files
+system ('find . -name .cvsignore | xargs rm -f');
+
+# creating the MANIFEST file
+use ExtUtils::Manifest qw( mkmanifest );
+&mkmanifest();
+
+# and finally creating the tar file, ready to upload
+chdir ("/tmp");
+system ("tar cfz $dirname.tar.gz $dirname");
+
-- 
cgit v1.1