[equivs] 31/36: Allow equivs to build source packages for upload to Ubuntu PPA's

[Axel Beckert]

This is an automated email from the git hooks/post-receive script.

abe pushed a commit to branch master
in repository equivs.

commit 76d3c5174b8c77e1d52670e54c311a0ad333b0e7
Author: John Reese <jreese at leetcode.net>
Date:   Wed Nov 17 16:07:44 2010 -0500

    Allow equivs to build source packages for upload to Ubuntu PPA's
---
 equivs-build.pod     | 12 +++++++++++-
 usr/bin/equivs-build |  9 ++++++---
 2 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/equivs-build.pod b/equivs-build.pod
index 079d6a5..d327562 100644
--- a/equivs-build.pod
+++ b/equivs-build.pod
@@ -4,7 +4,7 @@ equivs-build - make a Debian package to register local software
 
 =head1 SYNOPSIS
 
-B<equivs-build [--full|-f] [--arch=foo|-a=foo] controlfile>
+B<equivs-build [--full|-f] [--source|-s] [--arch=foo|-a=foo] controlfile>
 
 =head1 DESCRIPTION
 
@@ -119,6 +119,16 @@ The ID used to signed is taken from, in that order, the user from
 the last entry of a supplied changelog, the Maintainer: field in the 
 equivs control file, or the local username.
 
+=item --source | -s
+
+Do a source build. B<debuild> will be called, that is, a
+source package will be built and signed, suitable for upload
+to the Ubuntu PPA servers.
+
+The ID used to signed is taken from, in that order, the user from
+the last entry of a supplied changelog, the Maintainer: field in the
+equivs control file, or the local username.
+
 =item --arch | -a
 
 Build package for the specified architecture. Used
diff --git a/usr/bin/equivs-build b/usr/bin/equivs-build
index f85d871..7c3f2de 100755
--- a/usr/bin/equivs-build
+++ b/usr/bin/equivs-build
@@ -22,19 +22,20 @@ my %control;
 
 sub usage {
   print STDERR <<EOU;
-Usage: equivs-build [--full|-f] [--arch=foo|-a=foo] controlfile
+Usage: equivs-build [--full|-f] [--source|-s] [--arch=foo|-a=foo] controlfile
 controlfile is the name of an equivs controlfile.
 You can use "equivs-control filename" to create one.
 
 --full   Full build including signing, etc., suitable for upload to Debian
+--source Source build including signing, etc., suitable for upload to a PPA
 --arch   Build package for a different architecture.
          Used e.g. for building Hurd packages under Linux.
 EOU
   exit 1;
 }
 
-my ($full_package, $arch);
-GetOptions('full|f' => \$full_package, 'arch|a=s' => \$arch) or usage();
+my ($full_package, $source_only, $arch);
+GetOptions('full|f' => \$full_package, 'source|s' => \$source_only, 'arch|a=s' => \$arch) or usage();
 
 my $debug = 0;
 
@@ -177,6 +178,8 @@ unlink glob "debian/*.in";
 my @build_cmd;
 if ($full_package) {
     @build_cmd = (qw(dpkg-buildpackage -rfakeroot), ($arch ? "-a$arch" : ()));
+} elsif ($source_only) {
+    @build_cmd = (qw(dpkg-buildpackage -S -rfakeroot));
 } else {
     @build_cmd = (($arch ? ("dpkg-architecture", "-a$arch", "-c") : ()),
                   qw(fakeroot debian/rules binary));

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/equivs.git