4b3601c14dd93c91317bc0a50acb01ee426512c6
[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.gz> <doc.tar.gz> [<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.in' ".
33        "'\*/src/packaging/RedHat' > /dev/null")==0
34   or die "Unable to unpack src tar ball\n";
35
36 my $dirh = IO::Dir->new($tmpdir);
37 my $vdir;
38 while (defined($vdir = $dirh->read) && $vdir=~/^\./) {};
39
40 die "Unable to find unpacked source code\n" if !$vdir;
41
42 my $srcdir = $tmpdir."/".$vdir;
43
44 # Work out which version we're dealing with from the configure.in file
45 my $afsversion;
46 my $linuxver;
47 my $linuxrel;
48 my $fh = new IO::File $srcdir."/configure.in"
49   or die "Unable to find unpacked configure.in file";
50 while(<$fh>) {
51   if (/AM_INIT_AUTOMAKE\(openafs,(.*)\)/) {
52     $afsversion = $1;
53     next;
54   }
55   if (/LINUX_PKGVER=(.*)/) {
56     $linuxver = $1;
57     next;
58   }
59   if (/LINUX_PKGREL=(.*)/) {
60     $linuxrel = $1;
61     next;
62   }
63 }
64 undef $fh;
65
66 # Build the RPM root
67
68 print "Building version $afsversion\n";
69 File::Path::mkpath([ $tmpdir."/rpmdir/SPECS",
70                      $tmpdir."/rpmdir/SRPMS",
71                      $tmpdir."/rpmdir/SOURCES"], 0, 0755);
72
73 File::Copy::copy($srcball, 
74                  $tmpdir."/rpmdir/SOURCES/openafs-$afsversion-src.tar.bz2")
75   or die "Unable to copy $srcball into position\n";
76
77 File::Copy::copy($docball,
78                  $tmpdir."/rpmdir/SOURCES/openafs-$afsversion-doc.tar.bz2")
79   or die "Unable to copy $docball into position\n";
80
81 # Populate it with all the stuff in the packaging directory, except the 
82 # specfile
83 my $pkgdirh = IO::Dir->new($srcdir."/src/packaging/RedHat")
84   or die "Unable to find RedHat packaging directory\n";
85 my $file;
86 while (defined($file = $pkgdirh->read)) {
87   if (-f $srcdir."/src/packaging/RedHat/".$file) {
88      next if $file eq "openafs.spec.in";
89
90      print "Copying $file into place\n";
91      File::Copy::copy($srcdir."/src/packaging/RedHat/".$file, 
92                       $tmpdir."/rpmdir/SOURCES/".$file);
93   }
94 }
95 undef $dirh;
96
97 # Some files need particular modes.
98 chmod 0755, $tmpdir."/rpmdir/SOURCES/openafs-kernel-version.sh";
99 chmod 0755, $tmpdir."/rpmdir/SOURCES/openafs-kvers-is.sh";
100
101 # Create the specfile. Use sed for this, cos its easier
102 system("cat ".$srcdir."/src/packaging/RedHat/openafs.spec.in | ".
103        "sed -e 's/\@VERSION\@/$afsversion/g' ".
104        "    -e 's/\@LINUX_PKGVER\@/$linuxver/g' ".
105        "    -e 's/\@LINUX_PKGREL\@/$linuxrel/g' ".
106        "    -e 's/\%define afsvers.*/%define afsvers $afsversion/g' ".
107        "    -e 's/\%define pkgvers.*/%define pkgvers $linuxver/g' > ".
108        $tmpdir."/rpmdir/SPECS/openafs.spec") == 0
109   or die "sed failed : $!\n";
110
111 if ($cellservdb) {
112     File::Copy::copy($cellservdb,
113                      $tmpdir."/rpmdir/SOURCES/$cellservdb")
114         or die "Unable to copy $cellservdb into position\n";
115 } else {
116     system("cd ".$tmpdir."/rpmdir/SOURCES && wget `cat ".$srcdir."/src/packaging/RedHat/openafs.spec.in |grep dl/cellservdb |awk '{print \$2}'`")
117 }
118
119 if ($relnotes) {
120   File::Copy::copy($relnotes,
121                    $tmpdir."/rpmdir/SOURCES/RELNOTES-$afsversion")
122   or die "Unable to copy $relnotes into position\n";
123 } else {
124   print "WARNING: No release notes provided. Using empty file\n";
125   system("touch $tmpdir/rpmdir/SOURCES/RELNOTES-$afsversion");
126 }
127
128 if ($changelog) {
129   File::Copy::copy($changelog,
130                    $tmpdir."/rpmdir/SOURCES/ChangeLog")
131   or die "Unable to copy $changelog into position\n";
132 } else {
133   print "WARNING: No changelog provided. Using empty file\n";
134   system("touch $tmpdir/rpmdir/SOURCES/ChangeLog");
135 }
136
137 # Build an RPM
138 system("rpmbuild -bs --define \"_topdir $tmpdir/rpmdir\" ".
139        "$tmpdir/rpmdir/SPECS/openafs.spec > /dev/null") == 0
140   or die "rpmbuild failed : $!\n";
141
142 # Copy it out to somewhere useful
143 File::Copy::copy("$tmpdir/rpmdir/SRPMS/openafs-$linuxver-1.$linuxrel.src.rpm",
144                  "openafs-$linuxver-1.$linuxrel.src.rpm")
145   or die "Unable to copy output RPM : $!\n";
146
147 print "SRPM is openafs-$linuxver-1.$linuxrel.src.rpm\n";
148