54193d0b71f9c27d3e07d66ab898a2b871da645a
[openafs.git] / src / packaging / RedHat / makesrpm.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 use IO::Dir;
7 use IO::File;
8 use File::Path;
9 use File::Copy;
10 use File::Temp;
11
12 # Build an SRPM for OpenAFS, given a src and doc tarball, release notes,
13 # and ChangeLog.
14
15 my $srcball = shift;
16 my $docball = shift;
17 my $relnotes = shift;
18 my $changelog = shift;
19 my $cellservdb = shift;
20
21 if (!$srcball && !$docball) {
22   printf "Usage:  makesrpm <src.tar.bz2> <doc.tar.bz2> [<relnotes> [<changelog> [<cellservdb>]]]\n";
23   exit(1);
24 }
25
26 if (! -f $srcball) {
27   die "Unable to open $srcball\n";
28 }
29
30 my $tmpdir = File::Temp::tempdir(CLEANUP => 1);
31
32 system("tar -C $tmpdir -xvjf $srcball '\*/configure.ac' ".
33        "'\*/src/packaging/RedHat' ".
34        "'\*/.version' ".
35        "'\*/build-tools' > /dev/null")==0
36   or die "Unable to unpack src tar ball\n";
37
38 my $dirh = IO::Dir->new($tmpdir);
39 my $vdir;
40 while (defined($vdir = $dirh->read) && $vdir=~/^\./) {};
41
42 die "Unable to find unpacked source code\n" if !$vdir;
43
44 my $srcdir = $tmpdir."/".$vdir;
45
46 # Work out which version we're dealing with from the configure.ac file
47 my $afsversion;
48 my $linuxver;
49 my $linuxrel;
50 my $fh = new IO::File $srcdir."/configure.ac"
51   or die "Unable to find unpacked configure.ac file";
52 while(<$fh>) {
53   next if (/^\s*\#/);
54
55   if (/AM_INIT_AUTOMAKE\(openafs,(.*)\)/) {
56     $afsversion = $1;
57     next;
58   }
59 }
60 undef $fh;
61
62 if (not defined($afsversion)) {
63   $afsversion = `"$srcdir/build-tools/git-version" "$srcdir"`;
64 }
65
66 # Build the Linux version and release information from the package version
67 # We need to handle a number of varieties of package version -
68 # Normal: 1.7.0
69 # Prereleases: 1.7.0pre1
70 # Development trees: 1.7.0dev
71 # and RPMS which are built from trees midway between heads, such as 
72 # 1.7.0-45-gabcdef or 1.7.0pre1-37-g12345 or 1.7.0dev-56-g98765
73
74 if ($afsversion=~m/(.*)(pre[0-9]+)/) {
75     $linuxver=$1;
76     $linuxrel="0.$2";
77 } elsif ($afsversion=~m/(.*)dev/) {
78     $linuxver=$1;
79     $linuxrel="0.dev";
80 } else {
81     $linuxver=$afsversion;
82     $linuxrel=1;
83 }
84
85 if ($afsversion=~m/(.*)-([0-9]+)-(g[a-f0-9]+)$/) {
86     $linuxver = $1 if ($linuxver eq $afsversion);
87     $linuxrel.=".$2.$3";
88 }
89
90 print "Linux release is $linuxrel\n";
91 print "Linux version is $linuxver\n";
92
93 # Figure out a major, minor and release so that we know which version we're
94 # building, and therefore what the srpm is going to be called
95 $linuxver=~/([0-9]+)\.([0-9]+)\.([0-9]+)/;
96 my $major = $1;
97 my $minor = $2;
98 my $patchlevel = $3;
99
100 # Build the RPM root
101
102 print "Building version $afsversion\n";
103 File::Path::mkpath([ $tmpdir."/rpmdir/SPECS",
104                      $tmpdir."/rpmdir/SRPMS",
105                      $tmpdir."/rpmdir/SOURCES"], 0, 0755);
106
107 File::Copy::copy($srcball, 
108                  $tmpdir."/rpmdir/SOURCES/openafs-$afsversion-src.tar.bz2")
109   or die "Unable to copy $srcball into position\n";
110
111 File::Copy::copy($docball,
112                  $tmpdir."/rpmdir/SOURCES/openafs-$afsversion-doc.tar.bz2")
113   or die "Unable to copy $docball into position\n";
114
115 # Populate it with all the stuff in the packaging directory, except the 
116 # specfile
117 my $pkgdirh = IO::Dir->new($srcdir."/src/packaging/RedHat")
118   or die "Unable to find RedHat packaging directory\n";
119 my $file;
120 while (defined($file = $pkgdirh->read)) {
121   if (-f $srcdir."/src/packaging/RedHat/".$file) {
122      next if $file eq "openafs.spec.in";
123
124      print "Copying $file into place\n";
125      File::Copy::copy($srcdir."/src/packaging/RedHat/".$file, 
126                       $tmpdir."/rpmdir/SOURCES/".$file);
127   }
128 }
129 undef $dirh;
130
131 # Some files need particular modes.
132 chmod 0755, $tmpdir."/rpmdir/SOURCES/openafs-kernel-version.sh";
133 chmod 0755, $tmpdir."/rpmdir/SOURCES/openafs-kvers-is.sh";
134
135 # Create the specfile. Use sed for this, cos its easier
136 system("cat ".$srcdir."/src/packaging/RedHat/openafs.spec.in | ".
137        "sed -e 's/\@VERSION\@/$afsversion/g' ".
138        "    -e 's/\@LINUX_PKGVER\@/$linuxver/g' ".
139        "    -e 's/\@LINUX_PKGREL\@/$linuxrel/g' ".
140        "    -e 's/\%define afsvers.*/%define afsvers $afsversion/g' ".
141        "    -e 's/\%define pkgvers.*/%define pkgvers $linuxver/g' > ".
142        $tmpdir."/rpmdir/SPECS/openafs.spec") == 0
143   or die "sed failed : $!\n";
144
145 if ($cellservdb) {
146     File::Copy::copy($cellservdb,
147                      $tmpdir."/rpmdir/SOURCES/$cellservdb")
148         or die "Unable to copy $cellservdb into position\n";
149 } else {
150     system("cd ".$tmpdir."/rpmdir/SOURCES && wget `cat ".$srcdir."/src/packaging/RedHat/openafs.spec.in |grep dl/cellservdb |awk '{print \$2}'`")
151 }
152
153 if ($relnotes) {
154   File::Copy::copy($relnotes,
155                    $tmpdir."/rpmdir/SOURCES/RELNOTES-$afsversion")
156   or die "Unable to copy $relnotes into position\n";
157 } else {
158   print "WARNING: No release notes provided. Using empty file\n";
159   system("touch $tmpdir/rpmdir/SOURCES/RELNOTES-$afsversion");
160 }
161
162 if ($changelog) {
163   File::Copy::copy($changelog,
164                    $tmpdir."/rpmdir/SOURCES/ChangeLog")
165   or die "Unable to copy $changelog into position\n";
166 } else {
167   print "WARNING: No changelog provided. Using empty file\n";
168   system("touch $tmpdir/rpmdir/SOURCES/ChangeLog");
169 }
170
171 # Build an RPM
172 system("rpmbuild -bs --define \"dist %undefined\" ".
173        "--define \"_topdir $tmpdir/rpmdir\" ".
174        "$tmpdir/rpmdir/SPECS/openafs.spec > /dev/null") == 0
175   or die "rpmbuild failed : $!\n";
176
177 # Copy it out to somewhere useful
178 if (!defined($major) || $major > 1 || ($major == 1 && $minor >= 6)) {
179   File::Copy::copy("$tmpdir/rpmdir/SRPMS/openafs-$linuxver-$linuxrel.src.rpm",
180                    "openafs-$linuxver-$linuxrel.src.rpm")
181     or die "Unable to copy output RPM : $!\n";
182
183   print "SRPM is openafs-$linuxver-$linuxrel.src.rpm\n";
184 } else {
185   File::Copy::copy("$tmpdir/rpmdir/SRPMS/openafs-$linuxver-1.$linuxrel.src.rpm",
186                    "openafs-$linuxver-1.$linuxrel.src.rpm")
187     or die "Unable to copy output RPM : $!\n";
188
189   print "SRPM is openafs-$linuxver-1.$linuxrel.src.rpm\n";
190 }
191
192