[devscripts] 01/01: debsnap: Add --list option

[Osamu Aoki]

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

osamu pushed a commit to branch master
in repository devscripts.

commit 067f70ec34df6a1058cef74126a7f97bd4719504
Author: Osamu Aoki <osamu at debian.org>
Date:   Sun Mar 6 23:36:31 2016 +0900

    debsnap: Add --list option
    
    Closes: #816910
---
 debian/changelog   |  2 ++
 scripts/debsnap.1  |  4 ++++
 scripts/debsnap.pl | 15 +++++++++++++--
 3 files changed, 19 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index be32bfe..93a4215 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -10,6 +10,8 @@ devscripts (2.16.2) UNRELEASED; urgency=medium
     + Always use uscan_warn and uscan_die.
   * test_uscan:
     + Fix non-{Debian,Ubuntu} cases.  Closes: #816645
+  * debsnap:
+    + Add --list option.  Closes: #816910
 
   [ Dominique Dumont ]
   * licensecheck:
diff --git a/scripts/debsnap.1 b/scripts/debsnap.1
index 217c1ac..306b4e8 100644
--- a/scripts/debsnap.1
+++ b/scripts/debsnap.1
@@ -45,6 +45,10 @@ Report on the \fBdebsnap\fP configuration being used and progress during the
 download operation.  Please always use this option when reporting bugs.
 
 .TP
+.BR \-\-list
+Don't dwnload but just list versions.
+
+.TP
 .BR \-\-binary
 Download binary packages instead of source packages.
 
diff --git a/scripts/debsnap.pl b/scripts/debsnap.pl
index 50749fb..b40a9f7 100755
--- a/scripts/debsnap.pl
+++ b/scripts/debsnap.pl
@@ -84,6 +84,7 @@ The following options are supported:
                                         Default is ./source-<package name>
     -f, --force                         Force overwriting an existing
                                         destdir
+    --list                              Don't download but just list versions
     --binary                            Download binary packages instead of
                                         source packages
     -a <architecture>,
@@ -216,7 +217,7 @@ sub keep_version($)
 read_conf(@ARGV);
 Getopt::Long::Configure('gnu_compat');
 Getopt::Long::Configure('no_ignore_case');
-GetOptions(\%opt, 'verbose|v', 'destdir|d=s', 'force|f', 'help|h', 'version', 'first=s', 'last=s', 'binary', 'architecture|a=s@') || usage(1);
+GetOptions(\%opt, 'verbose|v', 'destdir|d=s', 'force|f', 'help|h', 'version', 'first=s', 'last=s', 'list', 'binary', 'architecture|a=s@') || usage(1);
 
 usage(0) if $opt{help};
 usage(1) unless @ARGV;
@@ -277,7 +278,17 @@ unless (@versions) {
     warn "$progname: No matching versions found for $package\n";
     $warnings++;
 }
-if ($opt{binary}) {
+if ($opt{list}) {
+    foreach my $version (@versions) {
+	if ($opt{binary}) {
+	    print "$version->{binary_version}\n";
+	}
+	else {
+	    print "$version->{version}\n";
+	}
+    } 
+}
+elsif ($opt{binary}) {
     foreach my $version (@versions) {
 	my $src_json = fetch_json_page("$opt{baseurl}/mr/package/$version->{source}/$version->{version}/binfiles/$version->{name}/$version->{binary_version}?fileinfo=1");
 

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