1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#!/usr/bin/perl -w
# creates the release, assuming build application
sub createSourceTarball();
print "Please enter a version string: ";
my $version = <STDIN>;
chomp($version);
print "Did you remember to run dch -v $version and commit the changes? (y/n)?\n";
my $decide = <STDIN>;
if ( $decide =~ /n/ )
{
die "aborting";
}
my $headmodule = "packagesearch"; # toplevel module
my $releaseDir = "../packagesearch-release";
mkdir("$releaseDir");
my $src_filename = "packagesearch_$version.tar.gz";
createSourceTarball();
sub createSourceTarball() {
my $targetSourceDir = "$releaseDir/$headmodule-$version";
my $doCheckout = 1;
if (-e $targetSourceDir ) {
print "There is already a directory $targetSourceDir available, would you like to overwrite this?\n";
my $decide = <STDIN>;
if ( $decide =~ /n/ ) {
$doCheckout = 0;
}
else {
system("rm -rf $targetSourceDir");
}
}
if ($doCheckout) {
print "Cloning git version\n";
(system("git clone ./ $targetSourceDir")==0)
|| die("Could not clone git version.\n");
}
print "creating source tarball $src_filename \n";
`rm -rf $targetSourceDir/.git`;
(system("GZIP=-9 tar -C $releaseDir -czf ../$src_filename $headmodule-$version\n")==0) || die("Could not create archive.\n");
print "source tarball $src_filename created\n";
}
|
