14 GetOptions("help|?" => \$help,
16 "tagpoint=s" => \$tagPoint,
18 "dir=s" => \$outDir) or pod2usage(2);
20 pod2usage(1) if $help;
21 pod2usage(-exitstatus => 0, -verbose => 2) if $man;
26 pod2usage(2) if !defined($tagName);
31 system ("git tag -s $tagName $tagPoint") == 0
32 or die "git tag failed with : $!";
34 # Push the tag upstream
35 system ("git push ssh://gerrit.openafs.org:29418/openafs tag $tagName") == 0
36 or die "git push failed with : $!";
39 $version = `git describe --abbrev=4 $tagName`;
41 $version=~s/openafs-[^-]*-//;
44 # Grab the tagged code into a temporary directory
46 my $name = "openafs-".$version;
48 my $tempDir = File::Temp::tempdir();
49 system ("git archive --format=tar --prefix=$name/ $tagName ".
50 " | tar -C $tempDir -x") == 0
51 or die "Git archive failed with: $?";
53 # Construct the ChangeLog
55 system("git log $last..$tagName > $outDir/ChangeLog");
57 system("git log $tagName > $outDir/ChangeLog");
61 system("git describe --abbrev=4 $tagName > $tempDir/$name/.version");
63 # Run regen.sh to create the rest of the tree
64 system ("cd $tempDir/$name && ./regen.sh") == 0
67 # Create the documentation tarball
68 system("tar -cf $outDir/$name-doc.tar -C $tempDir $name/doc") == 0
69 or die "Unable to create documentation tarball : $!";
70 push @toCompress, "$outDir/$name-doc.tar";
72 # Remove the docs directory (we've already build a tarball for it)
73 File::Path::rmtree("$tempDir/$name/doc");
75 # Create the source tarball (both .gz and .bz2)
76 system("tar -cf $outDir/$name-src.tar -C $tempDir $name") == 0
77 or die "Unable to create documentation tarball : $!";
78 push @toCompress, "$outDir/$name-src.tar";
80 # Construct the diffs, and zip them
82 system("git diff $last..$tagName > $outDir/$name.diff") == 0
83 or die "Unable to create diff : $!";
84 push @toCompress, "$outDir/$name.diff";
87 my @toMD5 = @toCompress;
89 # Compress everything that needs squashing
90 foreach my $file (@toCompress) {
91 system("gzip < $file > $file.gz") == 0
92 or die "Unable to create gzip file of '$file' : $!";
93 push @toMD5, "$file.gz";
95 system("bzip2 < $file > $file.bz2") == 0
96 or die "Unable to create bzip file of '$file' : $!";
97 push @toMD5, "$file.bz2";
100 foreach my $file (@toMD5) {
101 if (-x "/sbin/md5") {
102 system("/sbin/md5 -q $file > $file.md5");
103 } elsif (-x "/usr/bin/md5sum") {
104 system("/usr/bin/md5sum $file > $file.md5");
106 print STDERR "No md5 utiltiy found. Not producing checksums\n";
115 make_release - Make an OpenAFS release from git
119 make_release [options] <tag> [<version>]
122 --help brief help message
123 --man full documentation
124 --tagpoint <object> create new tag
125 --last <object> generate changelog and diffs from this point
126 --dir <dir> output results into this directory
130 make_release constructs an OpenAFS release from a local git clone. If run
131 with just the standard arguments, it will extract the contents of the
132 specified tag into the current directory, creating src and doc tarballs,
133 gziping and bziping them, and generating md5 hashes. It will also create a
134 ChangeLog file, listing all of the changes in that release.
136 This standard behaviour may be modified by the following options
142 =item B<--last> I<object>
144 Generate the ChangeLog starting from I<object>. Also generate a
145 openafs-$version.diff file in the output directory containing all of the
146 changes between I<object> and the current tag
148 =item B<--dir> I<directory>
150 Instead of generating all of the output in the current directory, place it
151 in <directory>, which must already exist.
153 =item B<--tagpoint> I<commit|branch>
155 Rather than using an existing tag, create a new one on the specified commit,
156 or on the tip of the specified branch. This will GPG sign the new tag, and