[devscripts] 01/01: debc: add --list-debs option to only list .deb files

[Antonio Terceiro]

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

terceiro pushed a commit to branch master
in repository devscripts.

commit 509ef3a46b3f7e7601e39b47dff7b6cc58e9c9b1
Author: Antonio Terceiro <terceiro at debian.org>
Date:   Thu Jun 9 19:03:33 2016 -0300

    debc: add --list-debs option to only list .deb files
---
 debian/changelog | 5 +++++
 scripts/debc.1   | 3 +++
 scripts/debi.pl  | 7 +++++++
 3 files changed, 15 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 8cbcf2d..53a5866 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,6 +13,11 @@ devscripts (2.16.6) UNRELEASED; urgency=medium
   * uscan:
     + Fix typo of "release" in description of git repository mode
 
+  [ Antonio Terceiro ]
+  * debc:
+    + Added --list-debs option, which makes debc only list the filenames of
+      the .deb files, and none of their contents.
+
  -- James McCoy <jamessan at debian.org>  Sat, 04 Jun 2016 13:46:07 -0400
 
 devscripts (2.16.5) unstable; urgency=medium
diff --git a/scripts/debc.1 b/scripts/debc.1
index 274cb0d..99f9c66 100644
--- a/scripts/debc.1
+++ b/scripts/debc.1
@@ -83,6 +83,9 @@ this option.
 See the above section \fBDirectory name checking\fR for an explanation of
 this option.
 .TP
+\fB\-\-list-debs\fR
+List the filenames of the .deb packages, and do not display their contents.
+.TP
 \fB\-\-no-conf\fR, \fB\-\-noconf\fR
 Do not read any configuration files.  This can only be used as the
 first option given on the command-line.
diff --git a/scripts/debi.pl b/scripts/debi.pl
index d911748..31ed63c 100755
--- a/scripts/debi.pl
+++ b/scripts/debi.pl
@@ -86,6 +86,7 @@ Usage: $progname [options] [.changes file] [package ...]
     -t<target>        Search for changes file made for GNU <target> arch
     --debs-dir DIR    Look for the changes and debs files in DIR instead of
                       the parent of the current package directory
+    --list-debs       only list the .deb files; don't display their contents
     --multi           Search for multiarch .changes file made by dpkg-cross
     --check-dirname-level N
                       How much to check directory names:
@@ -180,6 +181,7 @@ my ($opt_help, $opt_version, $opt_a, $opt_t, $opt_debsdir, $opt_multi);
 my $opt_upgrade;
 my ($opt_level, $opt_regex, $opt_noconf);
 my ($opt_tool, $opt_with_depends);
+my ($opt_list_debs);
 GetOptions("help" => \$opt_help,
 	   "version" => \$opt_version,
 	   "a=s" => \$opt_a,
@@ -193,6 +195,7 @@ GetOptions("help" => \$opt_help,
 	   "tool=s" => \$opt_tool,
 	   "noconf" => \$opt_noconf,
 	   "no-conf" => \$opt_noconf,
+	   "list-debs" => \$opt_list_debs,
 	   )
     or die "Usage: $progname [options] [.changes file] [package ...]\nRun $progname --help for more details\n";
 
@@ -385,6 +388,10 @@ if ($progname eq 'debi') {
 } else {
     # $progname eq 'debc'
     foreach my $deb (@debs) {
+	if ($opt_list_debs) {
+	    printf "%s/%s\n", cwd(), $deb;
+	    next;
+	}
 	print "$deb\n";
 	print '-' x length($deb), "\n";
 	system('dpkg-deb', '-I', $deb) == 0

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git