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