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